Hello everyone...
I have many drawings with texts heights wrong, but the height of the table style is correct.
Does anyone have a suggestion to fix this code so it only changes the height of the styles of texts that desire?
Thanks in advance.
(while (setq tdef (tblnext "STYLE" (not tdef)))
(and (setq ss (ssget (list (cons 7 "ST60,ST80,ST100,ST120"))))
(setq i -1)
(while (setq ent_name (ssname ss (setq i (1+ i))))
(setq ent_def (entget ent_name))
(entmod (subst (assoc 40 tdef) (assoc 40 ent_def) ent_def))
)
)
)