Sub ll()

  Dim SwModel As ModelDoc2, SwFeat As Feature

  Set SwModel = Application.SldWorks.ActiveDoc

  Set SwFeat = SwModel.FirstFeature

  Do While Not SwFeat Is Nothing

    Debug.Print SwFeat.Name, SwFeat.GetTypeName

'***************

How to  jedge select Feature 

Featur Suppressed

     or

Featire unSuppressed

''*****************

    Set SwFeat = SwFeat.GetNextFeature

  Loop

End Sub