' ******************************************************************************
' swxJRNL.swj - journal recorded on 07/31/02 by fejo
' ******************************************************************************

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc4 ("D:\Work In Progress\Canyon Dynamics\rin-bin\InstrumentBar\InstrumentBar.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("InstrumentBar")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0.00342895, 0
Part.ActiveView().RotateAboutCenter 0.00342895, -0.00430604
Part.ActiveView().RotateAboutCenter 0.0068579, -0.0301423
Part.ActiveView().RotateAboutCenter 0.0068579, -0.0775088
Part.ActiveView().RotateAboutCenter 0.0137158, -0.0473665
Part.ActiveView().RotateAboutCenter 0.0308605, -0.103345
Part.ActiveView().RotateAboutCenter 0.0342895, -0.129181
Part.ActiveView().RotateAboutCenter 0.0548632, -0.16363
Part.ActiveView().RotateAboutCenter 0.068579, -0.0473665
Part.ActiveView().RotateAboutCenter 0.0411474, -0.0473665
Part.ActiveView().RotateAboutCenter 0.116584, -0.111957
Part.ActiveView().RotateAboutCenter 0.0308605, -0.0215302
Part.ActiveView().RotateAboutCenter 0.0240026, -0.0215302
Part.ActiveView().RotateAboutCenter 0.0240026, -0.0172242
Part.ActiveView().RotateAboutCenter 0.0514342, -0.0602846
Part.ActiveView().RotateAboutCenter 0.0308605, -0.16363
Part.ActiveView().RotateAboutCenter 0.0205737, -0.37032
Part.ActiveView().RotateAboutCenter 0.0342895, -0.353096
Part.ActiveView().RotateAboutCenter 0.0582921, -0.318647
Part.ActiveView().RotateAboutCenter 0.0342895, -0.172242
Part.ActiveView().RotateAboutCenter 0.0514342, -0.099039
Part.ActiveView().RotateAboutCenter 0.068579, -0.0258363
Part.ActiveView().RotateAboutCenter 0.171447, -0.0215302
Part.ActiveView().RotateAboutCenter 0.198879, 0.0129181
Part.ActiveView().RotateAboutCenter 0.0960105, 0.00861209
Part.ActiveView().RotateAboutCenter 0.0857237, 0.0172242
Part.ActiveView().RotateAboutCenter 0.0342895, 0
Part.ActiveView().RotateAboutCenter 0.0205737, 0
Part.ActiveView().RotateAboutCenter 0.0240026, 0
Part.ActiveView().RotateAboutCenter 0.0068579, 0
Part.ActiveView().RotateAboutCenter 0.0171447, -0.0129181
Part.ActiveView().RotateAboutCenter 0.0068579, -0.210996
Part.ActiveView().RotateAboutCenter -0.0617211, -0.241138
Part.ActiveView().RotateAboutCenter -0.212595, -0.301423
Part.ActiveView().RotateAboutCenter -0.123442, -0.103345
Part.ActiveView().RotateAboutCenter -0.068579, -0.0301423
Part.ActiveView().RotateAboutCenter -0.205737, 0.00861209
Part.ActiveView().RotateAboutCenter -0.157732, 0.0301423
Part.ActiveView().RotateAboutCenter -0.240026, 0.189466
Part.ActiveView().RotateAboutCenter -0.137158, 0.189466
Part.ActiveView().RotateAboutCenter -0.137158, 0.310035
Part.ActiveView().RotateAboutCenter -0.0240026, 0.284199
Part.ActiveView().RotateAboutCenter 0.0068579, 0.447829
Part.ActiveView().RotateAboutCenter 0.0342895, 0.198078
Part.ActiveView().RotateAboutCenter 0.123442, 0.0258363
Part.ActiveView().RotateAboutCenter 0.0754369, -0.0172242
Part.ActiveView().RotateAboutCenter 0.0240026, -0.00861209
Part.ActiveView().RotateAboutCenter 0.00342895, -0.0129181
Part.ActiveView().RotateAboutCenter 0.0205737, -0.0861209
Part.ActiveView().RotateAboutCenter 0.0342895, -0.16363
Part.ActiveView().RotateAboutCenter 0.0137158, -0.0301423
Part.ActiveView().RotateAboutCenter 0.0137158, -0.0129181
Part.ActiveView().RotateAboutCenter 0.0171447, -0.0258363
Part.ActiveView().RotateAboutCenter 0.0514342, -0.107651
Part.ActiveView().RotateAboutCenter 0.0411474, -0.0516725
Part.ActiveView().RotateAboutCenter 0.0480053, -0.0645907
Part.ActiveView().RotateAboutCenter 0.0068579, -0.0129181
Part.ActiveView().RotateAboutCenter 0.00342895, 0
Part.ActiveView().RotateAboutCenter 0, -0.00430604
Part.ActiveView().RotateAboutCenter 0.0068579, -0.0129181
Part.ActiveView().RotateAboutCenter 0.0171447, -0.0387544
Part.ActiveView().RotateAboutCenter 0.0205737, -0.0602846
Part.ActiveView().RotateAboutCenter 0.0137158, -0.0344484
Part.ActiveView().RotateAboutCenter -0.0205737, -0.00861209
swApp.ExitApp
End Sub