CAD如何快速计算各种线段标注数值的和？

标注的总长我不知道能不能统计

但线段总长是可以的，下载一个：统计线段长度.lsp
(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
在CAD里加载该插件，完成后输入命令：zz