How to create a macro to show/hide all solid bodies?

Hi Udit,

Open your part and hide some bodies as you want and run this code below. It will show you all hidden bodies.

To add this code to toolbar check SolidWorks API Video Tutorials » 7 Ways To Run A Macro Without the Run Button

Dim swApp As Object

Dim model As ModelDoc2

Dim part As PartDoc

Dim BodyArr As Variant

Dim swBody As Body2

Sub main()

Set swApp = Application.SldWorks

Set model = swApp.ActiveDoc

Set part = model

BodyArr = part.GetBodies2(-1, False)

Dim Cnt As Integer

For Cnt = 0 To UBound(BodyArr)

    Set swBody = BodyArr(Cnt)

    If Not swBody Is Nothing Then

        swBody.HideBody (False)

    End If

Next Cnt

End Sub

"tab" will hide bodies, shift + "tab" will show bodies, just like parts in assemblies.

No need to go digging in the tree for that one.