Sub Example_KeyboardAccelerator()
    ' Этот пример возвращает текущую установку KeyboardAccelerator. Затем
    ' изменяет значение и наконец сбрасывает значение назад к оригинальной
    ' установке.
    
    Dim preferences As AcadPreferences
    Dim currKeyboardAccelerator As Integer
    
    Set preferences = ThisDrawing.Application.preferences
    
    'Получите текущее значение KeyboardAccelerator
    currKeyboardAccelerator = preferences.User.KeyboardAccelerator
    MsgBox "Текущее значение для KeyboardAccelerator " & currKeyboardAccelerator, vbInformation, "KeyboardAccelerator Пример"
    
    'Измените значение для KeyboardAccelerator
    If currKeyboardAccelerator = acPreferenceClassic Then
        preferences.User.KeyboardAccelerator = acPreferenceCustom
    Else
        preferences.User.KeyboardAccelerator = acPreferenceClassic
    End If
    MsgBox "Новое значение для KeyboardAccelerator " & preferences.User.KeyboardAccelerator, vbInformation, "KeyboardAccelerator Пример"
    
    'Сбросьте KeyboardAccelerator к его оригинальному значению
    preferences.User.KeyboardAccelerator = currKeyboardAccelerator
    MsgBox "Значение KeyboardAccelerator сброшено к " & preferences.User.KeyboardAccelerator, vbInformation, "KeyboardAccelerator Пример"
End Sub