Need to add same text to end of multiple mtext objects

[rsdonna]

Hi everyone. So I need to add text to the end of multiple mtext objects. All the content in the mtext objects are different but I need there to be "p" at the end of everything. I can't do a find and replace because I end up getting the "p" multiple times in the mtext object. I've been selecting all the mtext objects and then going into properties, clicking on content and then it cycles through all the mtext and I edit each one that way but I have a lot of drawings and every drawing has about 70 mtext objects that I to edit. Anyone have any ideas?

 

Thanks in advance

[Tharwat]

Hi,

 

Something along these codes?

 

(defun c:Test ( / ss in en st)
 (if (setq ss (ssget "_:L" '((0 . "MTEXT"))))
   (repeat (setq in (sslength ss))
     (setq en (entget (ssname ss (setq in (1- in))))
           st (assoc 1 en))
     (entmod (subst (cons 1 (strcat (cdr st) "p")) st en))
     )
   )
 (princ)
 )

[rsdonna]

Wow, that is great.

 

Exactly what I was looking for. That is going to save me a lot of time.

 

Thanks Tharwat!

[Tharwat]

Wow, that is great.

 

Exactly what I was looking for. That is going to save me a lot of time.

 

Thanks Tharwat!

 

You are most welcome.

[Lee Mac]

Refer to my Prefix/Suffix Text program here.

[arif_wdtm11]

On 5/2/2017 at 11:19 PM, Tharwat said:

Hi,

 

Something along these codes?

 

 

(defun c:Test ( / ss in en st)
 (if (setq ss (ssget "_:L" '((0 . "MTEXT"))))
   (repeat (setq in (sslength ss))
     (setq en (entget (ssname ss (setq in (1- in))))
           st (assoc 1 en))
     (entmod (subst (cons 1 (strcat (cdr st) "p")) st en))
     )
   )
 (princ)
 )

 

 

how do you apply this into autoCAD, is there a step of guidance or tutorials, thanks

[Steven P]

11 hours ago, arif_wdtm11 said:

how do you apply this into autoCAD, is there a step of guidance or tutorials, thanks

 

This is fairly comprehensive: http://www.lee-mac.com/runlisp.html

[Tharwat]

15 hours ago, arif_wdtm11 said:

how do you apply this into autoCAD, is there a step of guidance or tutorials, thanks

Copy and paste the codes in any text editor eg: NOTEPAD then save it with the extension .lsp ( eg: Test.lsp ) then from AutoCAD call the command: APPLOAD -> Select the Test.lsp file -> press LOAD -> press CLOSE.