Sub Example_CreateTypedArray()
    ' Этот пример создает сплайн из массиа variant, созданного из double,
    ' используя метод CreateTypedArray.
        
    Dim splineObj As AcadSpline
    
    ' Даже при том, что они - массивы, они объявлены как variant
    Dim startTan As Variant
    Dim endTan As Variant
    Dim fitPoints As Variant
    
    Dim utilObj As Object   
    Set utilObj = ThisDrawing.Utility
    
    ' Определите сплайн.
    utilObj.CreateTypedArray startTan, vbDouble, 0.5, 0.5, 0
    utilObj.CreateTypedArray endTan, vbDouble, 0.5, 0.5, 0
    utilObj.CreateTypedArray fitPoints, vbDouble, 0, 0, 0, 5, 5, 0, 10, 0, 0
    
    ' Создайте сплайн
    Set splineObj = ThisDrawing.ModelSpace.AddSpline(fitPoints, startTan, endTan)
    ZoomAll
    
End Sub