' ******************************************************************************
' C:\WINDOWS\TEMP\swx-886187\Macro1.swb - macro recorded on 05/18/99 by delaunay
' ******************************************************************************
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.ActiveDoc
Part.ActiveView().RotateAboutCenter 0.00487609, 0
Part.ActiveView().RotateAboutCenter 0.209672, -0.259994
Part.ActiveView().RotateAboutCenter 0.058513, -0.266494
Part.ActiveView().RotateAboutCenter 0.0341326, -0.116997
Part.ActiveView().RotateAboutCenter 0.0292565, -0.0714983
Part.ActiveView().RotateAboutCenter 0.0438848, -0.142997
Part.ActiveView().RotateAboutCenter 0.0341326, -0.110497
Part.ActiveView().RotateAboutCenter 0.0390087, -0.142997
Part.ActiveView().RotateAboutCenter 0.0341326, -0.123497
Part.ActiveView().RotateAboutCenter 0.0292565, -0.0909979
Part.ActiveView().RotateAboutCenter 0.0243804, -0.103998
Part.ActiveView().RotateAboutCenter 0.0341326, -0.116997
Part.ActiveView().RotateAboutCenter 0.0341326, -0.155996
Part.ActiveView().RotateAboutCenter 0.0195043, -0.116997
Part.ActiveView().RotateAboutCenter 0.00975217, -0.0454989
Part.ActiveView().RotateAboutCenter 0.0146283, -0.0519988
Part.ActiveView().RotateAboutCenter 0.00975217, -0.0584986
Part.ActiveView().RotateAboutCenter 0.0146283, -0.0909979
Part.ActiveView().RotateAboutCenter 0.0146283, -0.233994
Part.ActiveView().RotateAboutCenter 0.00487609, -0.0974977
Part.ActiveView().RotateAboutCenter 0.00487609, -0.084498
Part.ActiveView().RotateAboutCenter 0, -0.201495
Part.ActiveView().RotateAboutCenter -0.00975217, -0.0974977
Part.ActiveView().RotateAboutCenter -0.00975217, -0.084498
Part.ActiveView().RotateAboutCenter -0.00487609, -0.0649985
Part.ActiveView().RotateAboutCenter -0.00487609, -0.0649985
Part.ActiveView().RotateAboutCenter -0.0243804, -0.207995
Part.ActiveView().RotateAboutCenter -0.160911, -0.253494
Part.ActiveView().RotateAboutCenter -0.204796, -0.103998
Part.ActiveView().RotateAboutCenter -0.195043, -0.279493
Part.ActiveView().RotateAboutCenter -0.0146283, -0.0584986
Part.ActiveView().RotateAboutCenter -0.0243804, -0.123497
Part.ActiveView().RotateAboutCenter 0.11215, -0.129997
Part.ActiveView().RotateAboutCenter 0.11215, -0.0194995
Part.ActiveView().RotateAboutCenter 0.13653, -0.0584986
Part.ActiveView().RotateAboutCenter 0.0926456, -0.0389991
Part.ActiveView().RotateAboutCenter 0.0780174, -0.0389991
Part.ActiveView().RotateAboutCenter 0.0926456, -0.0324992
Part.ActiveView().RotateAboutCenter 0.11215, -0.00649985
Part.ActiveView().RotateAboutCenter 0.170663, 0.0194995
Part.ActiveView().RotateAboutCenter 0.214548, 0.0779982
Part.ActiveView().RotateAboutCenter 0.253556, 0.240494
Part.ActiveView().RotateAboutCenter 0.058513, 0.240494
Part.ActiveView().RotateAboutCenter 0.0438848, 0.149496
Part.ActiveView().RotateAboutCenter 0.0292565, 0.246994
Part.ActiveView().RotateAboutCenter 0.0292565, 0.266494
Part.ActiveView().RotateAboutCenter 0.0146283, 0.181996
Part.ActiveView().RotateAboutCenter 0, 0.084498
Part.ActiveView().RotateAboutCenter -0.00975217, 0.0519988
Part.ActiveView().RotateAboutCenter -0.0926456, 0.0714983
Part.ActiveView().RotateAboutCenter -0.0682652, 0.0649985
Part.ActiveView().RotateAboutCenter -0.146283, -0.0519988
Part.ActiveView().RotateAboutCenter -0.0926456, -0.142997
Part.ActiveView().RotateAboutCenter -0.0731413, -0.116997
Part.ActiveView().RotateAboutCenter -0.0292565, -0.116997
Part.ActiveView().RotateAboutCenter -0.0195043, -0.0194995
Part.ActiveView().RotateAboutCenter -0.0390087, -0.0259994
Part.ActiveView().RotateAboutCenter -0.0487609, 0
Part.ActiveView().RotateAboutCenter -0.00487609, 0
End Sub
