Rename Layout Tabs

[paulof]

Hi,
I use this peace of code to rename layout names, but it would be nice if i could rename all layout tabs. Is it possible?

(defun c:renomeartabs ( / doc layouts)
(vl-load-com) 
(setq layouts (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object))))
(vlax-for layout layouts
(while (vl-string-search "01A" (vla-get-name layout))
(vla-put-name layout (vl-string-subst "01B" "01A" (vla-get-name layout)))))
(princ)
)

I have layouts with that sequence: 01A, 02A, 03A, 04A and so on...and i try to rename all to 01B, 02B, 03B, 04B, and so on...

Thank you.

[paulof]

Ok.
I made a small change and i can change from A to B but do not know how the programming with dialog boxes can not adjust to what I intend. The idea was I could choose to change for example from A to C. Any help or indication? Thanks

(defun c:tabren ( / doc layouts)
(vl-load-com)
(setq layouts (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object))))
(vlax-for layout layouts
(while (vl-string-search "A" (vla-get-name layout))
(vla-put-name layout (vl-string-subst "B" "A" (vla-get-name layout)))))
(princ)
)

[RobertB]

Why attempt to use dialog boxes? That is overkill for this application. Simply ask the user to provide the old string to replace with the new string, e.g.:

(setq inpOld (getstring "\nOriginal text to replace: "))
(setq inpNew (getstring "\nNew text with which to replace: "))

[paulof]

Thanks for the tip. But as I attach the new string to all the names of the layout? Sorry my poor english.

[RobertB]

Thanks for the tip. But as I attach the new string to all the names of the layout?

(defun c:tabren ( / doc layouts)
 (vl-load-com)
 (cond ((and (/= (setq inpOld (getstring "\nOriginal text to replace: ")) "")
             (/= (setq inpNew (getstring "\nNew text with which to replace: ")) ""))
        (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
        (setq layouts (vla-get-Layouts doc))
        (vlax-for layout layouts
        (while (vl-string-search inpOld (vla-get-name layout))
         (vla-put-name layout (vl-string-subst inpNew inpOld (vla-get-name layout)))))))
 (princ))

Sorry my poor english.

Your English is better than my Portuguese.

[paulof]

Your English is better than my Portuguese.

Is that so? lol
Thank you for the help! Done!

[eddie9139]

(defun c:tabren ( / doc layouts)
 (vl-load-com)
 (cond ((and (/= (setq inpOld (getstring "\nOriginal text to replace: ")) "")
             (/= (setq inpNew (getstring "\nNew text with which to replace: ")) ""))
        (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
        (setq layouts (vla-get-Layouts doc))
        (vlax-for layout layouts
        (while (vl-string-search inpOld (vla-get-name layout))
         (vla-put-name layout (vl-string-subst inpNew inpOld (vla-get-name layout)))))))
 (princ))

Your English is better than my Portuguese.

Thanks RobertB. This code (6 years on ) has saved me much time today in not having to manually rename may tabs.

[jeamybaena382762]

Hi, paulof and RobertB, thanks!! for sharing your code, I used it with reactors and it works very well!!