Sub Example_Knots()
   ' Этот пример создает объект Spline в пространстве модели и возвращает
   ' вектор узла для нового Spline

    Dim splineObj As AcadSpline
    Dim startTan(0 To 2) As Double, endTan(0 To 2) As Double
    Dim fitPoints(0 To 8) As Double
    Dim knotVector As Variant

    'Определите объект Spline
    startTan(0) = 0.5: startTan(1) = 0.5: startTan(2) = 0
    endTan(0) = 0.5: endTan(1) = 0.5: endTan(2) = 0
    fitPoints(0) = 0: fitPoints(1) = 0: fitPoints(2) = 0: fitPoints(3) = 5
    fitPoints(4) = 5: fitPoints(5) = 0: fitPoints(6) = 10: fitPoints(7) = 0: fitPoints(8) = 0
    
    'Создайте новый объект Spline
    Set splineObj = ThisDrawing.ModelSpace.AddSpline(fitPoints, startTan, endTan)
    ThisDrawing.Application.ZoomAll
    
    'Покажите вектор узла нового Spline
    knotVector = splineObj.Knots
    MsgBox "Вектор узла нового Spline: " & vbCrLf & _
                                            knotVector(0) & vbCrLf & _
                                            knotVector(1) & vbCrLf & _
                                            knotVector(2)
End Sub