概要 - 文字生成フラグを設定する(VBA/ActiveX)

文字生成フラグを使用すると、その文字の表示を前後逆にするか、上下逆にするかを指定できます。

文字生成フラグを設定するには、TextGenerationFlag プロパティを使用します。文字を前後逆に表示するには、このプロパティに acTextFlagBackward と入力します。文字の表示を上下逆にするには、このプロパティに acTextFlagUpsideDown と入力します。文字の前後と上下を逆に表示するには、このプロパティに 2 つの定数を acTextFlagBackward+acTextFlagUpsideDown というように一緒に入力します。

文字を前後逆に表示する

次の例は、1 行文字を作成し、次に 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