How to Remove Bigfont from all Text Styles?

[Anonymous]

Hi All,
I have some drawings which contains around 17 tex styles of which 10 are with Bigfont are used.
I want to remove Bigfont at once from all the text styles which are using type Bigfont.
How to do this with the help of lisp?

Thanks in advance,
Hrishikesh

[cadffm · Accepted solution]

one possible Way

Look for GroupCode in Objekt of Style-Table,

GroupCode=4

Set value of GroupCode 4 to ""

(while (setq st (tblnext "STYLE" (not st)))
       (setq st (entget(tblobjname "STYLE" (cdr(assoc 2 st)))))
       (entmod (subst '(4 . "")(assoc 4 st) st))
)

[Anonymous]

Thanks...