;;把text转为属性图块
;;By LUCAS
(defun C:C_DEF (/ HOLDECHO HOLDBLIP HOLDREQ SS SSS N A AA A1 A73 HH
LST_210 LST_10
)
(defun DXF (A1 A2 /)
(setq ENT (cdr (assoc A1 A2)))
)
(defun GETATT (E ATTNAME / N ATT E1 EN EN1 RSLT)
(setq EN (entget E)
E1 E
)
(if (and (= (DXF 0 EN) "INSERT")
(= (DXF 66 EN) 1)
)
(progn
(setq E1 (entnext E1)
ATT (strcase ATTNAME)
)
(while (and E1
(setq EN1 (entget E1))
(= (DXF 0 EN1) "ATTRIB")
)
(setq RSLT (append RSLT (list (DXF -1 EN1))))
(setq E1 (entnext E1))
)
)
)
(setq N 0)
(repeat (length RSLT)
(entmod (subst (nth N LST_210)
(assoc 210 (entget (nth N RSLT)))
(entget (nth N RSLT))
)
)