求助！关于添加右键菜单选项的问题

Lesnacklie · 发表于 2006-5-18 19:04:00

我把例子输进去，试了几个版本的例子，但总是执行到最后一步生成菜单选项的时候总是出现“对象变量和with块变量未设置”的提示，请问这是怎么回事，谢谢了。

xinghesnak · 发表于 2006-5-19 08:06:00

把你的程序贴上来吧！

Lesnacklie · 发表于 2006-5-19 15:58:00

Sub Ch_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 "
Dim a As Integer
Dim b As String
a = Asc("&")
b = Chr(95)
Set newMenuItem = scMenu.AddMenuItem("", Chr(Asc("&")) + "OpenDWG", openMacro)
End Sub
真是太谢谢了

xinghesnak · 发表于 2006-5-19 16:34:00

其实问题很简单，currMenuGroup得到的菜单组里没有快捷菜单，所以scMenu也就没有被赋值，自然到最后一句会报错。。。。（在我这就是这样）
不如把这句Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
换成
Dim currMenuGroup As AcadMenuGroup
For Each currMenuGroup In ThisDrawing.Application.MenuGroups
If currMenuGroup.Name = "AMDTPP" Then Exit For
Next