Sub Example_TextPrefix()
   'Этот пример создает выровненное измерение в пространстве модели и 
   'использует TextPrefix, чтобы позволить пользователю изменять текстовый 
   'префикс для измерения

    Dim dimObj As AcadDimAligned
    Dim point1(0 To 2) As Double, point2(0 To 2) As Double
    Dim location(0 To 2) As Double
    Dim prefix As String
    
    'Определите измерение
    point1(0) = 0: point1(1) = 5: point1(2) = 0
    point2(0) = 5: point2(1) = 5: point2(2) = 0
    location(0) = 5: location(1) = 7: location(2) = 0
    
    'Создайте выровненный объект измерения в пространстве модели
    Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)
    
    ThisDrawing.Application.ZoomAll

    'Позвольте пользователю изменять текстовый префикс для измерения
    prefix = InputBox("Введите новый текстовый префикс для измерения", "Установка префикса измерения", "PREFIX:")
    dimObj.TextPrefix = prefix   ' Передайте изменения префиксу
    
    ThisDrawing.Regen acAllViewports
    
    'Читайте и показывайте префикс текста измерения
    prefix = dimObj.TextPrefix
    If prefix <> "" Then
        MsgBox "Префикс измерения был изменен на: " & prefix
    Else
        MsgBox "Префикс измерения был удален"
    End If
End Sub