Create Exploded Views of an Assembly Example (VBA)
This example shows how to create multiple exploded views of an assembly.
'----------------------------------------------------------------------------
' Preconditions:
' 1. Open an assembly document.
' 2. Press F5.
' 3. Inspect the Immediate window.
' 4. Press F5.
' 5. All of the views are exploded. Inspect the graphics window.
' 6. Press F5.
' 7. All of the views are collapsed. Inspect the graphics window.
' 8. Press F5.
' 9. Inspect the exploded assembly in the graphics window.
' 10. Press F5.
' 11. Inspect the collapsed assembly in the graphics window.
'
' Postconditions: None
' ---------------------------------------------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swAssembly As SldWorks.AssemblyDoc
Dim vViewName As Variant
Dim sViewName As String
Dim i As Long
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swAssembly = swModel
' Create five exploded views
For i = 0 To 4
swAssembly.CreateExplodedView
Next i
vViewName =
swAssembly.GetExplodedViewNames
Debug.Print "Number of exploded views
created: " & swAssembly.GetExplodedViewCount
For i = 0 To
UBound(vViewName)
sViewName =
vViewName(i)
Debug.Print "
Exploded view name: " & sViewName
Next i
Stop
For i = 0 To UBound(vViewName)
sViewName =
vViewName(i)
Call
swAssembly.ShowExploded2(True, sViewName)
Next i
Stop
For i = 0 To UBound(vViewName)
sViewName =
vViewName(i)
Call
swAssembly.ShowExploded2(False, sViewName)
Next i
Stop
swAssembly.ViewExplodeAssembly
Stop
swAssembly.ViewCollapseAssembly
End Sub