C统计线段长度
集团文件发布号：（9816-UATWW-MWUB-WUNN-INNUL-DQQTY-
A U T O C A D统计多条多线段长度分类：电脑CAD
(princ"\n程序：统计线段长度命令：zz")
(defunC:zz(/CURVETLENSSNSUMLEN)
(vl-load-com)(setqSUMLEN0)
(setqSS(ssget'((0."CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
(setqN0)
(repeat(sslengthSS)
(setqCURVE(vlax-ename->vla-object(ssnameSSN)))
(setqTLEN(vlax-curve-getdistatparamCURVE(vlax-curve-getendparamCURVE))) (setqSUMLEN(+SUMLENTLEN))
(setqN(1+N))
)
(princ(strcat"\n共选择"(itoa(sslengthSS))"条线段.线段总
长:"(rtosSUMLEN23)"."))(princ)
)
将以上代码复制在记事本内后“另存为”→“统计线段长度.lsp”打开CAD，运行“appload”命令加载刚保存的“统计线段长度.lsp”文件按命令提示“程序：统计线段长度命令：zz”输入命令zz选择要统计长度的线段即可。

命令:程序：统计线段长度命令：zz命令:命令:zz选择对象:指定对角点:找到5个选择对象:共选择5条线段.线段总长:1123.294.。