cad统计线段长度方法

《cad统计线段长度方法》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、给一个简单的源代码，你自己测试后可以修改编辑让它更符合你的要求：(princ"程序：统计线段长度命令：test")(defunC:TEST(/CURVETLENSSNSUMLEN)(vl-load-com)(setqSUMLEN0)(setqSS(ssget'((0."CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))(setqN0)(repeat(sslengthSS)(setqCURVE(vlax-ename->vla-object(ssnameSSN)))(setqTLEN(vl

2、ax-curve-getdistatparamCURVE(vlax-curve-getendparamCURVE)))(setqSUMLEN(+SUMLENTLEN))(setqN(1+N)))(princ(strcat"共选择"(itoa(sslengthSS))"条线段.线段总长:"(rtosSUMLEN23)"米."))(princ))将以上代码复制在记事本内后“另存为”→“统计线段长度.lsp”打开CAD，运行“appload”命令加载刚保存的“统计线段长度.lsp”文件按命令提示“程序：统计线段长度命令：test”

3、输入命令test选择要统计长度的线段即可。附：我的命令行操作提示命令:命令:appload已成功加载统计线段长度.lsp。命令:程序：统计线段长度命令：test命令:命令:test选择对象:指定对角点:找到4个选择对象:共选择4条线段.线段总长:1667.294米