topic Re: MTEXT - Remove forced color on hundreds of mtext objects easly ? in AutoCAD Forum

MTEXT - Remove forced color on hundreds of mtext objects easly ?

cyberflow — Fri, 10 Jan 2025 17:02:57 GMT

Hi,

I've got 600 mtext object that are forced into red.
I know i can clear all formating, but i'd like to change the color for "by layer"

Is there a way to do this task easly ?
With a lisp maybe ?

Been googling for this one all morning, and i know there's a way but it's been ages i havent done this.

Betreff: MTEXT - Remove forced color on hundreds of mtext objects easly ?

cadffm — Fri, 10 Jan 2025 17:07:38 GMT

Search for STRIPMTEXT

Re: MTEXT - Remove forced color on hundreds of mtext objects easly ?

imadHabash — Fri, 10 Jan 2025 17:12:11 GMT

Hi,

Try the following lisp code that may help.

Run the command SetMTextByLayer to apply the changes.

(defun c:SetMTextByLayer (/ obj ss i)
(setq ss (ssget "X" '((0 . "MTEXT")))) ; Select all MTEXT objects in the drawing
(if ss
(progn
(setq i 0)
(while (< i (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss i)))
(vla-put-color obj acByLayer) ; Set the color to "ByLayer"
(setq i (1+ i))
)
(princ "\nAll MTEXT objects have been updated to 'ByLayer' color.")
)
(princ "\nNo MTEXT objects found in the drawing.")
)
(princ)
)

Re: MTEXT - Remove forced color on hundreds of mtext objects easly ?

paullimapa — Fri, 10 Jan 2025 19:25:37 GMT

share a sample dwg with these mtext objects

Re: MTEXT - Remove forced color on hundreds of mtext objects easly ?

Kent1Cooper — Fri, 10 Jan 2025 19:35:20 GMT

@cyberflow wrote:

I've got 600 mtext object that are forced into red. ....

Does that mean they have red as a color override on the Mtext objects at the object level, or that there is internal color override formatting making the contents red?

If the former, that's what @imadHabash's routine in Message 3 would fix, one object at a time, but that's fixable collectively in the Properties palette, with no code required. Since I would hope you already know that, I assume the latter, in which case STRIPMTEXT is a good place to start.

Re: MTEXT - Remove forced color on hundreds of mtext objects easly ?

jreidKVSUZ — Fri, 10 Jan 2025 19:57:12 GMT

I am unable to get your lisp to work?? Can you re-try?

I put it into a file.

Thanks, JRR!

Re: MTEXT - Remove forced color on hundreds of mtext objects easly ?

jreidKVSUZ — Fri, 10 Jan 2025 20:57:21 GMT

I found a lisp from another AutoDesk forum user.

The only thing I changed was the LISP name to shorten the file name and command.

The only catch is this only does one color at a time. So, select all of your MTEXT and hit enter. Then put in the existing color of your MTEXT let’s say red which is color 1. Then for new color put 256. Those MTEXT with color 1 is now set to BYLAYER. Do that with all your other colors. Seems like a long process but was shorter than having to redo them all individually.

I have attached the MT2BL.lsp file and the original creator.

Original Post Updated:

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/mtext-replace-color-from-a-true-color-value-to-another-value/td-p/9502469

Hope this helps!

JRR!

Re: MTEXT - Remove forced color on hundreds of mtext objects easly ?

Kent1Cooper — Fri, 10 Jan 2025 20:43:47 GMT

@jreidKVSUZ wrote:

I found a lisp from another AutoDesk forum user.

....

[Your link seems to be to a different unrelated Topic.]

That looks like it also works only at the object-color-override level. We still need to hear from @cyberflow whether that's the situation, or there's internal color-override formatting at the content level.

Re: MTEXT - Remove forced color on hundreds of mtext objects easly ?

jreidKVSUZ — Fri, 10 Jan 2025 20:58:21 GMT

I have updated the original creator's link.
I have no idea how that happened but great catch.
Thanks, JRR!

Re: MTEXT - Remove forced color on hundreds of mtext objects easly ?

cyberflow — Mon, 13 Jan 2025 18:27:53 GMT

Thank you all for tackling down this issue i was having !

Really appreciate the help ! 🙂