Hide Table of Contents

Activate Smart Feature in an Assembly Example (VBA)

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

'----------------------------------------------------------------------------
' Preconditions: Open public_documents\samples\tutorial\api\testSmartAssembly.sldasm.
'
' Postconditions:
' 1. Activates Smart Feature holecube-1 and creates two extruded cuts
'    for the selected reference entity.
' 2. Displays Smart Feature holecube-1 in the FeatureManager design tree.
' 3. Creates Smart-Feature1 in component testpart100.
' 4. Expand and examine testpart100 and holecube-1 in the FeatureManager
'    design tree.
'
' NOTE: Because the model is used elsewhere, do not save changes.
' ---------------------------------------------------------------------------

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

 

 



Provide feedback on this topic

SOLIDWORKS welcomes your feedback concerning the presentation, accuracy, and thoroughness of the documentation. Use the form below to send your comments and suggestions about this topic directly to our documentation team. The documentation team cannot answer technical support questions. Click here for information about technical support.

* Required

 
*Email:  
Subject:   Feedback on Help Topics
Page:   Activate Smart Feature in an Assembly Example (VBA)
*Comment:  
*   I acknowledge I have read and I hereby accept the privacy policy under which my Personal Data will be used by Dassault Systèmes

Print Topic

Select the scope of content to print:



x

We have detected you are using a browser version older than Internet Explorer 7. For optimized display, we suggest upgrading your browser to Internet Explorer 7 or newer.

 Never show this message again
x

Web Help Content Version: API Help (English only) 2018 SP05

To disable Web help from within SOLIDWORKS and use local help instead, click Help > Use SOLIDWORKS Web Help.

To report problems encountered with the Web help interface and search, contact your local support representative. To provide feedback on individual help topics, use the “Feedback on this topic” link on the individual topic page.