Sub Example_TagString()
    'Этот пример создает определение признака пространства модели.
    'Затем делает запрос строки тэга для признака, изменяет строку тэга
    ' и показывает новую строку тэга.
    
    Dim attributeObj As AcadAttribute
    Dim height As Double
    Dim mode As Long
    Dim prompt As String
    Dim insertionPoint(0 To 2) As Double
    Dim tag As String
    Dim value As String
    
    'Определите определение признака
    height = 1#
    mode = acAttributeModeVerify
    prompt = "New Prompt"
    insertionPoint(0) = 5#: insertionPoint(1) = 5#: insertionPoint(2) = 0
    tag = "New Tag"
    value = "New Value"
    
    'Создайте объект определения признака в пространстве модели
    Set attributeObj = ThisDrawing.ModelSpace.AddAttribute(height, mode, prompt, insertionPoint, tag, value)
    ZoomAll
    
    'Найдите текущую строку тэга для признака
    tag = attributeObj.TagString
    MsgBox "Текущая строка тэга для признака " & tag, , "TagString Пример"
    
    'Измените строку тэга для признака
    attributeObj.TagString = "Updated Tag"
    attributeObj.Update
    tag = attributeObj.TagString
    MsgBox "Новая строка тэга для признака " & tag, , "TagString Пример"
    
End Sub