使用单行文字时，每个单行文字都是一个不同的对象。要创建单行文字对象，请使用 AddText 方法。此方法需要输入三个值：文字字符串、插入点和文字高度。
字符串是要显示的实际文字，可以是 Unicode、控制代码和特殊字符。插入点是包含三个双精度数的变量数组，这三个数代表图形中放置文字处的三维 WCS 坐标。文字高度是代表大写文字高度的正数，高度是以当前单位测量的。
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