[VBA]怪！这段程序为什么要运行两次才能实现？

deng163

我在书上找了段关于在右键菜单中增加条目的代码，可不知怎么回事，每次都需运行两次才能实现，希望高手指导，谢谢！

3. Sub Ch6_AddMenuItemToshortcutMenu()
4. On Error Resume Next
5. Dim currMenuGroup As AcadMenuGroup
6. Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
7. '找到快捷菜单并赋值它为shortcutMenu变量
8. Dim scMenu As AcadPopupMenu
9. Dim entry As AcadPopupMenu
10. For Each entry In currMenuGroup.Menus
11. If entry.ShortcutMenu = True Then
12. Set scMenu = entry
13. End If
14. Next entry
15. ' 在快捷菜单中增加菜单项
16. Dim newMenuItem As AcadPopupMenuItem
17. Dim openMacro As String
18. ' 为宏赋值VBA表达式"ESC ESC _open "
19. openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32)
20. Set newMenuItem = scMenu.AddMenuItem("", Chr(Asc("&")) + "OpenDWG", openMacro)
21. End Sub

Sub Ch6_AddMenuItemToshortcutMenu() On Error Resume Next 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 ' 为宏赋值VBA表达式"ESC ESC _open " openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32) Set newMenuItem = scMenu.AddMenuItem("", Chr(Asc("&")) + "OpenDWG", openMacro) End Sub

deng163

难道就没人查出哪出错了吗？或者程序本身就没问题，是我的cad没装好？

HELP!

ghosthsg

你把第四行的定义改为：

Set currMenuGroup = acadapp.MenuGroups.Item(0)

试试！

xxsheng

scMenu.AddMenuItem,你跟踪下程序,我的系统autocad2002跟踪下,第一次运行scmenu总是空,scMenu.AddMenuItem当然也就不能实现,,,,,,