' ******************************************************************************
' swxJRNL.swj - journal recorded on 08/04/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:\200126  canyon dynamics\200126John F canyon dynamics\seacat wet lab.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("seacat wet lab.SLDPRT")
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, -0.0276425
Part.ActiveView().RotateAboutCenter -0.00630119, -0.0921417
Part.ActiveView().RotateAboutCenter -0.0189036, -0.128998
Part.ActiveView().RotateAboutCenter -0.0252048, -0.128998
Part.ActiveView().RotateAboutCenter -0.0252048, -0.128998
Part.ActiveView().RotateAboutCenter -0.0252048, -0.156641
Part.ActiveView().RotateAboutCenter -0.0189036, -0.0737133
Part.ActiveView().RotateAboutCenter -0.0126024, -0.055285
Part.ActiveView().RotateAboutCenter 0, -0.0276425
Part.ActiveView().RotateAboutCenter -0.00630119, -0.00921417
Part.ActiveView().RotateAboutCenter -0.0126024, -0.0276425
Part.ActiveView().RotateAboutCenter -0.0126024, -0.0644992
Part.ActiveView().RotateAboutCenter -0.0189036, -0.0368567
Part.ActiveView().RotateAboutCenter -0.0126024, -0.0184283
Part.ActiveView().RotateAboutCenter -0.00630119, -0.0276425
Part.ActiveView().RotateAboutCenter -0.00630119, -0.0184283
Part.ActiveView().RotateAboutCenter -0.0126024, -0.00921417
Part.ActiveView().RotateAboutCenter -0.0126024, -0.0276425
Part.ActiveView().RotateAboutCenter -0.0315059, -0.0184283
Part.ActiveView().RotateAboutCenter -0.0441083, -0.0368567
Part.ActiveView().RotateAboutCenter -0.0630119, -0.0276425
Part.ActiveView().RotateAboutCenter -0.0378071, -0.00921417
Part.ActiveView().RotateAboutCenter -0.0315059, -0.00921417
Part.ActiveView().RotateAboutCenter -0.0315059, -0.00921417
Part.ActiveView().RotateAboutCenter -0.0315059, 0
Part.ActiveView().RotateAboutCenter -0.0252048, -0.00921417
Part.ActiveView().RotateAboutCenter -0.0189036, 0
Part.ActiveView().RotateAboutCenter -0.00630119, 0
Part.ActiveView().RotateAboutCenter -0.0189036, -0.00921417
Part.ActiveView().RotateAboutCenter -0.0252048, -0.0460708
Part.ActiveView().RotateAboutCenter -0.0441083, -0.138213
Part.ActiveView().RotateAboutCenter -0.0189036, -0.138213
Part.ActiveView().RotateAboutCenter -0.00630119, -0.175069
Part.ActiveView().RotateAboutCenter 0.0189036, -0.340924
Part.ActiveView().RotateAboutCenter 0.0252048, -0.44228
Part.ActiveView().RotateAboutCenter 0.0315059, -0.313282
Part.ActiveView().RotateAboutCenter 0.0189036, -0.128998
Part.ActiveView().RotateAboutCenter 0.0126024, -0.0184283
Part.ActiveView().RotateAboutCenter 0.00630119, -0.00921417
Part.ActiveView().RotateAboutCenter 0.0126024, -0.0184283
Part.ActiveView().RotateAboutCenter 0.0315059, -0.0184283
Part.ActiveView().RotateAboutCenter 0.0126024, -0.00921417
Part.ActiveView().RotateAboutCenter 0, 0.00921417
Part.ActiveView().RotateAboutCenter -0.00630119, 0.0184283
Part.ActiveView().RotateAboutCenter -0.0630119, 0.248783
Part.ActiveView().RotateAboutCenter -0.0567107, 0.304068
Part.ActiveView().RotateAboutCenter -0.0189036, 0.0737133
Part.ViewDisplayShadedWithEdges
Part.ActiveView().RotateAboutCenter 0, 0.00921417
Part.ActiveView().RotateAboutCenter 0, 0.00921417
Part.ActiveView().RotateAboutCenter -0.00630119, 0.0184283
Part.ActiveView().RotateAboutCenter -0.0441083, 0.138213
Part.ActiveView().RotateAboutCenter -0.0567107, 0.193498
Part.ActiveView().RotateAboutCenter -0.0252048, 0.156641
Part.ActiveView().RotateAboutCenter -0.0126024, 0.11057
Part.ActiveView().RotateAboutCenter 0, 0.00921417
Part.ActiveView().RotateAboutCenter 0, 0.00921417
Part.ActiveView().RotateAboutCenter 0, 0.156641
Part.ActiveView().RotateAboutCenter -0.0126024, 0.11057
Part.ActiveView().RotateAboutCenter -0.00630119, 0.055285
Part.ActiveView().RotateAboutCenter -0.00630119, 0.0276425
Part.ActiveView().RotateAboutCenter -0.0126024, 0.0460708
Part.ActiveView().RotateAboutCenter -0.0189036, 0.0276425
Part.ActiveView().RotateAboutCenter -0.0189036, 0.0368567
Part.ActiveView().RotateAboutCenter -0.00630119, 0.00921417
Part.ActiveView().RotateAboutCenter 0, -0.00921417
Part.ActiveView().RotateAboutCenter -0.0126024, -0.0184283
Part.ActiveView().RotateAboutCenter -0.0252048, -0.055285
Part.ActiveView().RotateAboutCenter -0.00630119, -0.0276425
Part.ActiveView().RotateAboutCenter -0.0189036, -0.0276425
Part.ActiveView().RotateAboutCenter -0.0189036, -0.0368567
Part.ActiveView().RotateAboutCenter -0.0189036, -0.0184283
Part.ActiveView().RotateAboutCenter -0.00630119, 0
Part.Save2 FALSE
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub