测量多条线段总长度的方法.docxVIP

精品文档 CADM量线段长度的方法 1若是单条线段，选中后查看属性，就可以得知该线段的长度。 2若是多条连续线段，但不闭合，可以用 PE命令先将所有线段变为多段线，之后选用 J命 令将所有PLine线合并；再选中这线的时候发现只是一根线了，再查看属性即可。 3若是多条不连续线段，无法用以上两种方法较快的测量出线段的长度，则建立一个 txt 文本，拷贝以下内容： 计算线加总长度 (defun C:yy (/ CURVE TLEN SS N SUMLEN) (vl-load-com) (setq SUMLEN 0) (setq SS (ssget ((0 . CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC”)))) (setq N 0) (repeat (sslength SS) (setq CURVE (vlax-ename-vla-object (ssname SS N))) (setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE) ) ) (setq SUMLEN (+ SUMLEN TLEN)) (setq N (1+ N)) ) (print (strcat 总长度：(rtos SUMLEN 2 5))) (princ) ) 最后，把.txt文件的