★CAD中统计多条线段长度

1. 新建文本文档，将以下代码复制在记事本内，“另存为”→“统

计线段长度.lsp”。

(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) ?

) ??

2.打开CAD →菜单栏中找到“管理”（老版本“工具”）→打开“加载应用程序”（或在命令行中运行“appload”命令打开）→找到并选中“统计线段长度.lsp”→点“加载”→显示“已成功加载统计线段长度.lsp。”→点“关闭”。

3. 在命令行输入“zz”+回车→选中所有要统计的线→选中后点鼠标右键（或回车）。

4. 按F2查看结果→