KeyboardPriority Example |
Using Programming Languages other than VBA
Sub Example_KeyboardPriority() ' This example returns the current setting of ' KeyboardPriority. It then changes the value, and finally ' it resets the value back to the original setting. Dim preferences As AcadPreferences Dim currKeyboardPriority As Integer Dim constant As String Dim newConstant As String Set preferences = ThisDrawing.Application.preferences ' Retrieve the current KeyboardPriority value currKeyboardPriority = preferences.User.KeyboardPriority constant = Choose(currKeyboardPriority + 1, "acKeyboardRunningObjSnap", "acKeyboardEntry", "acKeyboardEntryExceptScripts") MsgBox "The current value for KeyboardPriority is " & constant, vbInformation, "KeyboardPriority Example" ' Change the value for KeyboardPriority newConstant = "acKeyboardEntry" preferences.User.KeyboardPriority = acKeyboardEntry MsgBox "The new value for KeyboardPriority is " & newConstant, vbInformation, "KeyboardPriority Example" ' Reset KeyboardPriority to its original value preferences.User.KeyboardPriority = currKeyboardPriority MsgBox "The KeyboardPriority value is reset to " & constant, vbInformation, "KeyboardPriority Example" End Sub
Comments? |