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

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

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方法对菜单组已经不再可用。

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

发表回复

精选推荐