CAD多条线段长度求和插件

链接：https://pan.baidu.com/s/1wlNQsID1ywoVlQNTmWn4XA 

提取码：1234

(princ "\n程序：统计线段长度 命令：zz")(defun C:zz (/ CURVE TLEN SS N SUMLEN)(vl-load-com) (setq SUMLEN 0)(setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))(setq N 0)(repeat (sslength SS)(setq CURVE (vlax-ename->vla-object (ssname SS N)))(setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE)))(setq SUMLEN (+ SUMLEN TLEN))(setq N (1+ N)))(princ (strcat "\n共选择 " (itoa (sslength SS)) " 条线段. 线段总长: " (rtos SUMLEN 2 3) "  ")) (princ))将“统计线段长度.lsp”文件保存在AutoCAD文件夹下，找不到的直接右键单击CAD桌面图标，打开文件所在位置，将.lsp文件复制粘贴到该位置。打开CAD，命令行输入‘“app”回车，搜索框内搜索“统计线段长度.lsp”，点击加载，加载刚保存的“统计线段长度.lsp”文件 ，命令框内输入“zz”，回车，框选要统计长度的线段，回车。

当回车后出现命令行空白，不要慌张，只需将光标对准命令行，鼠标滚轮向下滑动即可出现所求结果。