天正多条线段长度lisp下载_如何快速计算cad中多条多段线的总长

用插件计算。

很多插件都有计算长度功能，比如【天正】【超越工具集】等。

autolisp代码如下：e69da5e887aa62616964757a686964616f31333361326361

(defun c:TE ( / &k1 &kw1 &ss1 cd1 i x)

(setvar "cmdecho" 0)

(setvar "blipmode" 0)

(if (null vlax-dump-object) (vl-load-com) )

(princ "\n请选择曲线")

(if (setq &kw1 (ssget '((0 . "*LINE,ARC,CIRCLE,HELIX,ELLIPSE"))))

(progn

(setq i -1.0 &ss1 '())

(while (setq &k1 (ssname &kw1 (setq i (1+ i))))

;(vla-put-color (vlax-ename->vla-object &k1) 252)

(setq &ss1 (cons &k1 &ss1))

)

(setq &ss1 (mapcar '(lambda (X) (* 0.001 (vlax-curve-getDistAtParam x (vlax-curve-getEndParam x)))) &ss1))

(setq cd1 (apply '+ &ss1))

(setq &ss1 (apply 'strcat (cdr (apply 'append (mapcar '(lambda (x)