Sub Example_CenterMarkSize()
    ' Этот пример создает диаметральное измерение в пространстве модели.
    ' Затем изменяет тип центра измерения, чтобы выровнять по центру метку,
    ' и корректирует размер средней метки.
    
    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 = acCenterMark
    dimObj.CenterMarkSize = 0.1
    dimObj.Update
    MsgBox "Средний размер метки: " & dimObj.CenterMarkSize
    
    dimObj.CenterMarkSize = dimObj.CenterMarkSize * 2
    dimObj.Update
    MsgBox "Средний размер метки: " & dimObj.CenterMarkSize
End Sub