Sub Example_FieldCode()
    ' Этот пример создает текстовый объект в пространстве модели.
    ' Затем возвращает полевую строку кода для объекта.

    Dim textObj As IAcadText2
    Dim text As String
    Dim insertionPoint(0 To 2) As Double
    Dim height As Double

    ' Определите текстовый объект
    text = "%<\AcVar Date \f ""M/d/yyyy""%>%"
    insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0
    height = 0.5
    
    ' Создайте текстовый объект в пространстве модели
    Set textObj = ThisDrawing.ModelSpace.AddText(text, insertionPoint, height)
    ZoomAll
    
    ' Возвратите текущую текстовую строку для объекта
    text = textObj.FieldCode
    MsgBox "FieldCode для текстового объекта равняется: " & text, vbInformation, "FieldCode Пример"

End Sub