欢迎来到天天文库
浏览记录
ID:50788369
大小:13.51 KB
页数:2页
时间:2020-03-14
《CAD上怎么算一个图层的所有线段的长度之和.docx》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、CAD上怎么算一个图层的所有线段的长度之和给一个简单的源代码,你自己测试后可以修改编辑让它更符合你的要求:(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)))(setqTL
2、EN(vlax-curve-getdistatparamCURVE(vlax-curve-getendparamCURVE)))(setqSUMLEN(+SUMLENTLEN))(setqN(1+N)))(princ(strcat"共选择"(itoa(sslengthSS))"条线段.线段总长:"(rtosSUMLEN23)"米."))(princ))将以上代码复制在记事本内后“另存为”→“统计线段长度.lsp”打开CAD,运行“appload”命令加载刚保存的“统计线段长度.lsp”文件按命令提示“程序:统计线段长度命令:test”输入命令test选择要
3、统计长度的线段即可。附:我的命令行操作提示命令:命令:appload已成功加载统计线段长度.lsp。
此文档下载收益归作者所有