' ******************************************************************************
' swxJRNL.swj - journal recorded on 07/16/03 by hamilton
' *****************************************************************************
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 ("K:\Drawings\Multibeam\Battery Nose\2KWhrBattery-broken.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("2KWhrBattery-broken")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0.00678739, 0
Part.ActiveView().RotateAboutCenter 0.0542991, -0.0239323
Part.ActiveView().RotateAboutCenter 0.15611, -0.0239323
Part.ActiveView().RotateAboutCenter 0.352944, -0.0159549
Part.ActiveView().RotateAboutCenter 0.0882361, 0.0319098
Part.ActiveView().RotateAboutCenter 0.251133, 0.231346
Part.ActiveView().RotateAboutCenter 0.0746613, 0.271233
Part.ActiveView().RotateAboutCenter 0.0203622, 0.271233
Part.ActiveView().RotateAboutCenter -0.033937, 0.167526
Part.ActiveView().RotateAboutCenter -0.0610865, 0.0877519
Part.ActiveView().RotateAboutCenter -0.0542991, 0.071797
Part.ActiveView().RotateAboutCenter -0.0610865, 0.0398872
Part.ActiveView().RotateAboutCenter -0.033937, 0.0159549
Part.ActiveView().RotateAboutCenter -0.0135748, 0
Part.ActiveView().RotateAboutCenter -0.00678739, 0
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter -0.0950235, -0.167526
Part.ActiveView().RotateAboutCenter -0.0814487, -0.319098
Part.ActiveView().RotateAboutCenter -0.0746613, -0.263256
Part.ActiveView().RotateAboutCenter -0.0203622, -0.0877519
Part.ActiveView().RotateAboutCenter -0.00678739, -0.00797744
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter -0.0814487, -0.295165
Part.ActiveView().RotateAboutCenter -0.101811, -0.446737
Part.ActiveView().RotateAboutCenter -0.0203622, -0.0319098
Part.ActiveView().RotateAboutCenter -0.00678739, 0
Part.ActiveView().RotateAboutCenter -0.0746613, -0.0319098
Part.ActiveView().RotateAboutCenter -0.0542991, -0.0159549
Part.ActiveView().RotateAboutCenter -0.0407243, 0
Part.ActiveView().RotateAboutCenter -0.0203622, 0
Part.ActiveView().RotateAboutCenter -0.0203622, 0.00797744
Part.ActiveView().RotateAboutCenter -0.0203622, 0.00797744
Part.ActiveView().RotateAboutCenter -0.00678739, 0.00797744
Part.ActiveView().RotateAboutCenter -0.00678739, 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub