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

    Dim DimPointAngularObj As AcadDim3PointAngular
    Dim AngleVertex(0 To 2) As Double
    Dim FirstPoint(0 To 2) As Double, SecondPoint(0 To 2) As Double
    Dim TextPoint(0 To 2) As Double
    Dim BlockName As String
   
    ' Определите новый объект Dim3PointAngular
    AngleVertex(0) = 0: AngleVertex(1) = 0: AngleVertex(2) = 0
    FirstPoint(0) = 2: FirstPoint(1) = 2: FirstPoint(2) = 0
    SecondPoint(0) = 1: SecondPoint(1) = 4: SecondPoint(2) = 0
    TextPoint(0) = 6: TextPoint(1) = 6: TextPoint(2) = 0

    ' Создайте новый объект Dim3PointAngular в пространстве модели
    Set DimPointAngularObj = ThisDrawing.ModelSpace.AddDim3PointAngular(AngleVertex, FirstPoint, SecondPoint, TextPoint)
    ZoomAll
    
    ' Тип стрелки - указателя набора к определяемому пользователем
    ' позволять использование блока как новая стрелка - указатель
    'dimObj.ArrowheadType = acArrowUserDefined
    DimPointAngularObj.Arrowhead1Block = "CBlock"
    DimPointAngularObj.Arrowhead2Block = "CBlock"
    ZoomAll
    
    ' Читайте и показывайте текущее имя блока стрелки - указателя
    BlockName = DimPointAngularObj.Arrowhead2Block
    
    MsgBox "Имя блока стрелки - указателя для этого объекта: " & BlockName
    
End Sub