cczjw 发表于 2009-2-6 23:47:00

请问有没有从CAD菜单或CAD按钮执行VBA工程宏的方法？

<p>请问有没有从CAD菜单或CAD按钮执行VBA工程宏的方法？</p>

houlinbo 发表于 2009-2-10 15:02:00

本帖最后由 作者 于 2009-2-10 15:05:16 编辑 <br /><br /> <p>&nbsp;自定义菜单执行宏的方法</p><p>&nbsp;Public Sub addMenu()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim acadapp As AcadApplication = Application.AcadApplication<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim myMenu As AcadPopupMenu = acadapp.MenuGroups.Item(0).Menus.Add("测试菜单(&amp;L)")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim m1 As AcadPopupMenuItem = myMenu.AddMenuItem(1, "子菜单(&amp;A)", Chr(3) + Chr(3) + "宏名称" &amp; Chr(13))</p><p>end sub</p>

houlinbo 发表于 2009-2-10 15:05:00

&nbsp;Public Sub addToolbar()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim acadapp1 As AcadApplication = Application.AcadApplication<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim toolBar As AcadToolbar= acadapp1.MenuGroups.Item(0).Toolbars.Add("工具条名")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim t1 As AcadToolbarItem = toolBar.AddToolbarButton("", "按钮", "", Chr(3) + Chr(3) + "宏名" &amp; Chr(13))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; t1.SetBitmaps(Runtime.AppPath &amp; "Acad\ICO\1.ico", Runtime.AppPath &amp; "Acad\ICO\1.ico")

cczjw 发表于 2009-2-10 18:33:00

本帖最后由 作者 于 2009-2-10 18:33:43 编辑

不好意思，请教这些代码在什么时候、放到哪里执行呢？谢谢！

fjfhgdwfn 发表于 2009-2-12 10:42:00

<p>通过lisp，在启动时自动加载运行</p>

cczjw 发表于 2009-2-12 15:45:00

<p>哦，明白了，谢谢！</p>
页: [1]
查看完整版本: 请问有没有从CAD菜单或CAD按钮执行VBA工程宏的方法？