Get Components Hidden In Drawing View Example (VBA)

This example shows how to get the components hidden in the selected drawing view.

'----------------------------------------------

'

' Preconditions:

'        (1) Drawing is open.

'        (2) Drawing view is selected.

'

' Postconditions: If components have been hidden in the selected drawing view,

'            then those components are listed.

'

'----------------------------------------------

Option Explicit

Sub main()

    Dim swApp                       As SldWorks.SldWorks

    Dim swModel                     As SldWorks.ModelDoc2

    Dim swSelMgr                    As SldWorks.SelectionMgr

    Dim swDrView                    As SldWorks.View

    Dim vCompArr                    As Variant

    Dim vComp                       As Variant

    Dim swComp                      As SldWorks.Component2

    Dim bRet                        As Boolean

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swDrView = swSelMgr.GetSelectedObject5(1)

    Debug.Print "File = " & swModel.GetPathName

    Debug.Print "  " & swDrView.Name

    vCompArr = swDrView.GetHiddenComponents

    If IsEmpty(vCompArr) Then Exit Sub

    For Each vComp In vCompArr

        Set swComp = vComp

        Debug.Print "    " & swComp.Name2

    Next

End Sub

'------------------------------------------