' ******************************************************************************
' swxJRNL.swj - journal recorded on 11/26/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 ("X:\200126  canyon dynamics\John f canyon dynamics throw away2\new throw away base with sides.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("new throw away base with sides")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().TranslateBy 0.000528519, 0
Part.ActiveView().TranslateBy 0.00105704, 0.000264259
Part.ActiveView().TranslateBy 0.00343537, 0.00264259
Part.ActiveView().TranslateBy 0.00554945, 0.00502093
Part.ActiveView().TranslateBy 0.00158556, 0.00660649
Part.ActiveView().TranslateBy -0.000264259, 0.0171769
Part.ActiveView().TranslateBy -0.000528519, 0.00528519
Part.ActiveView().TranslateBy -0.00290685, 0.0174411
Part.ActiveView().TranslateBy -0.00369963, 0.00792778
Part.ActiveView().TranslateBy -0.00369963, 0.00105704
Part.ActiveView().TranslateBy -0.00581371, 0.00184982
Part.ActiveView().TranslateBy -0.00290685, 0.000792778
Part.ActiveView().RotateAboutCenter -0.00381613, 0.0273015
Part.ActiveView().RotateAboutCenter -0.00381613, 0.114666
Part.ActiveView().RotateAboutCenter 0.00381613, 0.0655235
Part.ActiveView().RotateAboutCenter 0.0801388, 0.245713
Part.ActiveView().RotateAboutCenter 0.0419775, 0.0709838
Part.ActiveView().RotateAboutCenter -0.0152645, -0.0163809
Part.ActiveView().RotateAboutCenter -0.259497, -0.0491427
Part.ActiveView().RotateAboutCenter -0.0763227, -0.0273015
Part.ActiveView().RotateAboutCenter -0.0152645, -0.0218412
Part.ActiveView().RotateAboutCenter -0.00763227, -0.114666
Part.ActiveView().RotateAboutCenter 0.0152645, -0.054603
Part.ActiveView().RotateAboutCenter 0.0534259, -0.054603
Part.ActiveView().RotateAboutCenter 0.0610582, -0.0327618
Part.ActiveView().RotateAboutCenter 0.057242, 0
Part.ActiveView().RotateAboutCenter 0.0610582, 0.0109206
Part.ActiveView().RotateAboutCenter 0.0877711, -0.0218412
Part.ActiveView().RotateAboutCenter 0.0801388, -0.0655235
Part.ActiveView().RotateAboutCenter 0.057242, -0.054603
Part.ActiveView().RotateAboutCenter 0.0305291, -0.0109206
Part.ActiveView().RotateAboutCenter 0.0343452, 0
Part.ActiveView().RotateAboutCenter 0.0419775, -0.0054603
Part.ActiveView().RotateAboutCenter 0.0763227, 0.0109206
Part.ActiveView().RotateAboutCenter 0.0419775, 0.0709838
Part.ActiveView().RotateAboutCenter 0, 0.0054603
Part.ActiveView().RotateAboutCenter 0, -0.0054603
Part.ActiveView().RotateAboutCenter -0.00381613, -0.0327618
Part.ActiveView().RotateAboutCenter -0.0152645, 0.0054603
Part.ActiveView().RotateAboutCenter -0.0343452, 0.0218412
Part.ActiveView().RotateAboutCenter -0.0648743, 0.0436824
Part.ActiveView().RotateAboutCenter -0.0610582, 0.0163809
Part.ActiveView().RotateAboutCenter -0.0457936, 0
Part.ActiveView().RotateAboutCenter -0.125932, -0.0218412
Part.ActiveView().RotateAboutCenter -0.00381613, -0.0109206
Part.ActiveView().RotateAboutCenter 0, -0.0054603
Part.ActiveView().RotateAboutCenter -0.083955, -0.0109206
Part.ActiveView().RotateAboutCenter -0.351084, -0.0491427
Part.ActiveView().RotateAboutCenter -0.396878, -0.0709838
Part.ActiveView().RotateAboutCenter -0.557156, -0.141968
Part.ActiveView().RotateAboutCenter -0.610582, -0.0764441
Part.ActiveView().RotateAboutCenter -0.377797, -0.0436824
Part.ActiveView().RotateAboutCenter -0.00381613, -0.0054603
Part.ActiveView().RotateAboutCenter 0.297659, 0.0163809
Part.ActiveView().RotateAboutCenter 0.179358, 0.0491427
Part.ActiveView().RotateAboutCenter 0.274762, 0.0764441
Part.ActiveView().RotateAboutCenter 0.175542, 0.0600633
Part.ActiveView().RotateAboutCenter 0.00763227, -0.0054603
Part.ActiveView().RotateAboutCenter 0, -0.0054603
Part.ActiveView().RotateAboutCenter 0.0152645, 0
Part.ActiveView().RotateAboutCenter 0.0801388, 0.0054603
Part.ActiveView().RotateAboutCenter 0.0457936, 0.0218412
Part.ActiveView().RotateAboutCenter 0.00381613, 0.0109206
Part.ActiveView().RotateAboutCenter 0.00763227, 0.0109206
Part.ActiveView().RotateAboutCenter 0.00381613, 0
Part.ActiveView().RotateAboutCenter 0.0419775, -0.0163809
Part.ActiveView().RotateAboutCenter 0.16791, -0.092825
Part.ActiveView().RotateAboutCenter 0.511362, -0.469585
Part.ActiveView().RotateAboutCenter 0.190807, -0.0709838
Part.ActiveView().RotateAboutCenter 0.206071, 0.0054603
Part.ActiveView().RotateAboutCenter 0.0877711, 0.0273015
Part.ActiveView().RotateAboutCenter 0.179358, 0.0655235
Part.ActiveView().RotateAboutCenter 0.16791, 0
Part.ActiveView().RotateAboutCenter 0.0190807, -0.120127
Part.ActiveView().RotateAboutCenter -0.0228968, -0.36584
Part.ActiveView().RotateAboutCenter -0.0267129, -0.0382221
Part.ActiveView().RotateAboutCenter -0.0190807, -0.0054603
Part.ActiveView().RotateAboutCenter -0.00381613, -0.0054603
Part.ActiveView().RotateAboutCenter -0.114484, -0.0491427
Part.ActiveView().RotateAboutCenter -0.0114484, -0.0054603
Part.ActiveView().RotateAboutCenter -0.0114484, 0.0054603
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub