' ******************************************************************************
' swxJRNL.swj - journal recorded on 09/10/99 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 ("G:\Vault\MOORING\EQ-PACK\Elevator cage\ELEV-CAGE-EP98.SLDASM", 2)
Set Part = swApp.ActivateDoc ("ELEV-CAGE-EP98")
swApp.ActiveDoc.ActiveView.FrameWidth = 718
swApp.ActiveDoc.ActiveView.FrameHeight = 454
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.OpenDoc ("G:\Vault\MOORING\EQ-PACK\Elevator cage\100257DWG.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("100257DWG - Sheet1")
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("ELEV-CAGE-EP98")
swApp.ExitApp
End Sub