Sub Example_ViewportOn()
    'Этот пример создает две новых области просмотра пространства листа.
    'Затем проверяет состояние областей просмотра.
    
    Dim pviewportObj1 As AcadPViewport
    Dim pviewportObj2 As AcadPViewport
    Dim center(0 To 2) As Double
    Dim width As Double
    Dim height As Double
    
    'Определите область просмотра пространства листа
    center(0) = 3: center(1) = 3: center(2) = 0
    width = 10
    height = 10
    
    'Изменение от пространства модели до пространства листа
    ThisDrawing.ActiveSpace = acPaperSpace
    
    'Создайте области просмотра пространства листа
    Set pviewportObj1 = ThisDrawing.PaperSpace.AddPViewport(center, width, height)
    center(0) = 8: center(1) = 8: center(2) = 0
    width = 10
    height = 10
    Set pviewportObj2 = ThisDrawing.PaperSpace.AddPViewport(center, width, height)
    
    'Перед созданием активной области просмотра пространства листа, 
    'mspace свойство должно быть True
    pviewportObj1.DISPLAY (True)
    ThisDrawing.mspace = True
    ThisDrawing.ActivePViewport = pviewportObj1
    ThisDrawing.Regen acAllViewports
    
    MsgBox "pviewportObj1 " & (IIf(pviewportObj1.ViewportOn, "включён.", "не включён.")) & vbCrLf & _
           "pviewportObj2 " & (IIf(pviewportObj2.ViewportOn, "включён.", "не включён."))
    
    'Теперь включите pviewportObj2
    pviewportObj2.DISPLAY (True)
    MsgBox "pviewportObj1 " & (IIf(pviewportObj1.ViewportOn, "включён.", "не включён.")) & vbCrLf & _
           "pviewportObj2 " & (IIf(pviewportObj2.ViewportOn, "включён.", "не включён."))
    
End Sub