[编程交流] 线路长度需要更新

(defun c:test( / ssetLine ssetText assocLine assocText )
(while (and (not (prompt "\nSelect line to check: "))
            (setq ssetLine (ssget "_:S:E" '((0 . "LINE"))))
            (not (prompt "\nSelect associated label: "))
            (setq ssetText (ssget "_:S:E" '((0 . "TEXT")))))
 (setq assocLine (entget (ssname ssetLine 0))
       assocText (entget (ssname ssetText 0)))
 (entmod (subst (cons 1 (strcat "-"
                                (rtos (distance (cdr (assoc 10 assocLine))
                                                (cdr (assoc 11 assocLine))) 2 0)
                                " LG"))
                (assoc 1 assocText)
                assocText))
)
(princ)
)