' ******************************************************************************
' swxJRNL.swj - journal recorded on 04/09/04 by fejo
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc6 ("X:\364000 vantana\homer bulkhead lid\101023Homer bulk head for min k.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("101023Homer bulk head for min k - Sheet1")
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
Part.ActiveView().TranslateBy 0, 0.00128992
Part.ActiveView().TranslateBy 0, 0.000967438
Part.ActiveView().TranslateBy -0.000322479, 0.00290232
Part.ActiveView().TranslateBy -0.00128992, 0.00644959
Part.ActiveView().TranslateBy -0.00257984, 0.00806199
Part.ActiveView().TranslateBy -0.00644959, 0.0125767
Part.ActiveView().TranslateBy -0.000322479, 0.00612711
Part.ActiveView().TranslateBy 0.000322479, 0.00709455
Part.ActiveView().TranslateBy 0.000967438, 0.0093519
Part.ActiveView().TranslateBy 0.00128992, 0.00290232
Part.ActiveView().TranslateBy 0.000322479, 0.000322479
Part.ActiveView().TranslateBy 0.000322479, 0
Part.ActiveView().TranslateBy 0.00709455, 0.00580463
Part.ActiveView().TranslateBy 0.0145116, 0.00548215
Part.ActiveView().TranslateBy 0.031603, 0.00644959
Part.ActiveView().TranslateBy 0.0187038, 0.00451471
Part.ActiveView().TranslateBy 0.0254759, 0.00515967
Part.ActiveView().TranslateBy 0.00354727, 0.0016124
Part.ActiveView().TranslateBy 0, 0.00128992
Part.ActiveView().TranslateBy 0, -0.000322479
Part.ActiveView().TranslateBy -0.000644959, 0
Part.ActiveView().TranslateBy -0.0257984, -0.00225736
Part.ActiveView().TranslateBy -0.00290232, -0.000322479
Part.ActiveView().TranslateBy -0.00709455, -0.000967438
Part.ActiveView().TranslateBy -0.0280557, -0.0016124
Part.ActiveView().TranslateBy -0.000644959, 0
Part.ActiveView().TranslateBy -0.000322479, 0.000322479
Part.ActiveView().TranslateBy 0.000322479, 0
Part.ActiveView().TranslateBy 0.00128992, -0.000322479
Part.ActiveView().TranslateBy 0.00612711, -0.000967438
Part.ActiveView().TranslateBy 0.000644959, 0
Part.ActiveView().TranslateBy 0.00677207, 0.00128992
Part.ActiveView().TranslateBy 0.000967438, 0
Part.ActiveView().TranslateBy 0.00290232, -0.000322479
Part.ActiveView().TranslateBy -0.000322479, -0.00386975
Part.ActiveView().TranslateBy -0.000967438, -0.000644959
Part.ActiveView().TranslateBy -0.00386975, -0.00257984
Part.ActiveView().TranslateBy -0.00290232, 0.000967438
Part.ActiveView().TranslateBy 0, -0.000322479
Part.ActiveView().TranslateBy -0.000322479, 0
Part.ActiveView().TranslateBy -0.0435347, -0.0016124
Part.ActiveView().TranslateBy -0.00709455, -0.00128992
Part.ActiveView().TranslateBy -0.000967438, 0
Part.ActiveView().TranslateBy -0.000644959, -0.000644959
Part.ActiveView().TranslateBy -0.0290232, -0.00709455
Part.ActiveView().TranslateBy -0.00967438, -0.00257984
Part.ActiveView().TranslateBy -0.0125767, -0.00419223
Part.ActiveView().TranslateBy -0.0170914, -0.00419223
Part.ActiveView().TranslateBy -0.00193488, 0
Part.ActiveView().TranslateBy 0.000322479, 0
Part.ActiveView().TranslateBy 0.00257984, 0.000967438
Part.ActiveView().TranslateBy 0.0016124, 0.000322479
Part.ActiveView().TranslateBy 0.00515967, 0.00225736
Part.ActiveView().TranslateBy 0.0119317, 0.00580463
Part.ActiveView().TranslateBy 0.0180588, 0.00548215
Part.ActiveView().TranslateBy 0.00451471, 0.00128992
Part.ActiveView().TranslateBy 0.00257984, 0.000967438
Part.ActiveView().TranslateBy 0.0119317, 0.00322479
Part.ActiveView().TranslateBy 0.00354727, 0.000644959
Part.ActiveView().TranslateBy 0.00838447, 0.00128992
Part.ActiveView().TranslateBy 0.00806199, 0.000322479
Part.ActiveView().TranslateBy 0.00354727, -0.0016124
Part.ActiveView().TranslateBy 0.000322479, 0
Part.ActiveView().TranslateBy 0.00193488, -0.00386975
Part.ActiveView().TranslateBy 0, -0.000644959
Part.ActiveView().TranslateBy 0.000322479, -0.00193488
Part.ActiveView().TranslateBy 0, -0.000322479
Part.ActiveView().TranslateBy -0.000644959, -0.000322479
Part.ActiveView().TranslateBy -0.000644959, 0
Part.ActiveView().TranslateBy -0.0125767, -0.00386975
Part.ActiveView().TranslateBy -0.0132217, -0.00419223
Part.ActiveView().TranslateBy -0.016124, -0.00386975
Part.ActiveView().TranslateBy -0.00612711, -0.000967438
Part.ActiveView().TranslateBy -0.00128992, -0.000322479
Part.ActiveView().TranslateBy -0.0257984, -0.00580463
Part.ActiveView().TranslateBy 0.000644959, 0
Part.ActiveView().TranslateBy 0.000322479, 0
Part.ActiveView().TranslateBy 0.000322479, 0
Part.ActiveView().TranslateBy 0.000644959, 0.000322479
Part.ActiveView().TranslateBy 0.00193488, 0.000322479
Part.ActiveView().TranslateBy 0.000644959, 0
Part.ActiveView().TranslateBy 0.00257984, 0.000644959
Part.ActiveView().TranslateBy 0.00612711, 0.00354727
Part.ActiveView().TranslateBy 0.0299906, 0.00870695
Part.ActiveView().TranslateBy 0.0209612, 0.00290232
Part.ActiveView().TranslateBy 0.0257984, 0.00290232
Part.ActiveView().TranslateBy -0.000322479, -0.000322479
Part.ActiveView().TranslateBy -0.0312805, -0.00451471
Part.ActiveView().TranslateBy -0.03902, -0.00677207
Part.ActiveView().TranslateBy -0.0158015, -0.00322479
Part.ActiveView().TranslateBy 0.00193488, 0.00773951
Part.ActiveView().TranslateBy 0.000322479, 0
Part.ActiveView().TranslateBy 0.00870695, 0.0016124
Part.ActiveView().TranslateBy 0.00741703, 0.00128992
Part.ActiveView().TranslateBy 0.0119317, 0.00193488
Part.ActiveView().TranslateBy 0.00290232, 0.000644959
Part.ActiveView().TranslateBy 0.00999686, 0.000967438
Part.ActiveView().TranslateBy 0.000644959, 0
Part.ActiveView().TranslateBy 0.00483719, -0.000322479
Part.ActiveView().TranslateBy 0.0016124, 0
Part.ActiveView().TranslateBy 0.00999686, 0
Part.ActiveView().TranslateBy 0, -0.000322479
Part.ActiveView().TranslateBy -0.00128992, -0.00290232
Part.ActiveView().TranslateBy -0.0016124, -0.00322479
Part.ActiveView().TranslateBy -0.00612711, -0.00451471
Part.ActiveView().TranslateBy -0.00193488, -0.00128992
Part.ActiveView().TranslateBy -0.000644959, -0.000644959
Part.ActiveView().TranslateBy 0.000322479, 0
Part.ActiveView().TranslateBy 0.000322479, 0.000322479
Part.ActiveView().TranslateBy 0, -0.000322479
Part.ActiveView().TranslateBy 0, -0.000322479
Part.ActiveView().TranslateBy -0.00386975, -0.0164465
Part.ActiveView().TranslateBy -0.00322479, -0.00612711
Part.ActiveView().TranslateBy -0.000644959, -0.000644959
Part.ActiveView().TranslateBy -0.00419223, -0.00838447
Part.ActiveView().TranslateBy -0.00290232, -0.00483719
Part.ActiveView().TranslateBy -0.00386975, -0.00709455
Part.ActiveView().TranslateBy -0.00483719, -0.00677207
Part.ActiveView().TranslateBy -0.00483719, -0.00612711
Part.ActiveView().TranslateBy -0.000967438, -0.000644959
Part.ActiveView().TranslateBy -0.0016124, -0.00257984
Part.ActiveView().TranslateBy -0.000322479, -0.000322479
Part.ActiveView().TranslateBy -0.000322479, 0
Part.ActiveView().TranslateBy -0.000322479, 0.000322479
Part.ActiveView().TranslateBy 0, -0.000322479
Part.ActiveView().TranslateBy 0, 0.000322479
Part.ActiveView().TranslateBy 0, -0.000322479
Part.ActiveView().TranslateBy 0.000322479, 0
Part.ActiveView().TranslateBy 0.0112868, -0.00741703
Part.ActiveView().TranslateBy 0.031603, -0.0361177
Part.ActiveView().TranslateBy 0.0138666, -0.0496618
Part.ActiveView().TranslateBy 0.00999686, -0.00870695
Part.ActiveView().TranslateBy 0.00644959, -0.0128992
Part.ActiveView().TranslateBy 0.0016124, -0.00515967
Part.ActiveView().TranslateBy 0, -0.00128992
Part.ActiveView().TranslateBy -0.000322479, 0
Part.ActiveView().TranslateBy -0.000644959, 0.000322479
Part.ActiveView().TranslateBy 0.000644959, 0
Part.ActiveView().TranslateBy 0.000322479, -0.000322479
Part.ActiveView().TranslateBy 0.00257984, -0.000644959
Part.ActiveView().TranslateBy 0.0399875, -0.0109643
Part.ActiveView().TranslateBy 0.0196712, -0.00999686
Part.ActiveView().TranslateBy 0.00354727, -0.00644959
Part.ActiveView().TranslateBy 0, -0.00419223
Part.ActiveView().TranslateBy -0.000644959, -0.00128992
Part.ActiveView().TranslateBy -0.00128992, -0.000644959
Part.ActiveView().TranslateBy -0.00548215, 0
Part.ActiveView().TranslateBy -0.00806199, 0.00483719
Part.ActiveView().TranslateBy 0, 0.000322479
Part.ActiveView().TranslateBy 0.000644959, 0
Part.ActiveView().TranslateBy 0.000322479, 0
Part.ActiveView().TranslateBy 0.000322479, 0
Part.ActiveView().TranslateBy 0.000322479, 0
Part.ActiveView().TranslateBy 0, -0.000322479
Part.ActiveView().TranslateBy -0.000322479, 0
Part.ActiveView().TranslateBy -0.00322479, 0.000967438
Part.ActiveView().TranslateBy 0, 0.000322479
Part.ActiveView().TranslateBy -0.000322479, 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub