CAD开发者社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

AutoCAD 2019 开发者帮助

关于从菜单中删除菜单项 (VBA/ActiveX)

2024-5-18 17:51| 发布者: admin| 查看: 53| 评论: 0|原作者: admin|来自: AutoCAD

关于从菜单中删除菜单项 (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

路过

雷人

握手

鲜花

鸡蛋

最新评论

QQ|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1   苏公网安备32011402011833)

GMT+8, 2024-12-15 22:02

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部