Translate

domingo, 5 de fevereiro de 2012

VBA: Inserir texto no Autocad, GstarCad, ZwCad


Hoje mostro como podemos inserir texto, infelizmente continuo sem conseguir experimentar no ZwCad e no BricsCad.

Para Autocad :

Sub add_texto()

Dim Txt As AcadText

Dim ponto(0 To 2) As Double
Dim stringtxt As String
Dim alturatxt As Double

stringtxt = "Autocad"
ponto(0) = 5
ponto(1) = 3
ponto(2) = 0
alturatxt = 1

Set Txt = ThisDrawing.ModelSpace.AddText(stringtxt, ponto, alturatxt)

ZoomExtents

End Sub

Para GstarCad :

Sub add_texto()

Dim Txt As GcadText

Dim ponto(0 To 2) As Double
Dim stringtxt As String
Dim alturatxt As Double

stringtxt = "GSTARcad"
ponto(0) = 5
ponto(1) = 3
ponto(2) = 0
alturatxt = 1

Set Txt = thisDrawing.ModelSpace.AddText(stringtxt, ponto, alturatxt)

ZoomExtents

End Sub

Para ZwCad : 
(Infelizmente não tenho possibilidade de experimentar neste Cad fica a possível solução)

Sub add_texto()

Dim Txt As ZwcadText

Dim ponto(0 To 2) As Double
Dim stringtxt As String
Dim alturatxt As Double

stringtxt = "ZWcad"
ponto(0) = 5
ponto(1) = 3
ponto(2) = 0
alturatxt = 1

Set Txt = ThisDocument.ModelSpace.AddText(stringtxt, ponto, alturatxt)

ZoomExtents

End Sub


Para Bricscad :
(Infelizmente não tenho possibilidade de experimentar neste Cad fica a possível solução)

Sub add_texto()

Dim Txt As AcadText

Dim ponto(0 To 2) As Double
Dim stringtxt As String
Dim alturatxt As Double

stringtxt = "Autocad"
ponto(0) = 5
ponto(1) = 3
ponto(2) = 0
alturatxt = 1

Set Txt = ThisDrawing.ModelSpace.AddText(stringtxt, ponto, alturatxt)

ZoomExtents

End Sub

Obrigado a todos.

Boa programação

Sem comentários:

Enviar um comentário