创建单行文字

AutoCAD ActiveX/VBA

previous page next page

使用单行文字

格式化单行文字

ActiveX/VBA 开发人员手册 > 创建和编辑 AutoCAD 图元 > 将文字添加到图形 > 使用单行文字 >

创建单行文字

使用单行文字时，每个单行文字都是一个不同的对象。要创建单行文字对象，请使用 AddText 方法。此方法需要输入三个值：文字字符串、插入点和文字高度。

字符串是要显示的实际文字，可以是 Unicode、控制代码和特殊字符。插入点是包含三个双精度数的变量数组，这三个数代表图形中放置文字处的三维 WCS 坐标。文字高度是代表大写文字高度的正数，高度是以当前单位测量的。

要创建单行文字的步骤

本例在模型空间中的 (2,2,0) 坐标处创建一行文字。

Sub Ch4_CreateText()

    Dim textObj As AcadText

    Dim textString As String

    Dim insertionPoint(0 To 2) As Double

    Dim height As Double

          ' 创建 Text 对象
          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

previous page start next page