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

    Dim dimObj As AcadDimAligned
    Dim point1(0 To 2) As Double, point2(0 To 2) As Double
    Dim location(0 To 2) As Double
    
    'Определите измерение
    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

    'Читайте и показывайте текущую высоту текста измерения
    MsgBox "Высота текста измерения для этого объекта в настоящее время: " & dimObj.textHeight

    'Увеличьте расстояние промежутка измерения
    dimObj.textHeight = 1
    ThisDrawing.Regen acAllViewports
    
    'Читайте и показывайте текущую высоту текста измерения
    MsgBox "Высота текста измерения для этого объекта теперь: " & dimObj.textHeight
    
End Sub