CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 创建和编辑 AutoCAD 实体› 关于向绘图添加文本（VBA/ActiveX）› 关于使用文本样式（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于设置文本生成标志（VBA/ActiveX）

2023-1-5 00:27| 发布者: admin| 查看: 636| 评论: 0|来自: AutoCAD

摘要: 文本生成标志指定文本是向后显示还是倒置显示。

文本生成标志指定文本是向后显示还是倒置显示。

若要设置文本生成标志，请使用属性。若要向后显示文本，请输入此属性。若要上下颠倒显示文本，请输入此属性。若要向后和向下显示文本，请通过输入此属性将两个常量相加。TextGenerationFlagacTextFlagBackwardacTextFlagUpsideDownacTextFlagBackward+acTextFlagUpsidedown

向后显示文本

本示例创建一行文本，然后使用该属性将其设置为向后显示。TextGenerationFlag

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