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

tkodwang

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 acMenuFileCompiled

End Sub

此代码在2004中运行后，即使关闭cad再次打开，新增的工具栏也存在

但是2006却不行，关了在开就没了，请达人指教，谢谢啦

烟雨.江南

在CAD2006VBA的帮助文档Save Method中有这么一句：

Note This method has no effect for menu groups.

意思是说，Save方法对菜单组已经不再可用。

烟雨.江南

在CAD2006VBA的帮助文档Save Method中有这么一句：

Note This method has no effect for menu groups.

意思是说，Save方法对菜单组已经不再可用。