' ******************************************************************************
' swxJRNL.swj - journal recorded on 09/01/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:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\MOOS 2 AND SHEPHERDS MEANDER BOTTOM MOUNTS\tree mount MOOS 2 BIN.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("tree mount MOOS 2 BIN.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0, 0.00921417
Part.ActiveView().RotateAboutCenter -0.0454467, 0.285639
Part.ActiveView().RotateAboutCenter -0.0378722, 0.0737133
Part.ActiveView().RotateAboutCenter -0.00757445, 0
Part.ActiveView().RotateAboutCenter -0.0378722, -0.0184283
Part.ActiveView().RotateAboutCenter -0.00757445, -0.00921417
Part.ActiveView().RotateAboutCenter 0.0151489, -0.0276425
Part.ActiveView().RotateAboutCenter 0.06817, -0.101356
Part.ActiveView().RotateAboutCenter 0.0151489, -0.055285
Part.ActiveView().RotateAboutCenter 0.0151489, -0.0368567
Part.ActiveView().RotateAboutCenter 0.0302978, -0.00921417
Part.ActiveView().RotateAboutCenter 0.00757445, 0
Part.ActiveView().RotateAboutCenter 0.0151489, 0
Part.ActiveView().RotateAboutCenter 0, -0.00921417
Part.ActiveView().RotateAboutCenter 0.00757445, -0.0644992
Part.ActiveView().RotateAboutCenter 0, 0.00921417
Part.ActiveView().RotateAboutCenter 0.00757445, 0
Part.ActiveView().TranslateBy 0.000320781, 0
Part.ActiveView().TranslateBy 0.000962342, -0.00128312
Part.ActiveView().TranslateBy 0, -0.000320781
Part.ActiveView().TranslateBy 0.00609483, -0.00641561
Part.ActiveView().TranslateBy 0.00128312, -0.0016039
Part.ActiveView().TranslateBy 0.0016039, -0.0016039
Part.ActiveView().TranslateBy 0.000962342, -0.0016039
Part.ActiveView().TranslateBy 0.000320781, -0.000962342
Part.ActiveView().TranslateBy 0.00128312, 0.00128312
Part.ActiveView().TranslateBy 0.000641561, 0.00128312
Part.ActiveView().TranslateBy 0.00352859, 0.00481171
Part.ActiveView().TranslateBy 0.00224546, 0.00288703
Part.ActiveView().TranslateBy 0.0214923, 0.0176429
Part.ActiveView().TranslateBy 0.00288703, 0.00320781
Part.ActiveView().TranslateBy -0.00577405, -0.00962342
Part.ActiveView().TranslateBy -0.00256625, -0.0179637
Part.ActiveView().TranslateBy -0.00192468, -0.0150767
Part.ActiveView().TranslateBy -0.00288703, -0.0109065
Part.ActiveView().TranslateBy -0.000962342, -0.00288703
Part.ActiveView().TranslateBy -0.000641561, -0.016039
Part.ActiveView().TranslateBy 0, -0.0016039
Part.ActiveView().TranslateBy -0.000320781, -0.00192468
Part.ActiveView().RotateAboutCenter -0.106042, 0.0184283
Part.ActiveView().RotateAboutCenter -0.128766, 0.00921417
Part.ActiveView().RotateAboutCenter -0.106042, 0
Part.ActiveView().RotateAboutCenter -0.0984678, 0
Part.ActiveView().RotateAboutCenter -0.0530211, 0.00921417
Part.ActiveView().RotateAboutCenter -0.00757445, 0
Part.ActiveView().RotateAboutCenter 0.121191, -0.0184283
Part.ActiveView().RotateAboutCenter 0.0227233, 0
Part.ActiveView().RotateAboutCenter 0.00757445, 0
Part.ActiveView().TranslateBy 0, 0.000320781
Part.ActiveView().TranslateBy -0.00224546, 0.00801952
Part.ActiveView().TranslateBy -0.000962342, 0.0125104
Part.ActiveView().TranslateBy 0.000641561, 0.0144351
Part.ActiveView().TranslateBy 0.000641561, 0.0153975
Part.ActiveView().TranslateBy -0.000320781, 0.00898186
Part.ActiveView().TranslateBy -0.000320781, 0.00352859
Part.ActiveView().TranslateBy -0.000641561, 0.00384937
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub