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

    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 suffix 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

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