Ajuste de altura del texto
Utilización de los estilos de texto
Establecimiento de indicadores de generación de texto
El ángulo de oblicuidad determina el grado de inclinación del texto. El ángulo representa el desfase desde el eje vertical (90 grados). Para establecer el ángulo de oblicuidad, utilice la propiedad ObliqueAngle. El ángulo se especifica en radianes. Un ángulo positivo denota una inclinación hacia la derecha y a los valores negativos se les suma 2*PI para convertirlos en su equivalente positivo.
Este ejemplo crea un objeto Text y le aplica un ángulo de oblicuidad de 45 grados.
Sub Ch4_ObliqueText()
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double
' Define the text object
textString = "Hello, World."
insertionPoint(0) = 3
insertionPoint(1) = 3
insertionPoint(2) = 0
height = 0,5
' Create the text object in model space
Set textObj = ThisDrawing.ModelSpace. _
AddText(textString, insertionPoint, height)
' Change the value of the ObliqueAngle
' to 45 degrees (.707 radians)
textObj.ObliqueAngle = 0.707
textObj.Update
End Sub