如何查看CAD中多条不连续多段线的长度？

Question

外网工程，图层分离已经会了。摘出了线条，但是数量太多 ，怎么可以一次选中，查看所有线条的总和？不是连续的线。请高手指教谢谢。

Answer 1

将以下文字复制到记事本，保存为zz.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))
)
(print (strcat "总长度: " (rtos SUMLEN 2 5)))
(princ)
)

工具 加载应用程序 zz.lsp
命令行键入 zz ，选择所有的线段后，求出总和长度。

Answer 2

如果是相连接的线段，那就先变成复合线，然后就可以查看了

Answer 3

CAD中输入命令：app，弹出选项框，找到楼上回答的zz.lsp，加载成功就可以了。

Answer 4

我现在不懂的是，文件的保存，要保存到哪？以什么文档形式？我试过好几种都不行，能给我解答一下吗？