' ******************************************************************************
' swxJRNL.swj - journal recorded on 09/11/02 by fejo
' ******************************************************************************

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 = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc4 ("D:\Work In Progress\ZEPHYR ANCOR PULLEY\pulley assembly.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("pulley assembly")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter -0.016222, -0.0129181
Part.ActiveView().RotateAboutCenter -0.0227109, -0.0430604
Part.ActiveView().RotateAboutCenter -0.016222, -0.0473665
Part.ActiveView().RotateAboutCenter -0.0129776, -0.146405
Part.ActiveView().RotateAboutCenter -0.00324441, -0.198078
Part.ActiveView().RotateAboutCenter 0.0259553, -0.0732027
Part.ActiveView().RotateAboutCenter 0.175198, -0.0775088
Part.ActiveView().RotateAboutCenter 0.123288, -0.0688967
Part.ActiveView().RotateAboutCenter 0.0259553, -0.0430604
Part.ActiveView().RotateAboutCenter 0, -0.00430604
Part.ActiveView().RotateAboutCenter -0.0194665, 0
Part.ActiveView().RotateAboutCenter -0.016222, 0
Part.ActiveView().RotateAboutCenter -0.00324441, 0.00430604
Part.ActiveView().RotateAboutCenter 0, 0.0129181
Part.ActiveView().RotateAboutCenter 0.00973323, 0.094733
Part.ActiveView().RotateAboutCenter 0.0259553, 0.241138
Part.ActiveView().RotateAboutCenter 0, 0.292811
Part.ActiveView().RotateAboutCenter -0.0389329, 0.310035
Part.ActiveView().RotateAboutCenter -0.0421773, 0.258363
Part.ActiveView().RotateAboutCenter -0.0259553, 0.094733
Part.ActiveView().RotateAboutCenter -0.0324441, 0.0602846
Part.ActiveView().RotateAboutCenter -0.0194665, 0.0172242
Part.ActiveView().RotateAboutCenter -0.0259553, 0.0129181
Part.ActiveView().RotateAboutCenter -0.0194665, 0
Part.ActiveView().RotateAboutCenter 0, -0.00861209
Part.ActiveView().RotateAboutCenter 0.00973323, -0.0602846
Part.ActiveView().RotateAboutCenter 0.0227109, -0.120569
Part.ActiveView().RotateAboutCenter 0.00973323, -0.0430604
Part.ActiveView().RotateAboutCenter 0, -0.00430604
Part.ActiveView().RotateAboutCenter -0.0194665, -0.0301423
Part.ActiveView().RotateAboutCenter -0.0291997, -0.0387544
Part.ActiveView().RotateAboutCenter -0.00324441, 0
Part.ActiveView().RotateAboutCenter -0.00324441, 0
Part.ActiveView().RotateAboutCenter 0, -0.00430604
Part.ActiveView().RotateAboutCenter 0.00324441, -0.0818148
Part.ActiveView().RotateAboutCenter 0.00324441, -0.223914
Part.ActiveView().RotateAboutCenter -0.00648882, -0.0775088
Part.ActiveView().RotateAboutCenter -0.00324441, 0
Part.ActiveView().RotateAboutCenter 0, 0.00430604
Part.ActiveView().RotateAboutCenter -0.00324441, 0.00430604
Part.ActiveView().RotateAboutCenter -0.00648882, 0
Part.ActiveView().RotateAboutCenter -0.0129776, -0.0129181
Part.ActiveView().RotateAboutCenter -0.00973323, -0.0172242
Part.ActiveView().RotateAboutCenter -0.0194665, -0.0301423
Part.ActiveView().RotateAboutCenter -0.0324441, -0.0344484
Part.ActiveView().RotateAboutCenter -0.00973323, -0.00430604
Part.ActiveView().RotateAboutCenter -0.00324441, 0
swApp.ExitApp
End Sub