Routine to set ALL text styles to Romans.shx?

[RobertB]

Simply iterate thru all the Layout objects againt its Block object, checking each object within the block (a layout and model space is treated like a block) to see if it is a text-based object.

But in all honesty, a filtered selection set is better, e.g.:

(setq CurSet (ssget "X" '((0 . "TEXT") (-4 . "<=") (40 . 4.7))))

Note that the "X" option searches the entire drawing without user interaction.

[paulof]

Simply iterate thru all the Layout objects againt its Block object, checking each object within the block (a layout and model space is treated like a block) to see if it is a text-based object.

But in all honesty, a filtered selection set is better, e.g.:

(setq CurSet (ssget "X" '((0 . "TEXT") (-4 . "<=") (40 . 4.7))))

Note that the "X" option searches the entire drawing without user interaction.

This is much faster and produces excellent results. For the purpose I want is the best! Thank you.

[bjrochford958510]

Sorry to gravedig here. Is it possible to edit the lisp routine to alter the font in Mtext ? The problem I have is that somehow I have inherited a file where the Mtext style is Romans but the shape text is Arial. have to manually edit each line .... ( yes btw Romans style is correctly defined )

[tedg]

Sorry to gravedig here. Is it possible to edit the lisp routine to alter the font in Mtext ? The problem I have is that somehow I have inherited a file where the Mtext style is Romans but the shape text is Arial. have to manually edit each line .... ( yes btw Romans style is correctly defined )

Sounds like an MTEXT formatting issue, meaning someone has over ridden the style to a font within the MTEXT.
You may want to look into a lisp routine "STRIPMTEXT[3].LSP" where you can select to remove the formatting.

I think it lives here in AUGI somewhere.

[ccowgill]

new home:
http://www.theswamp.org/index.php?topic=31584.0