菜单设计问题求助

zhangyunlong

Sub AddASubMenu()
    '获得当前的菜单组***********************************************************************************
    Dim currMenuGroup As AcadMenuGroup
    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
   
    ' 创建新菜单
    Dim newMenu As AcadPopupMenu
    Set newMenu = currMenuGroup.Menus.Add("Menu" & Chr(Asc("&")) & "(S)")
   
    '添加菜单项*****************************************************************************************
    Dim macro As String
    macro = Chr(vbKeyEscape) + Chr(vbKeyEscape)     '相当于按下两次Esc键
    'open
    Dim menuItemOpen As AcadPopupMenuItem
    Set menuItemOpen = newMenu.AddMenuItem(newMenu.Count + 1, Chr(Asc("&")) & "OpenFile", macro & "_open ")
    'Set menuItemOpen = newMenu(UserForm1.Visible = True)
    '状态栏的提示
    menuItemOpen.HelpString = "打开图形文件／VBA精彩实例"

end sub

其中在给macro赋值的时候 这个说的是什么意思

为什么在下面建立open菜单项的时候 macro&“open”能事项打开文件的功能

 如果我建立一个close菜单项 macro&“close”也能事项关闭文件的功能 这是为什么呢

难道说“”中实在调用cad中的内部函数吗

望望大大们给予讲解

wj_job

菜单宏是相应执行命令的标示，当用户想CAD发送某一个宏命令后CAD自动解释并执行该宏对应的代码实现洪湖功能。你在像CAD发送某个命令之前必须保证该命令实在CAD中注册了的，如“open”，“close”……。如果命令没有被注册那么它是不能被系统接受的，系统将自动将其滤除不执行任何操作（会打印出错信息）。

wzw_km

学习了。