Sub Example_ShortCutMenuDisplay()
    'Этот пример читает и переключает значение параметра, которое 
    'управляет, показывает ли щелчёк правой кнопкой мыши в области
    'рисунка контекстное меню или вызывает ENTER.
    
    Dim ACADPref As AcadPreferencesUser
    Dim originalValue As Variant, newValue As Variant
    Dim newAction As String
    
    'Получите объект параметров
    Set ACADPref = ThisDrawing.Application.preferences.User
    
    'Читайте и показывайте оригинальное значение
    originalValue = ACADPref.ShortCutMenuDisplay
    newAction = IIf(originalValue, "показывает контекстное меню", "вызывает нажатие клавиши ENTER")
    MsgBox "Щелчёк правой кнопкой мыши В НАСТОЯЩЕЕ ВРЕМЯ " & newAction, vbInformation

    'Измените параметр AutoSnapMarker, переключая значение
    ACADPref.ShortCutMenuDisplay = Not (originalValue)
    newValue = ACADPref.ShortCutMenuDisplay
    newAction = IIf(originalValue, "показывать контекстное меню", "вызывать нажатие клавиши ENTER")
    MsgBox "Щелчёк правой кнопкой мыши по рисунку БУДЕТ ТЕПЕРЬ " & newAction, vbInformation
End Sub