把工具按鈕添加到工具欄之前你需要?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)。