Layout tabs and viewports

I have a drawing with 2 viewports on the "Layout1" tab.

I know how to select the Layout tab using

ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Item("Layout1")

Once I make Layout1 tab active, I want to freeze all layers except a layer called "Panel1" and then zoom extents in the first viewport. I then want to freeze all layers except a layer called "Panel2" and then zoom extents in the second viewport.

Can someone give me guidance on this.

Thanks

 

Here's one way using the VPLAYER command......

Sub test2()
Dim oTab As AcadLayout
Dim oEnt As AcadEntity
Dim oVPort As AcadPViewport
Dim Lname As String
Dim i As Integer

ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Item("Layout1")
Set oTab = ThisDrawing.ActiveLayout
For Each oEnt In oTab.Block
If TypeOf oEnt Is AcadPViewport Then
Set oVPort = oEnt
ThisDrawing.MSpace = True
If Not i = 0 Then 'Skip the first one found, it's the Paperspace VP
ThisDrawing.ActivePViewport = oVPort
Lname = "Panel" & i
oVPort.Display (True)
oVPort.DisplayLocked = False
ThisDrawing.SendCommand ("vplayer f" & vbCr & "*" & vbCr & "c" &
vbCr & _
"t" & vbCr & Lname & vbCr & "c" & vbCr
& vbCr)
ThisDrawing.Application.ZoomExtents
End If
i = i + 1
End If
ThisDrawing.MSpace = False
Next
End Sub