要在菜单栏中插入现有菜单,请使用方法。这两种方法都实现相同的目标 - 它们将现有菜单插入菜单栏中。InsertMenuInMenuBarInsertInMenuBar 这两种方法之间的区别在于从中调用它们的对象。该方法是从集合中调用的。使用此方法,可以将集合中的任何菜单插入到菜单栏上的指定位置。此方法需要输入要插入的菜单的名称以及菜单栏上的位置以插入它。InsertMenuInMenuBarPopupMenus 该方法直接从要插入的对象调用。此方法需要的唯一输入是菜单栏上的位置。不需要菜单的名称,因为您直接从要插入的对象调用该方法。InsertInMenuBarPopupMenu 您应该使用对您的应用程序更方便的方法。 在菜单栏中插入菜单本示例创建一个名为 TestMenu 的新菜单,并在其中插入一个菜单项。为菜单项分配了 OPEN 命令。然后,菜单将显示在菜单栏上。 Sub Ch6_InsertMenu() ' Define a variable for the current menu group Dim currMenuGroup As AcadMenuGroup Set currMenuGroup = ThisDrawing.Application. _ MenuGroups.Item(0) ' Create a new menu Dim newMenu As AcadPopupMenu Set newMenu = currMenuGroup.Menus.Add("TestMenu") ' Declare the variables for the menu item Dim newMenuItem As AcadPopupMenuItem Dim openMacro As String ' Assign the macro string the VB equivalent of ' "ESC ESC _open " and create the menu item openMacro = Chr(3) + Chr(3) + "_open " Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, _ "Open", openMacro) ' Display the menu on the menu bar currMenuGroup.Menus.InsertMenuInMenuBar "TestMenu", "" End Sub |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 )
GMT+8, 2024-5-11 21:48
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.