文字在圖紙中顯示信息，AutoCAD提供了多種輸入文本的方法，輸入文本既可以采用當前默認的文字樣式，也可以自己設置文本樣式，TextStyle為文本樣式對象，文本樣式用來控制文字的字體、字寬、字高、排列方式和傾斜角度，系統默認樣式為STANDARD樣式。

可以用Add方法創建自己的文本樣式對象，下面的語句創建一個名為Styobj的文本樣式對象。

Dim styobj1 As AcadTextStyle
set styobj1=acadapp.ActiveDocument.TextStyles.Add("自定義文字樣式")

可以預先創建多個文本樣式對象，然后再書寫文本前選擇其中一個文本樣式對象為當前文本樣式對象，用文檔對象的ActiveTextStyle屬性設置為當前文本樣式。

AcadApp.ActiveDocument.ActiveTextStyle=Styobj1

采用文字樣式對象的SetFont方法或fontFile屬性設置文本字體，文本樣式對象的SetFont方法根據字體名設置字體，用文本樣式對象的GetFont方法獲得當前字體設置的默認值，作為SetFont方法設置字體的輸入值，用文本樣式對象的FontFile屬性設置字體，只需將文字文件名賦值給FontFile屬性即可，下面的代碼將當前文字樣式字體設置為宋體并顯示一行漢字。

Private Sub Command1_Click()
    acadapp.ActiveDocument.ActiveTextStyle.fontFile = "C:windowsfontsvani.ttf"
    Dim textobj As AcadText
    Dim textstring As String
    Dim insertionpoint(0 To 2) As Double
    Dim height As Double
    textstring = "AutoCAD二次開發"
    height = 0.3
    insertionpoint(0) = 5: insertionpoint(1) = 2: insertionpoint(2) = 0
    Set textobj = acadapp.ActiveDocument.ModelSpace.AddText(textstring, insertionpoint, height)
End Sub