Sub Example_ArrowHead1Block()
    ' Этот пример создает выровненный объект измерения в пространстве модели и затем изменяет видимый вид (форму)
    ' стрелки - указателя, используя свойство 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.Arrowhead1Block
    
    MsgBox "Имя блока стрелки - указателя для этого объекта: " & BlockName
    
End Sub