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

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

《CAD中如何一次性统计多条直线(曲线)的长度.docx》由会员分享，可在线阅读，更多相关《CAD中如何一次性统计多条直线(曲线)的长度.docx（2页珍藏版）》请在冰豆网上搜索。

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、“请点取结果标注位置<退出>:

”