概要 - 1 行文字を作成する(VBA/ActiveX)

1 行文字を使用している場合、文字の個々の行は別個のオブジェクトです。

1 行文字オブジェクトを作成するには、AddText メソッドを使用します。このメソッドでは、 テキスト文字列、挿入点、文字の高さの 3 つの値が必要です。

テキスト文字列は、実際に表示する文字です。Unicode、制御コード、特殊文字を受け取ります。挿入点は、図面内で文字を配置する場所の 3D WCS 座標を表した 3 対の座標値の入った変数配列です文字の高さは、大文字の文字の高さを表す正の数です。高さは現在の単位で計測されます。

1 行文字を作成する

次の例は、モデル空間の座標(2, 2, 0)の地点に 1 行文字を作成します。

Sub Ch4_CreateText()
  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) = 2
  insertionPoint(1) = 2
  insertionPoint(2) = 0
  height = 0.5
  Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
  textObj.Update
End Sub