Get the feature after oringin feature?

Hi,

I guess getting first feature after Origin is bit tricky because it may vary based on your modelling. Other way you can get the required feature is to traverse feature tree with ModelDoc.FirstFeature

Logic should be like:

Feat = Modeldoc.FirstFeature

While Not Feat Is Nothing

     If Feat.GetTypeName = "OriginProfileFeature" then

          Feat=Feat.GetNextFeature

          Exit While

     End If

Feat = Feat.GetNextFeature

End While

Feat will be your required feature after origin

you can select the feature by name.

      public Feature GetFeature(ModelDoc2 model, string fieldName)

        {

            int featCount = model.GetFeatureCount();    // get a head count of features

            Feature feat = (Feature)model.FirstFeature();   // target the first feature

            // traverse through each feature in the feature tree in the model document

            for (int i = 1; i <= featCount; i++)

            {

                if (feat.Name == fieldName) // if the feature name is found, return a pointer to the feature

                    return feat;

                feat = feat.GetNextFeature();   // traverse through each feature in the feature tree

            }

            return null;    // feature not found

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swMod As SldWorks.ModelDoc2
Dim swAssy As SldWorks.AssemblyDoc
Dim vComponents As Variant
Dim vComponent As Variant
Dim swComp As SldWorks.Component2
Dim swFeat As SldWorks.Feature
Sub main()
   
    Set swApp = Application.SldWorks
   
    Set swMod = swApp.ActiveDoc
    Set swAssy = swMod
   
    vComponents = swAssy.GetComponents(True)
    For Each vComponent In vComponents
        Set swComp = vComponent
        Set swFeat = swComp.FeatureByName("Origin")
        Set swFeat = swFeat.GetNextFeature
        Debug.Print swFeat.Name
    Next
End Sub