其他版本的可以百度下载，这个我只是在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

伸手党直接附件下载。