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