概要 - 右クリック メニューにエントリを追加する(VBA/ActiveX)

右クリック メニュー(ショートカット メニュー)は、AutoCAD のベース メニュー グループに入る特殊なメニューです。このメニューは、[Shift]を押しながらマウスの右ボタンをクリックすると表示されます。

AutoCAD はベース メニュー グループの中で ShortcutMenu プロパティが TRUE となっているメニューを探して、ショートカット メニューを見つけ出します。

新しいメニュー グループにショートカット メニューがあっても、なくてもかまいません。メニュー グループにショートカット メニューを作成するには、新しいメニューを作成し、このメニューのラベルとして POP0 を使用します。

右クリック メニューの最後にメニュー項目を追加する

次の例は、右クリック メニューの最後に "OpenDWG" メニュー項目を追加します。

Sub Ch6_AddMenuItemToshortcutMenu()
 Dim currMenuGroup As AcadMenuGroup
 Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

 ' Find the shortcut menu and assign it to the
 ' shortcutMenu variable
 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

 ' Add a menu item to the shortcut menu
 Dim newMenuItem As AcadPopupMenuItem
 Dim openMacro As String
 ' Assign the macro the VBA equivalent of "ESC ESC _open "
 openMacro = Chr(3) + Chr(3) + "_open "

 Set newMenuItem = scMenu.AddMenuItem _
 ("", Chr(Asc("&")) _
 + "OpenDWG", openMacro)
End Sub