Hide Table of Contents

Get Whether Components Are Loaded Example (VBA)

This example gets whether the components in an assembly document are loaded.

'--------------------------------------------------------
' Preconditions:
' 1. Verify that the specified assembly document exists.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. Loads the Magnet-1 component.
' 2. Examine the Immediate window.
'
' NOTE: Because this assembly document is used elsewhere,
' do not save changes.
'-------------------------------------------------------

Option Explicit
 

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swDocSpecification As SldWorks.DocumentSpecification

Dim sComponents(0) As String

Dim Components As Variant

Dim swComponent As SldWorks.Component2

Dim sName As String

Dim swAssembly As SldWorks.AssemblyDoc

Dim longstatus As Long, longwarnings As Long

Dim i As Long

Dim swConfigMgr As SldWorks.ConfigurationManager

Dim swConfig As SldWorks.Configuration

 

Sub main()

 

Set swApp = Application.SldWorks

 

' Selectively open speaker.sldasm

' Load only the Magnet-1 component

Set swDocSpecification = swApp.GetOpenDocSpec("C:\Users\Public\Documents\SOLIDWORKS\SOLIDWORKS 2017\tutorial\pdmworks\speaker.sldasm")

sComponents(0) = "Magnet-1@speaker"

Components = sComponents

swDocSpecification.ComponentList = Components

swDocSpecification.Selective = True

sName = swDocSpecification.FileName

swDocSpecification.DocumentType = swDocASSEMBLY

swDocSpecification.DisplayState = "Default_Display State-1"

swDocSpecification.UseLightWeightDefault = True

swDocSpecification.LightWeight = True

swDocSpecification.Silent = True

swDocSpecification.IgnoreHiddenComponents = True

Set swModel = swApp.OpenDoc7(swDocSpecification)

longstatus = swDocSpecification.Error

longwarnings = swDocSpecification.Warning

 

' Get whether the components in the

' assembly document are loaded and suppressed; only

' Magnet-1 should be loaded and not suppressed

Set swAssembly = swModel

Set swConfigMgr = swModel.ConfigurationManager

Set swConfig = swConfigMgr.ActiveConfiguration

Components = swAssembly.GetComponents(True)

For i = 0 To UBound(Components)

    Set swComponent = Components(i)

    If (swComponent.IsLoaded) Then

        Debug.Print "Component: " & swComponent.Name & " is loaded."

    Else

        Debug.Print "Component: " & swComponent.Name & " is not loaded. "

    End If

 

    Debug.Print " Suppressed: " & swConfig.GetComponentSuppressionState(swComponent.Name)

    Debug.Print ""

 

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:   Get Whether Components Are Loaded 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) 2017 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.