把工具按鈕添加到工具欄之前你需要?jiǎng)?chuàng)建一個(gè)新的工具欄，創(chuàng)建新的工具欄需調(diào)用Add方法新建一個(gè)Toolbar對(duì)象并把它添加到Toolbars集合中。要把按鈕添加到新的工具欄中，必須調(diào)用Toolbar對(duì)象中的AddToolbarButton方法，該方法在調(diào)用中需要四個(gè)變?cè)獊?lái)傳遞參數(shù)。

第一個(gè)變?cè)狪ndex參數(shù)決定添加的按鈕在工具欄中的位置。

第二個(gè)邊緣Name參數(shù)決定了按鈕提示信息，類似Tooltip一樣，當(dāng)鼠標(biāo)懸停在按鈕上時(shí)顯示按鈕的名字。

第三個(gè)變?cè)狧elpString參數(shù)，決定了顯示在AutoCAD左下角狀態(tài)欄上的信息字符串。

第四個(gè)變?cè)狹acro參數(shù)，這是一個(gè)和按鈕相關(guān)聯(lián)的宏，它會(huì)出現(xiàn)在命令行上，所以要運(yùn)行這個(gè)宏，必須要用vbarun來(lái)開(kāi)始而用返回量來(lái)結(jié)束。

一下代碼展示了創(chuàng)建自定義工具條的過(guò)程。

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

創(chuàng)建好工具欄后還需要將按鈕添加到自定義工具條上，并給按鈕添加一個(gè)合適的圖標(biāo)。