Option Explicit

Dim swApp As Object
Dim Part As Object
Dim pointArray As Variant
Dim points() As Double

Sub main()
        Set swApp = Application.SldWorks
        Set Part = swApp.ActiveDoc
        
        Part.ClearSelection2 True
        
        With Part.SketchManager

                .Create3PointArc 9.63957183508436E-04, 5.62592072619751E-02, 0, 3.58469958757168E-04, 5.63228465336958E-02, 0, 6.61978757874054E-04, 5.62983071633673E-02, 0
                ReDim points(0 To 17) As Double
                points(0) = 3.58469958757168E-04
                points(1) = 5.63228465336958E-02
                points(2) = 0
                points(3) = 2.64892600427464E-04
                points(4) = 5.63580709538893E-02
                points(5) = 0
                points(6) = 1.83893473583847E-04
                points(7) = 5.64518565985445E-02
                points(8) = 0
                points(9) = 1.24482998019793E-04
                points(10) = 5.66020073525614E-02
                points(11) = 0
                points(12) = 9.53649174349324E-05
                points(13) = 5.68052421003048E-02
                points(14) = 0
                points(15) = 1.04819017198107E-04
                points(16) = 5.70572328560805E-02
                points(17) = 0
                pointArray = points
                .CreateSpline ((pointArray))
                
                ReDim points(0 To 17) As Double
                points(0) = 1.04819017198107E-04
                points(1) = 5.70572328560805E-02
                points(2) = 0
                points(3) = 1.02072474084398E-04
                points(4) = 0.057094296880194
                points(5) = 0
                points(6) = 9.3469655002055E-05
                points(7) = 5.71579431667381E-02
                points(8) = 0
                points(9) = 7.57212875108557E-05
                points(10) = 0.057247485682567
                points(11) = 0
                points(12) = 4.56069380533974E-05
                points(13) = 5.73619340838337E-02
                points(14) = 0
                points(15) = 5.45543428140394E-18
                points(16) = 0.0575
                points(17) = 0
                pointArray = points
                .CreateSpline ((pointArray))
                
                ReDim points(0 To 17) As Double
                points(0) = 5.45543428140394E-18
                points(1) = 0.0575
                points(2) = 0
                points(3) = -6.42104634431022E-05
                points(4) = 5.76603406215098E-02
                points(5) = 0
                points(6) = -1.49850973905935E-04
                points(7) = 0.057840915559893
                points(8) = 0
                points(9) = -2.59633646564204E-04
                points(10) = 5.80395896973244E-02
                points(11) = 0
                points(12) = -3.9608250687886E-04
                points(13) = 5.82539723811577E-02
                points(14) = 0
                points(15) = -5.6151243145765E-04
                points(16) = 5.84814328853867E-02
                points(17) = 0
                pointArray = points
                .CreateSpline ((pointArray))
                
                .Create3PointArc -5.6151243145765E-04, 5.84814328853867E-02, 0, -1.21414701414557E-03, 5.84128382266653E-02, 0, -8.88491937775048E-04, 5.84534361106303E-02, 0
                ReDim points(0 To 17) As Double
                points(0) = -1.21414701414557E-03
                points(1) = 5.84128382266653E-02
                points(2) = 0
                points(3) = -1.32867019993338E-03
                points(4) = 0.058155953464861
                points(5) = 0
                points(6) = -1.4175646589952E-03
                points(7) = 5.79178862437724E-02
                points(8) = 0
                points(9) = -1.48364164102291E-03
                points(10) = 5.77007285118212E-02
                points(11) = 0
                points(12) = -1.52986706009918E-03
                points(13) = 5.75062939057562E-02
                points(14) = 0
                points(15) = -1.55933768113319E-03
                points(16) = 5.73361070055035E-02
                points(17) = 0
                pointArray = points
                .CreateSpline ((pointArray))
                
                ReDim points(0 To 17) As Double
                points(0) = -1.55933768113319E-03
                points(1) = 5.73361070055035E-02
                points(2) = 0
                points(3) = -1.57524248009249E-03
                points(4) = 5.71915759452586E-02
                points(5) = 0
                points(6) = -1.58090359814322E-03
                points(7) = 5.70733673908383E-02
                points(8) = 0
                points(9) = -1.5796471853556E-03
                points(10) = 5.69820915007222E-02
                points(11) = 0
                points(12) = -1.57482920515089E-03
                points(13) = 5.69180474115822E-02
                points(14) = 0
                points(15) = -1.56980968578594E-03
                points(16) = 5.68812222868995E-02
                points(17) = 0
                pointArray = points
                .CreateSpline ((pointArray))
                
                ReDim points(0 To 17) As Double
                points(0) = -1.56980968578594E-03
                points(1) = 5.68812222868995E-02
                points(2) = 0
                points(3) = -1.50817035668171E-03
                points(4) = 5.66367037515972E-02
                points(5) = 0
                points(6) = -1.49439725730753E-03
                points(7) = 5.64318561813386E-02
                points(8) = 0
                points(9) = -1.52129137429375E-03
                points(10) = 5.62726344491218E-02
                points(11) = 0
                points(12) = -1.58102134392267E-03
                points(13) = 5.61640575804022E-02
                points(14) = 0
                points(15) = -1.66523024369536E-03
                points(16) = 0.05611014707151
                points(17) = 0
                pointArray = points
                .CreateSpline ((pointArray))
                
                Part.ClearSelection2 True
                
        End With

End Sub