Sub Example_ElevationPaperSpace()
    ' Этот пример изменяет уровень пространства листа текущего рисунка
    ' и затем сбрасывает его к первоначальному значению.
    
    Dim currElevation As Double
    
    currElevation = ThisDrawing.ElevationPaperSpace
    MsgBox "Текущий уровень пространства листа " & ThisDrawing.ElevationPaperSpace, vbInformation, "ElevationpaperSpace Пример"
    
    ' Измените уровень
    ThisDrawing.ElevationPaperSpace = currElevation + 2
    MsgBox "Новый уровень пространства листа " & ThisDrawing.ElevationPaperSpace, vbInformation, "ElevationpaperSpace Пример"
    
    ' Сбросьте уровень к его первоначальному значению
    ThisDrawing.ElevationPaperSpace = currElevation
    MsgBox "Уровень пространства листа сброшен к " & ThisDrawing.ElevationPaperSpace, vbInformation, "ElevationPaperSpace Пример"

End Sub