Open Assembly Document Example (VBA)

This example shows how to open an assembly document.

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

'

' Preconditions: Specified file to open exists.

'

'                NOTE: The specified file in this example is shipped as a

'                      sample file for a SolidWorks tutorial. After

'                      opening the file with this macro, close it without saving it so

'                      that it will continue to work with the tutorial.

'

' Postconditions: Specified file is opened.

'

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

Dim swSelMgr As SldWorks.SelectionMgr

Dim swDocSpecification As SldWorks.DocumentSpecification

Dim sComponents(0) As String ' List of components to select

Dim Components As Variant

Dim swComponent As SldWorks.Component2

Dim sName As String

Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set swDocSpecification = swApp.GetOpenDocSpec("C:\Program Files\SolidWorks\SolidWorks\samples\tutorial\advdrawings\bowl and chute.sldasm")

sComponents(0) = "food bowl-1@bowl and chute"

Components = sComponents

swDocSpecification.ComponentList = Components

swDocSpecification.Selective = True

sName = swDocSpecification.FileName

swDocSpecification.DocumentType = swDocASSEMBLY

swDocSpecification.DisplayState = "Default_Display State-1"

swDocSpecification.UseLightWeightDefault = False   ' Ignore the system default and use swDocSpecification::LightWeight value

swDocSpecification.LightWeight = True

swDocSpecification.Silent = True

swDocSpecification.IgnoreHiddenComponents = True

Set swModel = swApp.OpenDoc7(swDocSpecification)

longstatus = swDocSpecification.Error

longwarnings = swDocSpecification.Warning

End Sub