创建新的工具栏

previous page next page

创建和编辑工具栏

向工具栏添加新的工具栏按钮

创建新的工具栏

要创建新工具栏，请使用 Add 方法向 Toolbars 集合添加新的 Toolbar 对象。

Add 方法需要输入要添加的工具栏名称。该名称是由字母数字组成的字符串，不能包含划线 (-) 或下划线 (_)以外的标点。名称是识别集合内的工具栏的最简单方法。

创建工具栏之后，用户可以更改工具栏的名称。要更改现有工具栏的名称，请使用该工具栏的 Name 特性。

创建新工具栏

本例在 MenuGroups 集合的第一个菜单组中创建称“TestToolbar”的新工具栏。

Sub Ch6_CreateToolbar()

    Dim currMenuGroup As AcadMenuGroup

    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

          ' 创建新工具栏
          Dim newToolbar As AcadToolbar
          Set newToolbar = currMenuGroup.Toolbars.Add("TestToolbar")
      End Sub

previous page start next page