' ******************************************************************************
' swxJRNL.swj - journal recorded on 10/30/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 ("C:\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.00647469, -0.0172076
Part.ActiveView().RotateAboutCenter -0.0485602, -0.0989435
Part.ActiveView().RotateAboutCenter -0.0291361, -0.0129057
Part.ActiveView().RotateAboutCenter -0.0485602, -0.0129057
Part.ActiveView().RotateAboutCenter -0.0809336, -0.0172076
Part.ActiveView().RotateAboutCenter -0.0744589, 0.00860378
Part.ActiveView().RotateAboutCenter -0.084171, 0.038717
Part.ActiveView().RotateAboutCenter -0.0258988, 0.0516227
Part.ActiveView().RotateAboutCenter -0.00647469, 0.0688303
Part.ActiveView().RotateAboutCenter 0.00323735, 0.0602265
Part.ActiveView().RotateAboutCenter 0, 0.0129057
Part.ActiveView().RotateAboutCenter 0.0194241, 0.0473208
Part.ActiveView().RotateAboutCenter 0.0161867, 0.0516227
Part.ActiveView().RotateAboutCenter 0.0194241, 0.0989435
Part.ActiveView().RotateAboutCenter 0.00971204, 0.0731322
Part.ActiveView().RotateAboutCenter 0.00647469, 0.0731322
Part.ActiveView().RotateAboutCenter 0, 0.077434
Part.ActiveView().RotateAboutCenter -0.00323735, 0.0430189
Part.ActiveView().RotateAboutCenter 0.00323735, 0
Part.ActiveView().RotateAboutCenter 0.0712216, 0.357057
Part.ActiveView().RotateAboutCenter 0.0226614, 0.15917
Part.ActiveView().RotateAboutCenter 0.00647469, 0.0602265
Part.ActiveView().RotateAboutCenter 0.0291361, 0.141962
Part.ActiveView().RotateAboutCenter 0.00647469, 0.0430189
Part.ActiveView().RotateAboutCenter 0.0161867, 0.077434
Part.ActiveView().RotateAboutCenter 0.00647469, 0.0430189
Part.ActiveView().RotateAboutCenter 0.00323735, -0.00430189
Part.ActiveView().RotateAboutCenter 0.0388481, -0.0430189
Part.ActiveView().RotateAboutCenter 0.00647469, -0.00430189
Part.ActiveView().RotateAboutCenter 0, -0.00860378
Part.ActiveView().RotateAboutCenter 0, 0.00430189
Part.ActiveView().RotateAboutCenter 0, 0.00860378
Part.ActiveView().RotateAboutCenter 0, -0.00430189
Part.ActiveView().RotateAboutCenter 0, -0.0688303
Part.ActiveView().RotateAboutCenter -0.00323735, -0.0559246
Part.ActiveView().RotateAboutCenter -0.00647469, -0.107547
Part.ActiveView().RotateAboutCenter -0.00323735, -0.0946416
Part.ActiveView().RotateAboutCenter 0.00323735, -0.107547
Part.ActiveView().RotateAboutCenter 0, -0.0860378
Part.ActiveView().RotateAboutCenter 0.00971204, -0.103245
Part.ActiveView().RotateAboutCenter 0.0258988, -0.15917
Part.ActiveView().RotateAboutCenter 0.0258988, -0.103245
Part.ActiveView().RotateAboutCenter 0.0194241, -0.133359
Part.ActiveView().RotateAboutCenter 0.00971204, -0.0946416
Part.ActiveView().RotateAboutCenter 0, -0.137661
Part.ActiveView().RotateAboutCenter -0.00647469, -0.103245
Part.ActiveView().RotateAboutCenter -0.00647469, -0.0301132
Part.ActiveView().RotateAboutCenter -0.0356108, -0.0172076
Part.ActiveView().RotateAboutCenter -0.0582722, 0.0215095
Part.ActiveView().RotateAboutCenter -0.0194241, 0.00860378
Part.ActiveView().RotateAboutCenter -0.0258988, -0.00860378
Part.ActiveView().RotateAboutCenter -0.00323735, -0.0516227
Part.ActiveView().RotateAboutCenter 0.00323735, -0.0688303
Part.ActiveView().RotateAboutCenter 0, -0.00430189
Part.ActiveView().RotateAboutCenter 0.00971204, -0.0258113
Part.ActiveView().RotateAboutCenter 0, -0.00430189
Part.ActiveView().RotateAboutCenter 0.0161867, -0.0344151
Part.ActiveView().RotateAboutCenter 0.0161867, -0.0473208
Part.ActiveView().RotateAboutCenter 0.00647469, -0.00430189
Part.ActiveView().RotateAboutCenter 0.00971204, -0.00430189
Part.ActiveView().RotateAboutCenter 0.0194241, 0.0258113
Part.ActiveView().RotateAboutCenter 0.0226614, 0.0301132
Part.ActiveView().RotateAboutCenter 0.00323735, 0.00430189
Part.ActiveView().RotateAboutCenter 0.0129494, 0.00860378
Part.ActiveView().RotateAboutCenter 0.00971204, 0.0215095
Part.ActiveView().RotateAboutCenter 0, 0.00430189
Part.ActiveView().RotateAboutCenter 0, 0.00430189
Part.ActiveView().RotateAboutCenter 0, -0.00430189
Part.ActiveView().RotateAboutCenter 0, 0.00430189
Part.ActiveView().RotateAboutCenter -0.00323735, 0
Part.ActiveView().RotateAboutCenter 0, 0.00430189
Part.ActiveView().RotateAboutCenter -0.00323735, 0
Part.ActiveView().RotateAboutCenter -0.00647469, 0.00860378
Part.ActiveView().RotateAboutCenter -0.00323735, 0.0559246
Part.ActiveView().RotateAboutCenter -0.00323735, 0.0559246
Part.ActiveView().RotateAboutCenter -0.00647469, 0.0172076
Part.ActiveView().RotateAboutCenter -0.0226614, 0.0129057
Part.ActiveView().RotateAboutCenter -0.0129494, -0.00430189
Part.ActiveView().RotateAboutCenter -0.00971204, -0.0430189
Part.ActiveView().RotateAboutCenter -0.00647469, -0.0516227
Part.ActiveView().RotateAboutCenter 0, -0.0129057
Part.ActiveView().RotateAboutCenter 0, -0.00430189
Part.ActiveView().RotateAboutCenter -0.00647469, 0.00860378
Part.ActiveView().RotateAboutCenter -0.0550349, 0.0258113
Part.ActiveView().RotateAboutCenter 0, -0.00860378
Part.ActiveView().RotateAboutCenter 0.0226614, -0.172076
Part.ActiveView().RotateAboutCenter 0.0258988, -0.0430189
Part.ActiveView().RotateAboutCenter 0.0485602, -0.0215095
Part.ActiveView().RotateAboutCenter 0.0226614, 0
Part.ActiveView().RotateAboutCenter 0.0323735, -0.00860378
Part.ActiveView().RotateAboutCenter 0.0161867, 0.0172076
Part.ActiveView().RotateAboutCenter 0.00647469, 0.0172076
Part.ActiveView().RotateAboutCenter 0.0453228, 0.0129057
Part.ActiveView().RotateAboutCenter 0.0291361, 0.0215095
Part.ActiveView().RotateAboutCenter 0.00323735, 0.00860378
Part.ActiveView().RotateAboutCenter 0, 0.0129057
Part.ActiveView().RotateAboutCenter 0.00971204, -0.00430189
Part.ActiveView().RotateAboutCenter -0.00323735, 0
Part.ActiveView().RotateAboutCenter -0.00647469, -0.0129057
Part.ActiveView().RotateAboutCenter -0.00323735, -0.00430189
Part.ActiveView().TranslateBy 0, -0.000208197
Part.ActiveView().TranslateBy -0.000208197, -0.00166557
Part.ActiveView().TranslateBy -0.00062459, -0.00291475
Part.ActiveView().TranslateBy -0.00104098, -0.00166557
Part.ActiveView().TranslateBy -0.00291475, -0.00353934
Part.ActiveView().TranslateBy -0.000416393, -0.00062459
Part.ActiveView().TranslateBy -0.000832787, -0.00353934
Part.ActiveView().TranslateBy -0.000208197, -0.00062459
Part.ActiveView().TranslateBy 0, -0.000832787
Part.ActiveView().TranslateBy 0.000416393, -0.000208197
Part.ActiveView().TranslateBy 0.000208197, 0
Part.ActiveView().TranslateBy 0.000208197, -0.00229016
Part.ActiveView().TranslateBy 0, -0.000208197
Part.ActiveView().TranslateBy 0, -0.000416393
Part.ActiveView().TranslateBy 0, -0.00104098
Part.ActiveView().TranslateBy -0.000208197, -0.00270656
Part.ActiveView().TranslateBy -0.000208197, 0
Part.ActiveView().TranslateBy -0.00229016, -0.00374754
Part.ActiveView().TranslateBy -0.000832787, -0.00208197
Part.ActiveView().TranslateBy -0.00333115, -0.00749508
Part.ActiveView().TranslateBy 0, -0.000416393
Part.ActiveView().TranslateBy -0.000832787, -0.00458033
Part.ActiveView().TranslateBy -0.00166557, -0.00520492
Part.ActiveView().TranslateBy -0.00062459, -0.00187377
Part.ActiveView().TranslateBy -0.00104098, -0.00353934
Part.ActiveView().TranslateBy 0, -0.000208197
Part.ActiveView().TranslateBy 0.000208197, -0.00062459
Part.ActiveView().TranslateBy 0.000208197, -0.00062459
' 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