CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2018 开发者帮助 › 查看内容

AutoCAD 2018 开发者帮助

关于向工具栏添加新工具栏按钮（VBA/ActiveX）

2024-5-18 16:52| 发布者: admin| 查看: 349| 评论: 0|原作者: admin|来自: AutoCAD

若要将新的工具栏按钮添加到工具栏，请使用该方法。此方法创建一个新对象并将其添加到指定的工具栏中。AddToolbarButtonToolbarItem

只有在工具栏可见时，才应向工具栏添加按钮。

该方法采用五个参数作为输入：Index、Name、HelpString、Macro 和 FlyoutButton。AddToolbarButton

指数: Index 参数是一个整数，用于指定新项在工具栏中的位置。索引以位置零（0）开头，作为标题之后工具栏上的第一个位置。若要将新工具栏按钮添加到工具栏的末尾，请将 Index 参数设置为等于工具栏的属性。（工具栏的属性表示该工具栏上的工具栏按钮总数。ToolbarCountCount
创建工具栏按钮后，无法通过 Index 属性更改按钮的索引。若要更改现有工具栏按钮的索引，必须删除工具栏按钮并将其重新添加到其他位置，或者添加或删除周围的工具栏按钮，直到实现正确的位置。
名字: 名称是标识工具栏按钮的字符串。字符串必须包含字母数字字符，除短划线（-）或下划线（_）外，没有标点符号。当光标放在工具栏按钮上时，此字符串将显示为工具提示。
创建工具栏按钮后，可以使用 Name 参数更改名称。
帮助字符串: 帮助字符串是当用户突出显示菜单项进行选择时显示在 AutoCAD 状态行中的文本字符串。
创建工具栏按钮后，可以使用 HelpString 参数更改按钮的帮助字符串。
宏观: 宏是一系列命令，用于在选择工具栏按钮时执行特定操作。工具栏宏可以只是完成任务的击键记录，也可以是命令、AutoLISP、DIESEL 或 ActiveX 编程代码的复杂组合。
创建“工具栏”按钮后，可以使用“宏”参数更改按钮的宏。
弹出按钮: FlyoutButton 参数是一个可选标志，用于指示新按钮是否为浮出控件按钮。如果新按钮是浮出控件按钮，则此参数必须设置为 TRUE。如果新按钮不是浮出控件按钮，则可以将此参数设置为 FALSE，也可以忽略该参数。

将按钮添加到新工具栏

本示例创建一个新工具栏，并向该工具栏添加一个按钮。为按钮分配一个宏，该宏将在选择按钮时执行 OPEN 命令。

Sub Ch6_AddButton()
 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")

 ' Add a button to the new toolbar
 Dim newButton As AcadToolbarItem
 Dim openMacro As String

 ' Assign the macro the VB equivalent of "ESC ESC _open "
 openMacro = Chr(3) + Chr(3) + "_open "
 Set newButton = newToolbar.AddToolbarButton _
 ("", "NewButton", "Open a file.", openMacro)
End Sub