概要 - マルチ テキストを作成する(VBA/ActiveX)

マルチ テキスト オブジェクト(MText オブジェクト)を作成するには、AddMText メソッドを使用します。

AddMText メソッドでは、 テキスト文字列、図面内に文字を配置する挿入点、文字境界ボックスの幅の 3 つの値を入力する必要があります。

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

MText オブジェクトを作成すると、文字の高さ、位置合わせ、回転角度、およびスタイルを Mtext オブジェクトに適用したり、選択した文字に文字書式を適用できます。

マルチ テキストを作成するには

次のコードは、MText オブジェクトをモデル空間の座標(2, 2, 0)の位置に作成します。

Sub Ch4_CreateMText()
  Dim mtextObj As AcadMText
  Dim insertPoint(0 To 2) As Double
  Dim width As Double
  Dim textString As String

  insertPoint(0) = 2
  insertPoint(1) = 2
  insertPoint(2) = 0
  width = 4
  textString = "This is a text string for the mtext object."

  ' Create a text Object in model space
  Set mtextObj = ThisDrawing.ModelSpace.AddMText(insertPoint, width, textString)
  ZoomAll
End Sub