[求助]cad菜单栏中"帮助"右边追加一个菜单(非弹出式)

cctv2cctv

2. Sub Ch6_AddASubMenu()
3. Dim currMenuGroup As AcadMenuGroup
4. Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
6. ' 建立一个新菜单
7. Dim newMenu As AcadPopupMenu
8. Set newMenu = currMenuGroup.Menus.Add("TestMenu")
11. ' 增加子菜单
12. Dim FileSubMenu As AcadPopupMenu
13. Set FileSubMenu = newMenu.AddSubMenu("", "OpenFile")
16. ' 在子菜单中增加一个菜单项
17. Dim newMenuItem As AcadPopupMenuItem
18. Dim openMacro As String
19. ' 指定宏为VBA表达式"ESC ESC _open "
20. openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32)
22. Set newMenuItem = FileSubMenu.AddMenuItem _
23. (newMenu.count + 1, "Open", openMacro)
26. ' 菜单条上显示菜单
27. newMenu.InsertInMenuBar _
28. (ThisDrawing.Application.menuBar.count + 1)
29. End Sub

Sub Ch6_AddASubMenu() Dim currMenuGroup As AcadMenuGroup Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0) ' 建立一个新菜单 Dim newMenu As AcadPopupMenu Set newMenu = currMenuGroup.Menus.Add("TestMenu") ' 增加子菜单 Dim FileSubMenu As AcadPopupMenu Set FileSubMenu = newMenu.AddSubMenu("", "OpenFile") ' 在子菜单中增加一个菜单项 Dim newMenuItem As AcadPopupMenuItem Dim openMacro As String ' 指定宏为VBA表达式"ESC ESC _open " openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32) Set newMenuItem = FileSubMenu.AddMenuItem _ (newMenu.count + 1, "Open", openMacro) ' 菜单条上显示菜单 newMenu.InsertInMenuBar _ (ThisDrawing.Application.menuBar.count + 1) End Sub

我已阅读了以上文章，以上文章是弹出式菜单，但想在cad菜单栏 “帮助”后面追加一个菜单，点击此菜单马上调用相应宏命令，而不是弹出菜单再进行选择，还是实现不了

2. ' 增加子菜单
3. Dim FileSubMenu As AcadPopupMenu
4. Set FileSubMenu = newMenu.AddSubMenu("", "OpenFile")
7. ' 在子菜单中增加一个菜单项
8. Dim newMenuItem As AcadPopupMenuItem
9. Dim openMacro As String
10. ' 指定宏为VBA表达式"ESC ESC _open "
11. openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32)
13. Set newMenuItem = FileSubMenu.AddMenuItem _
14. (newMenu.count + 1, "Open", openMacro)

' 增加子菜单 Dim FileSubMenu As AcadPopupMenu Set FileSubMenu = newMenu.AddSubMenu("", "OpenFile") ' 在子菜单中增加一个菜单项 Dim newMenuItem As AcadPopupMenuItem Dim openMacro As String ' 指定宏为VBA表达式"ESC ESC _open " openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32) Set newMenuItem = FileSubMenu.AddMenuItem _ (newMenu.count + 1, "Open", openMacro)

把这段删除后，运行VBA 菜单栏里,只剩5、6个菜单了，并不是当初猜想的在原来菜单后追加一个TestMenu菜单

icy85

openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32)为菜单对应的命令

要调用宏命令只要改为 "-vbarun  宏名"就好了