cda测量多条线总长

《cda测量多条线总长》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、工程造价需要汇总线缆总长，CAD中没冇相关命令计算相当繁琐，写了一个小插件希望对大家有帮助。进入CAD-工具-Isp-加载应用程序。加载插件，如图：Drawingr观图(V)篇入(I)梧式(O)丄丫亠冋2丿选项板^7铮显示Mrawmyi.uwy參数(P)陵口(W)穂助(H)Ctrl+9CtrkO阿▲1釁色□ByLayer1臨0/_TF11ByLayer匕伤11宠5ByLayer1逶明复ByLayer0材质ByLayer阴影显示投肘和接收阴影打印锌式▲打印样式ByColor1打印梅法无打印表附菩到打印衰类型不引用1视图▲歸X坐标3143.5582凰沙坐标1440.6841動Z坐标01念度25

2、99.1827SS5594.7095貝他▲扩比例1:1打开UCS图标e—C9—•胛如(E)绘图次序(D)闪斋⑴ffiS(Q)見舫字段⑴埃铜濟(B)外菲參照*0块在位幅取(X)・・・恥歸耐竝磁用击(L)・・・运行卸本(R)・・・宏(A)AutoLISP(l)显示禺像(Y)新建UCS(W)命名UCS(U)...JBJaczS(L)...CAD囱⑸向导⑵绘图没置(F)・・・组(G)解細组(U)＞醫加爺应用程序(L)・・・VisualLISP卿壽(V)zz个3条纹甕荻段总长：5742.562・指定对角点或[程选(F)/囲31(WP)/囲交(CP)]指定对角点或[栏s(F)/au(wp)/s交(CP

3、)]猎定对角点或[栏i5(F)/ai](wp)/a交(cp)i.erase我到3个童找范围⑴:名称log文件,11.02/K利厅[£1OS-快捷方式azcJspR此电脑・快捷方式修改日期2016/2/2512:022016/1/2010:502016/2/1410:28文件表L5P2016/2/2515:32AutoLIE2016/2/2514:072016/1/2010:59文件名(N):zc.lspVAutoLISP文件(*.lsp)xz已加载的应用程序历史记录列表文件路径acad.mnlacad201...acad201...C：'programC：PrograjTiC:Prog

4、ram£ilesautodesk.・・FilesAutodesk・・・FilesAutodesk・・・加裁(L)□添加到历史记录(A)卸载(U)r启动组ft购容(o)Raw.关闭(C)帮助(H)X命令:命令:加载完成命令：_appload已成功加载zc.lspe=动保存列C:Users40940appdatalocaltempDrawingl_l_l_1227.sv$命令：程序：统计线酸长度命令：2Z命召：使用方式：选择好需要统计的线段，输入ZZ命令，即可得到总长［-］［M匚妙備北命令：YX矗令；鑽定对角点茨［＞x2(f)/3S(wp)/S交(CP)”命令：證定对角点或［

5、空迓(F)/可妄(WP)/回交(CP)］：命令：ZZ找到6个共选冷6条纹段.纹我总长：6883.562・命令：矗令;證定对角点或［空送(F"易妄(WP)/国交(CP)］：共选睜6条线僉.线薮总长：6883.562:指定对角点或［栏选(F)/SB(WP)/a交(CP)］：附件：ISP文件内容将如下命令写入TXT中，文件改名为zc.lsp即可(princn程序：统计线段长度命令：zzn)(defunC:zz(/CURVETLENSSNSUMLEN)(vl-load-com)(setqSUMLEN0)(setqSS(ssget*((0."CIRCLE,ELLIPSE,LINE,*POLYLI

6、NE,SPLINE,ARC"))))(setqN0)(repeat(sslengthSS)(setqCURVE(vlax-ename->vla-object(ssnameSSN)))(setqTLEN(vlax-curve-getdistatparamCURVE(vlax-curve-getendparamCURVE)))(setqSUMLEN(+SUMLENTLEN))(setqN(1+N)))(princ(strcat"共选择"(itoa(sslengthSS))"条线段.线段总长："(rtosSUMLEN23)"."))(princ)