' ******************************************************************************
' swxJRNL.swj - journal recorded on 09/23/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:\600045.DORISS\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\PUP_3-Axis.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("PUP_3-Axis.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.0218455, 0
Part.ActiveView().RotateAboutCenter 0.509729, 0.0550434
Part.ActiveView().RotateAboutCenter 0.502447, 0.0314534
Part.ActiveView().RotateAboutCenter 0.240301, 0
Part.ActiveView().RotateAboutCenter 0.138355, -0.0157267
Part.ActiveView().RotateAboutCenter 0.116509, -0.0471801
Part.ActiveView().RotateAboutCenter 0.101946, -0.125813
Part.ActiveView().RotateAboutCenter 0.138355, -0.21231
Part.ActiveView().RotateAboutCenter 0.0364092, -0.0393167
Part.ActiveView().RotateAboutCenter 0.0218455, -0.0157267
Part.ActiveView().RotateAboutCenter 0.0509729, 0
Part.ActiveView().RotateAboutCenter 0.00728184, 0
Part.ActiveView().RotateAboutCenter 0, 0.0314534
Part.ActiveView().RotateAboutCenter -0.0364092, 0.220174
Part.ActiveView().RotateAboutCenter -0.00728184, 0
Part.ActiveView().RotateAboutCenter -0.0801002, -0.0393167
Part.ActiveView().RotateAboutCenter -0.0218455, -0.0157267
Part.ActiveView().RotateAboutCenter -0.0655365, -0.0864968
Part.ActiveView().RotateAboutCenter -0.043691, -0.0786334
Part.ActiveView().RotateAboutCenter -0.00728184, -0.00786334
Part.ActiveView().RotateAboutCenter 0, 0.00786334
Part.ActiveView().RotateAboutCenter 0.0218455, 0.0157267
Part.ActiveView().RotateAboutCenter 0.0946639, 0.0314534
Part.ActiveView().RotateAboutCenter 0.0509729, 0.0550434
Part.ActiveView().RotateAboutCenter 0, 0.00786334
Part.ActiveView().RotateAboutCenter 0, 0.00786334
Part.ActiveView().RotateAboutCenter -0.00728184, 0
Part.ActiveView().RotateAboutCenter -0.0364092, 0
Part.ActiveView().RotateAboutCenter -0.0509729, -0.02359
Part.ActiveView().RotateAboutCenter -0.0218455, -0.0314534
Part.ActiveView().RotateAboutCenter 0, -0.0157267
Part.ActiveView().RotateAboutCenter 0.0145637, 0
Part.ActiveView().RotateAboutCenter 0.152919, 0.02359
Part.ActiveView().RotateAboutCenter 0.0655365, 0.00786334
Part.ActiveView().RotateAboutCenter 0.043691, 0.02359
Part.ActiveView().RotateAboutCenter 0.043691, 0.0629067
Part.ActiveView().RotateAboutCenter -0.0145637, 0
Part.ActiveView().RotateAboutCenter -0.0582547, -0.0314534
Part.ActiveView().RotateAboutCenter -0.00728184, 0
Part.ActiveView().RotateAboutCenter -0.00728184, 0
Part.ActiveView().RotateAboutCenter -0.0728184, -0.0157267
Part.ActiveView().RotateAboutCenter -0.109228, 0
Part.ActiveView().RotateAboutCenter -0.043691, 0
Part.ActiveView().RotateAboutCenter -0.00728184, 0
Part.ActiveView().RotateAboutCenter 0, -0.00786334
Part.ActiveView().RotateAboutCenter 0, -0.0157267
Part.ActiveView().RotateAboutCenter 0.043691, -0.125813
Part.ActiveView().RotateAboutCenter 0.0364092, -0.0550434
Part.ActiveView().RotateAboutCenter 0.0582547, 0
Part.ActiveView().RotateAboutCenter 0.0364092, 0
Part.ActiveView().RotateAboutCenter 0, 0.02359
Part.ActiveView().RotateAboutCenter -0.0218455, 0.0864968
Part.ActiveView().RotateAboutCenter 0, 0.0157267
Part.ActiveView().RotateAboutCenter -0.00728184, 0
Part.ActiveView().RotateAboutCenter -0.131073, -0.0786334
Part.ActiveView().RotateAboutCenter -0.0145637, -0.00786334
Part.ActiveView().RotateAboutCenter 0.00728184, 0
Part.ActiveView().RotateAboutCenter 0.0218455, 0
Part.ViewDisplayHiddenremoved
Part.ViewDisplayShadedWithEdges
Part.ViewDisplayShaded
Part.ActiveView().RotateAboutCenter 0, 0.00786334
Part.ActiveView().RotateAboutCenter -0.0145637, 0.0157267
Part.ActiveView().RotateAboutCenter -0.00728184, 0.0157267
Part.ActiveView().RotateAboutCenter -0.00728184, 0.0943601
Part.ActiveView().RotateAboutCenter 0.0364092, 0.0550434
Part.ActiveView().RotateAboutCenter 0.00728184, 0
Part.ActiveView().RotateAboutCenter 0.0509729, -0.00786334
Part.ActiveView().RotateAboutCenter 0.0218455, 0
Part.ActiveView().RotateAboutCenter 0, -0.00786334
Part.ActiveView().RotateAboutCenter 0, -0.0157267
Part.ActiveView().RotateAboutCenter 0, -0.00786334
Part.ActiveView().RotateAboutCenter 0, -0.00786334
Part.ActiveView().RotateAboutCenter -0.00728184, 0
Part.ActiveView().RotateAboutCenter -0.101946, -0.0157267
Part.ActiveView().RotateAboutCenter -0.00728184, 0
Part.ActiveView().RotateAboutCenter 0, 0.00786334
Part.ActiveView().RotateAboutCenter 0.0218455, 0.0157267
Part.ActiveView().RotateAboutCenter 0.0364092, 0.02359
Part.ActiveView().RotateAboutCenter 0.0145637, 0
Part.ActiveView().RotateAboutCenter 0.00728184, 0
Part.ActiveView().RotateAboutCenter 0.00728184, 0
Part.ActiveView().RotateAboutCenter 0.0291273, 0
Part.ActiveView().RotateAboutCenter 0.0291273, 0
Part.ActiveView().RotateAboutCenter 0.00728184, 0
Part.ActiveView().RotateAboutCenter 0.0364092, 0.00786334
Part.ActiveView().RotateAboutCenter 0.00728184, 0
Part.ActiveView().RotateAboutCenter 0, -0.00786334
Part.ActiveView().RotateAboutCenter 0, -0.00786334
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub