Create Exploded Views of an Assembly Example (VB.NET)
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
'
---------------------------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System.Runtime.InteropServices
Imports
System
Imports
System.Diagnostics
Partial
Class
SolidWorksMacro
Dim
swModel As
ModelDoc2
Dim
swAssembly As
AssemblyDoc
Dim
vViewName As
Object
Dim
sViewName As
String
Dim
i As
Integer
Sub
main()
swModel = swApp.ActiveDoc
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
Public
swApp As
SldWorks
End
Class