Sub Example_TextOverride()
    'Этот пример создает выровненное измерение и затем изменяет 
    'свойство TextOverride для того измерения.

    Dim dimObj As AcadDimAligned
    Dim point1(0 To 2) As Double
    Dim point2(0 To 2) As Double
    Dim location(0 To 2) As Double
    
    'Определите измерение
    point1(0) = 5#: point1(1) = 3#: point1(2) = 0#
    point2(0) = 10#: point2(1) = 3#: point2(2) = 0#
    location(0) = 7.5: location(1) = 5#: location(2) = 0#
    
    'Создайте выровненный объект измерения в пространстве модели
    Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)
    ZoomAll
    MsgBox "Начальная текстовая строка для измерения содержит только значение измерения.", vbInformation, "TextOverride Пример"
    
    'Измените текстовую строку для измерения
    dimObj.TextOverride = "Значение <>"
    dimObj.Update
    MsgBox "Текстовая строка для измерения была заменена. Однако, значение измерения все еще показано.", vbInformation, "TextOverride Пример"
    
    'Сбросьте текстовую строку для измерения
    dimObj.TextOverride = ""
    dimObj.Update
        
    MsgBox "Текстовая строка для измерения сброшена.", vbInformation, "TextOverride Пример"
End Sub