Lisp Routine to Rename and delete autocad layout tabs

[emilio24DRY]

1) Rename Layout Tab

I have a drawing with with "Model" "C-5.1" and "C-5.2" Layout Tabs. I need to rename the "C-5.2" to "C-6.2" in multiple drawings within a custom lisp routine that I already have.

2) Delete Layout Tab

I have a drawing with with "Model" "C-2.1", "C-2.1" and "C-2.3" Layout Tabs. I need to delete "C-2.1" from a drawing that has been "save as" through a lisp routine.

I know that both of these task are simple to do by hand, but I would rather not deal with it manually within our template setup if possible.

[scot-65 · Accepted solution]

1.

I'll let you build on this.

(vla-put-Name (vla-Item (vla-get-Layouts *DOC*) orig) a)

orig= original layout name.

a= new layout name [first check for illegal characters, duplicate names, etc.].

*DOC*= (vla-get-ActiveDocument (vlax-get-acad-object))

2.

(defun c:DLT () (command-s "-Layout" "delete" "")(princ))

Must be in the current layout.

I use this all the time.

Hope this helps.

[paullimapa · Accepted solution]

Assuming those layout names do exists and there won't be a duplicate when one is renamed then you can run this sequence of commands:

-Layout _Rename C-5.2 C-6.2 -Layout _Delete C-2.1

Then use Lee Mac's Script Writer to automate the process and apply it to all dwgs in a given folder:

Script Writer | Lee Mac Programming (lee-mac.com)

[pbejse]

---

@emilio24DRY wrote:

1) Rename Layout Tab

I have a drawing with with "Model" "C-5.1" and "C-5.2" Layout Tabs. I need to rename the "C-5.2" to "C-6.2" in multiple drawings within a custom lisp routine that I already have.

2) Delete Layout Tab

I have a drawing with with "Model" "C-2.1", "C-2.1" and "C-2.3" Layout Tabs. I need to delete "C-2.1" from a drawing that has been "save as" through a lisp routine.

---

There will be two programs? one rename and another to delete layout tabs? on the current drawing session for item 2?

Would you mind sharing the routine here?

[jcarter33T87]

I would simply use sheetsetmanager (sheetset).  This allows you to rename/renumber sheets as needed and it will update the layout tabs.  You can't delete the layout tabs through this, but they can easily be renamed.

This is just an example.

[emilio24DRY]

This is perfect. Thanks!

[emilio24DRY]

The "-layout" command is what I was looking for. I am just adding this command line into the rest of my code. But they are separate commands for different areas of my code.

[emilio24DRY]

This is another way of doing it-I just didn't want to have to do it manually.

[jcarter33T87]

Understood. I used it everyday. All my sheets and templates for new projects are set up using sheetset. That way, I do it once in the beginning (using fielded mtext for sheet titles and numbers) then it's simple to rename easily. Fought it for years, finally in 2010 I decided to try it. Worked well, self taught.

[paullimapa]

glad to have helped...cheers!!!