Run a command for all the tabs in a drawing?

[ILoveMadoka]

I want to simply run a command (or a series of commands) on every tab

in a drawing. The tabs most likely are not named in any consistent fashion.

 

It might be as simple as going to a tab and zooming extents.

 

I have no idea how to cycle through the tabs and end

when the command is run on the last tab.

 

Help please!!

 

Thanks!

[Lee Mac]

You could use a construct such as:

 

(foreach tab (layoutlist)
 (setvar 'CTAB tab)

...

)

Bear in mind that (layoutlist) excludes the Model tab, to include it, you could use:

 

(foreach tab (cons "Model" (layoutlist))
 (setvar 'CTAB tab)

 ...

)

Lee

[ILoveMadoka]

Thanks Lee...

 

I'm digging through older threads right now looking at what others have done.

 

In my frustration I always forget to search before posting...

 

'preciate it!

[pBe]

sample

 

 
(defun c:test ( / ot ac )
 (vl-load-com)
 (setq this_dwg (vlax-get-acad-object))
  (foreach d (layoutlist)
     (setvar 'CTAB d)
   (vla-ZoomExtents this_dwg))
 (princ)
)

 

 

Nevermind:

Lee you're a smoking gun

[Freerefill]

If you find my Finalblitz lisp, you could try that. It works on multiple tabs and multiple drawings.