创建工具条（ToolBar）

Imports ZwSoft.ZwCAD.Runtime
Imports ZwSoft.ZwCAD.ApplicationServices
Imports ZWCAD


Public Class Toolbar
    Implements IExtensionApplication


    Public Sub Initialize() Implements IExtensionApplication.Initialize
        Dim ZwApp As ZcadApplication = DirectCast(Application.ZcadApplication, ZcadApplication)
        Dim currMenuGroup As ZcadMenuGroup = ZwApp.Application.MenuGroups.Item(0)
        Dim newToolbar As ZcadToolbar = currMenuGroup.Toolbars.Add("TestToolbar")


        Dim openSmallBitmapName As String = "E:\Icons\open.BMP"
        Dim openLargeBitmapName As String = "E:\Icons\open.BMP"
        Dim openMacro As String = Chr(3) + Chr(3) + "_open "
        Dim newButton1 As ZcadToolbarItem = newToolbar.AddToolbarButton("", "Open", "Open a file.", openMacro)
        newButton1.SetBitmaps(openSmallBitmapName, openLargeBitmapName)




        Dim lineSmallBitmapName As String = "E:\Icons\line.BMP"
        Dim lineLargeBitmapName As String = "E:\Icons\line.BMP"
        Dim lineMacro As String = Chr(3) + Chr(3) + "_line "
        Dim newButton2 As ZcadToolbarItem = newToolbar.AddToolbarButton(newToolbar.Count + 1, "Line", "Draw a line.", lineMacro)
        newButton2.SetBitmaps(lineSmallBitmapName, lineLargeBitmapName)




        Dim circleSmallBitmapName As String = "E:\Icons\circle.BMP"
        Dim circleLargeBitmapName As String = "E:\Icons\circle.BMP"
        Dim circleMacro As String = Chr(3) + Chr(3) + "_circle "
        Dim newButton3 As ZcadToolbarItem = newToolbar.AddToolbarButton(newToolbar.Count + 1, "Circle", "Draw a circle.", circleMacro)
        newButton3.SetBitmaps(circleSmallBitmapName, circleLargeBitmapName)


        newToolbar.Visible = True
        newToolbar.Dock(ZcToolbarDockStatus.zcToolbarDockLeft)
    End Sub


    Public Sub Terminate() Implements IExtensionApplication.Terminate


    End Sub
End Class