Sub Example_ArrowHeadSize()
    ' Этот пример создает объект Dim3PointAngular в пространстве модели и
    ' затем изменяет видимый размер его стрелок - указателей, используя
    ' свойство ArrowHeadSize
    
    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
    
    ' Определите новый объект 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)
    ThisDrawing.Application.ZoomAll

    ' Читайте и показывайте текущий размер стрелки - указателя
    MsgBox "Размер стрелки - указателя для этого объекта в настоящее время установлен в: " & DimPointAngularObj.ArrowheadSize

    ' Измените свойство размера стрелки - указателя для этого объекта
    DimPointAngularObj.ArrowheadSize = 0.5
    ThisDrawing.Regen acAllViewports
    
    ' Читайте и показывайте новую установку размера стрелки - указателя
    MsgBox "Размер стрелки - указателя для этого объекта теперь установлен в: " & DimPointAngularObj.ArrowheadSize
End Sub