多行文本常用來顯示AutoCAD中的文字說明、注釋和技術性要求，多行文字的創(chuàng)建和應用和單行文字類似，用文檔對象的AddText方法可以創(chuàng)建多行文字對象，該方法需要三個參數(shù)：文字字符串、文本插入點和文本的寬度，語法格式如下。

RetVal=object.AddMText(Insertionpoint,Width,Text)

下面的代碼創(chuàng)建一個多行文本。

Private Sub Command1_Click()
    Dim mtextobj As AcadMText
    Dim mtextstring As String
    Dim insertionpoint(0 To 2) As Double
    Dim width As Double
    width = 45
    insertionpoint(0) = 50: insertionpoint(1) = 20: insertionpoint(2) = 0
    mtextstring = "  "
    mtextstring = mtextstring & "aaa"
    mtextstring = mtextstring & "bbb"
    mtextstring = mtextstring & "ccc"
    mtextstring = mtextstring & "ddd"
    mtextstring = mtextstring & "  "
    acadapp.ActiveDocument.ActiveTextStyle.fontFile = "C:windowsfontsvani.ttf"
    Set mtextobj = acadapp.ActiveDocument.ModelSpace.AddMText(insertionpoint, width, mtextstring)
End Sub