CAD统计线段长度.pdfVIP

A U T O C A D 统 计 多 条 多 线 段 长 度 分类：电脑 CAD (princ\n 程序：统计线段长度命令： zz) (defunC:zz(/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-getendparamCURVE))) (setqSUMLEN(+SUMLENTLEN)) (setqN(1+N)) ) (princ(strcat\n 共选择 (itoa(sslengthSS)) 条线段 . 线段总 长 :(rtosSUMLEN23).))(princ) ) 将以上代码复制在记事本内后“另存为”→“统计线段长度