欢迎来到天天文库
浏览记录
ID:51258950
大小:21.50 KB
页数:2页
时间:2020-03-20
《CAD上算一个图层的所有线段的长度之和.doc》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
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(vlax-curve-getdistatparamCURVE(vlax-curve-
2、getendparamCURVE))) (setqSUMLEN(+SUMLENTLEN)) (setqN(1+N)) ) (princ(strcat"共选择"(itoa(sslengthSS))"条线段.线段总长:"(rtosSUMLEN23)"米."))(princ) ) 将以上代码复制在记事本内后“另存为”→“统计线段长度.lsp”打开CAD,运行“appload”命令加载刚保存的“统计线段长度.lsp”文件按命令提示“程序:统计线段长度命令:test”输入命令test选择要统计长度的线段即可。附:我的命令行操作提示命令:命令:appload已成功
3、加载统计线段长度.lsp。命令:程序:统计线段长度命令:test命令:命令:test选择对象:指定对角点:找到4个选择对象:共选择4条线段.线段总长:1667.294米这个与大家分享!
此文档下载收益归作者所有