tkodwang 发表于 2007-6-19 12:17:00

[求助]关于2006中开发人员手册中的一个例子

2006中开发人员手册中有一个增加条和按钮例子，我在下面加了一句保存（红色部分）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)
                currMenuGroup.Save acMenuFileCompiledEnd Sub此代码在2004中运行后，即使关闭cad再次打开，新增的工具栏也存在但是2006却不行，关了在开就没了，请达人指教，谢谢啦

烟雨.江南 发表于 2007-6-19 14:18:00

在CAD2006VBA的帮助文档Save Method中有这么一句：
Note This method has no effect for menu groups.
意思是说，Save方法对菜单组已经不再可用。

烟雨.江南 发表于 2007-6-19 14:19:00

在CAD2006VBA的帮助文档Save Method中有这么一句：
Note This method has no effect for menu groups.
意思是说，Save方法对菜单组已经不再可用。
页: [1]
查看完整版本: [求助]关于2006中开发人员手册中的一个例子