|
|
我要新建个菜单，添加新的菜单项，点击菜单项后出现已经做好的窗体
Public Sub addmenu()
'获得当前的菜单组
'On Error Resume Next
Dim currmenugroup As AcadMenuGroup
Set currmenugroup = ThisDrawing.Application.MenuGroups.Item(0)
'创建菜单
Dim newmenu As AcadPopupMenu
Set newmenu = currmenugroup.Menus.Add("机械样本" & Chr(Asc("&")) & "U")
'添加菜单项
Dim menuitem As AcadPopupMenuItem
Set menuitem = newmenu.AddMenuItem(newmenu.Count + 1, Chr(Asc("&")) & "联系方式", "_VBARUN 模块1.lianxi01")
menuitem.HelpString = "给出联系方式！"
newmenu.InsertInMenuBar ThisDrawing.Application.MenuBar.Count + 1
End Sub
红色处 lianxi01 是模块1中写的 显示窗体的 宏
红色处我不知道怎么写，请教大虾们
还有，能不能我手动在cad命令栏键入特定的字母后就可以调出窗体来，就像cad本身的调出标准件库那样，在命令行键入单词后就可以调出库！！
|
|
置顶卡
