CAD线段统计命令
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
;统计cad图中线的总长度
;************** Write By zhenglin****************
(defun c:ff (/ p n e e1 e2 l s x1 x2 y1 y2 xx yy ll lll)
(setq ln 0 lll 0)
(setq p (ssget)) Select objects
(if p
(progn If any objects selected
(setq l 0 n (sslength p))
(while (< l n) For each selected object...
(if (= "LINE" (cdr (assoc 0 (setq e (entget (ssname p l))))))
(progn
(setq e1 (assoc 10 e) e2 (assoc 11 e))
(setq x1 (cadr e1) y1 (caddr e1))
(setq x2 (cadr e2) y2 (caddr e2))
(setq xx (abs (- x2 x1)) yy (abs (- y2 y1)))
(setq ll (sqrt (+ (* xx xx) (* yy yy))))
(setq lll (+ lll ll))
(setq ln (+ ln 1))
)
)
(setq l (1+ l))
)
)
)
(print "所选线段数量= ")
(princ ln)
(print "所选线段总长度= ")
(princ lll)
(terpri)
)