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

End Sub