文字生成标志指定文字是否要反向或倒置显示。要设置文字生成标志，请使用 TextGenerationFlag 特性。要使文字反向显示，请为此特性输入 acTextFlagBackward。要使文字倒置显示，请为此特性输入 acTextFlagUpsideDown。要反向和倒置显示文字，请将两个常量相加，方法是为该特性输入 acTextFlagBackward+acTextFlagUpsidedown。
本例创建一个文字行，然后使用 TextGenerationFlag 特性将其设置为反向显示。
Sub Ch4_ChangingTextGenerationFlag()
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double
' 创建 Text 对象
textString = "Hello, World."
insertionPoint(0) = 3
insertionPoint(1) = 3
insertionPoint(2) = 0
height = 0.5
Set textObj = ThisDrawing.ModelSpace. _
AddText(textString, insertionPoint, height)
' 修改 TextGenerationFlag 的值
textObj.TextGenerationFlag = acTextFlagBackward
textObj.Update
End Sub