lisp取消选集选中状态_lisp把选集转成表_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]：把text转为属性图块 - Powered by Discuz!......

;;把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))

)

)