Solidworks VBA Macro - Unsuppress Component

Objective

In this article, we understand “how to” Unsuppress Component in Assembly document from VBA macro.

This is most updated method of Unsuppress Component in an assembly document.

Results We Can Get

Below image shows the result we get.

We Show Component in simple manners.

There are no extra steps required.

To get the correct result, please follow the steps correctly.

Macro Video

Below 🎬 video shows how to Unsuppress Component from SOLIDWORKS VBA Macros.

Above video is just for visualization and there is no explanation.

I have explained every line in this article.

It is advisable to watch video, since it helps you to better understand the process.

VBA Macro

Below is the VBA macro for Show Component.

Option Explicit

' Variable for Solidworks Application
Dim swApp As SldWorks.SldWorks

' Variable for Solidworks document
Dim swDoc As SldWorks.ModelDoc2

' Variable for Solidworks Assembly
Dim swAssembly As SldWorks.AssemblyDoc

' Variable for Solidworks Component
Dim swComponent As SldWorks.Component2

' Program to UnSuppress Selected Component
Sub main()
  
  ' Set Solidworks Application variable to current application
  Set swApp = Application.SldWorks
  
  ' Set Solidworks document variable to currently opened document
  Set swDoc = swApp.ActiveDoc
  
  ' Check if Solidworks document is opened or not
  If swDoc Is Nothing Then
    MsgBox "Solidworks document is not opened."
    Exit Sub
  End If
  
  ' Set Solidworks Assembly document
  Set swAssembly = swDoc
  
  ' Variable for List of elements
  Dim vArray As Variant
  
  ' Get Components list in opened assembly
  vArray = swAssembly.GetComponents(False)
  
  ' Variable for component
  Dim component As Variant
  
  ' Loop Components List
  For Each component In vArray
  
    ' Set Solidworks Component variable
    Set swComponent = component
    
    ' If current component is Suppress
    If swComponent.IsSuppressed Then

      ' Select the component
      swComponent.Select False
      
      ' UnSuppress selected component
      swDoc.EditUnsuppress2
      
    End If
    
  Next component
  
End Sub

Prerequisite

There are some prerequisites for this article.

• Knowledge of VBA programming language is ❗required.
• We use existing parts in Assembly document.
• Both components are fully constraint as shown in below image.
• We select the part which we want to Show.

We will apply checks in this article, so the code we write, should be error free mostly.

Steps To Follow

This VBA macro can be divided into following sections:

1. Create Global Variables
2. Initialize Global Variables
3. Unsuppress Component

Every section with each line is explained below.

I also give some links (see icon 🚀) so that you can go through them if there are anything I explained in previous articles.

Create Global Variables

In this section, we create global variables.

Option Explicit

• Purpose: Above line forces us to define every variable we are going to use.
• Reference: 🚀 SOLIDWORKS Macros - Open new Part document article.

' Variable for Solidworks application
Dim swApp As SldWorks.SldWorks

• Purpose: In above line, we create a variable for Solidworks application.
• Variable Name: swApp
• Type: SldWorks.SldWorks
• Reference: Please visit 🚀 online SOLIDWORKS API Help.

' Variable for Solidworks document
Dim swDoc As SldWorks.ModelDoc2

• Purpose: In above line, we create a variable for Solidworks document.
• Variable Name: swDoc
• Type: SldWorks.ModelDoc2
• Reference: Please visit 🚀 online SOLIDWORKS API Help.

' Variable for Solidworks Assembly
Dim swAssembly As SldWorks.AssemblyDoc

• Purpose: In above line, we create a variable for Solidworks Assembly.
• Variable Name: swAssembly
• Type: SldWorks.AssemblyDoc
• Reference: Please visit 🚀 online SOLIDWORKS API Help.

' Variable for Solidworks Component
Dim swComponent As SldWorks.Component2

• Purpose: In above line, we create a variable for Solidworks Component.
• Variable Name: swComponent
• Type: SldWorks.Component2.
• Reference: Please visit 🚀 online SOLIDWORKS API Help.

These all are our global variables.

They are SOLIDWORKS API Objects.

' Program to Unsuppress Selected Component
Sub main()

End Sub

• In above line, we create Program to Unsuppress Selected Component.
• This is a Sub procedure which has name of main.
• This procedure hold all the statements (instructions) we give to computer.
• Reference: Detailed information 🚀 VBA Sub and Function Procedures article of this website.

Initialize Global Variables

In this section, we initialize global variables.

' Set Solidworks Application variable to current application
Set swApp = Application.SldWorks

• In above line, we set value of swApp variable.
• This value is currently opened Solidworks application.

' Set Solidworks document variable to currently opened document
Set swDoc = swApp.ActiveDoc

• In above line, we set value of swDoc variable.
• This value is currently opened part document.

' Check if Solidworks document is opened or not
If swDoc Is Nothing Then
  MsgBox ("Solidworks document is not opened.")
  Exit Sub
End If

• In above code block, we check if we successfully set the value of swDoc variable.
• We use 🚀 IF statement for checking.
• Condition: swDoc Is Nothing
• When this condition is True,
  • We show and 🚀 message window to user.
  • Message: SOLIDWORKS document is not opened.
  • Then we stop our macro here.

' Set Solidworks Assembly document
Set swAssembly = swDoc

• In above line, we set value of swAssembly variable.
• This value is swDoc variable.

Unsuppress Component

In this section, we perform UnSuppress Component action.

' Variable for List of elements
Dim vArray As Variant

• Purpose: In above line, we create a variable for List of elements.
• Variable Name: vArray
• Type: Variant

' Get Components list in opened assembly
vArray = swAssembly.GetComponents(False)

• In above line, we set the value of vArray variable.
• We set value by GetComponents method of swAssembly variable.
• By passing False to GetComponents method, we get all components from Feature Tree.

' Variable for component
Dim component As Variant

• In above line, we create component variable for looping.
• Variable Name: component
• Type: Variant

' Loop Components List
For Each component In vArray
  
' Move to next component
Next component

• In above line, we create a For Each loop.
• In this loop, component variable loops every item in vArray.

' Set Solidworks Component variable
Set swComponent = component

• In above line, we set value of swComponent variable.
• This value is current value of array vArray.
• Current value is represented by component variable.

' If current component is Suppress
If swComponent.IsSuppressed Then
  
End If

• In above code block, we check if current component is Suppress.
• We use 🚀 IF statement for checking.
• Condition: swComponent.IsSuppressed

' Select the component
swComponent.Select False

• In above line, we select the component.
• We use Select method of swComponent variable.

' UnSuppress selected component
swDoc.EditUnsuppress2

• In above line, we Show selected component.
• We use EditUnsuppress2 method of swDoc variable.

• This method return nothing.

• Return Value : This EditUnsuppress2 method return True or False.

Now we run the macro and after running macro we show selected component as shown in below image.

This is it !!!

I hope my efforts will helpful to someone! 😊

If you found anything to add or update, please let me know on my e-mail 📧.

Hope this post helps you to Show Component with SOLIDWORKS VBA Macros.

For more such tutorials on SOLIDWORKS VBA Macro, do come to this website after sometime.

If you like the post then please share it with your friends also. 🙏🏻

Do let me know by you like this post or not!

Till then, Happy learning!!!