Set Obliquing Angle

The obliquing angle determines the forward or backward slant of the text. The angle represents the offset from its vertical axis (90 degrees). To set the obliquing angle, use the ObliqueAngle property. The obliquing angle must be provided in radians. A positive angle denotes a lean to the right, a negative value will have 2*PI added to it to convert it to its positive equivalent.

Create oblique text

This example creates a Text object then slants the text 45 degrees.

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
End Sub