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

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