[求助]新建菜单，添加新的菜单项如何显示窗体
<p>我要新建个菜单，添加新的菜单项，点击菜单项后出现已经做好的窗体</p><p>Public Sub addmenu()<br/>'获得当前的菜单组<br/>'On Error Resume Next<br/>Dim currmenugroup As AcadMenuGroup<br/>Set currmenugroup = ThisDrawing.Application.MenuGroups.Item(0)<br/>'创建菜单<br/>Dim newmenu As AcadPopupMenu<br/>Set newmenu = currmenugroup.Menus.Add("机械样本" & Chr(Asc("&")) & "U")<br/>'添加菜单项<br/>Dim menuitem As AcadPopupMenuItem<br/>Set menuitem = newmenu.AddMenuItem(newmenu.Count + 1, Chr(Asc("&")) & "联系方式", <font color="#ff0000">"_VBARUN 模块1.lianxi01")<br/></font>menuitem.HelpString = "给出联系方式！"<br/>newmenu.InsertInMenuBar ThisDrawing.Application.MenuBar.Count + 1<br/>End Sub<br/></p><p>红色处 lianxi01 是模块1中写的 显示窗体的 宏 </p><p>红色处我不知道怎么写，请教大虾们</p><p>还有，能不能我手动在cad命令栏键入特定的字母后就可以调出窗体来，就像cad本身的调出标准件库那样，在命令行键入单词后就可以调出库！！</p> <p>请参考<a href="http://blog.sina.com.cn/s/blog_48ff6e140100bddp.html">http://blog.sina.com.cn/s/blog_48ff6e140100bddp.html</a></p><p>专门为你写的一篇文章。</p> <font color="#3809f7" size="3">非常感谢！！！，我要好好揣摩揣摩！！！！非常感谢您！！！！</font>
页:
[1]