Sub Example_Measurement()
    ' Этот пример создает выровненное измерение в пространстве модели и
    ' возвращает значение измерения; в случае линейного измерения, оно
    ' будет его длиной
    
    Dim dimObj As AcadDimAligned
    Dim point1(0 To 2) As Double, point2(0 To 2) As Double
    Dim location(0 To 2) As Double
    Dim CurrentValue As String
    
    'Определите измерение
    point1(0) = 5: point1(1) = 5: point1(2) = 0
    point2(0) = 9: 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.Measurement
End Sub