如何在右键菜单的末尾新增一个菜单项（VBA语言）
右键菜单或快捷菜单，是包含在AutoCAD基础菜单组中的特殊菜单。这个菜单只在用户按住SHIFT键并点击鼠标右键时才出现。在一个基础菜单组中，当一个菜单的ShortcutMenu属性为TRUE时，这个菜单就是快捷菜单。你可以遵循"为一个菜单添加新的菜单项"中列出的步骤为快捷菜单增加菜单项。
新的菜单组可能有也可能没有一个快捷菜单。要想为一个菜单组建立一个快捷菜单，须遵循"建立新菜单"一章中列出的指示，并且要把POP0做为这个新菜单的标签。
以下示例如何在右键菜单的末尾新增菜单项"OpenDWG".
Sub Ch6_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
' 为宏赋值VBA表达式"ESC ESC _open "
openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32)
Set newMenuItem = scMenu.AddMenuItem _
("", Chr(Asc("&")) _
+ "OpenDWG", openMacro)
End Sub 真的可以呀。谢谢楼主
如果不想要OPEN命令，用别的命令能代替吗，比如显示个自己编辑的界面什么的
如果不想要OPEN命令，用别的命令能代替吗，比如显示个自己编辑的界面什么的
页:
[1]