' ******************************************************************************
' swxJRNL.swj - journal recorded on 04/12/04 by mob
' *****************************************************************************
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:\900028-Environmental Sample Processor-2001\MUSE Assembly\Big-Can Assembly.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Big-Can Assembly.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
' MSGBOX
' X:\900028-Environmental Sample Processor-2001\MUSE Assembly\Big-Can Assembly.SLDASM has not been rebuilt successfully since the last feature change or an externally referenced model has changed.
' 	It is safest to rebuild before saving.
' 		Rebuild now?

' MSGBOX
' Some of the models referenced in this document have been modified.  They must be saved when the document is saved.
' 		Save the document and the referenced models now?

Part.Save2 FALSE
Part.FileFind
' MSGBOX
' Preserve directory structure?

Set Part = Nothing
swApp.CloseDoc "Big-Can Assembly.SLDASM"
Set Part = swApp.OpenDoc6 ("X:\600045.DORISS\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\PUP_3-Axis.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("PUP_3-Axis.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0.00573184, 0
Part.ActiveView().RotateAboutCenter -0.0286592, -0.0420749
Part.ActiveView().RotateAboutCenter -0.0286592, -0.0252449
Part.ActiveView().RotateAboutCenter -0.0114637, -0.00841498
Part.ActiveView().RotateAboutCenter -0.0286592, -0.0252449
Part.ActiveView().RotateAboutCenter -0.034391, -0.0757348
Part.ActiveView().RotateAboutCenter -0.0401229, -0.0757348
Part.ActiveView().RotateAboutCenter -0.0171955, -0.0252449
Part.ActiveView().RotateAboutCenter -0.0171955, -0.0336599
Part.ActiveView().RotateAboutCenter -0.0171955, -0.0336599
Part.ActiveView().RotateAboutCenter 0.00573184, -0.00841498
Part.ActiveView().RotateAboutCenter 0.0515865, -0.109395
Part.ActiveView().RotateAboutCenter 0.00573184, -0.0252449
Part.ActiveView().RotateAboutCenter 0.0458547, -0.13464
Part.ActiveView().RotateAboutCenter 0.068782, -0.109395
Part.ActiveView().RotateAboutCenter 0.0171955, -0.00841498
Part.ActiveView().RotateAboutCenter 0.0458547, 0
Part.ActiveView().RotateAboutCenter 0.0229273, 0
Part.ActiveView().RotateAboutCenter 0.0630502, 0.0673198
Part.ActiveView().RotateAboutCenter 0.0859776, 0.0252449
Part.ActiveView().RotateAboutCenter 0.0974412, -0.01683
Part.ActiveView().RotateAboutCenter 0.1261, -0.0252449
Part.ActiveView().RotateAboutCenter 0.103173, -0.00841498
Part.ActiveView().RotateAboutCenter 0.0802457, -0.01683
Part.ActiveView().RotateAboutCenter 0.0859776, 0.00841498
Part.ActiveView().RotateAboutCenter 0.0917094, 0
Part.ActiveView().RotateAboutCenter 0.0286592, 0.01683
Part.ActiveView().RotateAboutCenter 0.0802457, 0.01683
Part.ActiveView().RotateAboutCenter 0.0745139, 0.01683
Part.ActiveView().RotateAboutCenter 0.0573184, 0
Part.ActiveView().RotateAboutCenter 0.0286592, 0.00841498
Part.ActiveView().RotateAboutCenter 0.00573184, 0
Part.ActiveView().RotateAboutCenter 0.0114637, 0
Part.ActiveView().RotateAboutCenter 0.0171955, 0
Part.ActiveView().RotateAboutCenter -0.00573184, 0
Part.ActiveView().RotateAboutCenter -0.0917094, 0.0252449
Part.ActiveView().RotateAboutCenter -0.229273, 0.0673198
Part.ActiveView().RotateAboutCenter -0.235005, 0.0252449
Part.ActiveView().RotateAboutCenter -0.15476, 0
Part.ActiveView().RotateAboutCenter -0.120369, 0
Part.ActiveView().RotateAboutCenter -0.166223, 0
Part.ActiveView().RotateAboutCenter -0.114637, 0
Part.ActiveView().RotateAboutCenter -0.143296, -0.10098
Part.ActiveView().RotateAboutCenter -0.0458547, -0.0336599
Part.ActiveView().RotateAboutCenter -0.0458547, -0.0420749
Part.ActiveView().RotateAboutCenter -0.0401229, -0.0336599
Part.ActiveView().RotateAboutCenter -0.00573184, 0
Part.ActiveView().RotateAboutCenter -0.0515865, 0.20196
Part.ActiveView().RotateAboutCenter -0.0286592, 0.11781
Part.ActiveView().RotateAboutCenter -0.0114637, 0.0420749
Part.ActiveView().RotateAboutCenter -0.0114637, 0.0673198
Part.ActiveView().RotateAboutCenter 0, 0.00841498
Part.ActiveView().RotateAboutCenter 0.108905, 0.143055
Part.ActiveView().RotateAboutCenter 0.108905, 0.01683
Part.ActiveView().RotateAboutCenter 0.143296, 0.0841498
Part.ActiveView().RotateAboutCenter 0.0171955, 0.00841498
Part.ActiveView().RotateAboutCenter 0.0458547, 0.0336599
Part.ActiveView().RotateAboutCenter 0.0114637, 0.00841498
Part.ActiveView().RotateAboutCenter 0.068782, 0.0420749
Part.ActiveView().RotateAboutCenter 0.0286592, 0.01683
Part.ActiveView().RotateAboutCenter 0.0286592, 0.00841498
Part.ActiveView().RotateAboutCenter -0.00573184, 0
Part.ActiveView().RotateAboutCenter -0.0171955, 0
Part.ActiveView().RotateAboutCenter -0.0229273, 0.00841498
Part.ActiveView().RotateAboutCenter -0.131832, 0.01683
Part.ActiveView().RotateAboutCenter -0.120369, 0
Part.ActiveView().RotateAboutCenter -0.149028, 0
Part.ActiveView().RotateAboutCenter -0.0573184, 0
Part.ActiveView().RotateAboutCenter -0.0114637, 0
Part.ActiveView().RotateAboutCenter -0.00573184, 0
Part.ActiveView().RotateAboutCenter -0.00573184, 0
Part.ActiveView().RotateAboutCenter -0.0171955, 0
Part.ActiveView().RotateAboutCenter -0.0286592, -0.01683
Part.ActiveView().RotateAboutCenter -0.00573184, 0
Part.ActiveView().RotateAboutCenter 0.00573184, 0
Part.ActiveView().RotateAboutCenter 0.120369, 0.00841498
Part.ActiveView().RotateAboutCenter 0.103173, -0.0420749
Part.ActiveView().RotateAboutCenter 0.0974412, -0.0252449
Part.ActiveView().RotateAboutCenter 0.0286592, 0.01683
Part.ActiveView().RotateAboutCenter 0.0229273, 0.0841498
Part.ActiveView().RotateAboutCenter 0.00573184, 0.10098
Part.ActiveView().RotateAboutCenter 0.00573184, 0.0420749
Part.ActiveView().RotateAboutCenter 0.0171955, 0.00841498
Part.ActiveView().RotateAboutCenter 0.0573184, 0.0252449
Part.ActiveView().RotateAboutCenter 0.0229273, 0.0336599
Part.ActiveView().RotateAboutCenter 0, 0.01683
Part.ActiveView().RotateAboutCenter 0, 0.0673198
Part.ActiveView().RotateAboutCenter 0.034391, 0.1683
Part.ActiveView().RotateAboutCenter 0.0286592, 0.0673198
Part.ActiveView().RotateAboutCenter 0.0802457, 0.11781
Part.ActiveView().RotateAboutCenter 0.0630502, 0.176715
Part.ActiveView().RotateAboutCenter 0, 0.00841498
Part.ActiveView().RotateAboutCenter 0.00573184, 0
Part.ActiveView().RotateAboutCenter -0.00573184, -0.0336599
Part.ActiveView().RotateAboutCenter -0.0917094, -0.319769
Part.ActiveView().RotateAboutCenter -0.0229273, -0.11781
Part.ActiveView().RotateAboutCenter -0.0171955, -0.0673198
Part.ActiveView().RotateAboutCenter -0.0802457, -0.15147
Part.ActiveView().RotateAboutCenter -0.0114637, -0.0504899
Part.ActiveView().RotateAboutCenter -0.0229273, -0.0673198
Part.ActiveView().RotateAboutCenter 0, -0.01683
Part.ActiveView().RotateAboutCenter 0, -0.0252449
Part.ActiveView().RotateAboutCenter 0.0114637, -0.0252449
Part.ActiveView().RotateAboutCenter 0.0859776, -0.01683
Part.ActiveView().RotateAboutCenter 0.0630502, 0.143055
Part.ActiveView().RotateAboutCenter 0, 0.01683
Part.ActiveView().RotateAboutCenter -0.0229273, 0.00841498
Part.ActiveView().RotateAboutCenter -0.0859776, 0.00841498
Part.ActiveView().RotateAboutCenter -0.0171955, -0.0252449
Part.ActiveView().RotateAboutCenter -0.0229273, -0.0336599
Part.ActiveView().RotateAboutCenter 0, -0.00841498
Part.ActiveView().RotateAboutCenter 0, -0.00841498
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0.00507488, 0
Part.ActiveView().RotateAboutCenter 0.00507488, 0.00810485
Part.ActiveView().RotateAboutCenter 0.0152246, 0.00810485
Part.ActiveView().RotateAboutCenter 0.00507488, 0
Part.ActiveView().RotateAboutCenter 0.0152246, 0
Part.ActiveView().RotateAboutCenter 0.0152246, 0
Part.ActiveView().RotateAboutCenter 0.0101498, 0
Part.ActiveView().RotateAboutCenter 0.00507488, -0.00810485
Part.ActiveView().RotateAboutCenter 0, -0.0324194
Part.ActiveView().RotateAboutCenter 0, 0.00810485
Part.ActiveView().RotateAboutCenter 0.00507488, 0.0324194
Part.ActiveView().RotateAboutCenter 0.0152246, 0.0486291
Set Part = Nothing
swApp.CloseDoc "PUP_3-Axis.SLDASM"
swApp.ExitApp
End Sub