Translate

segunda-feira, 30 de outubro de 2023

Manual VB.net para ZWCAD : Arc

  Colocação de um "Arc" na coordenada (1,3,0) com raio 5 e angulo inicial 57 e angulo final 172 .



Segue o código:

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

    Public Sub Arc()

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

    <CommandMethod("NewArc")> _ 
    Public Sub NewArc()
        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)

            Using ZWArc As Arc = New Arc(New Point3d(1, 3, 0), 5, 1, 3)
                ZWArc.SetDatabaseDefaults()

                ZWBlktblrec.AppendEntity(ZWArc)
                ZWTrans.AddNewlyCreatedDBObject(ZWArc, True)

                ZWTrans.Commit()
            End Using

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

Testem 

Cumprimentos. 

segunda-feira, 23 de outubro de 2023

Manual VB.net para ZWCAD : Points

 Colocação de um "Point" na coordenada (2,3,10) e com o estilo que temos na imagem.


Segue o código:

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

Public Class Points

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

    <CommandMethod("NewPoint")> _ 
    Public Sub NewPoint()

        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 ZWPoint As New DBPoint
            ZWPoint.SetDatabaseDefaults()
            ZWPoint = New DBPoint(New Point3d(2, 3, 10))

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

            ZWCurDb.Pdsize = 5
            ZWCurDb.Pdmode = 66

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

Testem 

Cumprimentos. 

segunda-feira, 16 de outubro de 2023

Manual VB.net para ZWCAD : ERASE

 "Erase" de uma entidade.

A explicação desta operação está explicada no código para melhor perceção do funcionamento.

Temos então o código:

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

Public Class EraseObject

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

       < CommandMethod("NewErase")> _ 
    Public Sub NewErase()

        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)

            'Criação da Linha de código para ser posteriormente apagada com a ordem erase.
            Dim ZWLine As New Line
            ZWLine = New Line(New Point3d(1, 2, 0), New Point3d(6, 7, 0))
            ZWLine.SetDatabaseDefaults()
            ZWBlkTblRec.AppendEntity(ZWLine)
            ZWTrans.AddNewlyCreatedDBObject(ZWLine, True)

            'Linha de comando com a ordem erase para apagar a linha criada (ZWLine)
                       ZWLine.Erase() 'Erase

            ZWTrans.Commit()

        End Using

    End Sub


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

Vamos lá experimentar.
Cumprimentos.