'DEVELOPED BY ANJANI OJHA-PELF INFOTECH,PUNE,INDIA

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swSelMgr As SldWorks.SelectionMgr

Dim vFeatArr As Variant

Dim swFeatMgr As SldWorks.FeatureManager

Dim swModelDocExt As SldWorks.ModelDocExtension

Dim swSpline As SldWorks.SketchSpline

Dim swFeat As SldWorks.Feature

Dim myRefPlane As SldWorks.RefPlane

Dim boolstatus As Boolean

Dim i As Long

Sub main()

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager
    
    Set swFeatMgr = swModel.FeatureManager

    Set swModelDocExt = swModel.Extension
    
    If Not swSelMgr.GetSelectedObjectType3(1, -1) = swSelSKETCHSEGS Then
        MsgBox "select spline"
        Exit Sub
    End If
    '"""""""""""""""""""""""""""""""""""
    'SPLINE NEEDS TO BE PRE_SELECTED
    '"""""""""""""""""""""""""""""""""""
    Dim Spline As Object
    Set Spline = swSelMgr.GetSelectedObject6(1, -1)
   
    vFeatArr = swFeatMgr.InsertReferencePoint(swRefPointAlongCurve, swRefPointAlongCurveEvenlyDistributed, 0#, 100)

    
End Sub