Group and Ungroup Components Example (VBA)

This example shows how to:

• group the same components in the same configuration in an assembly into a folder in the FeatureManager design tree.
• ungroup the grouped components.

'---------------------------------------------------------------------------------
' Preconditions:
' 1. Open public_documents\samples\tutorial\advdrawings\98food processor.sldasm.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. Groups the rubber feet components into rubber feet(Default)(5).
' 2. Examine the Immediate window and FeatureManager design tree.
' 3. Press F5.
' 4. Ungroups rubber feet(Default)(5).
' 5. Examine the Immediate window and FeatureManager design tree.
'
' NOTE: Because the assembly is used elsewhere, do not save changes.
'---------------------------------------------------------------------------------
Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swFeatureManager As SldWorks.FeatureManager
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swAssemblyDoc As SldWorks.AssemblyDoc
Dim status As Boolean

Sub main()

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc

    'Group rubber feet components into rubber feet(Default)(5)
    Set swFeatureManager = swModel.FeatureManager
    swFeatureManager.GroupComponentInstances = True
    Debug.Print "Component instances grouped? " & swFeatureManager.GroupComponentInstances   

    Stop
    'Press F5    

    'Ungroup rubber feet(Default)(5)
    Set swModelDocExt = swModel.Extension
    status = swModelDocExt.SelectByID2("rubber feet(Default)(5)", "FTRFOLDER", 0, 0, 0, False, 0, Nothing, 0)
    Set swAssemblyDoc = swModel
    status = swAssemblyDoc.UngroupComponents
    Debug.Print "Grouped components ungrouped? " & status

End Sub