Sub Example_ArrowHeadBlock()
    ' Этот пример создает радиальный объект измерения в пространстве
    ' модели и затем изменяет видимую форму стрелки - указателя, используя
    ' свойство ArrowHeadBlock.
    ' Используйте свойство ArrowHeadBlock, чтобы установить стрелку -
    ' указатель на существующий блок, содержащий Circle

    Dim dimObj As AcadDimRadial
    Dim center(0 To 2) As Double
    Dim chordPoint(0 To 2) As Double
    Dim leaderLen As Integer
    Dim BlockName As String
    
    ' Определите измерение
    center(0) = 0#: center(1) = 0#: center(2) = 0#
    chordPoint(0) = 5#: chordPoint(1) = 5#: chordPoint(2) = 0#
    leaderLen = 5
    
    ' Создайте радиальное измерение в пространстве модели
    Set dimObj = ThisDrawing.ModelSpace.AddDimRadial(center, chordPoint, leaderLen)
    ZoomAll
    
    ' Тип стрелки - указателя набора к определяемому пользователем
    ' позволяющий использование блока как новая стрелка - указатель
    'dimObj.ArrowheadType = acArrowUserDefined
    dimObj.ArrowheadBlock = "CBlock"
    ZoomAll
    
    ' Читайте и показывайте текущее имя блока стрелки - указателя
    BlockName = dimObj.ArrowheadBlock
    
    MsgBox "Имя блока стрелки - указателя для этого объекта: " & BlockName
    
End Sub