Puede crear un objeto de texto de varias líneas (objeto textoM) con el método AddMText. Este método requiere tres valores de entrada: la cadena de texto, el punto de inserción del dibujo en el que colocar el texto, y la anchura del prisma de contorno.
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 anchura del texto es un número positivo que representa la anchura de la caja que contiene el texto. La anchura se mide en la unidad de medida actual.
Una vez creado el objeto Text de líneas múltiples, puede aplicarle la altura del texto, la justificación, el ángulo de rotación y el estilo o bien aplicar un formato a caracteres individuales.
Para obtener una lista de los métodos y las propiedades relacionados con el objeto MText, véase la entrada sobre MText de la ActiveX and VBA Reference.
Para crear texto de líneas múltiples
El código siguiente crea un objeto Mtext en las coordenadas (2, 2, 0) del espacio modelo.
Sub Ch4_CreateMText()
Dim mtextObj As AcadMText
Dim insertPoint(0 To 2) As Double
Dim width As Double
Dim textString As String
insertPoint(0) = 2
insertPoint(1) = 2
insertPoint(2) = 0
width = 4
textString = "This is a text string for the mtext object."
' Create a text Object in model space
Set mtextObj = ThisDrawing.ModelSpace. _
AddMText(insertPoint, width, textString)
ZoomAll
End Sub