Is there a way to expand all folders in feature tree.

Jeremiah,

Thanks for responding to my question. I finally found some api code and I must say SolidWorks has hidden it well, If you paste the code below into a VBA macro and run it should expand all of your top level folders or if you trust an executable you can try the attached exe and when you double click it should also open the folders. This does not work in 2011 it does work on 2013, I don't know about 2012.

Dan Miel

SW 2013

'Written Dan Miel 12-14-2012
'Expands all top level folders
Option Explicit
Sub main()
    Dim swApp As SldWorks.SldWorks
    Dim myModel As SldWorks.ModelDoc2
    Dim featureMgr As SldWorks.FeatureManager
    Dim rootNode As SldWorks.TreeControlItem
    Set swApp = Application.SldWorks
    Set myModel = swApp.ActiveDoc
    Set featureMgr = myModel.FeatureManager
    Set rootNode = featureMgr.GetFeatureTreeRootItem2(swFeatMgrPaneBottom)
        If Not rootNode Is Nothing Then
            traverse_node rootNode.GetFirstChild
        End If

End Sub

Private Sub traverse_node(subNode As SldWorks.TreeControlItem)
Do While Not subNode Is Nothing
    'Check if tree node is a feature
    If subNode.ObjectType = 1 Then
        Dim Feat As SldWorks.Feature
        Set Feat = subNode.Object
        'Check to see if feature type is a folder
        If Feat.GetTypeName2 = "FtrFolder" Then
           
            subNode.Expanded = True
            subNode.Expanded = False
            
        End If
    End If
   
Set subNode = subNode.GetNext
Loop

End Sub