创建新菜单

创建和编辑下拉菜单和快捷菜单

向菜单添加新的菜单项

创建新菜单

要创建新菜单，请使用 Add 方法向 PopupMenus 集合添加新的 PopupMenu 对象。

要创建新的快捷菜单，必须删除现有的快捷菜单。因为每一个菜单组只能有一个快捷菜单。如果菜单组中没有其他快捷菜单，可以添加具有标签“POP0”的菜单。这将告诉 AutoCAD 要创建快捷菜单。

Add 方法需要输入要添加的菜单的名称（标签）。此方法向菜单栏加载该菜单时，该名称将成为菜单的标题。该名称也是识别集合内菜单的最简单的方法。

菜单名称可以是简单的字符串，也可以包含特殊代码。创建菜单之后，用户可以改变菜单的名称。要更改现有菜单的名称，请使用该菜单的 Name 特性。

创建新的弹出式菜单

本例在 MenuGroups 集合的第一个菜单组中创建称为“TestMenu”的新弹出菜单。

Sub Ch6_CreateMenu()

    Dim currMenuGroup As AcadMenuGroup

    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

          ' 创建新菜单
          Dim newMenu As AcadPopupMenu
          Set newMenu = currMenuGroup.Menus.Add("TestMenu")
      End Sub