创建引线对象（Leader）

Imports ZwSoft.ZwCAD.Runtime
Imports ZwSoft.ZwCAD.Geometry
Imports ZwSoft.ZwCAD.DatabaseServices
Imports ZwSoft.ZwCAD.ApplicationServices




Public Class ZwcadApps
    <CommandMethod("AddLeader")> _
    Public Sub AddLeader()
        Dim Pts(2) As Point3d
        Pts(0) = New Point3d(0, 0, 0)
        Pts(1) = New Point3d(15, 16, 0)
        Pts(2) = New Point3d(23, 20, 0)


        Dim leader As Leader = New Leader()
        leader.IsSplined = True
        leader.HasArrowHead = True
        For i As Integer = 0 To 2
            leader.AppendVertex(Pts(i))
            leader.SetVertexAt(i, Pts(i))
        Next


        Dim ZcDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim ZcDB As Database = ZcDoc.Database
        Using ZcTran As Transaction = ZcDB.TransactionManager.StartTransaction
            Dim ZcBLT As BlockTable = ZcTran.GetObject(ZcDB.BlockTableId, OpenMode.ForRead)
            Dim ZcBLTR As BlockTableRecord = ZcTran.GetObject(ZcBLT(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
            ZcBLTR.AppendEntity(leader)
            ZcTran.AddNewlyCreatedDBObject(leader, True)
            ZcTran.Commit()
        End Using


        ZcDoc.SendStringToExecute("_.ZOOM _E ", True, False, False)


    End Sub




End Class