Manual VB.net para ZWCAD : CIRCLE

 Criação de um Circulo, inserido no ponto 10,15,0 e com raio 2.5.

Temos então o código, quem quiser pode experiementar com base no código anterior pode na linha de comando a pedir o raio.

Imports ZwSoft.ZwCAD.ApplicationServices
Imports ZwSoft.ZwCAD.DatabaseServices
Imports ZwSoft.ZwCAD.Runtime
Imports ZwSoft.ZwCAD.Geometry
Public Class ZWCirculoObject

<CommandMethod("NewCircle")>
        Public Sub NewCircle()

        Dim ZWDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim ZWCurDb As Database = ZWDoc.Database

        Using ZWTrans As Transaction = ZWCurDb.TransactionManager.StartTransaction()

            Dim ZWBlkTbl As BlockTable = ZWTrans.GetObject(ZWCurDb.BlockTableId, OpenMode.ForRead)
            Dim ZWBlkTblRec As BlockTableRecord = ZWTrans.GetObject(ZWBlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite)

            Dim ZWCircle As Circle = New Circle()
            ZWCircle.SetDatabaseDefaults()
            ZWCircle.Center = New Point3d(10, 15, 0)
            ZWCircle.Radius = 2.5

            ZWBlkTblRec.AppendEntity(ZWCircle)
            ZWTrans.AddNewlyCreatedDBObject(ZWCircle, True)

            ZWTrans.Commit()
        End Using
    End Sub

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: NewCircle.

Vamos lá experimentar.

Cumprimentos.