Sub Example_ProxyImage()
    'Этот пример возвращает текущую установку ProxyImage. Затем изменяет
    'значение и наконец сбрасывает значение назад к оригинальной установке.
    
    Dim preferences As AcadPreferences
    Dim currProxyImage As Integer
    Dim constant As String
    Dim newConstant As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    'Получите текущее значение ProxyImage
    currProxyImage = preferences.OpenSave.ProxyImage
    constant = Choose(currProxyImage + 1, "acProxyNotShow", "acProxyShow", "acProxyBoundingBox")
    MsgBox "Текущее значение для ProxyImage " & constant, vbInformation, "ProxyImage Пример"
    
    'Измените значение для ProxyImage
    newConstant = "acProxyBoundingBox"
    preferences.OpenSave.ProxyImage = acProxyBoundingBox
    MsgBox "Новое значение для ProxyImage " & newConstant, vbInformation, "ProxyImage Пример"
    
    'Сбросьте ProxyImage к его оригинальному значению
    preferences.OpenSave.ProxyImage = currProxyImage
    MsgBox "Значение ProxyImage сброшено к " & constant, vbInformation, "ProxyImage Пример"
End Sub