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