VB编程操作AutoCAD多行文字

多行文本常用来显示AutoCAD中的文字说明、注释和技术性要求，多行文字的创建和应用和单行文字类似，用文档对象的AddText方法可以创建多行文字对象，该方法需要三个参数：文字字符串、文本插入点和文本的宽度，语法格式如下。

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

下面的代码创建一个多行文本。

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:\windows\fonts\vani.ttf"
    Set mtextobj = acadapp.ActiveDocument.ModelSpace.AddMText(insertionpoint, width, mtextstring)
End Sub