cad中统计多条直线长度的方法
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
(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 "total line number= ")
cad中统计多条线段长度
新建文本文档。在文档中输入以下内容：
=======================================================
;统计cad图中线的总长度
;************** Write By zhenglin****************
(defun c:tj_l (/ 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...
ຫໍສະໝຸດ Baidu按F2查看结果
(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))
(princ ln)
(print "total line length= ")
(princ lll)
(terpri)
)
========================================
另存为tj_l.lsp
打开cad—>工具—>加载应用程序—>找到并选中tj_l.lsp点加载在命令行输入tj_l然后选中所有要统计的线。
(setq ll (sqrt (+ (* xx xx) (* yy yy))))
(setq lll (+ lll ll)) (setq ln (+ ln 1))
)
)
(setq l (1+ l))
)
)
)
(print "total line number= ")
cad中统计多条线段长度
新建文本文档。在文档中输入以下内容：
=======================================================
;统计cad图中线的总长度
;************** Write By zhenglin****************
(defun c:tj_l (/ 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...
ຫໍສະໝຸດ Baidu按F2查看结果
(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))
(princ ln)
(print "total line length= ")
(princ lll)
(terpri)
)
========================================
另存为tj_l.lsp
打开cad—>工具—>加载应用程序—>找到并选中tj_l.lsp点加载在命令行输入tj_l然后选中所有要统计的线。