' ******************************************************************************
' swxJRNL.swj - journal recorded on 03/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 ("C:\Documents and Settings\fejo\Desktop\36600 ZEHPYR\zephyr hydophone pole\hydro assembly.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("hydro assembly")
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.00430189
Part.ActiveView().RotateAboutCenter -0.0369957, 0.00860378
Part.ActiveView().RotateAboutCenter -0.0647424, 0.0473208
Part.ActiveView().RotateAboutCenter -0.0431616, 0.0344151
Part.ActiveView().RotateAboutCenter -0.0400786, 0.0559246
Part.ActiveView().RotateAboutCenter -0.0277468, 0.0688303
Part.ActiveView().RotateAboutCenter -0.0154149, 0.0645284
Part.ActiveView().RotateAboutCenter -0.0308297, 0.038717
Part.ActiveView().RotateAboutCenter -0.0524105, 0.0645284
Part.ActiveView().RotateAboutCenter -0.0585765, 0.0645284
Part.ActiveView().RotateAboutCenter -0.0400786, 0.0301132
Part.ActiveView().RotateAboutCenter -0.0462446, 0.0516227
Part.ActiveView().RotateAboutCenter -0.0246638, 0.0473208
Part.ActiveView().RotateAboutCenter -0.00616595, 0.0129057
Part.ActiveView().RotateAboutCenter -0.0123319, 0.0215095
Part.ActiveView().RotateAboutCenter -0.0123319, 0.0258113
Part.ActiveView().RotateAboutCenter -0.00308297, 0
Part.ActiveView().TranslateBy 0.000208197, -0.000208197
Part.ActiveView().TranslateBy 0.000416393, -0.00124918
Part.ActiveView().TranslateBy 0, -0.000416393
Part.ActiveView().TranslateBy -0.000208197, -0.00062459
Part.ActiveView().TranslateBy -0.00374754, -0.00978525
Part.ActiveView().TranslateBy -0.0170721, -0.0216525
Part.ActiveView().TranslateBy -0.0062459, -0.0110344
Part.ActiveView().TranslateBy -0.00187377, -0.00270656
Part.ActiveView().TranslateBy -0.00208197, -0.00395574
Part.ActiveView().TranslateBy -0.000832787, -0.00104098
Part.ActiveView().RotateAboutCenter -0.00924892, -0.0129057
Part.ActiveView().RotateAboutCenter -0.0339127, -0.146264
Part.ActiveView().RotateAboutCenter 0.0678254, -0.326944
Part.ActiveView().RotateAboutCenter 0.19731, -0.184981
Part.ActiveView().RotateAboutCenter 0.169564, 0
Part.ActiveView().RotateAboutCenter 0.339127, 0.00430189
Part.ActiveView().RotateAboutCenter 0.0894062, -0.0688303
Part.ActiveView().RotateAboutCenter 0.00616595, -0.00860378
Part.ActiveView().RotateAboutCenter 0.0154149, -0.0129057
Part.ActiveView().RotateAboutCenter 0.0369957, -0.0258113
Part.ActiveView().RotateAboutCenter 0.0955722, -0.202189
Part.ActiveView().RotateAboutCenter 0.0431616, -0.550642
Part.ActiveView().RotateAboutCenter 0.0739913, -0.378566
Part.ActiveView().RotateAboutCenter 0.265136, -0.31834
Part.ActiveView().RotateAboutCenter 0.0739913, -0.309736
Part.ActiveView().RotateAboutCenter 0, -0.180679
Part.ActiveView().RotateAboutCenter 0, -0.00860378
Part.ActiveView().RotateAboutCenter 0, 0.00430189
Part.ActiveView().RotateAboutCenter 0, 0.0172076
Part.ActiveView().RotateAboutCenter -0.00924892, 0.193585
Part.ActiveView().RotateAboutCenter 0, 0.00430189
Part.ActiveView().RotateAboutCenter 0.00924892, 0.0215095
Part.ActiveView().RotateAboutCenter 0, 0.00860378
Part.ActiveView().RotateAboutCenter 0, -0.0172076
Part.ActiveView().RotateAboutCenter 0, -0.0172076
Part.ActiveView().RotateAboutCenter 0, -0.0215095
Part.ActiveView().RotateAboutCenter -0.00616595, -0.0129057
Part.ActiveView().RotateAboutCenter 0.00924892, 0.00430189
Part.ActiveView().RotateAboutCenter 0.0431616, 0.0172076
Part.ActiveView().RotateAboutCenter 0.0369957, 0.00430189
Part.ActiveView().RotateAboutCenter 0.0770743, 0.00430189
Part.ActiveView().RotateAboutCenter -0.00308297, -0.0129057
Part.ActiveView().RotateAboutCenter -0.00308297, 0
Part.ActiveView().RotateAboutCenter 0, -0.00430189
Part.ActiveView().RotateAboutCenter -0.00308297, 0.00430189
Part.ActiveView().RotateAboutCenter -0.00924892, 0
swApp.ActiveDoc.ActiveView.FrameState = 1
' MSGBOX
' Save changes to hydro assembly?

swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
' MSGBOX
' Save changes to hydro assembly?

swApp.ExitApp
End Sub