Sub Example_Limits()
    ' Этот пример находит текущие пределы для рисунка.
    ' Затем изменяет пределы для рисунка.
    ' Сетка включена, чтобы показать пределы.
    
    ' Включите сетку для активной области просмотра
    ThisDrawing.ActiveViewport.GridOn = True
    ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    
    ' Найдите текущие пределы
    Dim currLimits As Variant
    currLimits = ThisDrawing.Limits
    MsgBox "Пределы текущего рисунка " & vbCrLf _
           & "Левый нижний угол " & ThisDrawing.Limits(0) & ", " & ThisDrawing.Limits(1) & vbCrLf _
           & "Правый верхний угол " & ThisDrawing.Limits(2) & ", " & ThisDrawing.Limits(3), , "Limits Пример"
           
    ' Измените пределы
    Dim newLimits(0 To 3) As Double
    newLimits(0) = 2#: newLimits(1) = 2#: newLimits(2) = 4#: newLimits(3) = 4#
    ThisDrawing.Limits = newLimits
    ThisDrawing.Regen acActiveViewport
    MsgBox "Новые пределы рисунка " & vbCrLf _
           & "Левый нижний угол " & ThisDrawing.Limits(0) & ", " & ThisDrawing.Limits(1) & vbCrLf _
           & "Правый верхний угол " & ThisDrawing.Limits(2) & ", " & ThisDrawing.Limits(3), , "Limits Пример"
    
    ' Сбросьте пределы рисунка
    ThisDrawing.Limits = currLimits
    ThisDrawing.Regen acActiveViewport
    MsgBox "Пределы рисунка были сброшены к " & vbCrLf _
           & "Левый нижний угол " & ThisDrawing.Limits(0) & ", " & ThisDrawing.Limits(1) & vbCrLf _
           & "Правый верхний угол " & ThisDrawing.Limits(2) & ", " & ThisDrawing.Limits(3), , "Limits Пример"
End Sub