向右键单击菜单添加条目

From AutoCAD ActiveX/VBA

previous page next page

为菜单项和工具栏项创建状态行帮助

自定义工具栏和菜单

使用事件

ActiveX/VBA 开发人员手册 > 自定义工具栏和菜单 >

向右键单击菜单添加条目

右键单击菜单（或快捷菜单）是 AutoCAD 基准菜单组内的特殊菜单。该菜单将在用户按住 SHIFT 键并单击鼠标右键时显示。

AutoCAD 在基准菜单组中查找 ShortcutMenu 特性等于 TRUE 的菜单，这些菜单就是快捷菜单。可以按照向菜单添加新的菜单项中的步骤，向快捷菜单添加新的菜单项。

新菜单组有无快捷菜单均可。要创建菜单组的快捷菜单，请按照创建新菜单中介绍的指导原则进行，并使用 POP0 作为新菜单的标签名称。

向右键单击菜单的末尾添加菜单项

本例将菜单项“OpenDWG”添加到快捷菜单的尾部。

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

previous page start next page