Manual VB.net para ZWCAD : LINE

 Hoje vou apresentar um primeiro passo para criar um manual de programação para o ZWCAD.

A ideia passa por mostrar como se cria objetos, e assim passo a passo alguns possam aprender a fazer pequenas rotinas.

Criação de uma linha, com coordenadas (1, 2, 0) , (6, 7, 0).

Com programação VB.net

1:  Imports ZwSoft.ZwCAD.ApplicationServices  
2:  Imports ZwSoft.ZwCAD.Runtime  
3:  Imports ZwSoft.ZwCAD.DatabaseServices  
4:  Imports ZwSoft.ZwCAD.Geometry  
5:    
6: Public Class ZWLineObject 
7:    <CommandMethod("NewLine")> _  
8:  Public Sub AddLine()
9:
10:     Dim ZWDoc As Document = Application.DocumentManager.MdiActiveDocument
11:     Dim ZWCurDb As Database = ZWDoc.Database
12:
13:     Using ZWTrans As Transaction = ZWCurDb.TransactionManager.StartTransaction()
14:
15:         Dim ZWBlkTbl As BlockTable = ZWTrans.GetObject(ZWCurDb.BlockTableId, OpenMode.ForRead)
16:         Dim ZWBlkTblRec As BlockTableRecord = ZWTrans.GetObject(ZWBlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
17:
18:         Dim ZWLine As Line = New Line(New Point3d(1, 2, 0), New Point3d(6, 7, 0))
19:         ZWLine.SetDatabaseDefaults()
20:         ZWBlkTblRec.AppendEntity(ZWLine)
21:         ZWTrans.AddNewlyCreatedDBObject(ZWLine, True)
22:
23:         ZWTrans.Commit()
24:     End Using
25: End Sub
26:
27: End Class

Após escrever o código, deve-se criar o dll. No  ZWCad, na linha de comando: netload carregar o dll criado. na linha de comando chamamos então o comando criado neste caso: NewLine.

Testem 

Cumprimentos.