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
'--------------------------------------------