' ******************************************************************************
' swxJRNL.swj - journal recorded on 01/12/00 by Administrator
' ******************************************************************************

Dim swApp As Object
Dim Part As Object
Dim Gtol As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc ("G:\Ore_Trackpoint\Trackpoint_transponder.SLDPRT", 1)
Set Part = swApp.ActivateDoc ("Trackpoint_transponder.SLDPRT")
Part.ActiveView().RotateAboutCenter 0, -0.00690364
Part.ActiveView().RotateAboutCenter -0.468275, -0.821533
Part.ActiveView().RotateAboutCenter -0.103513, -0.0828437
Part.ActiveView().RotateAboutCenter -0.12323, -0.0828437
Part.ActiveView().RotateAboutCenter -0.12816, -0.0966509
Part.ActiveView().RotateAboutCenter -0.0788674, -0.0483255
Part.ActiveView().RotateAboutCenter -0.108443, -0.124266
Part.ActiveView().RotateAboutCenter -0.18731, -0.3797
Part.ActiveView().RotateAboutCenter -0.142947, -0.45564
Part.ActiveView().RotateAboutCenter -0.147876, -1.11839
Part.ActiveView().RotateAboutCenter -0.0246461, -0.193302
Part.ActiveView().RotateAboutCenter 0, -0.0207109
Set Part = swApp.OpenDoc ("G:\Ore_Trackpoint\Drop-ORE.SLDPRT", 1)
Set Part = swApp.ActivateDoc ("Drop-ORE.SLDPRT")
Part.ActiveView().RotateAboutCenter 0.0150568, -0.00690364
Part.ActiveView().RotateAboutCenter 0.235889, -0.0345182
Part.ActiveView().RotateAboutCenter 0.0803028, 0
Part.ActiveView().RotateAboutCenter 0.225852, 0.0552291
Part.ActiveView().RotateAboutCenter 0.165625, 0.07594
Part.ActiveView().RotateAboutCenter 0.130492, 0.15188
Part.ActiveView().RotateAboutCenter 0.150568, 0.869859
Part.ActiveView().RotateAboutCenter 0.0752839, 0.635135
Part.ActiveView().RotateAboutCenter 0.0752839, 0.552291
Part.ActiveView().RotateAboutCenter 0.0953596, 0.428026
Part.ActiveView().RotateAboutCenter 0.0150568, 0.0276146
Part.ActiveView().RotateAboutCenter 0, -0.0138073
Part.ActiveView().RotateAboutCenter -0.0702649, -0.952702
Part.ActiveView().RotateAboutCenter -0.105397, -0.973413
Part.ActiveView().RotateAboutCenter -0.0401514, -0.414218
Part.ActiveView().RotateAboutCenter -0.0803028, -0.814629
Part.ActiveView().RotateAboutCenter -0.0953596, -0.248531
Part.ActiveView().RotateAboutCenter -0.0100378, -0.0138073
Set Part = Nothing
swApp.CloseDoc "Drop-ORE.SLDPRT"
Set Part = swApp.ActivateDoc ("Trackpoint_transponder.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Trackpoint_transponder.SLDPRT"
Set Part = swApp.OpenDoc ("F:\models\vehicle_configurations\12_31_99.SLDASM", 2)
Set Part = swApp.ActivateDoc ("12_31_99.SLDASM")