Select all text & mtext and change layer and text style lisp

[JET-X CC]

Hello all,
I'm looking for a LISP routine that will select all text and mtext objects and set them to a "text" layer and set the style to what my company uses. Ideally, I'd like to modify it to include all dimensions, and leaders and mleaders as well. Can anybody help me with this?

Thanks in advance

[BIG-AL]

Did you google ? It should be out there at one of the forums Cadtutor, Forums/Autodesk, Theswamp.

[Tom Beauford]

http://www.theswamp.org/index.php?topic=17659.0;all Will merge text styles for text, mtext, dimensions, leaders, and mleaders to the style you choose.
https://www.theswamp.org/index.php?topic=31584.0 Will strip overrides from Mtext if needed.