CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2018 开发者帮助 › 查看内容

AutoCAD 2018 开发者帮助

SubMenu 属性（ActiveX）

2024-5-18 16:55| 发布者: admin| 查看: 316| 评论: 0|原作者: admin|来自: AutoCAD

SubMenu 属性（ActiveX）

获取与子菜单关联的弹出菜单。

支持的平台：仅限 Windows

签名

VBA：

object.SubMenu

对象

类型：PopupMenuItem

此属性应用于的对象。

属性值

只读：是的

类型：PopupMenu

与子菜单关联的弹出菜单。

言论

如果弹出菜单项不是子菜单，则此属性将返回错误。

例子

VBA：

Sub Example_SubMenu()
    ' This example finds the menu used as the sub menu for the
    ' "Additional Resources" menu item in the Help menu.
    
    Dim acadMenuGroup As acadMenuGroup
    Set acadMenuGroup = ThisDrawing.Application.MenuGroups.Item("ACAD")
    
    Dim helpMenu As AcadPopupMenu
    Set helpMenu = acadMenuGroup.Menus.Item("&Help")
    
    Dim menuItem As AcadPopupMenuItem
    Set menuItem = helpMenu.Item(4)
        
    Dim subMenu As AcadPopupMenu
    Set subMenu = menuItem.subMenu
    
    MsgBox "The name of the submenu is " & subMenu.TagString
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_SubMenu()
    ;; This example finds the menu used as the sub menu for the
    ;; "Additional Resources" menu item in the Help menu.
    (setq acadObj (vlax-get-acad-object))

    (setq acadMenuGroup (vla-Item (vla-get-MenuGroups acadObj) "ACAD"))
    
    (setq helpMenu (vla-Item (vla-get-Menus acadMenuGroup) "&Help"))
    
    (setq menuItem (vla-Item helpMenu 4))
        
    (setq subMenu (vla-get-SubMenu menuItem))
    
    (alert (strcat "The name of the submenu is " (vla-get-TagString subMenu)))
)