用文檔對象的AddText方法可以創建單行文本對象，結合文本字體設置，可以顯示豐富多彩的文字，創建單行文本的語法如下所示。

RetVal=object.AddText(TextString,InsertionPoint,Height)

RetVal新創建的單行文本對象，Object模型空間、圖紙空間塊對象，TextString字符串型，要顯示的文本內容，InsertionPoint雙精度型，文本插入點坐標，Height文字高度。下面的代碼使用不同的字體，創建單行文字對象。

Private Sub Command1_Click()
    Dim styobj1 As AcadTextStyle
    Dim typeface As String
    Dim bold As Boolean
    Dim italic As Boolean
    Dim charset As Long
    Dim pitchandfamily As Long
    Set styobj1 = acadapp.ActiveDocument.TextStyles.Add("自定義文字樣式")
    typeface = "宋體"
    italic = True
    bold = True
    charset = 1
    pitchandfamily = 1 Or 16
    styobj1.SetFont typeface, bold, italic, charset, pitchandfamily
    Dim styobj2 As AcadTextStyle
    Set styobj2 = acadapp.ActiveDocument.TextStyles.Add("自定義")
    styobj2.fontFile = "C:windowsfontsvani.ttf"
    Dim textobj As AcadText
    Dim textstring As String
    Dim insertionpoint(0 To 2) As Double
    Dim height As Double
    textstring = "acad二次開發"
    height = 0.3
    insertionpoint(0) = 5#: insertionpoint(1) = 2#: insertionpoint(2) = 0
    acadapp.ActiveDocument.ActiveTextStyle = styobj1
    Set textobj = acadapp.ActiveDocument.ModelSpace.AddText(textstring, insertionpoint, height)
    textobj.Update
    insertionpoint(0) = 5: insertionpoint(1) = 1: insertionpoint(2) = 0
    acadapp.ActiveDocument.ActiveTextStyle = styobj2
    Set textobj = acadapp.ActiveDocument.ModelSpace.AddText(textstring, insertionpoint, height)
    textobj.Update
    styobj2.fontFile = "C:windowsfontsvani.ttf"
    insertionpoint(0) = 5: insertionpoint(1) = 0: insertionpoint(2) = 0
    acadapp.ActiveDocument.ActiveTextStyle = styobj2
    Set textobj = acadapp.ActiveDocument.ModelSpace.AddText(textstring, insertionpoint, height)
    textobj.Update
    ZoomExtents
End Sub