AutoVBA利用toolbar创建自己的工具栏

把工具按钮添加到工具栏之前你需要创建一个新的工具栏，创建新的工具栏需调用Add方法新建一个Toolbar对象并把它添加到Toolbars集合中。要把按钮添加到新的工具栏中，必须调用Toolbar对象中的AddToolbarButton方法，该方法在调用中需要四个变元来传递参数。

第一个变元Index参数决定添加的按钮在工具栏中的位置。

第二个边缘Name参数决定了按钮提示信息，类似Tooltip一样，当鼠标悬停在按钮上时显示按钮的名字。

第三个变元HelpString参数，决定了显示在AutoCAD左下角状态栏上的信息字符串。

第四个变元Macro参数，这是一个和按钮相关联的宏，它会出现在命令行上，所以要运行这个宏，必须要用vbarun来开始而用返回量来结束。

一下代码展示了创建自定义工具条的过程。

Public Sub createtoolbar()
    Dim menugroupobject As AcadMenuGroup
    Dim toolbarobject As AcadToolbar
    Dim toolbaritemobject As AcadToolbarItem
    Dim buttonobject As AcadToolbarItem
    Set menugroupobject = ThisDrawing.Application.MenuGroups.Item(0)
    Set toolbarobject = menugroupobject.Toolbars.Add("new dimensions")
    Set buttonobject = toolbarobject.AddToolbarButton(0, "Align", "alignment dimension", "-vbarun thisdrawing.aligneddimension" & vbCr)
    Set buttonobject = toolbarobject.addtoolvarbutton(1, "ordinate", "rodinate dimension", "-vbarun thisdrawing.ordinatedimension" & vbCr)
    Set buttonobject = toolbarobject.AddToolbarButton(2, "rotate", "rotate dimension", "-vbarun thisdrawing.rotatedimension" * vbCr)
    Set buttonobject = toolbarobject.addsepatatot(2)
    Set buttonobject = toolbarobject.AddToolbarButton(4, "angular", "angular dimension", "-vbarun thisdrawing.angular dimension" & vbCr)
    Set buttonobject = toolbarobject.AddToolbarButton(5, "diametric", "diametric dimension", "-vbarun thisdrawing.diametric dimension" & vbCr)
    Set buttonobject = toolbarobject.AddToolbarButton(6, "radial", "radial dimension", "-vbarun thisdrawing.radialdimension" & vbCr)
    toolbarobject.Visible = True
End Sub

创建好工具栏后还需要将按钮添加到自定义工具条上，并给按钮添加一个合适的图标。