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

yangh123123

在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

sjtd

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

yangh123123

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

yangh123123

问题已经解决了，在给出的程序前加一句代码，先加载下“ACAD.CUI”菜单组就行了……