VB.net Line (Zwcad and Autocad)

E que tal fazer uma linha com coordenadas: (0, 0, 0); (20, 15, 0).

Zwcad+

 Imports ZwSoft.ZwCAD.ApplicationServices  
 Imports ZwSoft.ZwCAD.Runtime  
 Imports ZwSoft.ZwCAD.DatabaseServices  
 Imports ZwSoft.ZwCAD.Geometry  
   
 Public Class Class1  
   <CommandMethod("linha")> _  
   Public Sub linha()  
     Dim Doc As Document = Application.DocumentManager.MdiActiveDocument  
     Dim Db As Database = Doc.Database  
   
     Using Trans As Transaction = Db.TransactionManager.StartTransaction()  
   
       Dim BlkTbl As BlockTable = Trans.GetObject(Db.BlockTableId, OpenMode.ForRead)  
       Dim BlkTblRec As BlockTableRecord = Trans.GetObject(BlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite)  
   
       Dim Linha As Line = New Line(New Point3d(0, 0, 0), New Point3d(20, 15, 0))  
       Linha.SetDatabaseDefaults()  
       BlkTblRec.AppendEntity(Linha)  
       Trans.AddNewlyCreatedDBObject(Linha, True)  
   
       Trans.Commit()  
     End Using  
   End Sub  
 End Class  

Autocad+

 Imports Autodesk.AutoCAD.ApplicationServices  
 Imports Autodesk.AutoCAD.Runtime  
 Imports Autodesk.AutoCAD.DatabaseServices  
 Imports Autodesk.AutoCAD.Geometry  
   
 Public Class Class1  
   <CommandMethod("linha")> _  
   Public Sub linha()  
     Dim Doc As Document = Application.DocumentManager.MdiActiveDocument  
     Dim Db As Database = Doc.Database  
   
     Using Trans As Transaction = Db.TransactionManager.StartTransaction()  
   
       Dim BlkTbl As BlockTable = Trans.GetObject(Db.BlockTableId, OpenMode.ForRead)  
       Dim BlkTblRec As BlockTableRecord = Trans.GetObject(BlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite)  
   
       Dim linha As Line = New Line(New Point3d(0, 0, 0), New Point3d(20, 15, 0))  
       linha.SetDatabaseDefaults()  
       BlkTblRec.AppendEntity(linha)  
       Trans.AddNewlyCreatedDBObject(linha, True)  
   
       Trans.Commit()  
     End Using  
   End Sub  
 End Class  

Criado o código teremos de salvar ir ao menu bar Build->Build linha e então temos o dll criado.

Vamos à linha de comando ao Zwcad ou Autocad e fazemos
Command: Netload

Temos uma caixa de dialogo e vamos caregar o nosso dll criado.

Por fim basta escrever na linha de comando a nossa nova rotina.

Command:linha