' ******************************************************************************
' swxJRNL.swj - journal recorded on 05/16/07 by addie
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc6 ("X:\ESP\PCR Module (LLNL)\PCR_Module_V5.SLDASM", 2, 4, "", longstatus, longwarnings)
' MSGBOX
' X:\ESP\PCR Module (LLNL)\PCR_Module_V5.SLDASM has display data which is out of date.
' If you want to save the latest display data, you must either:
' Open and resave the file in SolidWorks 98 or later or
' Resave the file with tessellation data: Tools, Options, Document Properties, Image Quality, Save tessellation data with part document.

Set Part = swApp.ActivateDoc2 ("PCR_Module_V5.SLDASM", False, longstatus)
swApp.ExitApp
End Sub