El texto nuevo adquiere de forma automática el estilo de texto activo. El estilo de texto por defecto es ESTANDAR. Puede ignorar el estilo de texto por defecto aplicando elementos de formato a caracteres individuales y aplicando propiedades al objeto Text. También se pueden indicar el formato o caracteres especiales con los métodos descritos en esta sección.
Las opciones de orientación como el estilo, la justificación, la anchura y la rotación afectan a todo el texto incluido en el contorno de un texto de líneas múltiples, y no sólo a unas palabras o caracteres determinados. Utilice la propiedad AttachmentPoint para cambiar la justificación del objeto MText y la propiedad Rotation para determinar el ángulo de rotación del contorno del texto.
La propiedad StyleName establece los tipos de letra y los aspectos de formato por defecto del nuevo texto. Conforme se crea texto, se puede seleccionar el estilo que desea utilizarse en la lista de estilos existentes. Cuando se cambia el estilo de un objeto Text de líneas múltiples con atributos de formato de caracteres asignados a cualquier parte del texto, el estilo se aplica a todo el objeto y es posible que no se conserve todo el formato de los caracteres. Por ejemplo, cambiar un estilo TrueType por un estilo que utiliza un tipo de letra SHX u otro tipo TrueType conlleva la sustitución del tipo de letra en todo el objeto de texto y la pérdida del formato particular que puedan tener asignado algunos caracteres.
Las opciones de formato como el subrayado, el texto apilado o el tipo de letra pueden aplicarse de forma individual a los caracteres o palabras que conforman un párrafo. También puede cambiar el color, el tipo de letra y la altura del texto. Puede modificar el espacio entre los caracteres de texto o aumentar la anchura de los caracteres.
Utilice llaves ({ }) para identificar el texto al que desee aplicar el cambio de formato. Las llaves pueden anidarse hasta alcanzar 8 niveles.
También se puede introducir el equivalente ASCII de códigos de control en las líneas o los párrafos para indicar caracteres de formato o especiales, como símbolos de tolerancia y de acotación.
Puede utilizar los caracteres de control siguientes para crear el texto de la ilustración. (Puede ver el equivalente ASCII de esta cadena en el ejemplo que sigue).
{{\H1.5x; Big text} \A2; over text\A1;/\A0; under text}
Para obtener más información acerca de dar formato a líneas múltiples, véase “Aplicación de formato a los caracteres de texto de líneas múltiples” en el Manual del usuario.
Utilización de caracteres de control para dar formato al texto
En este ejemplo se crea un objeto de líneas múltiples y se le asigna formato.
Sub Ch4_FormatMText()
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
' Define the ASCII characters for the control characters
Dim OB As Long ' Open Bracket {
Dim CB As Long ' Close Bracket }
Dim BS As Long ' Back Slash \
Dim FS As Long ' Forward Slash /
Dim SC As Long ' Semicolon ;
OB = Asc("{")
CB = Asc("}")
BS = Asc("\")
FS = Asc("/")
SC = Asc(";")
' Assign the text string the following line of control
' characters and text characters:
' {{\H1.5x; Big text}\A2; over text\A1;/\A0; under text}
textString = Chr(OB) + Chr(OB) + Chr(BS) + "H1.5x" _
+ Chr(SC) + "Big text" + Chr(CB) + Chr(BS) + "A2" _
+ Chr(SC) + "over text" + Chr(BS) + "A1" + Chr(SC) _
+ Chr(FS) + Chr(BS) + "A0" + Chr(SC) + "under text" _
+ Chr(CB)
' Create a text Object in model space
Set mtextObj = ThisDrawing.ModelSpace. _
AddMText(insertPoint, width, textString)
ZoomAll
End Sub