CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 自定义工具栏和菜单› 关于创建和编辑下拉菜单和快捷菜单（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于从菜单中删除菜单项（VBA/ActiveX）

2023-1-4 22:20| 发布者: admin| 查看: 727| 评论: 0|来自: AutoCAD

摘要: 若要从菜单中删除菜单项，请使用菜单项上的 Delete 方法。

若要从菜单中删除菜单项，请使用菜单项上的方法。Delete

谨慎：如果删除菜单项，请不要调用会直接或间接导致在同一宏中再次加载同一 CUIx 文件的其他方法或属性。例如，删除菜单项后，不要使用方法或属性，或使用该方法发出 AutoCAD CUILOAD 命令。这些项目直接或间接导致加载 CUIx 文件。只应在单独的宏中使用这些方法或属性。MenuGroup.LoadPreferences.Profiles.ActiveProfileDocument.SendCommand

从菜单中删除菜单项

本示例在菜单栏上显示的最后一个菜单的末尾添加一个菜单项。然后，它将删除菜单项。

Sub Ch6_DeleteMenuItem()
 Dim LastMenu As AcadPopupMenu
 Set LastMenu = ThisDrawing.Application.menuBar. _
 Item(ThisDrawing.Application.menuBar.count - 1)

 ' Add a menu item
 Dim newMenuItem As AcadPopupMenuItem
 Dim openMacro As String
 ' Assign the macro the VB equivalent of "ESC ESC _open "
 openMacro = Chr(3) + Chr(3) + "_open "

 Set newMenuItem = LastMenu.AddMenuItem _
 (LastMenu.count + 1, "Open", openMacro)

 ' Remove the menu item from the menu
 newMenuItem.Delete
End Sub