指定 Macro 参数

From AutoCAD ActiveX/VBA

previous page next page

指定 Tag 参数

向菜单添加新的菜单项

向菜单添加分隔符

ActiveX/VBA 开发人员手册 > 自定义工具栏和菜单 > 创建和编辑下拉菜单和快捷菜单 > 向菜单添加新的菜单项 >

指定 Macro 参数

宏是在选择菜单项时执行特定操作的一系列命令，可以只是完成任务的按键记录，也可以是复杂的命令、AutoLISP、DIESEL 或 ActiveX 编程代码等的组合。

创建菜单项之后，可以使用 Macro 特性更改菜单项的宏。

向弹出式菜单添加菜单项

本例创建称为“TestMenu”的新菜单并插入菜单项。给定的菜单项名称为“Open”，而指定给该菜单项的宏为 OPEN 命令。

Sub Ch6_AddAMenuItem()

    Dim currMenuGroup As AcadMenuGroup

    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

    ' 创建新菜单
    Dim newMenu As AcadPopupMenu
    Set newMenu = currMenuGroup.Menus.Add("TestMenu")
    ' 向新菜单添加菜单项
    Dim newMenuItem As AcadPopupMenuItem
    Dim openMacro As String
    ' 给宏指定“ESC ESC _open”的 VBA 等价值
    openMacro = Chr(3) + Chr(3) + "_open "
    Set newMenuItem = newMenu.AddMenuItem _
                       (newMenu.count + 1, "Open", openMacro)
    ' 在菜单栏上显示菜单
    newMenu.InsertInMenuBar _
                 (ThisDrawing.Application.menuBar.count + 1)
End Sub

previous page start next page