(TTA)单行文字转块属性

(defun C:TtA(/ edata ent str)
    (while (and (setq ent (entsel)) (= (cdr (assoc 0 (setq edata (entget (car ent))))) "TEXT"))
    (entmake (list '(0 . "ATTDEF") (assoc 1 edata) (cons 2 (setq str (getstring "："))) (cons 3 str) '(7 . "宋体") (assoc 8 edata) (assoc 10 edata) (assoc 11 edata) (assoc 40 edata) '(41 . 0.7) (cons 51 (cdr (assoc 51 edata))) '(70 . 0) '(71 . 0) '(72 . 4)))
    (entdel (car ent))
)
    (prin1)
)