¿Cómo codificar texto horizontal o números en cad vba?
Add
Dim insPoint(0 To 2) As Double 'Declara el punto de inserción
Dim textHeight As Double 'Declara la altura del texto
Dim textStr As String ' Declarar el carácter String
Dim textObj As AcadText 'Declarar objeto de texto
insPoint(0) = 10 'Establecer X-Establecer la coordenada X del punto de inserción
insPoint(1) = 10 'Establece la coordenada Y del punto de inserción
insPoint(2) = 0 'Establece la coordenada Z del punto de inserción
textHeight = 10 'Establece la altura del texto a 10
textStr = "Hello World" 'Establecer cadena
'Crear objeto de texto
Establecer textObj = ThisDrawing.ModelSpace.AddText(textStr, insPoint, textHeight)
'Guardar dibujo
ThisDrawing.SaveAs ("Hello.dwg")
End Sub