[原创]CAD2006二次开发问题

danver1207

<div class="wr f14">Dim openMacro As String <br/>openMacro=??? <br/>Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "LM", openMacro) <br/><br/>我想实现点菜单PLM的时候弹出一个窗体frmMain，请问openMacro怎么写啊？</div><div class="wr f14"></div><div class="wr f14">另：希望高手留下联系方式，我想我肯定还有许多问题要请教的。</div><div class="wr f14">我的邮箱：<a href="mailto:aoe1207@126.com">aoe1207@126.com</a>.</div>

lymx

没看懂你的意思，可否说详细一点

danver1207

<p>Sub CreatePlmMenu() ''创建PLM集成菜单<br/>&nbsp;&nbsp;&nbsp; Dim currMenuGroup As AcadMenuGroup<br/>&nbsp;&nbsp;&nbsp; Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)</p><p>&nbsp;&nbsp;&nbsp; ' 创建新菜单<br/>&nbsp;&nbsp;&nbsp; Dim newMenu As AcadPopupMenu<br/>&nbsp;&nbsp;&nbsp; On Error Resume Next<br/>&nbsp;&nbsp;&nbsp; Set newMenu = currMenuGroup.Menus.Add(Chr(Asc("&amp;")) + "LM集成")</p><p>&nbsp;&nbsp;&nbsp; ' 向新菜单添加菜单项<br/>&nbsp;&nbsp;&nbsp; Dim newMenuItem As AcadPopupMenuItem<br/>&nbsp;&nbsp;&nbsp; Dim Macro As String<br/>&nbsp;&nbsp;&nbsp; Macro =&nbsp;？？？</p><p>&nbsp;&nbsp;&nbsp; Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "LM", Macro)</p><p>&nbsp;&nbsp;&nbsp; ' 在菜单栏上显示菜单<br/>&nbsp;&nbsp;&nbsp; newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)<br/>&nbsp;&nbsp;&nbsp; <br/>End Sub</p><p></p><p>我的意思就是我点PLM菜单的时候弹出一个新的窗体，用的VBA，斑竹帮忙给看看</p>

lymx

<p>你试试&nbsp;&nbsp; Macro =&nbsp; ChrW(3) &amp; ChrW(3) &amp; "-vbarun xck" &amp; ChrW(13)</p><p></p>xck是新建的模块名，用模块来调用新窗体