关于从菜单中删除菜单项 (VBA/ActiveX)
若要从菜单中删除菜单项,请使用在菜单项上找到的方法。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 相关概念 |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2024-12-15 22:02
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.