Sub Example_ToleranceDisplay()
   'Этот пример создает выровненное измерение в пространстве модели и 
   'включает отображение допуска для нового измерения

    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)
    
    ThisDrawing.Application.ZoomAll
    
    'Читайте и показывайте текущее отображение допуска для этого измерения
    CurrentDisplay = IIf(dimObj.ToleranceDisplay = acTolNone, "скрыто", "видимо")
    MsgBox "Отображение допуска " & CurrentDisplay
    
    'Переключите отображение допуска для этого измерения
    If dimObj.ToleranceDisplay = acTolNone Then
        dimObj.ToleranceDisplay = acTolSymmetrical
        CurrentDisplay = "Symmetrical"
    Else
        dimObj.ToleranceDisplay = acTolNone
        CurrentDisplay = "None"
    End If
    
    ThisDrawing.Regen acAllViewports
    
    'Покажите текущее отображение допуска для этого измерения
    MsgBox "Отображение допуска теперь: " & CurrentDisplay

End Sub