 - (defun c:tt ( / col e el i ss)
- (setq ss (ssget "x"))
- (repeat (setq i (sslength ss))
- (setq e (ssname ss (setq i (1- i)))
- el (entget e)
- )
- (if (not (assoc 62 el))
- (setq col (cdr (assoc 62 (entget (tblobjname "layer" (cdr (assoc 8 el))))))
- el (entmod (append el (list (cons 62 col)))))
- )
- )
- )
|