若要创建新工具栏，请使用该方法将新对象添加到集合中。AddToolbarToolbars 该方法需要输入要添加的工具栏的名称。名称是一串字母数字字符，除了短划线 （-） 或下划线 （_） 外没有标点符号。名称是标识集合中工具栏的最简单方法。Add 创建工具栏后，您可以更改工具栏的名称。若要更改现有工具栏的名称，请使用该工具栏的属性。Name 创建新工具栏本示例在集合的第一个菜单组中创建一个名为“TestToolbar”的新工具栏。MenuGroups Sub Ch6_CreateToolbar()
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
' Create the new toolbar
Dim newToolbar As AcadToolbar
Set newToolbar = currMenuGroup.Toolbars.Add("TestToolbar")
End Sub
|
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1 )
GMT+8, 2024-5-12 20:15
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.
