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

精品word 可编辑资料 - - - - - - - - - - - - -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 ；” → 点“关闭”；第 1 页，共 3 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -3. 在命令行输入“ zz ”+回车 → 选中全部要统计的线 → 选中后点鼠标右键（或 回车）；第 2 页，共 3 页 - - - - - - - - - -精品word 可编辑资料 - - - - - - - - - - - - -4. 按 F2 查看结果 →第 3 页，共 3 页 - - - - - - - - - -。