Sub Example_ExtensionLineColor()
    ' Этот пример создает объект Dim3PointAngular в пространстве модели и
    ' изменяет цвет добавочной линии на красный используя свойство
    ' ExtensionLineColor
    
    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.ExtensionLineColor

    ' Измените цвет добавочной линии
    DimPointAngularObj.ExtensionLineColor = acRed
    ThisDrawing.Regen acAllViewports
    
    ' Читайте и показывайте текущий цвет добавочной линии
    MsgBox "Цвет добавочной линии для этого объекта теперь установлен в: " & DimPointAngularObj.ExtensionLineColor & " (Красный)"
    
End Sub