CAD中计算多条多段线的总长.pdfVIP

CAD 中计算多条多段线的总长方法： 1、先将以下代码复制到记事本中。 (defunc:n() (setqtleng 0) (setq s (ssget)) (setq n (sslengths)) (setq index (- n 1)) (repeat n (vl-load-com) (setq ent (ssname s index)) (setq index (- index 1)) (setq curve-obj (vlax-ename-vla-object ent)) (setq leng (vlax-curve-getDistAtParam curve-obj (vlax-curve-getEndParamcurve-obj) ) ) (setqtleng (+tleng leng)) (princ leng) (princ \n) ) (setq prscreemtext (strcat \n 总共计算 (itoa n) 个对象，总长度为 (rtos tleng 2 1))) (princ prscreemtext) (princ)