CAD中如何一次性统计多条直线(曲线)的长度.docx

《CAD中如何一次性统计多条直线(曲线)的长度.docx》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、CAD中如何一次性统计多条直线（曲线）的长度1、打开记事本记录以下代码(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)      

2、           ; 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

3、 (- 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= ") (princ ln) (print "total line length= ") (princ lll) (terpri) )  2、另存为cdtj.

4、lspcdtj自己命名，之后将能作为快捷方式使用，示例cdtj为长度统计拼音首字母3、打开CAD或天正建筑4、点击“管理”→“加载应用程序”→选择“cdtj.lsp”→“加载”→“关闭”1、在cad命令栏输入：cdtj2、“请选择需统计长度的曲线(支持直线、多段线、圆弧、圆、椭圆弧、椭圆、样条曲线):”3、“请点取结果标注位置<退出>:”