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