Traverse Subfeatures Example (VBA)

This example shows how to traverse the subfeatures of each feature in a part (assumed to be set elsewhere).

'------------------------------------------------------------------

' Get the first feature in part

Set Feature = Part.FirstFeature 

' While we have a valid feature

While Not Feature Is Nothing 

 ' Get the name of the feature

 featureName = Feature.Name 

 message = "Feature: " & featureName & Chr(10) & _

 " SubFeatures:"

 Set subFeat = Feature.GetFirstSubFeature

 ' While we have a valid sub-feature

 While Not subFeat Is Nothing

  ' Get the name of the sub-feature

  subFeatureName = subFeat.Name

  message = message & Chr(10) & " " & subFeatureName

  Set subFeat = subFeat.GetNextSubFeature

 ' Continue until the last sub-feature is done

 Wend

 ' Display the sub-features

 swApp.SendMsgToUser message

 ' Get the next feature

 Set Feature = Feature.GetNextFeature()

' Continue until the last feature is done

Wend