Find text and change layer

Is it possible to search mspace for mtext objects of a certain height and
change the layer of this text?

 

Yes.
(setq ss (ssget "x" (list
(cons 0 "MTEXT")
(cons 410 "MODEL")
(cons 40 4.5); <- change this to match your text height.
))
)

This will get you a selection set of all mtext in model space. Then just change there layer whatever way you like.

Tim

 

You could also use the filter command within acad. Once all text entities are highlighted, use the change prop dialog box. At the top change it from all to mtext. Then just change the layer there.

Just another option.
Tim

 

Yes, use QSelect. Either type in from command line, or on the properties
flyout, it's the icon that looks like a funnel. Very nifty tool.

 

Use (mtextchg HGT "NEWLAYER")

(defun mtextchg (hgt newlayer / ss cnt ename ent)
(setq ss (ssget "x" (list (cons 0 "MTEXT") (cons 40 hgt))))
(if ss
(progn
(setq cnt 0)
(repeat (sslength ss)
(setq ename (ssname ss 0))
(setq ent (entget ename))
(entmod (subst (cons 8 newlayer) (assoc 8 ent) ent))
(setq cnt (1+ cnt))
);end repeat
);end progn
);end if
(princ)
)

 

Wow Jim. First I saw the attribute addition one, now this one. You must have a niffty little tool box for text and attributes. Very nice.

Tim

 

These little routines usually get written when someone comes up with a
problem.

have a niffty little tool box for text and attributes. Very nice.

 

Wow that was quick. Thanks guys.