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