Rename a text

Hi friends

Can you pls provide me a lips for following

1) rename my Drawing no from 001-5020

to MUP-001-5050

2) rename my drawing no MUP-001-5050 To 001-5050

in first lips just add MUP-

In second just replace MUP-

Thanks

Did you mean rename the title or rename the file ?

Thanks mostafa

i mean the rename the text within in the drawing only..

rename the text with MUP-

Did you mean rename the title or rename the file ?

Thanks mostafa

 

i mean the rename the text within in the drawing only..

rename the text with MUP-

What about find and replace?

i wish to done this by lips, bz i have to repeat this every drawing

i wish to done this by lips, bz i have to repeat this every drawing

This helpful for you.:)

http://www.lee-mac.com/bfind.html

Thank you

there is any lips , when i click on the text and it will automatically rename in to by adding "mup"+ current text

(defun c:SwitchTxt ( / enm obj str)
 (if
   (and
     (setq enm (car (nentsel)))
     (setq obj (vlax-ename->vla-object enm))
     (vlax-property-available-p obj 'textstring)
   )
   (vla-put-textstring
     obj
     (if (wcmatch (strcase (setq str (vla-get-textstring obj))) "MUP-*")
       (substr str 5)
       (strcat "MUP-" str)
     )
   )
 )
 (princ)
)

Thank you

there is any lips , when i click on the text and it will automatically rename in to by adding "mup"+ current text

Ok try this.

(defun C:addmup ( / END ENT I SSET TXT)
 (setq sset (ssget '((0 . "*TEXT"))))
 (setq i (sslength sset))
 (while (not (minusp (setq i (1- i))))
   (setq ent (ssname sset i)
     end (entget ent)
     txt (cdr (assoc 1 end))
     end (subst(cons 1(if (strcat txt )(strcat "MUP-" txt)))
          (assoc 1 end) end))
   (entmod end)
 )
(princ)
)

Excellent :D:D it works

how you learn this lips , i am using many lips, but all of them got contributed good people like you

when i will learn to make some lips

Ok try this.

(defun C:addmup ( / END ENT I SSET TXT)
 (setq sset (ssget '((0 . "*TEXT"))))
 (setq i (sslength sset))
 (while (not (minusp (setq i (1- i))))
   (setq ent (ssname sset i)
     end (entget ent)
     txt (cdr (assoc 1 end))
     end (subst(cons 1(if (strcat txt )(strcat "MUP-" txt)))
          (assoc 1 end) end))
   (entmod end)
 )
(princ)
)

Thank you roy , its working fine with me now, thank for your good heart

Copy "001-500" to clipboard using Ctrl+C , FIND Ctrl+V in Replace MUP then Ctrl V replace ALL no need for code. Its an alternative method.