最新cad查询多个线段长度总和.doc

《最新cad查询多个线段长度总和.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、精品资料cad查询多个线段长度总和........................................精品资料 (princ"程序：统计线段长度命令：xkbuild") (defunC:xkbuild(/CURVETLENSSNSUMLEN) (vl-load-com) (setqSUMLEN0) (setqSS(ssget'((0."CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")))) (setqN0) (repeat(sslengthSS)

2、 (setqCURVE(vlax-ename->vla-object(ssnameSSN))) (setqTLEN(vlax-curve-getdistatparamCURVE(vlax-curve-getendparamCURVE))) (setqSUMLEN(+SUMLENTLEN)) (setqN(1+N)) ) (princ(strcat"共选择"(itoa(sslengthSS))"条线段.线段总长:"(rtosSUMLEN23)" .")) (princ) )...........

3、.............................精品资料 将以上代码复制在记事本内后“另存为”→“统计线段长度.lsp” 打开CAD，运行“appload”命令加载刚保存的“统计线段长度.lsp”文件 按命令提示“程序：统计线段长度命令：xkbuild” 输入命令xkbuild选择要统计长度的线段即可。 附：我的命令行操作提示 命令: 命令:appload 已成功加载统计线段长度.lsp。 命令: 程序：统计线段长度命令：xkbuild命令: 命令:xkbuild选择对象:

4、指定对角点:找到4个 选择对象: 共选择4条线段.线段总长:1623.294.........................................