概要 - 傾斜角度を設定する(VBA/ActiveX)

傾斜角度は、文字を前方または後方に傾ける角度を指定します。

この角度は、垂直軸(90 度)からのオフセットを表します。傾斜角度を設定するには、ObliqueAngle プロパティを使用します。傾斜角度はラジアン単位で指定します。正の角度は右への傾きを示します。負の値は 2π を加えて等価な正の角度に変換します。

斜体文字を作成する

次の例は、Text オブジェクトを作成し、次に文字を 45 度傾斜させます。

Sub Ch4_ObliqueText()
  Dim textObj As AcadText
  Dim textString As String
  Dim insertionPoint(0 To 2) As Double
  Dim height As Double

  ' Define the text object
  textString = "Hello, World."
  insertionPoint(0) = 3
  insertionPoint(1) = 3
  insertionPoint(2) = 0
  height = 0.5

  ' Create the text object in model space
  Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)

  ' Change the value of the ObliqueAngle
  ' to 45 degrees (.707 radians)
  textObj.ObliqueAngle = 0.707
  textObj.Update
End Sub