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

《★CAD中统计多条线段长度.docx》由会员分享，可在线阅读，更多相关《★CAD中统计多条线段长度.docx（3页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精品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

2、(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 页 - - - - - - - - - -