Sub Example_Weights()
   'Этот пример создает объект 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 weightVector 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)
        
    'Добавьте веса к Сплайну
    splineObj.SetWeight 0, 1.5
    splineObj.SetWeight 1, 2
    splineObj.SetWeight 2, 4.5
    
    ThisDrawing.Application.ZoomAll
    
    'Покажите вектор веса нового Сплайна
    weightVector = splineObj.Weights
    MsgBox "Вектор веса нового Сплайна: " & vbCrLf & _
                                            weightVector(0) & vbCrLf & _
                                            weightVector(1) & vbCrLf & _
                                            weightVector(2)
End Sub