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

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

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