若要创建新菜单，请使用该方法将新对象添加到集合中。AddPopupMenuPopupMenus 若要创建新的快捷菜单，必须删除现有的快捷菜单。每个菜单组只能有一个快捷菜单。如果菜单组中没有其他快捷菜单，则可以添加带有标签“POP0”的菜单。这将告诉AutoCAD您要创建快捷菜单。 该方法需要输入要添加的菜单的名称（标签）。此名称在菜单栏上加载时将成为菜单的标题。名称也是标识集合中菜单的最简单方法。Add 菜单名称可以是简单的字符串，也可以包含特殊代码。创建菜单后，您可以更改菜单的名称。若要更改现有菜单的名称，请使用该菜单的属性。Name 创建新的弹出菜单本示例在集合的第一个菜单组中创建一个名为“TestMenu”的新弹出菜单。MenuGroups Sub Ch6_CreateMenu()
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
' Create the new menu
Dim newMenu As AcadPopupMenu
Set newMenu = currMenuGroup.Menus.Add("TestMenu")
End Sub
|
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1 )
GMT+8, 2024-5-12 07:31
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.
