' ******************************************************************************
' swxJRNL.swj - journal recorded on 11/17/03 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:\366000_DMO_ZEPHYR\366000_DMO_zephyr dive platform\rail Assem.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("rail Assem")
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.00971204, -0.0301132
Part.ActiveView().RotateAboutCenter -0.103595, -0.236604
Part.ActiveView().RotateAboutCenter -0.142443, -0.103245
Part.ActiveView().RotateAboutCenter -0.132731, 0.00860378
Part.ActiveView().RotateAboutCenter -0.0420855, 0.038717
Part.ActiveView().RotateAboutCenter -0.0258988, 0.0731322
Part.ActiveView().RotateAboutCenter -0.00647469, 0.0559246
Part.ActiveView().RotateAboutCenter 0.00647469, 0.0516227
Part.ActiveView().RotateAboutCenter 0.0679842, 0.0215095
Part.ActiveView().RotateAboutCenter 0.0485602, 0.00430189
Part.ActiveView().RotateAboutCenter 0.0744589, 0.038717
Part.ActiveView().RotateAboutCenter 0.0258988, 0.0344151
Part.ActiveView().RotateAboutCenter 0.0226614, -0.0172076
Part.ActiveView().RotateAboutCenter -0.00971204, -0.124755
Part.ActiveView().RotateAboutCenter -0.0323735, -0.0731322
Part.ActiveView().RotateAboutCenter -0.0194241, -0.0473208
Part.ActiveView().RotateAboutCenter 0.00647469, -0.0559246
Part.ActiveView().RotateAboutCenter -0.0453228, 0.0172076
Part.ActiveView().RotateAboutCenter -0.0356108, 0.154868
Part.ActiveView().RotateAboutCenter 0.0161867, 0.0645284
Part.ActiveView().RotateAboutCenter 0.0356108, 0.0430189
Part.ActiveView().RotateAboutCenter 0.0226614, 0.00860378
Part.ActiveView().RotateAboutCenter 0.0485602, -0.0731322
Part.ActiveView().RotateAboutCenter 0.0388481, -0.0215095
Part.ActiveView().RotateAboutCenter 0.11007, 0.0215095
Part.ActiveView().RotateAboutCenter 0.0226614, 0.00430189
Part.ActiveView().RotateAboutCenter 0.0291361, -0.00430189
Part.ActiveView().RotateAboutCenter 0.00647469, 0
Part.ActiveView().RotateAboutCenter 0, -0.00860378
Part.ActiveView().RotateAboutCenter -0.00647469, -0.369963
Part.ActiveView().RotateAboutCenter -0.0744589, -0.31834
Part.ActiveView().RotateAboutCenter -0.106832, 0.00430189
Part.ActiveView().RotateAboutCenter -0.084171, 0.193585
Part.ActiveView().RotateAboutCenter -0.0258988, 0.292529
Part.ActiveView().RotateAboutCenter 0.0906457, 0.163472
Part.ActiveView().RotateAboutCenter 0.0388481, 0.038717
Part.ActiveView().RotateAboutCenter 0.132731, 0.077434
Part.ActiveView().RotateAboutCenter 0.00323735, 0.00430189
Part.ActiveView().RotateAboutCenter 0.00323735, 0.00860378
Part.ActiveView().RotateAboutCenter 0.00323735, 0.00430189
Part.ActiveView().RotateAboutCenter -0.00647469, -0.0430189
Part.ActiveView().RotateAboutCenter -0.00323735, -0.0645284
Part.ActiveView().RotateAboutCenter 0.00647469, -0.0473208
Part.ActiveView().RotateAboutCenter -0.00971204, 0.0645284
Part.ActiveView().RotateAboutCenter -0.0194241, 0.137661
Part.ActiveView().RotateAboutCenter -0.0291361, -0.00860378
Part.ActiveView().RotateAboutCenter -0.00647469, -0.00860378
Part.ActiveView().RotateAboutCenter -0.00323735, -0.0215095
Part.ActiveView().RotateAboutCenter 0.00323735, 0.0129057
Part.ActiveView().RotateAboutCenter 0.0161867, 0.0731322
Part.ActiveView().RotateAboutCenter 0.0194241, 0.0559246
Part.ActiveView().RotateAboutCenter 0.00323735, 0.0215095
Part.ActiveView().RotateAboutCenter -0.00971204, 0.0344151
Part.ActiveView().RotateAboutCenter -0.0194241, 0.00860378
Part.ActiveView().RotateAboutCenter 0, 0.00430189
Part.ActiveView().RotateAboutCenter 0.00323735, -0.00860378
Part.ActiveView().RotateAboutCenter 0.00323735, -0.0215095
Part.ActiveView().RotateAboutCenter 0, -0.00430189
Part.ActiveView().RotateAboutCenter -0.00323735, 0.00860378
Part.ActiveView().RotateAboutCenter -0.00647469, 0
Part.ActiveView().RotateAboutCenter -0.0226614, 0
Part.ActiveView().RotateAboutCenter -0.0129494, 0
Part.ActiveView().RotateAboutCenter 0, -0.00430189
Part.ActiveView().RotateAboutCenter 0, -0.00430189
Part.ActiveView().RotateAboutCenter 0, -0.0129057
Part.ActiveView().TranslateBy 0, -0.000208197
Part.ActiveView().TranslateBy -0.00249836, -0.00520492
Part.ActiveView().TranslateBy -0.00145738, -0.00770328
Part.ActiveView().TranslateBy 0, -0.00208197
Part.ActiveView().TranslateBy 0.00062459, -0.00374754
Part.ActiveView().TranslateBy 0.00104098, -0.00353934
Part.ActiveView().TranslateBy 0.00062459, -0.00145738
Part.ActiveView().TranslateBy 0.00166557, -0.00208197
Part.ActiveView().TranslateBy 0.00166557, -0.00249836
Part.ActiveView().TranslateBy -0.000208197, 0
Part.ActiveView().TranslateBy 0, -0.000208197
Part.ActiveView().TranslateBy 0.000208197, -0.00458033
Part.ActiveView().TranslateBy -0.000416393, -0.00978525
Part.ActiveView().TranslateBy -0.00062459, -0.0064541
Part.ActiveView().TranslateBy -0.000208197, -0.00166557
Part.ActiveView().TranslateBy -0.00124918, -0.00832787
Part.ActiveView().TranslateBy -0.000832787, -0.00936885
Part.ActiveView().TranslateBy 0.000416393, -0.00520492
Part.ActiveView().TranslateBy 0.00104098, -0.00562131
Part.ActiveView().TranslateBy 0, -0.000208197
' MSGBOX
' Some of the models referenced in this document have been modified.  They must be saved when the document is saved.
' 		Save the document and the referenced models now?

Part.Save2 FALSE
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub