Insert Folder in FeatureManager Design Tree Example (VBA)

This examples shows how to insert a new folder in the FeatureManager design tree above the selected folder. T

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

'

' Precondition: Select the folder above which you want to insert a new folder.

'

' Postconditions: A new folder is inserted in the FeatureManager design tree above the

'               selected folder. The selected folder is now a sub-folder

'               to the new folder, Folder1_NEW.

'

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

Option Explicit

Sub main()

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.ModelDoc2

    Dim swFeatMgr               As SldWorks.FeatureManager

    Dim swFeat                  As SldWorks.feature

    Dim bRet                    As Boolean

    Set swApp = CreateObject("SldWorks.Application")

    Set swModel = swApp.ActiveDoc

    Set swFeatMgr = swModel.FeatureManager

    Set swFeat = swFeatMgr.InsertFeatureTreeFolder2(swFeatureTreeFolder_Containing)

    ' Return NULL if unable to create the folder

    If Not swFeat Is Nothing Then

        swFeat.Name = swFeat.Name & "_NEW"

    End If

End Sub

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