|
|
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中的内部函数吗
望望大大们给予讲解
|
|
置顶卡
