Topic: Change width of all text styles

[Dave M]

I am updating about 100 sheets where someone took it upon themselves to change the width of all the text styles.  Does anyone have a routine that would let me change them all back to what they should be?  I took a look around but didn't see anything that fit the bill.


Thanks in advance!

[rkmcswain]

The following will set the width of all text styles in the DWG to 1.0.

Code: [Select]


(vl-load-com)
(vlax-for x
     (vla-get-TextStyles
       (vla-get-activedocument (vlax-get-acad-object))
     )
  (vlax-put x 'width 1.0)
)






Note that changing the properties of the style will not necessarily update existing text/mtext objects that use this style.

[Dave M]

The following will set the width of all text styles in the DWG to 1.0.

Code: [Select]


(vl-load-com)
(vlax-for x
     (vla-get-TextStyles
       (vla-get-activedocument (vlax-get-acad-object))
     )
  (vlax-put x 'width 1.0)
)






Note that changing the properties of the style will not necessarily update existing text/mtext objects that use this style.

That worked.  Thanks for you help!

[rkmcswain]

Sure, that was something I had cooked up a long time ago to change _fonts_ on every style, just made the quick mod to change the width instead.