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

《CAD中统计多条线段长度.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1.新建文本文档，将以下代码复制在记事本内，“另存为”→“统计线段长度.lsp”。(princ"程序：统计线段长度命令：zz") (defunC:zz(/CURVETLENSSNSUMLEN) (vl-load-com) (setqSUMLEN0) (setqSS(ssget'((0."CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")))) (setqN0) (repeat(sslengthSS) (setqCURVE(vlax-ename->vla-object(ssnameSSN))) (setqT

2、LEN(vlax-curve-getdistatparamCURVE(vlax-curve-getendparamCURVE))) (setqSUMLEN(+SUMLENTLEN)) (setqN(1+N)) ) (princ(strcat"共选择"(itoa(sslengthSS))"条线段.线段总长:"(rtosSUMLEN23)" ."))(princ) )  2.打开CAD→菜单栏中找到“管理”（老版本“工具”）→打开“加载应用程序”（或在命令行中运行“appload”命令打开）→找到并选中“统计线段长度.lsp”→点“加载”→显

3、示“已成功加载统计线段长度.lsp。”→点“关闭”。3.在命令行输入“zz”+回车→选中所有要统计的线→选中后点鼠标右键（或回车）。4.按F2查看结果→