' ******************************************************************************
' swxJRNL.swj - journal recorded on 10/13/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 ("D:\Work_In_Progress\Canyon Dynamics\rin_V8.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("rin_V8")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0.00444329, 0.00631878
Part.ActiveView().RotateAboutCenter -0.00888658, 0.0631878
Part.ActiveView().RotateAboutCenter 0.00888658, -0.0126376
Part.ActiveView().RotateAboutCenter -0.0266597, -0.202201
Part.ActiveView().RotateAboutCenter -0.0133299, -0.0568691
Part.ActiveView().RotateAboutCenter -0.0355463, -0.176926
Part.ActiveView().RotateAboutCenter -0.00888658, 0
Part.ActiveView().RotateAboutCenter -0.106639, -0.00631878
Part.ActiveView().RotateAboutCenter -0.0488762, 0.00631878
Part.ActiveView().RotateAboutCenter -0.0533195, 0.0315939
Part.ActiveView().RotateAboutCenter -0.0355463, 0.0505503
Part.ActiveView().RotateAboutCenter -0.0133299, 0.0189564
Part.ActiveView().RotateAboutCenter 0.0222164, 0.0315939
Part.ActiveView().RotateAboutCenter 0.124412, 0.0126376
Part.ActiveView().RotateAboutCenter 0.062206, 0
Part.ActiveView().RotateAboutCenter 0.0488762, 0
Part.ActiveView().RotateAboutCenter 0.062206, 0.00631878
Part.ActiveView().RotateAboutCenter 0.0577627, 0
Part.ActiveView().RotateAboutCenter 0.0666493, -0.00631878
Part.ActiveView().RotateAboutCenter 0.062206, 0
Part.ActiveView().RotateAboutCenter 0.0888658, 0.00631878
Part.ActiveView().RotateAboutCenter 0.106639, 0
Part.ActiveView().RotateAboutCenter 0.062206, 0.0126376
Part.ActiveView().RotateAboutCenter 0, -0.00631878
Part.ActiveView().RotateAboutCenter -0.0266597, 0.0126376
Part.ActiveView().RotateAboutCenter -0.0844225, 0.101101
Part.ActiveView().RotateAboutCenter -0.155515, 0.0189564
Part.ActiveView().RotateAboutCenter -0.37768, -0.176926
Part.ActiveView().RotateAboutCenter -0.235494, -0.088463
Part.ActiveView().RotateAboutCenter -0.119969, -0.202201
Part.ActiveView().RotateAboutCenter -0.00444329, -0.341214
Part.ActiveView().RotateAboutCenter 0.0710926, -0.600284
Part.ActiveView().RotateAboutCenter 0.0444329, -0.0442315
Part.ActiveView().RotateAboutCenter 0.0888658, -0.0379127
Part.ActiveView().RotateAboutCenter 0.128855, 0.0315939
Part.ActiveView().RotateAboutCenter 0.173288, 0.132694
Part.ActiveView().RotateAboutCenter 0.115525, 0.113738
Part.ActiveView().RotateAboutCenter 0.155515, 0.101101
Part.ActiveView().RotateAboutCenter 0.102196, 0.0947818
Part.ActiveView().RotateAboutCenter 0.0222164, 0.0252751
Part.ActiveView().RotateAboutCenter 0, 0.00631878
Part.ActiveView().RotateAboutCenter 0.00888658, 0.0126376
Part.ActiveView().RotateAboutCenter 0.0177732, 0.0126376
Part.ActiveView().RotateAboutCenter 0.0177732, 0
Part.ActiveView().RotateAboutCenter 0.0133299, 0
Part.ActiveView().RotateAboutCenter 0, -0.00631878
Part.ActiveView().RotateAboutCenter 0, -0.00631878
Part.ActiveView().RotateAboutCenter 0, -0.00631878
Part.ActiveView().RotateAboutCenter -0.00888658, -0.0126376
Part.ActiveView().RotateAboutCenter -0.00444329, 0
Part.ActiveView().RotateAboutCenter -0.00888658, -0.00631878
Part.ActiveView().RotateAboutCenter -0.00888658, 0.00631878
Part.ActiveView().RotateAboutCenter -0.00444329, 0.00631878
Part.ActiveView().RotateAboutCenter -0.115525, 0.0126376
Part.ActiveView().RotateAboutCenter -0.0399896, -0.0189564
Part.ActiveView().RotateAboutCenter -0.00444329, -0.00631878
Part.ActiveView().RotateAboutCenter 0, 0.00631878
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub