Cuando se utiliza esta función de texto, cada línea de texto es un objeto independiente. Los objetos de texto en una línea se crean con el método AddText. Este método requiere tres valores de entrada: la cadena de texto, el punto de inserción, y la altura del texto.
La cadena de texto es el texto real que se desea mostrar. Se puede utilizar Unicode, código de control y caracteres especiales. El punto de inserción es una matriz de variantes con tres dobles que indican las coordenadas 3D del SCU del dibujo donde se incluirá el texto. La altura del texto es un número positivo que representa la altura de los caracteres en mayúscula. La altura se indica en la unidad de medida activa.
El código siguiente crea una línea de texto en espacio modelo, en las coordenadas (2, 2, 0).
Sub Ch4_CreateText()
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double
' Create the text object
textString = "Hello, World."
insertionPoint(0) = 2
insertionPoint(1) = 2
insertionPoint(2) = 0
height = 0,5
Set textObj = ThisDrawing.ModelSpace. _
AddText(textString, insertionPoint, height)
textObj.Update
End Sub