Manual VB.net para ZWCAD : NEW TEXT

  Criação de um "NEW TEXT"

Temos então o código:

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


Public Class Text
   <CommandMethod("NewText")> _  
    Public Sub NewText()

        Dim ZWDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim ZWEd As Editor = Application.DocumentManager.MdiActiveDocument.Editor
        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 ZWNewText As New DBText
            ZWNewText.SetDatabaseDefaults()
            ZWNewText.WidthFactor = 0.7
            ZWNewText.Height = 0.35
            ZWNewText.HorizontalMode = TextHorizontalMode.TextCenter
            ZWNewText.VerticalMode = TextVerticalMode.TextVerticalMid
            ZWNewText.AlignmentPoint = New Point3d(0, 0, 0)
            ZWNewText.TextString = "Zwcad .net Loja dos Desenhadores"

            ZWBlkTblRec.AppendEntity(ZWNewText)
            ZWTrans.AddNewlyCreatedDBObject(ZWNewText, 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: "NewText".

Vamos lá experimentar.

Cumprimentos.