如何在CAD中迅速統計各線段長度
;;;===================
;;;面積和長度統計程序
;;;highflybird kunming
;;;===================
(prompt "命令為:AM")
(defun C:am (/ f ss l i SSarea totlen entlen
ename name obj text-S text-L insPt0 height
insPt1 insPt2 text-1 text-2 *APP *DOC *MSP
)
(vl-load-com)
(setq *APP (vlax-get-acad-object))
(setq *DOC (vla-get-activeDocument *APP))
(setq *MSP (vla-get-Modelspace *DOC))
(initget 1 "1 2 3")
(setq f (getkword "n請輸入你要統計的<1>面積<2>長度<3>兩者:"))
(if
(and
(setq ss (ssget))
(setq insPt0 (getpoint "n請輸入文字插入點: "))
(setq height (getdist "n請輸入文字高度:"))
)
(progn
(setq l (sslength ss))
(setq i 0)
(setq SSarea 0)
(setq totlen 0)
(setq insPt1 (vlax-3d-point insPt0))
(setq insPt2 (polar insPt0 (* 1.5 Pi) (* 1.5 height)))
(setq insPt2 (vlax-3d-point insPt2))
(cond
( (= f "1")
(repeat l
(func-1)
(func-2)
(setq i (1+ i))
)
(setq text-S (strcat (convert1 SSarea 6) "平方米"));總面積為:小數后6位
(vla-addtext *MSP text-S insPt1 height)
)
( (= f "2")
(repeat l
(func-1)
(func-3)
(setq i (1+ i))
)
(setq text-L (strcat (convert1 totlen 3) "米")) ;總長度為:小數后3位
(vla-addtext *MSP text-L insPt2 height)
)
( (= f "3")
(repeat l
(func-1)
(func-2)
(func-3)
(setq i (1+ i))
)
(setq text-S (strcat (convert1 SSarea 6) "平方米"));總面積為:小數后6位
(setq text-L (strcat (convert1 totlen 3) "米")) ;總長度為:小數后3位
(vla-addtext *MSP text-S insPt1 height)
(vla-addtext *MSP text-L insPt2 height)
)
)
)
(alert "你沒有選取物體或者輸入正確的數據!")
)
(princ)
)
(defun func-1 ()
(setq ename (ssname ss i))
(setq obj (vlax-ename->vla-object ename))
(setq elist (entget ename))
(setq name (cdr (assoc 0 elist)))
)
;;面積的統計
(defun func-2 (/ p1 p2 p3 p4)
(if (vlax-property-available-p obj "area")
(setq SSarea (+ (vla-get-area obj) SSarea))
(if (= name "SOLID")
(setq p1 (cdr (assoc 10 elist))
p2 (cdr (assoc 11 elist))
p3 (cdr (assoc 12 elist))
p4 (cdr (assoc 13 elist))
SSarea (+ (area-of-verties (list p1 p2 p4 p3)) SSarea)
)
)
)
)
;;長度的統計
(defun func-3 (/ p1 p2 p3 p4)
(cond
( (= name "MLINE")
(setq totlen (+ totlen (ml-length ename)))
)
( (or (= name "ARC")
(= name "CIRCLE")
(= name "LINE")
(= name "POLYLINE")
(= name "LWPOLYLINE")
(= name "SPLINE")
(= name "ELLIPSE")
)
(setq entlen (vlax-curve-getdistatparam ename (vlax-curve-getendparam ename)))
(setq totlen (+ totlen entlen))
)
( (= name "SOLID")
(setq p1 (cdr (assoc 10 elist)))
(setq p2 (cdr (assoc 11 elist)))
(setq p3 (cdr (assoc 12 elist)))
(setq p4 (cdr (assoc 13 elist)))
(setq totlen (+ (length-of-verties (list p1 p2 p4 p3)) totlen))
)
)
)
;;Mline的長度
(defun ml-length (ename / j d ptlist)
(foreach n (entget ename)
(if (= (car n) 11)
(setq ptlist (cons (cdr n) ptlist))
)
)
(reverse ptlist)
(setq j 0)
(setq d 0)
(repeat (1- (length ptlist))
(setq d (+ d (distance (nth j ptlist) (nth (1+ j) ptlist))))
(setq j (1+ j))
)
d
)
;;單位轉化
(defun convert (x n / tol_x fra_x int_x)
(setq tol_x (/ x (expt 10 n)))
(setq fra_x (rtos (- tol_x (fix tol_x)) 2 n))
(setq fra_x (vl-string-left-trim "0" fra_x))
(setq int_x (itoa (fix tol_x)))
(strcat int_x fra_x)
)
(defun convert1 (x n / tol_x fra_x int_x)
(setq tol_x (/ x (expt 10 n)))
(setq fra_x (rtos (- tol_x (fix tol_x)) 2 3))
(setq fra_x (vl-string-left-trim "0" fra_x))
(setq int_x (itoa (fix tol_x)))
(strcat int_x fra_x)
)
;;n個點的長度
(defun length-of-verties (pts / i l len pts1)
(setq i -1 len 0)
(setq pts1 (cons (last pts) pts))
(repeat (length pts)
(setq i (1+ i))
(setq l (distance (nth i pts1) (nth (1+ i) pts1)))
(setq len (+ l len))
)
)
;;n個點的面積
(defun area-of-verties (pts / i area PX0 PY0 x1 y1 x2 y2)
(setq i 0)
(setq area 0)
(setq px0 (caar pts))
(setq py0 (cadar pts))
(repeat (- (length pts) 1)
(setq x1 (- (car (nth i pts)) px0)
y1 (- (cadr (nth i pts)) py0)
x2 (- (car (nth (1+ i) pts)) px0)
y2 (- (cadr (nth (1+ i) pts)) py0)
)
(setq area (+ (- (* x1 y2)(* x2 y1)) area))
(setq i (1+ i))
)
(abs (/ area 2))
)
這里有一個程序，你可以用用看，
命令為AM
對line ,arc ,ellispe,spline,polyline,lwpolyline,circle,mline,solid均有效。
你既可統計長度，也可統計面積，或者兩者都統計。
如果你對精確位不滿意，你可以改動程序中的數字（程序注釋中說明）。