Sub Example_CenterType()
    ' Этот пример создает диаметральное измерение в пространстве модели.
    ' Затем изменяет тип центра измерения.
    
    Dim dimObj As AcadDimDiametric
    Dim chordPoint(0 To 2) As Double
    Dim farChordPoint(0 To 2) As Double
    Dim leaderLength As Double
    
    ' Определите измерение
    chordPoint(0) = 5#: chordPoint(1) = 3#: chordPoint(2) = 0#
    farChordPoint(0) = 5#: farChordPoint(1) = 5#: farChordPoint(2) = 0#
    leaderLength = 1#
    
    ' Создайте диаметральное измерение в пространстве модели
    Set dimObj = ThisDrawing.ModelSpace.AddDimDiametric(chordPoint, farChordPoint, leaderLength)
    ZoomAll
    
    ' Установите центр
    dimObj.CenterType = acCenterNone
    dimObj.Update
    MsgBox "Тип центра измерения не установлен."
    
    ' Измените средний тип, чтобы выровнять по центру метку
    dimObj.CenterType = acCenterMark
    dimObj.Update
    MsgBox "Тип центра измерения установлен, чтобы выровнить метку по центру."
    
    ' Измените средний тип, чтобы выровнять по центру линию
    dimObj.CenterType = acCenterLine
    dimObj.Update
    MsgBox "Тип центра измерения установлен, чтобы выровнить по центру линию."
End Sub