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

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) ; 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)) (se

tq 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 "total line number= ") (princ ln)

(print "total line length= ") (princ lll) (terpri) )

2、另存为cdtj.lsp

cdtj自己命名，之后将能作为快捷方式使用，示例cdtj为长度统计拼音首字母

3、打开CAD或天正建筑

4、点击“管理”→“加载应用程序”→选择“cdtj.lsp”→

“加载”→“关闭”

5、在cad命令栏输入：cdtj

6、“请选择需统计长度的曲线( 支持直线、多段线、圆弧、

圆、椭圆弧、椭圆、样条曲线): ”

7、“请点取结果标注位置<退出>:”