Sub Example_LowerLeftCorner()
    'Этот пример создает новую область просмотра и делает её активной.
    'Затем разбивает область просмотра на четыре окна.
    'Затем находит левый нижний угол каждого из окон.

    Dim newViewport As AcadViewport
       
    'Создайте новую область просмотра и сделайте её активной
    Set newViewport = ThisDrawing.Viewports.Add("TESTVIEWPORT")
    ThisDrawing.ActiveViewport = newViewport
    
    'Разбейте область просмотра на четыре окна
    newViewport.Split acViewport4
    
    'Сделайте область просмотра активной
    ThisDrawing.ActiveViewport = newViewport
    
    'Выполните итерации через области просмотра. Для каждой области просмотра,
    'сделайте область просмотра активной и покажите координаты нижнего левого угла.
    Dim entry As AcadViewport
    Dim lowerLeft As Variant
    For Each entry In ThisDrawing.Viewports
        entry.GridOn = True
        ThisDrawing.ActiveViewport = entry
        lowerLeft = entry.LowerLeftCorner
        MsgBox "Нижний левый угол этой области просмотра " & lowerLeft(0) & ", " & lowerLeft(1), , "LowerLeftCorner Пример"
        entry.GridOn = False
    Next
End Sub