' ******************************************************************************
' swxJRNL.swj - journal recorded on 05/22/03 by kiwi
' *****************************************************************************
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 = Application.SldWorks

Set Part = swApp.OpenDoc4 ("\\Polarbear\LRS\PUP\PUP-2AXIS_Assembly\Base_Assembly.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Base_Assembly")
swApp.ActiveDoc.ActiveView.FrameWidth = 1344
swApp.ActiveDoc.ActiveView.FrameHeight = 823
Part.ActiveView().RotateAboutCenter -0.00590631, -0.00849079
Part.ActiveView().RotateAboutCenter 0.0118126, -0.00849079
Part.ActiveView().RotateAboutCenter 0, -0.00849079
Part.ActiveView().RotateAboutCenter -0.0236252, -0.0169816
Part.ActiveView().RotateAboutCenter -0.0531568, -0.0339632
Part.ActiveView().RotateAboutCenter -0.0826883, -0.0509447
Part.ActiveView().RotateAboutCenter -0.171283, -0.101889
Part.ActiveView().RotateAboutCenter -0.100407, -0.0679263
Part.ActiveView().RotateAboutCenter -0.0472505, -0.0339632
Part.ActiveView().RotateAboutCenter -0.00590631, 0
Part.ActiveView().RotateAboutCenter 0, -0.00849079
Part.ActiveView().RotateAboutCenter -0.0177189, -0.0254724
Part.ActiveView().RotateAboutCenter -0.0295315, -0.0339632
Part.ActiveView().RotateAboutCenter -0.0472505, -0.042454
Part.ActiveView().RotateAboutCenter -0.0472505, -0.0509447
Part.ActiveView().RotateAboutCenter -0.0354378, -0.042454
Part.ActiveView().RotateAboutCenter -0.00590631, -0.0339632
Part.ActiveView().RotateAboutCenter 0, -0.042454
Part.ActiveView().RotateAboutCenter 0.0118126, -0.0764171
Part.ActiveView().RotateAboutCenter 0.0295315, -0.169816
Part.ActiveView().RotateAboutCenter 0.0236252, -0.161325
Part.ActiveView().RotateAboutCenter 0.0354378, -0.169816
Part.ActiveView().RotateAboutCenter 0.0472505, -0.178307
Part.ActiveView().RotateAboutCenter 0.0236252, -0.0764171
Part.ActiveView().RotateAboutCenter 0.0295315, -0.0509447
Part.ActiveView().RotateAboutCenter 0.0649694, -0.101889
Part.ActiveView().RotateAboutCenter 0.0472505, -0.0849079
Part.ActiveView().RotateAboutCenter 0.0531568, -0.0933987
Part.ActiveView().RotateAboutCenter 0.0708757, -0.0764171
Part.ActiveView().RotateAboutCenter 0.0531568, -0.042454
Part.ActiveView().RotateAboutCenter 0.0531568, -0.0254724
Part.ActiveView().RotateAboutCenter 0.106314, -0.042454
Part.ActiveView().RotateAboutCenter 0.076782, -0.0254724
Part.ActiveView().RotateAboutCenter 0.076782, 0
Part.ActiveView().RotateAboutCenter 0.0885946, 0.0169816
Part.ActiveView().RotateAboutCenter 0.124032, 0.0679263
Part.ActiveView().RotateAboutCenter 0.0885946, 0.11038
Part.ActiveView().RotateAboutCenter 0.0708757, 0.135853
Part.ActiveView().RotateAboutCenter 0.076782, 0.195288
Part.ActiveView().RotateAboutCenter 0.0826883, 0.407558
Part.ActiveView().RotateAboutCenter 0.0177189, 0.186797
Part.ActiveView().RotateAboutCenter 0.00590631, 0.127362
Part.ActiveView().RotateAboutCenter -0.0177189, 0.127362
Part.ActiveView().RotateAboutCenter -0.0472505, 0.237742
Part.ActiveView().RotateAboutCenter -0.0236252, 0.0849079
Part.ActiveView().RotateAboutCenter -0.00590631, 0.0254724
Part.ActiveView().RotateAboutCenter -0.00590631, 0
Part.ActiveView().RotateAboutCenter -0.0118126, 0.00849079
Part.ActiveView().RotateAboutCenter -0.0413441, 0.0679263
Part.ActiveView().RotateAboutCenter -0.0472505, 0.0509447
Part.ActiveView().RotateAboutCenter -0.0945009, 0.0679263
Part.ActiveView().RotateAboutCenter -0.0413441, 0.0169816
Part.ActiveView().RotateAboutCenter -0.0472505, 0.0254724
Part.ActiveView().RotateAboutCenter -0.0472505, 0.0679263
Part.ActiveView().RotateAboutCenter -0.076782, 0.135853
Part.ActiveView().RotateAboutCenter -0.0708757, 0.169816
Part.ActiveView().RotateAboutCenter -0.0708757, 0.288687
Part.ActiveView().RotateAboutCenter -0.0236252, 0.186797
Part.ActiveView().RotateAboutCenter 0, 0.220761
Part.ActiveView().RotateAboutCenter 0.0354378, 0.161325
Part.ActiveView().RotateAboutCenter 0.0472505, 0.144343
Part.ActiveView().RotateAboutCenter 0.0590631, 0.118871
Part.ActiveView().RotateAboutCenter 0.11222, 0.135853
Part.ActiveView().RotateAboutCenter 0.0708757, 0.0254724
Part.ActiveView().RotateAboutCenter 0.0590631, 0.00849079
Part.ActiveView().RotateAboutCenter 0.0531568, -0.00849079
Part.ActiveView().RotateAboutCenter 0.00590631, -0.00849079
Part.ActiveView().RotateAboutCenter 0, -0.00849079
Part.ActiveView().RotateAboutCenter 0, -0.0509447
Part.ActiveView().RotateAboutCenter 0.00590631, -0.169816
Part.ActiveView().RotateAboutCenter 0, -0.466994
Part.ActiveView().RotateAboutCenter -0.00590631, -0.314159
Part.ActiveView().RotateAboutCenter -0.0177189, -0.271705
Part.ActiveView().RotateAboutCenter -0.0236252, -0.195288
Part.ActiveView().RotateAboutCenter -0.00590631, -0.0849079
Part.ActiveView().RotateAboutCenter 0, 0.00849079
Part.ActiveView().RotateAboutCenter 0.0236252, 0.042454
Part.ActiveView().RotateAboutCenter 0, 0.0169816
Part.ActiveView().RotateAboutCenter 0.00590631, 0.0169816
Part.ActiveView().RotateAboutCenter 0, 0.0509447
Part.ActiveView().RotateAboutCenter 0, 0.101889
Part.ActiveView().RotateAboutCenter 0, 0.127362
Part.ActiveView().RotateAboutCenter 0, 0.101889
Part.ActiveView().RotateAboutCenter 0, 0.0254724
Part.ActiveView().RotateAboutCenter 0, 0.00849079
Part.ActiveView().RotateAboutCenter 0.00590631, 0.00849079
Part.ActiveView().RotateAboutCenter 0.0236252, 0
Part.ActiveView().RotateAboutCenter 0.0590631, 0
Part.ActiveView().RotateAboutCenter 0.0826883, -0.0169816
Part.ActiveView().RotateAboutCenter 0.129939, -0.0254724
Part.ActiveView().RotateAboutCenter 0.0531568, 0
Part.ActiveView().RotateAboutCenter 0.0413441, 0
Part.ActiveView().RotateAboutCenter 0.0295315, -0.0169816
Part.ActiveView().RotateAboutCenter 0.00590631, -0.042454
Part.ActiveView().RotateAboutCenter 0.00590631, -0.101889
Part.ActiveView().RotateAboutCenter 0.0118126, -0.178307
Part.ActiveView().RotateAboutCenter 0, -0.0594355
Part.ActiveView().RotateAboutCenter -0.00590631, -0.0679263
Part.ActiveView().RotateAboutCenter -0.0236252, -0.0764171
Part.ActiveView().RotateAboutCenter -0.0354378, -0.0594355
Part.ActiveView().RotateAboutCenter -0.0295315, -0.0339632
Part.ActiveView().RotateAboutCenter -0.0118126, -0.00849079
Part.ActiveView().RotateAboutCenter -0.0118126, -0.00849079
Part.ActiveView().RotateAboutCenter -0.0295315, -0.0509447
Part.ActiveView().RotateAboutCenter -0.0590631, -0.0764171
Part.ActiveView().RotateAboutCenter -0.0649694, -0.0254724
Part.ActiveView().RotateAboutCenter -0.124032, -0.0254724
Part.ActiveView().RotateAboutCenter -0.0885946, -0.0509447
Part.ActiveView().RotateAboutCenter -0.0708757, -0.042454
Part.ActiveView().RotateAboutCenter -0.0531568, -0.0169816
Part.ActiveView().RotateAboutCenter -0.0649694, 0
Part.ActiveView().RotateAboutCenter -0.0472505, 0.0169816
Part.ActiveView().RotateAboutCenter -0.0590631, 0.0509447
Part.ActiveView().RotateAboutCenter -0.0295315, 0.042454
Part.ActiveView().RotateAboutCenter 0.0118126, 0
Part.ActiveView().RotateAboutCenter 0.0295315, 0.00849079
Part.ActiveView().RotateAboutCenter 0.0531568, 0.0169816
Part.ActiveView().RotateAboutCenter 0.0885946, 0.00849079
Part.ActiveView().RotateAboutCenter 0.0590631, 0
Part.ActiveView().RotateAboutCenter 0.0413441, 0.00849079
Part.ActiveView().RotateAboutCenter 0.0295315, 0.0169816
Part.ActiveView().RotateAboutCenter 0.0118126, 0.00849079
Part.ActiveView().RotateAboutCenter 0.00590631, 0
Part.ActiveView().RotateAboutCenter 0.0236252, 0.00849079
Part.ActiveView().RotateAboutCenter 0.0295315, 0.00849079
Part.ActiveView().RotateAboutCenter 0.0118126, 0
Part.ActiveView().RotateAboutCenter 0, 0.00849079
Part.ActiveView().RotateAboutCenter -0.00590631, 0.0594355
Part.ActiveView().RotateAboutCenter 0, 0.127362
Part.ActiveView().RotateAboutCenter 0, 0.101889
Part.ActiveView().RotateAboutCenter 0, 0.00849079
Part.ActiveView().RotateAboutCenter 0.00590631, -0.00849079
Part.ActiveView().RotateAboutCenter 0, -0.0254724
Part.ActiveView().RotateAboutCenter 0.00590631, -0.00849079
Part.ActiveView().RotateAboutCenter 0, -0.00849079
Set Part = Nothing
swApp.CloseDoc "Base_Assembly"
swApp.ExitApp
End Sub