创建直线（Line），PolyLine，及三维多线段（PolyLine3d）

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


Public Class Class1

 

    <CommandMethod("AddLines")> _

    Public Sub AddLines()


        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)


            Dim line As Line = New Line(New Point3d(0, 0, 0), New Point3d(10, 10, 0))
            ZcBLTR.AppendEntity(line)
            ZcTran.AddNewlyCreatedDBOb