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

    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) = 0: point1(1) = 5: point1(2) = 0
    point2(0) = 5.12345678: 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
    
    'Циклически пройдите общие форматы единицы
    
    dimObj.UnitsFormat = acDimLScientific     ' Формат изменения к Научному
    ThisDrawing.Regen acAllViewports
    MsgBox "Единицы измерения теперь Научные"
    
    dimObj.UnitsFormat = acDimLDecimal        ' Формат изменения к Десятичному числу
    ThisDrawing.Regen acAllViewports
    MsgBox "Единицы измерения теперь Десятичное число"
    
    dimObj.UnitsFormat = acDimLArchitectural  ' Формат изменения к Архитектурному
    ThisDrawing.Regen acAllViewports
    MsgBox "Единицы измерения теперь Архитектурные"
    
    dimObj.UnitsFormat = acDimLWindowsDesktop ' Формат изменения к WindowsDesktop
    ThisDrawing.Regen acAllViewports
    MsgBox "Единицы измерения теперь WindowsDesktop"

End Sub