Sub Example_ShowProxyDialogBox()
    'Этот пример возвращает текущую установку ShowProxyDialogBox. 
    'Затем изменяет значение и наконец сбрасывает значение назад к оригинальной установке.
    
    Dim preferences As AcadPreferences
    Dim currShowProxyDialogBox As Boolean
    
    Set preferences = ThisDrawing.Application.preferences
    
    'Получите текущее значение ShowProxyDialogBox
    currShowProxyDialogBox = preferences.OpenSave.ShowProxyDialogBox
    MsgBox "Текущее значение для ShowProxyDialogBox " & preferences.OpenSave.ShowProxyDialogBox, vbInformation, "ShowProxyDialogBox Пример"
    
    'Измените значение для ShowProxyDialogBox
    preferences.OpenSave.ShowProxyDialogBox = Not (currShowProxyDialogBox)
    MsgBox "Новое значение для ShowProxyDialogBox " & preferences.OpenSave.ShowProxyDialogBox, vbInformation, "ShowProxyDialogBox 
Пример"
    
    'Сбросьте ShowProxyDialogBox к его оригинальному значению
    preferences.OpenSave.ShowProxyDialogBox = currShowProxyDialogBox
    MsgBox "Значение ShowProxyDialogBox сброшено к " & preferences.OpenSave.ShowProxyDialogBox, vbInformation, "ShowProxyDialogBox Пример"
End Sub