(defun c:text->att ( / ) (princ "\nSelect text:") (mapcar '(lambda (x) (entmakex (list '(0 . "ATTDEF") (assoc 8 x) (assoc 10 x) (assoc 40 x) '(1 . "") (assoc 50 x) (assoc 41 x) (assoc 51 x) (assoc 7 x) (assoc 71 x) (assoc 72 x) (assoc 11 x) (assoc 210 x) '(3 . "") (cons 2 (cdr (assoc 1 x))) (cons 70 (logand 15 (getvar "AFLAGS"))) (cons 74 (cdr (assoc 73 x))) ) ) (entdel (cdr (assoc -1 x))) ) (mapcar 'entget (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "TEXT"))) ) ) ) ) ))