ActiveX and VBA Developer's Guide > Create and Edit AutoCAD Entities > Add Text to Drawings > Work with Text Styles > 
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




	textObj.Update




End Sub