' ******************************************************************************
' swxJRNL.swj - journal recorded on 01/31/00 by mob
' ******************************************************************************

Dim swApp As Object
Dim Part As Object
Dim Gtol As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc ("J:\Vault\MOORING\M2_Mooring cage-99\Elevator Cage Assembly.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("Elevator Cage Assembly - Sheet2")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.FileFind
' MSGBOX
' Document J:\Vault\MOORING\M2_Mooring cage-99\Elevator Cage Assembly.SLDDRW,  and/or some of its references, has been modified since last saved.  Save changes before copying?

Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Elevator Cage Assembly - Sheet1"
swApp.ExitApp
End Sub