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

    ' Измените расстояние смещения добавочных линий от контрольных точек
    DimPointAngularObj.ExtensionLineOffset = 1.5
    ThisDrawing.Regen acAllViewports
    
    ' Читайте и показывайте текущее смещение добавочных линий от контрольных точек
    MsgBox "Добавочные линии теперь смещены " & DimPointAngularObj.ExtensionLineOffset & " единицы"
    
End Sub