|; (defun input_integer (a b / c) (setq a (strcat a " <"(rtos b 2 0)"> ")) (setq c (getint a)) (if (/= c NIL) (setq b c) (setq b b) ) ) (setq incr 1) (defun item (ent) (cdr(car(entget(ent)))) ) (defun ERR (s) (if (/= s "Function cancelled\n") (if (= s "quit / exit ...

(defun c:tll(/ sset len x llen ename lst llen1) (prompt "Select lines:") (setq sset (ssget)) (setq len (sslength sset)) (setq x 0) (setq llen 0) (while (< x len) (setq ename (ssname sset x)) (setq lst (entget ename)) (if (= "LINE" (cdr(assoc 0 lst))) (progn (setq llen1 (distance ...