其他版本的可以百度下载，这个我只是在Windows10操作系统CAD2014版本测试有效， 其他系统和版本的自行测试。
(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
打开CAD2014，
快捷键输入“appload”也可以直接输入AP
按回车键
加载刚保存的“统计线段长度.lsp”文件
会出现提示命令为ZZ。
使用步骤：
先快捷键输入ZZ
再敲下回车键
然后去选要统计的线段
选完，回车
然后就出现 找到4个选择对象: 共选择4条线段. 线段总长 : 1623.294.