菜单设计问题求助
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中的内部函数吗
望望大大们给予讲解
菜单宏是相应执行命令的标示，当用户想CAD发送某一个宏命令后CAD自动解释并执行该宏对应的代码实现洪湖功能。你在像CAD发送某个命令之前必须保证该命令实在CAD中注册了的，如“open”，“close”……。如果命令没有被注册那么它是不能被系统接受的，系统将自动将其滤除不执行任何操作（会打印出错信息）。 学习了。
页:
[1]