zoom extents all layouts with vba

[Anonymous]

Hi,

I want to make a code to zoom extents all layouts in a open drawing.

I wrote this but it doesn't work at all:

Sub zoomextentslayouts()

Dim Laytab As AcadLayout  

For Each Laytab In ThisDrawing.Layouts  

ZoomExtents  

Next Laytab  

End Sub

I'm sure somebody can help me

thanx!

Laszlo

[Alfred.NESWADBA]

Hi,

Zoom-Extents works for the current view. And within your loop you never made a layout active 😉

- alfred -

[Anonymous]

Thanks,

But how can I make the layouts active? (I do not want the names of the layouts in my code).

gr. Laszlo

[Alfred.NESWADBA · Accepted solution]

Hi,

e.g. set the CTAB-variable

Sub zoomextentslayouts()
   Dim Laytab As AcadLayout
   For Each Laytab In ThisDrawing.Layouts
      Call ThisDrawing.SetVariable("CTAB", Laytab.Name)
      'make sure paperspace is active (and not modelspace in an mview-object)
      If Laytab.Name <> "Model" Then
         If ThisDrawing.MSpace Then ThisDrawing.MSpace = False
      End If
      ZoomExtents
   Next Laytab
End Sub

HTH, - alfred -

[Anonymous]

Danke schön Alfred!

It works great!

gr. Laszlo

[fxcastil]

This example uses the "ActiveLayout" property instaed of the system variable "CTAB"

Sub ZoomExtentsLayouts()

Dim LayTab As AcadLayout

For Each LayTab In ThisDrawing.Layouts

  ' this uses the "ActiveLayout" property of the the layouts
   ThisDrawing.ActiveLayout = LayTab

   ' this uses the system variable "CTAB" to select the next layout
   'Call ThisDrawing.SetVariable("CTAB", Laytab.Name)

   ' make sure PaperSpace is active and not modelspace in each layout
  ' this is shown on the Paper/Model space tab in each layout

     If LayTab.Name <> "Model" Then
            If ThisDrawing.MSpace Then ThisDrawing.MSpace = False
     End If

    ZoomExtents

   Next LayTab

End Sub