Jump to content

Change Lower case to upper case MLD text??


Recommended Posts

Sounds like a lisp to me. The nearest alternative I can find is to select all of them, then open properties and click on the edit button in the text contents line. The Mtext editor will then cycle through all of them, but you will still have to highlight each text and change them manually. I was hoping matchprop would do it, but it does not.

Link to comment
Share on other sites

Sounds like a lisp to me. The nearest alternative I can find is to select all of them, then open properties and click on the edit button in the text contents line. The Mtext editor will then cycle through all of them, but you will still have to highlight each text and change them manually. I was hoping matchprop would do it, but it does not.

Yeah, i have to change one by one which was a pain, Match Prop won''t work for 2014 Autocad Version. I double click on the MLD text hightlight and right click--- Change case to UPPER. hope Lee mac can develope Lisp to help with this.

Link to comment
Share on other sites

Yeah, i have to change one by one which was a pain, Match Prop won''t work for 2014 Autocad Version. I double click on the MLD text hightlight and right click--- Change case to UPPER. hope Lee mac can develope Lisp to help with this.
Yeah, but if you do it my way for the time being, it will at least automatically open the mtext editor for you at each one. one would think AutoDesk would attach a case change macro or something to the contents box on the properties dialog.

 

If they are all the same word, you can do it with Find/Replace all at once.

Link to comment
Share on other sites

(strcase text) in lisp just need a few minutes to mod one

 

Ok done now

 

(defun caps ( / ss len x objtext)
(vl-load-com)
(setq ss  (ssget "X" (list (cons 0 "Mtext,text"))))
(setq x 0)
(setq len (sslength ss))
(repeat len
(setq ent (ssname ss x))
(setq objtext (vlax-ename->vla-object ent))
(vla-put-textstring objtext (strcase (vla-get-textstring objtext)))
(setq x (+ x 1))
)

(caps)

Edited by BIGAL
Link to comment
Share on other sites

(strcase text) in lisp just need a few minutes to mod one I have but a bit busy at moment.

 

(defun caps ( / ss len x objtext)
(vl-load-com)
(setq ss (ssget "X" (list (cons 0 "Mtext,text"))))
(setq x 0)
(setq len (sslength ss))
(repeat len
(setq ent (ssname ss x))
(setq objtext (vlax-ename->vla-object ent))
(vla-put-textstring objtext (strcase (vla-get-textstring objtext)))
(setq x (+ x 1))
)

(caps)

Should i just type these code to the command prompt Bigal??? or just strcase??

Link to comment
Share on other sites

Sorry thats the code copy it all to Notepad and save as a .lsp file use Appload to run.

 

Post updated above

 

I know how to save these code on notepad but how do i upload it? do you have a screenshot.? thanks

Link to comment
Share on other sites

I'm sure this has been covered before in one of your threads. Use the APPLOAD command to load the lisp routine into AutoCAD then type "caps" to start it.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

×
×
  • Create New...