Select textboject with style filter including Blocks

[BenitoVin]

(setq ss (ssget "_X" (list '(0 . "TEXT,MTEXT") '(? . "TEXTSTYLE")))).....

[Simon_Weel · Accepted solution]

AutoLISP: Change Text Styles | AutoCAD Tips

[Kent1Cooper · Accepted solution]

The number you want in place of your question mark is 7 -- see >this< and >that<.  But that will not find Text/Mtext inside Blocks -- (ssget) can "see" only top-level objects.  Also, by "including Blocks" do you mean Attribute values only?  FIND can get at those.  But if you mean regular Text/Mtext objects that are fixed parts of Block definitions, FIND won't do it, either.

[BenitoVin]

Try to remove unwanted textstyles created by Xrefs.

[BenitoVin]

(setq ss (ssget "_X" (list '(0 . "MTEXT") '(7 . "Standard"))))
(repeat (setq i (sslength ss))
(entmod (append (entget (ssname ss (setq i (1- i)))) '((7 . "Romans")))))

This one is working fine, but not for the blocks.

[Kent1Cooper]

---

@BenitoVin wrote:

....

This one is working fine, but not for the blocks.

---

I think it would be necessary to step through the Block table, and within each Block definition, step through all objects, and for each one, if it is Text/Mtext, change its Style.