I there a way to change all the text styles in a drawing to 0.8 width globally. I would like to use entmod so I do not have to change each one. Can it be done and how or has anyone developed a lisp to do so.
thansk Byron
Solved! Go to Solution.
Solved by Kent1Cooper. Go to Solution.
@1bdchristian wrote:
I there a way to change all the text styles in a drawing to 0.8 width globally. I would like to use entmod so I do not have to change each one. ....
A clarification: do you want to change the defined width factor in each Text Style definition [as implied by the wording "change all the text styles"], or to force an assigned width for each Text entity [as implied by the second half of the sentence and assumed by MetroVancouverDrafting before they apparently deleted their message]? Are you also interested in Mtext? Attributes?
I would like to change all the text styles in the drawing to 0.8 with out having to go to the styles dialog and change each one.
@1bdchristian wrote:
I would like to change all the text styles in the drawing to 0.8 with out having to go to the styles dialog and change each one.
Give this a try:
(while
(setq sname (cdr (assoc 2 (tblnext "style" (not sname)))))
(if (not (wcmatch sname "*|*")); [not Xref-dependent]
(progn
(setq sdata (entget (tblobjname "style" sname)))
(entmod (subst '(41 . 0.8) (assoc 41 sdata) sdata))
); progn
); if
); while
It won't change the width factor of Text entities already in the drawing, but code could be included to handle that part of it. Or you can use the Qselect method for that, or grab everything in the drawing with a big crossing window, and in the Properties box, narrow it down to only Text entities and change their width factor there.