cad线段总和lisp_autocadlisp统计多段线方法

将如下代码粘贴到新建的窗口

(defun c:tj(/ ss tlen obj k l)

(setvar "cmdecho" 0)

(if (setq ss (ssget))

(progn

(vl-load-com)

(setq l (sslength ss) k 0 tlen 0 )

(repeat l

(setq ename (ssname ss k))

(setq obj (vlax-ename->vla-object ename))

(if (= (cdr (assoc 0 (entget ename))) "MLINE")

(setq tlen (+ tlen (ml-length ename)))

(setq tlen (+ tlen (vlax-curve-getdistatparam ename (vlax-curve-getendparam ename))))

)

(setq k (1+ k))

)

(princ (strcat "\n共选择 " (itoa l) " 个对象 | 总长度: " (rtos tlen 2 0)))

;(command "text" (getpoint "\n选取文字插入点") "" "" (rtos tlen 2 3))

(alert  (strcat "\n共选择 " (itoa l) " 个对象 | \n总长度: " (rtos tlen 2 0)))

)

(princ "\n未选择对象")

)

(setvar "cmdecho" 1)

(prin1)

)