Sub Example_AddPViewport()
    ' Этот пример создает новую область просмотра пространства листа
    
    Dim pviewportObj 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 = 40
    height = 40
    
    ' Измените от пространства модели к пространству листа
    ThisDrawing.ActiveSpace = acPaperSpace
    
    ' Создайте область просмотра пространства листа
    Set pviewportObj = ThisDrawing.PaperSpace.AddPViewport(center, width, height)
    
    ThisDrawing.Regen acAllViewports
    
End Sub