yangh123123 发表于 2008-10-31 01:01:00

[求助] 关于Autocad2006 VBA 的自定义工具条的问题

<p>在06的帮助文档里，给出了添加自定义工具条的简单代码的示例，运行也成功了，可有个问题：用右键单击自己创建的工具条，可用的工具条只有自己创建的那个；而右击原有的工具条，里面也没有我自定义的那个。原因？</p><p>示例代码如下：</p><pre class="prog_in">Sub Ch6_AddButton()</pre><pre class="prog_in">    Dim currMenuGroup As AcadMenuGroup</pre><pre class="prog_in">    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)</pre><pre class="prog_in"></pre><pre class="prog_in">    ' 创建新工具栏</pre><pre class="prog_in">    Dim newToolbar As AcadToolbar</pre><pre class="prog_in">    Set newToolbar = currMenuGroup.Toolbars.Add("TestToolbar")</pre><pre class="prog_in"></pre><pre class="prog_in">    ' 向新工具栏添加按钮</pre><pre class="prog_in">    Dim newButton As AcadToolbarItem</pre><pre class="prog_in">    Dim openMacro As String</pre><pre class="prog_in"></pre><pre class="prog_in">    ' 给宏指定“ESC ESC _open”的 VB 等价值</pre><pre class="prog_in">    openMacro = Chr(3) + Chr(3) + "_open "</pre><pre class="prog_in">    Set newButton = newToolbar.AddToolbarButton _</pre><pre class="prog_in">                   ("", "NewButton", "Open a file.", openMacro)</pre><pre class="prog_in_end">End Sub</pre>

sjtd 发表于 2008-11-1 17:10:00

请教,如何将CAD2007中工具拦保存,在 CaD再次启动的时候还有工具栏.

yangh123123 发表于 2008-11-2 00:28:00

你说的是自定义的工具栏吧，你是用VBA的代码编写的吗？如果是的话，“保存”是不行的，不过可以在启动CAD的时候自动加载程序，以实现你的要求。可以参考CAD的帮助文档。

yangh123123 发表于 2008-11-2 00:31:00

<p>问题已经解决了，在给出的程序前加一句代码，先加载下“ACAD.CUI”菜单组就行了……</p>
页: [1]
查看完整版本: [求助] 关于Autocad2006 VBA 的自定义工具条的问题