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

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

在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 发表于 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

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