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

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