Text to Mtext without txt2mtxt

[tclark0506]

Does anyone know of a lisp that can convert text to mtext but will allow you to select multi pieces of text and will create multiple mtext entities, not one mtext entity. I would also hope it would work like TJUST and would maintain the text position. I am trying to change multiple text entities to mtext to use the backgound coloring capabilities so I do not have to run into problems with wipeouts. I do not see a need to use the wipeouts for text masking if I can use a background color. Why even bother with text. If anyone has anything to offer on this post that would be great.

[tclark0506]

I tried to make all the changes to the code that you guys have suggested. I still can not seem to get it to work. I am getting this on the command line "no function definition: NO :error#0". Can anyone help. I have attached the lisp as I have adjusted it. The original format is listed above. Thanks

[RKLindner]

I believe it was the 14th line down that went awry.. see the attached file that works on my system.

Richard

[tclark0506]

Much better. Thank you so much. How long have you been writting lisps. I have heard the best way to get started is through the AutoLISP Developers Guide. How long would you think it would take to have a reasonable good understanding of AutoLISP and do you have any other suggestions on getting start with AutoLISP.

[RKLindner]

You're welcome. As for how long, I have been using Acad for over 20 yrs and have been dabbling in Lisp (and now VBA) along the way. I am far from being an expert in Lisp, I just look thru the info available and try to find other routines that might do something similar and modify from there. Sometimes I get lucky and it works!

[my dog's got no nose]

great lisp, however
i included your modification (cons 8 curlay) but all the mtext still gets plonked onto a layer "text"
i've attached the modified lisp could you tell me what is wrong if you would be so kind
thanks
pete

[RKLindner]

See the revised lisp that I posted on the other branch of this thread. I think both of you took something too literally. The "curlay (no "") meant to use the variable CURLAY, but don't include the quotes.

Richard

[my dog's got no nose]

thanks that works great now
pete

[Anonymous]

Great routine. I would add this to your code:

(if (not ai_aselect)(load "ai_utils.lsp"))

--

Gary

[RKLindner]

No problem. Glad to hear its working

[tclark0506]

I have just one more request with this lisp. I noticed that it is setting the color to bylayer and making the letters all upper case. Is there a easy way to have the lisp not change the color or text case?

[Anonymous]

for the upper case issue..

change line 16 from:
(setq mcontent (cons '1 (strcase (cdr (assoc 1 el)))))
to:
(setq mcontent (cons '1 (cdr (assoc 1 el))))

[tclark0506]

Thanks that worked great. One down. One to go. 😉

[RKLindner]

To do the items that you requested, look for the line (setq mcontent... and change it as follows and add the subsequent lines after it...

[code] (setq mcontent (cons '1 (cdr (assoc 1 el))))
(setq curcolor (cdr (assoc 62 el)))
(if (= curcolor nil)
(setq curcolor 256)
)[/code]

also,

on the line (setq nmtext .. you need to add (cons 62 curcolor) after where we added the curlay option.

These 2 items will leave the text in it's original case and also will maintain the current color (ie. bylayer or implicit color)

[tclark0506]

That worked out great. Thank you so much for your help. It is greatly appreciated. Thanks to everyone that helped. Let me know if there is anything I can do for you. Thanks again.

[RKLindner]

You're welcome. All those "items" can be found in the Help. If you look in the Developers section under "DXF" codes, you'll see where we found the Group codes necessary to make the changes you were asking.