怎么通过AutoCAD上所加的菜单项运行VBA程序
<p>现状描述：</p><p>我先前编写了个VBA程序，为便于实际操作，需在AutoCAD的界面上添加菜单项（或浮动按钮），用户通过点击菜单项就可以直接执行我所编写的VBA程序。目前添加菜单项（或浮动按钮）的工作我已实现，但尚未完成菜单项与VBA程序的关联（点击菜单项，就激活我的VBA程序的用户窗口界面）</p><p>以下是添加菜单项的程序代码：<br/>Sub AddASubMenu()</p><p><br/> '获得当前的菜单组***********************<br/> Dim currMenuGroup As AcadMenuGroup<br/> Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)<br/> <br/> '创建新菜单<br/> Dim newMenu As AcadPopupMenu<br/> Set newMenu = currMenuGroup.Menus.Add("二次开发")<br/> <br/> '添加菜单项*****************************<br/> Dim macro As String<br/> macro = ？ ' macro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32) 这是打开文件的代码</p><p> Dim menuItemHuamo As AcadPopupMenuItem<br/> Set menuItemHuamo = newMenu.AddMenuItem(newMenu.Count + 1, "NC程序生成", ？？)</p><p> '在菜单栏上显示菜单*******************<br/> newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1) </p><p>End Sub</p><p></p><p>我的VBA工程文件存放路径为：E:\VBA二次开发\project.dvb</p><p>project.dvb中的用户界面窗口为UserForm</p><p>需要达到的效果是：用户点击AutoCAD菜单栏上的菜单【二次开发】——>【NC程序生成】，就执行project工程，弹出用户界面窗口UserForm</p><p></p><p>希望大虾些给指导下，先谢过了</p> <p>忘记把问题写出来了：</p><p>1、前面帖子中的“？”处应该如何编写代码；</p><p>2、“？？”处的代码又该如何写呢？</p><p>不知道还需要添加其它代码不，还望大虾些指教^_^</p><p>谢谢！</p> 这个还需要用LISP把VBA在CAD启动是加载上来，有很多的，搜搜了，再不行了，再说了。 本帖最后由 作者 于 2008-9-20 10:49:25 编辑 <br /><br /> <p>AutoCAD VBA教程电子书有详细源码：<br/><a href="http://www.abofanyi.com/blog/post/32.html">http://www.abofanyi.com/blog/post/32.html</a></p><p></p> <p>非常感谢，我再试试</p> <p>用菜单文件做方便很多</p> <p>发个东西给你，你看看吧，今天我这上传不了东西，东西发你邮箱（<a href="mailto:y821015@tom.com">y821015@tom.com</a> ）去了。</p><p>《AutoCAD菜单文件详解及VBA调用》</p>
页:
[1]