右键单击菜单（或快捷菜单）是 AutoCAD 基准菜单组内的特殊菜单。该菜单将在用户按住 SHIFT 键并单击鼠标右键时显示。
AutoCAD 在基准菜单组中查找 ShortcutMenu 特性等于 TRUE 的菜单，这些菜单就是快捷菜单。可以按照向菜单添加新的菜单项中的步骤，向快捷菜单添加新的菜单项。
新菜单组有无快捷菜单均可。要创建菜单组的快捷菜单，请按照创建新菜单中介绍的指导原则进行，并使用 POP0 作为新菜单的标签名称。
Sub Ch6_AddMenuItemToshortcutMenu()
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
' 查找快捷菜单并将其指定给
' shortcutMenu 变量
Dim scMenu As AcadPopupMenu
Dim entry As AcadPopupMenu
For Each entry In currMenuGroup.Menus
If entry.shortcutMenu = True Then
Set scMenu = entry
End If
Next entry
' 向快捷菜单添加菜单项
Dim newMenuItem As AcadPopupMenuItem
Dim openMacro As String
' 给宏指定“ESC ESC _open”的 VBA 等价值
openMacro = Chr(3) + Chr(3) + "_open "
Set newMenuItem = scMenu.AddMenuItem _
("", Chr(Asc("&")) _+ "OpenDWG", openMacro)
End Sub