Ajuste del ángulo de oblicuidad
Utilización de los estilos de texto
Uso del texto en una línea (Text)
El indicador de generación de texto determina si el texto se muestra reflejado hacia la izquierda o boca abajo. Para establecer el indicador de generación de texto, utilice la propiedad TextGenerationFlag. Introduzca acTextFlagBackward en la propiedad si desea que el texto se genere hacia la izquierda, o acTextFlagUpsideDown para que se refleje hacia abajo. Para que el texto se muestre reflejado hacia la izquierda y boca abajo, añada las dos constantes a la vez, especificando acTextFlagBackward+acTextFlagUpsidedown como valor de esta propiedad.
Presentación del texto reflejado hacia la izquierda
En este ejemplo se crea una línea de texto y, mediante la propiedad TextGenerationFlag, se establece que se muestre hacia la izquierda.
Sub Ch4_ChangingTextGenerationFlag()
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) = 3
insertionPoint(1) = 3
insertionPoint(2) = 0
height = 0,5
Set textObj = ThisDrawing.ModelSpace. _
AddText(textString, insertionPoint, height)
' Change the value of the TextGenerationFlag
textObj.TextGenerationFlag = acTextFlagBackward
textObj.Update
End Sub