CAD多线段长度计算插件（zz统计线段长度）.rar
用法： 在CAD的命令行中输入Appload【或点击工具--加载应用程序】，打开加载/卸载对话框，把****.lsp文件复制到已打开的文件夹中，选择下载的附件文件，然后点击内容--加载--选中文件--点击关闭即可，文件名是****.lsp，点击加载/关闭即可。
在CAD命令行中输入ZZ，选择要统计线段长度的所有线段,结果马上出来。

或者自己编写命令到txt文件，生成响应插件。
命令如下：
(princ "n程序：(标准分享吧www.bzfxb.com)统计线段长度 命令：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) )