Sub Example_LinearScaleFactor()
   ' Этот пример создает выровненное измерение в пространстве модели и
   ' включает отображение допуска для нового измерения. LinearScaleFactor
   ' допуска читается и изменяется.
   '
   '* Наблюдают изменение в тексте измерения после модификации.

    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 CurrentScale As Integer
    
    'Определите измерение
    point1(0) = 1: point1(1) = 10: point1(2) = 0
    point2(0) = 10: point2(1) = 10: point2(2) = 0
    location(0) = 5: location(1) = 7: location(2) = 0
    
    'Создайте выровненный объект измерения в пространстве модели
    Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)
    
    'Включите отображение допуска
    dimObj.ToleranceDisplay = acTolSymmetrical
    ThisDrawing.Application.ZoomAll
    
    'Покажите текущий коэффициент масштаба
    MsgBox dimObj.LinearScaleFactor

    'Измените текущий коэффициент масштаба
    dimObj.LinearScaleFactor = 10#      ' Умножить на десять
    ThisDrawing.Regen acAllViewports

    'Покажите новый коэффициент масштаба
    MsgBox dimObj.LinearScaleFactor
End Sub