Activate Smart Feature in an Assembly Example (VBA)

This example shows how to activate a Smart Feature in an assembly.

'----------------------------------------------------------------------------
' Preconditions: Open:
'    install_dir\samples\tutorial\api\testSmartAssembly.sldasm.
'
' Postconditions:
' 1. Smart Feature holeCube-1 is activated and two extruded cuts are created
'    for the selected reference entity.
' 2. Smart Feature holeCube-1 appears in the FeatureManager design tree.
' 3. Smart-Feature1 is created in component testPart1-1.
' 4. A Features folder containing Cut-Extrude1 and Cut-Extrude2 appears in the
'    FeatureManager design tree under Smart Feature holeCube-1.
'
' NOTE: Because the model is used elsewhere,
' do not save changes when closing it.
' ---------------------------------------------------------------------------

Dim swApp As SldWorks.SldWorks
Dim feat As SldWorks.Feature
Dim comp As SldWorks.Component2
Dim comps As Variant
Dim selMgr As SelectionMgr
Dim features As Variant
Dim config As SldWorks.Configuration
Dim featuresSelected As Variant
Dim components As Variant
Dim componentsSelected As Variant
Dim references As Variant
Dim face As SldWorks.Face2
Dim swAss As SldWorks.AssemblyDoc
Dim doc As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim i As Long
Dim j As Long

Option Explicit

Sub main()

    Set swApp = Application.SldWorks
    Set swAss = swApp.ActiveDoc
   

    comps = swAss.GetComponents(True)
   

    Set doc = swAss
    Set selMgr = doc.SelectionManager
   

    For i = 0 To UBound(comps)
   

        Set comp = comps(i)
        If comp.IsSmartComponent Then
       

            If comp.GetSmartComponentData(features, featuresSelected, components, componentsSelected, references) Then
           

                If IsEmpty(featuresSelected) = False Then
                    For j = 0 To UBound(featuresSelected)
                        If featuresSelected(j) = False Then
                             featuresSelected(j) = True
                        End If
                     Next
                    

                End If
               

               
                If IsEmpty(componentsSelected) = False Then

                    For j = 0 To UBound(componentsSelected)
                        If featuresSelected(j) = False Then
                            componentsSelected(j - 1) = True
                        End If
                     Next
       

                End If
           

               boolstatus = swAss.Extension.SelectByID2("", "FACE", -0.1054255613309, -0.008376708432593, 0.03086069829328, False, 0, Nothing, 0)
               Set face = selMgr.GetSelectedObject(1)
               Set references(0) = face
             

               boolstatus = comp.SetSmartComponentData(featuresSelected, componentsSelected, references)
               

             End If
           

            Debug.Print comp.Name
       

        End If
   

    Next

End Sub