' ******************************************************************************
' swxJRNL.swj - journal recorded on 10/04/00 by mob
' ******************************************************************************

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc3 ("D:\Mark-2000\Geno-Delta\ESP-2000\ESP-2000 Assembly.SLDASM", 2, 0, 0, 0, 0, longstatus)
Set Part = swApp.ActivateDoc ("ESP-2000 Assembly.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewZoomtofit2
Part.SelectByID "ASSY-CONFIG", "CONFIGURATIONS", 0, 0, 0
Part.ClearSelection
' MSGBOX
' Some of the models referenced in this document have been modified.  They must be saved when the document is saved.
' 		Save the document and the referenced models now?

Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "ESP-2000 Assembly.SLDASM"
Set Part = swApp.OpenDoc3 ("D:\Mark-2000\Geno-Delta\MUSE Assembly\Big-Can Assembly.SLDASM", 2, 0, 0, 0, 0, longstatus)
Set Part = swApp.ActivateDoc ("Big-Can Assembly.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewZoomout
Part.ViewZoomout
' MSGBOX
' Some of the models referenced in this document have been modified.  They must be saved when the document is saved.
' 		Save the document and the referenced models now?

Part.Save2 FALSE
Part.FileFind
swApp.ExitApp
End Sub