Sub Example_ToleranceJustification()
   'Этот пример создает выровненное измерение в пространстве модели и устанавливает 
   'выравнивание допуска для измерения к нескольким общим значениям

    Dim dimObj As AcadDimAligned
    Dim newText As AcadTextStyle
    Dim point1(0 To 2) As Double, point2(0 To 2) As Double
    Dim location(0 To 2) As Double
    Dim CurrentDisplay As String
    
    'Определите измерение
    point1(0) = 5: point1(1) = 5: point1(2) = 0
    point2(0) = 5.5: point2(1) = 5: point2(2) = 0
    location(0) = 5: location(1) = 7: location(2) = 0
    
    'Создайте выровненный объект измерения в пространстве модели
    Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)
    
    'Включите отображение допуска и увеличьте высоту текста измерения, 
    'таким образом выравнивание допуска видимо
    dimObj.ToleranceDisplay = acTolSymmetrical
    dimObj.textHeight = 1
    dimObj.ToleranceHeightScale = 0.25
    
    ThisDrawing.Application.ZoomAll
    
    'Читайте и показывайте текущее выравнивание допуска для этого измерения
    Select Case dimObj.ToleranceJustification
        Case acTolBottom: CurrentDisplay = "Вниз"
        Case acTolTop: CurrentDisplay = "Вверх"
        Case acTolMiddle: CurrentDisplay = "Середина"
    End Select
    
    MsgBox "Выравнивание текущее допуска: " & CurrentDisplay
    
    'Установите выравнивание допуска для этого измерения
    dimObj.ToleranceJustification = acTolBottom
    
    ThisDrawing.Regen acAllViewports
    
    'Покажите текущее выравнивание допуска для этого измерения
    MsgBox "Отображение допуска теперь собирается: Вниз"

End Sub