★CAD中统计多条线段长度.doc

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查看结果 →