Change width property of text

How do you programmatically change the width property of a set of text objects after securing them in a list thus :
(setq ss1 (ssget "X" '((0 . "TEXT") (-4 . "/=") (41 . 0.8)))) ;selects ALL text NOT 0.8 width factor

T.I.A.
Andrew McDonald

 

Andrew,

You could use entmod, but this is easier... IMO.

(setq cnt 0)
(if ss1
(repeat (sslength ss1)
(setq obj (vlax-ename->vla-object (ssname ss1 cnt)))
(vlax-put obj 'ScaleFactor 0.8) ;whatever
(setq cnt (1+ cnt))
)
)
(princ (strcat "\nNumber of objects modified: " (itoa cnt)))

Joe Burke

after securing them in a list thus :

 

Just a note: If you're changing all the text to the same width, it is unnecessary to separate those that are from those that aren't unless you just want to know. Changing the width from 0.8 to 0.8 is unharmful.

 

Unless you have a million pieces of text.

unnecessary to separate those that are from those that aren't unless you
just want to know. Changing the width from 0.8 to 0.8 is unharmful.

 

<<Unless you have a million pieces of text. >>

Makes no difference if you have to wade through them all anyway to find those that aren't already 0.8 wide.