' ******************************************************************************
' swxJRNL.swj - journal recorded on 04/02/01 by grma
' ******************************************************************************

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.OpenDoc4 ("D:\Projects\altex\drawings\vehicle\lrs_auv.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.OpenDoc4 ("D:\Projects\altex\drawings\vehicle\dorado2000.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.OpenDoc4 ("\Projects\altex\leo\Leo\Shell\Shell_Bottom.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Shell_Bottom.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 2
swApp.LoadFile2 "\Projects\altex\leo\Leo\Shell\Backup of Part5.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("\Projects\altex\leo\Leo\Shell\Backup of Part5.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Backup of Part5.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 2
Set Part = swApp.ActivateDoc ("dorado2000.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.FileFind
' MSGBOX
' Unable to locate the file E:\SONAR.SLDPRT.  Would you like to find it yourself?

' MSGBOX
' Document D:\Projects\altex\drawings\vehicle\dorado2000.SLDASM,  and/or some of its references, has been modified since last saved.  Save changes before copying?

' MSGBOX
' Preserve directory structure?

' MSGBOX
' Document D:\Projects\altex\drawings\vehicle\dorado2000.SLDASM,  and/or some of its references, has been modified since last saved.  Save changes before copying?

' MSGBOX
' Preserve directory structure?

' MSGBOX
' Document D:\Projects\altex\drawings\vehicle\dorado2000.SLDASM,  and/or some of its references, has been modified since last saved.  Save changes before copying?

' 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
' MSGBOX
' Preserve directory structure?

swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Backup of Part5.SLDPRT")
swApp.ExitApp
End Sub