Loja dos Desenhadores

Como mudar rápidamente no PGP o comando INSERT

2025-04-03T18:06:00.002+01:00

O Autocad mudou o comando Insert, o que para muitos tornou o processo lento, temos que esperar que abra a palete com todos os blocos que temos inseridos no desenho aberto e tudo o resto, Recent, Favoritos, etc.

Para voltarmos a ter o Insert Classico a maneira mais rápida é usarmos o comando no Express Tools -> Tools -> Command Aliases

E trocarmos no Alias “I” o comando "INSERT" pelo comando "CLASSICINSERT".

Espero ter sido útil.

Manual VB.net para ZWCAD : Arc

2023-10-30T08:00:00.006+00:00

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.

Manual VB.net para ZWCAD : Points

2023-10-23T08:00:00.000+01:00

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.

Manual VB.net para ZWCAD : ERASE

2023-10-16T08:00:00.005+01:00

"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.

Manual VB.net para ZWCAD : NewDimension

2023-10-09T08:00:00.005+01:00

Criação de uma "Dimension"

Temos então o código:

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

Public Class Dimension
    <CommandMethod("NewDimension")> _  
    Public Sub NewDimension()

        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 ZWDimension As New AlignedDimension
            ZWDimension.SetDatabaseDefaults()
            ZWDimension.XLine1Point = New Point3d(0, 0, 0)
            ZWDimension.XLine2Point = New Point3d(5, 5, 0)
            ZWDimension.DimLinePoint = New Point3d(0, 10, 0)

            ZWBlkTblRec.AppendEntity(ZWDimension)
            ZWTrans.AddNewlyCreatedDBObject(ZWDimension, 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: NewDimension.

Vamos lá experimentar.

Cumprimentos.

Manual VB.net para ZWCAD : NEW TEXT

2023-10-02T08:00:00.004+01:00

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.

Manual VB.net para ZWCAD : NEW LAYER WITH LINETYPE

2023-09-25T08:00:00.007+01:00

Criação de de uma nova "Layer" agora com "Linetype"

Temos então o código:

Imports ZwSoft.ZwCAD.ApplicationServices
Imports ZwSoft.ZwCAD.DatabaseServices
Imports ZwSoft.ZwCAD.Runtime
Imports ZwSoft.ZwCAD.EditorInput
Imports ZwSoft.ZwCAD.Colors
Public Class LayerWithLine
    <CommandMethod("NewlayerWithLinetype")> _  
    Public Sub ZWNewlayerWithLinetype()

        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 ZWBlkTblRec As BlockTableRecord = ZWTrans.GetObject(ZWCurDb.CurrentSpaceId, OpenMode.ForWrite)
            Dim ZWLayerTable As LayerTable = ZWTrans.GetObject(ZWCurDb.LayerTableId, OpenMode.ForRead)
            Dim ZwLtTable As LinetypeTable = ZWTrans.GetObject(ZWCurDb.LinetypeTableId, OpenMode.ForRead)

            Dim ZWNewlayer As String = "ZWCad_1"
            Dim ZWZWNewlayer_1 As New LayerTableRecord

            If ZWLayerTable.Has(ZWNewlayer) = False Then
                ZWZWNewlayer_1.Name = ZWNewlayer
                ZWZWNewlayer_1.Color = Color.FromColorIndex(ColorMethod.ByAci, 1)
                ZWZWNewlayer_1.LineWeight = LineWeight.LineWeight009
                ZWLayerTable.UpgradeOpen()
                ZWLayerTable.Add(ZWZWNewlayer_1)
                ZWTrans.AddNewlyCreatedDBObject(ZWZWNewlayer_1, True)
            End If

            Dim LineName As String = "dashdot"
            If ZwLtTable.Has(LineName) = False Then
                ZWCurDb.LoadLineTypeFile(LineName, "Zwcad.lin")
            End If

            If ZwLtTable.Has("dashdot") = True Then
                ZWZWNewlayer_1.UpgradeOpen()
                ZWZWNewlayer_1.LinetypeObjectId = ZwLtTable("dashdot")
            End If

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

Vamos lá experimentar.

Cumprimentos.

CAD Summit 27 de Setembro 2023

2023-09-24T10:52:00.006+01:00

CAD SUMMIT

O CAD Summit reúne os melhores especialistas da indústria e oferece um dia repleto de conhecimento, formação e networking.

Vai-se realizar em Lisboa na Av. João Crisóstomo 30A, 1050-127 Lisboa, Portugal

Pode garantir o seu lugar em: ibercad.pt

Aproveitem

Abraço

ALLPLAN 2024

2023-09-21T15:15:00.002+01:00

Para quem não conhece o programa Allplan, fica aqui o convite. Podem assistir a uma pequena apresentação do mesmo.

No link mostra as novas funcionalidades do programa na versão 2024 e a possibilidade de se inscreverem para a uma apresentação virtual destas novas funcionalidades.

Apresentação Allplan 2024

Na minha opinião e como usuário do Allplan penso que está a tornar-se numa ferramenta poderosa.

Divirtam-se

Cumprimentos

Manual VB.net para ZWCAD : NEW LAYER

2023-09-18T08:00:00.006+01:00

Criação de uma nova "Layer"

Temos então o código:

Imports ZwSoft.ZwCAD.ApplicationServices
Imports ZwSoft.ZwCAD.DatabaseServices
Imports ZwSoft.ZwCAD.Runtime
Imports ZwSoft.ZwCAD.EditorInput
Imports ZwSoft.ZwCAD.Colors

Public Class LayersNew

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

        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 ZWBlkTblRec As BlockTableRecord = ZWTrans.GetObject(ZWCurDb.CurrentSpaceId, OpenMode.ForWrite)
            Dim ZWLayerTable As LayerTable = ZWTrans.GetObject(ZWCurDb.LayerTableId, OpenMode.ForRead)

            Dim ZWNewLayer As String = "ZWCad_1"

            If ZWLayerTable.Has(ZWNewLayer) = False Then
                Dim ZWZWNewLayer_1 As New LayerTableRecord
                ZWZWNewLayer_1.Name = ZWNewLayer
                ZWZWNewLayer_1.Color = Color.FromColorIndex(ColorMethod.ByAci, 1)
                ZWZWNewLayer_1.LineWeight = LineWeight.LineWeight009
                ZWLayerTable.UpgradeOpen()
                ZWLayerTable.Add(ZWZWNewLayer_1)
                ZWTrans.AddNewlyCreatedDBObject(ZWZWNewLayer_1, True)
            End If

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

Vamos lá experimentar.

Cumprimentos.

Manual VB.net para ZWCAD : HATCH

2023-09-07T07:00:00.009+01:00

Criação do Hatch "solid"

Temos então o código:

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

Public Class HatchRec
    <CommandMethod("NewHatch")> _ 
    Public Sub NewHatch()

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

        Dim Largura As Double = ZWEd.GetDouble(vbCr & "Qual a Largura do retangulo ?").Value
        Dim Altura As Double = ZWEd.GetDouble(vbCr & "Qual a Altura do retangulo ?").Value

        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 ZWPoly As New Polyline()
            ZWPoly.SetDatabaseDefaults()
            ZWPoly.AddVertexAt(0, New Point2d(0, 0), 0, 0, 0)
            ZWPoly.AddVertexAt(1, New Point2d(Largura, 0), 0, 0, 0)
            ZWPoly.AddVertexAt(2, New Point2d(Largura, Altura), 0, 0, 0)
            ZWPoly.AddVertexAt(3, New Point2d(0, Altura), 0, 0, 0)

            ZWPoly.Closed = True

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

            Dim dot As DrawOrderTable = CType(ZWTrans.GetObject(ZWBlkTblRec.DrawOrderTableId, OpenMode.ForWrite), DrawOrderTable)

            Dim ZWHatchSet As New Hatch()
            ZWHatchSet.SetDatabaseDefaults()
            ZWHatchSet.SetHatchPattern(HatchPatternType.PreDefined, "Solid")
            Dim ZWHatchRect As ObjectId = ZWBlkTblRec.AppendEntity(ZWHatchSet)
            ZWTrans.AddNewlyCreatedDBObject(ZWHatchSet, True)
            Dim idsZWHatchRect As New ObjectIdCollection()
            idsZWHatchRect.Add(ZWPoly.ObjectId)
            dot.MoveToBottom(idsZWHatchRect)
            ZWHatchSet.Associative = True
            ZWHatchSet.Layer = "0"
            ZWHatchSet.Color = Color.FromColorIndex(ColorMethod.ByAci, 253)
            ZWHatchSet.AppendLoop(HatchLoopTypes.Outermost, idsZWHatchRect)
            ZWHatchSet.EvaluateHatch(True)
            ZWBlkTblRec.DowngradeOpen()
            idsZWHatchRect.Add(ZWHatchRect)

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

Vamos lá experimentar.

Cumprimentos.

Manual VB.net para ZWCAD : CIRCLE

2023-07-19T20:00:00.001+01:00

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.

Manual VB.net para ZWCAD : RECTANGLE

2023-07-17T08:00:00.008+01:00

Criação de um Retangulo/Quadrado com uma Polilyne fechada, inserido no ponto 0,0,0

Com programação VB.net a linha de código que fecha a polilinha é a seguinte:

ZWPoly.Closed = True

Temos então as duas de linhas de código que nos pedem as variáveis, Largura e Altura:

Dim Largura As Double = ZWEd.GetDouble(vbCr & "Qual a Largura do retangulo ?").Value
Dim Altura As Double = ZWEd.GetDouble(vbCr & "Qual a Altura do retangulo ?").Value

Temos então o código para quem quiser experimentar

Public Class ZWRetanguloObject
  <CommandMethod("NewRetangulo")>
  
       Public Sub NewRetangulo()

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

        Dim Largura As Double = ZWEd.GetDouble(vbCr & "Qual a Largura do retangulo ?").Value
        Dim Altura As Double = ZWEd.GetDouble(vbCr & "Qual a Altura do retangulo ?").Value

        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 ZWPoly As Polyline = New Polyline()
            ZWPoly.SetDatabaseDefaults()
            ZWPoly.AddVertexAt(0, New Point2d(0, 0), 0, 0, 0)
            ZWPoly.AddVertexAt(1, New Point2d(Largura, 0), 0, 0, 0)
            ZWPoly.AddVertexAt(2, New Point2d(Largura, Altura), 0, 0, 0)
            ZWPoly.AddVertexAt(3, New Point2d(0, Altura), 0, 0, 0)

            ZWPoly.Closed = True

            ZWBlkTblRec.AppendEntity(ZWPoly)
            ZWTrans.AddNewlyCreatedDBObject(ZWPoly, 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: Newretangulo.

Testem

Cumprimentos.

Manual VB.net para ZWCAD : POLYLINE

2023-07-12T20:00:00.047+01:00

Criação de uma Polilinha, com coordenadas (0,0) , (1,0) , (3,5).

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 ZWPolylineObject
7:
8:  <CommandMethod("NewPolyline")>
9:  Public Sub NewPolyline()
10:
11:     Dim ZWDoc As Document = Application.DocumentManager.MdiActiveDocument
12:     Dim ZWCurDb As Database = ZWDoc.Database
13:
14:     Using ZWTrans As Transaction = ZWCurDb.TransactionManager.StartTransaction()
15:
16:         Dim ZWBlkTbl As BlockTable = ZWTrans.GetObject(ZWCurDb.BlockTableId, OpenMode.ForRead)
17:         Dim ZWBlkTblRec As BlockTableRecord = ZWTrans.GetObject(ZWBlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
18:
19:         Dim ZWPoly As Polyline = New Polyline()
20:         ZWPoly.SetDatabaseDefaults()
21:         ZWPoly.AddVertexAt(0, New Point2d(0, 0), 0, 0, 0)
22:         ZWPoly.AddVertexAt(1, New Point2d(1, 0), 0, 0, 0)
23:         ZWPoly.AddVertexAt(2, New Point2d(3, 5), 0, 0, 0)
24:
25:         ZWBlkTblRec.AppendEntity(ZWPoly)
26:         ZWTrans.AddNewlyCreatedDBObject(ZWPoly, True)
27:
28:         ZWTrans.Commit()
29:     End Using
30: End Sub
31:
32: 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: NewPolyline.

Testem

Cumprimentos.

Manual VB.net para ZWCAD : LINE

2023-07-10T08:36:00.001+01:00

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.

Increasing Autodesk Revit Productivity for BIM Projects

2021-07-05T10:59:00.005+01:00

Chegou o livro que lhe vai dar um conhecimento sólido do Revit para aumentar a produtividade e aplicar vários fluxos de trabalho no projeto.

Packtpub

O software Revit ajuda todos aqueles que usam a metodologia BIM a criar e a analisar o projeto e a construção. Com este livro tem a ajuda prática para implementar esta metodologia.

Com explicações passo a passo e exemplos práticos vai aumentar os conhecimentos e ajudar a crescer nesta nova metodologia.

Autores:

Décio Ferreira

Fábio Roberti

Livro do meu amigo Neyton Dalle Molle

2020-07-24T08:13:00.001+01:00

Para quem gosta de programação como eu é sempre uma boa noticia termos um livro que nos possa ajudar a aumentar a nossa capacidade.

O Neyton lançou um livro preparado para o Civil3D da Autodesk.

Aqui está a descrição do autor::

Introdução a programação em DotNet para o Autodesk Civil 3D e Autodesk AutoCAD.

Este é um trabalho de um engenheiro civil que se aventurou no mundo da programação, para criar ferramentas que optimizam seu tempo, permitindo-lhe dedicar-se ao que realmente interessa: A Engenharia.

Projectos de engenharia em geral, tem muitos processos repetitivos e que são suscetíveis à falhas.

Esses processos em geral podem ser descritos em um programa de computador que reduzirão drasticamente as chances de erro e trarão mais velocidade ao desenvolvimento. Note, este é um trabalho de um engenheiro civil, portanto, muitos conceitos de programação ficaram de fora, a fim de tornar o resultado mais prático e interessante aos profissionais da área.

Para os interessados em adquirir podem visitar a própria página do Neyton: https://tbn2net.com/livro.php?id=1

Parabéns pelo trabalho.

Bloco com Annotative Scale no Field

2019-09-19T10:40:00.003+01:00

Quantas vezes depararam-se com um bloco com Annotative Scale?

Se se esse bloco for o titulo da peça desenhada? Era interessante termos o field com a Annotative Scale automática, certo?

A resolução é simples.

Vamos ao comando: Field

Ficamos com o field automático sempre que alterarmos a escala do bloco.

Se na viewport não estiver correcto, basta fazer o comando: Regen na mesma.

Se repararem na impressão aparece o field actualizado mesmo que não se veja no desenho.

Bom trabalho.

Hello World - Revit API

2019-01-22T13:38:00.001+00:00

Explorando...

Criar estilos de linha de maneira rápida.

2018-10-18T14:37:00.000+01:00

Será que existe uma maneira de criar estilos de linha mais rápida?

Procuro chief officer para me levar para a sua equipa.

2018-09-19T12:58:00.001+01:00

Como gostaria de encontrar um chefe assim...

Cotas altimentticas em Curvas de Nivel 3D

2018-04-27T22:22:00.001+01:00

CT 197

2018-01-15T10:13:00.000+00:00

No sentido de acompanhar os desenvolvimentos no âmbito da digitalização da construção, Portugal tem desenvolvido esforços de disseminação e apoio à implementação do BIM. Aqui destaca-se a Comissão Técnica de normalização BIM, CT 197. A CT 197 é o mirror committee do CEN/TC442 e ISO/TC59, sendo a entidade responsável pelo desenvolvimento da normalização no âmbito dos sistemas de classificação, modelação da informação processos ao longo do ciclo de vida dos empreendimentos de construção.

A CT 197 é constituída pelos diversos representantes de todos os quadrantes da indústria da construção, pequenas e médias empresas, fornecedores, projectistas, construtores, gestores de edifícios e donos de obra.

Neste sentido, a CT 197 acabou de disponibilizar o guia de contratação que pretende ajudar as entidades contratantes a contratar serviços BIM. Este guia não representa um documento normativo, mas um documento de apoio à promoção de boas práticas e disseminação do BIM.

Escrito por Inês Rodrigues

Autocad - Variável Galleryview

2017-09-05T09:44:00.000+01:00

Como preferes ver quando trabalhas?

Se preferes o clássico, colocas 0 "zero". Se preferes o "novo" colocas 1 "um" na variável GALLERVIEW.

Link autodesk

Bom trabalho.

Ponte Internacional de Segura sobre o rio Erges - Betar Consultores, lda.

2016-09-14T08:21:00.000+01:00

Ponte Internacional de Segura sobre o rio Erges - Betar Consultores, lda.

Download PDF deste projecto

Fonte: www.betar.pt