可以使用 AddMText 方法来创建多行文字对象（MText 对象）。此方法需要输入三个值：文字字符串、图形中用于放置文字的插入点和文字边框的宽度。
字符串是要显示的实际文字，可以是 Unicode、控制代码和特殊字符。插入点是包含三个双精度数的变量数组，这三个数代表图形中放置文字处的三维 WCS 坐标。文字宽度是代表文字边框宽度的正数，宽度是以当前单位测量的。
创建 MText 对象之后，用户可以将文字高度、对正、旋转角度和样式应用到 MText 对象，或将字符格式应用到选定字符。
有关应用于 MText 对象的方法和特性的列表，请参见《ActiveX and VBA Reference》中 MText 的相关条目。
以下代码在模型空间中的 (2,2,0) 坐标处创建 MText 对象。
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."
' 在模型空间中创建文字对象
Set mtextObj = ThisDrawing.ModelSpace. _
AddMText(insertPoint, width, textString)
ZoomAll
End Sub