' ******************************************************************************
' swxJRNL.swj - journal recorded on 11/17/04 by fejo
' *****************************************************************************
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 ("C:\Documents and Settings\fejo\Desktop\pig pullys\bearing.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("bearing.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.0125306, 0.00786334
Part.ActiveView().RotateAboutCenter -0.0313264, 0.0157267
Part.ActiveView().RotateAboutCenter -0.0250611, 0.0157267
Part.ActiveView().RotateAboutCenter -0.0250611, 0.02359
Part.ActiveView().RotateAboutCenter -0.043857, 0.0314534
Part.ActiveView().RotateAboutCenter -0.0250611, 0.0157267
Part.ActiveView().RotateAboutCenter -0.0250611, 0.0314534
Part.ActiveView().RotateAboutCenter -0.0187959, 0.0157267
Part.ActiveView().RotateAboutCenter -0.0313264, 0.02359
Part.ActiveView().RotateAboutCenter -0.0187959, 0.0157267
Part.ActiveView().RotateAboutCenter -0.0125306, 0.00786334
Part.ActiveView().RotateAboutCenter 0, 0.00786334
Part.ActiveView().RotateAboutCenter -0.0125306, 0
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.0125306, 0
Part.ActiveView().RotateAboutCenter -0.0125306, 0.00786334
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.0125306, 0.00786334
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.00626528, -0.00786334
Part.ActiveView().RotateAboutCenter -0.00626528, -0.00786334
Part.ActiveView().RotateAboutCenter -0.00626528, -0.00786334
Part.ActiveView().RotateAboutCenter -0.00626528, -0.0157267
Part.ActiveView().RotateAboutCenter -0.00626528, -0.00786334
Part.ActiveView().RotateAboutCenter -0.0125306, -0.00786334
Part.ActiveView().RotateAboutCenter 0, -0.00786334
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0.02359
Part.ActiveView().RotateAboutCenter 0.0125306, 0.0157267
Part.ActiveView().RotateAboutCenter 0.0250611, 0.0314534
Part.ActiveView().RotateAboutCenter 0.0187959, 0.02359
Part.ActiveView().RotateAboutCenter 0.0125306, 0.0157267
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.0313264, 0
Part.ActiveView().RotateAboutCenter -0.0375917, -0.0157267
Part.ActiveView().RotateAboutCenter -0.043857, -0.02359
Part.ActiveView().RotateAboutCenter -0.043857, -0.02359
Part.ActiveView().RotateAboutCenter -0.0187959, -0.00786334
Part.ActiveView().RotateAboutCenter -0.0250611, -0.0157267
Part.ActiveView().RotateAboutCenter -0.0125306, -0.0157267
Part.ActiveView().RotateAboutCenter -0.0125306, -0.0157267
Part.ActiveView().RotateAboutCenter -0.0313264, -0.0314534
Part.ActiveView().RotateAboutCenter -0.0125306, -0.0157267
Part.ActiveView().RotateAboutCenter -0.0125306, 0
Part.ActiveView().RotateAboutCenter -0.00626528, -0.00786334
Part.ActiveView().RotateAboutCenter 0, -0.00786334
Part.ActiveView().RotateAboutCenter 0, -0.00786334
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter 0, -0.0157267
Part.ActiveView().RotateAboutCenter 0.00626528, -0.00786334
Part.ActiveView().RotateAboutCenter 0.0125306, -0.0157267
Part.ActiveView().RotateAboutCenter 0.0250611, -0.0157267
Part.ActiveView().RotateAboutCenter 0.0187959, -0.00786334
Part.ActiveView().RotateAboutCenter 0.0250611, -0.0157267
Part.ActiveView().RotateAboutCenter 0.0313264, -0.0157267
Part.ActiveView().RotateAboutCenter 0.043857, -0.00786334
Part.ActiveView().RotateAboutCenter 0.0125306, -0.00786334
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.0187959, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0.00786334
Part.ActiveView().RotateAboutCenter 0.0187959, 0.00786334
Part.ActiveView().RotateAboutCenter 0.0187959, 0.02359
Part.ActiveView().RotateAboutCenter 0.0125306, 0.02359
Part.ActiveView().RotateAboutCenter 0.0125306, 0.0157267
Part.ActiveView().RotateAboutCenter 0.0125306, 0.0157267
Part.ActiveView().RotateAboutCenter 0.0187959, 0.0157267
Part.ActiveView().RotateAboutCenter 0.0187959, 0.0314534
Part.ActiveView().RotateAboutCenter 0.0250611, 0.0314534
Part.ActiveView().RotateAboutCenter 0.0125306, 0.0157267
Part.ActiveView().RotateAboutCenter 0.0125306, 0.0157267
Part.ActiveView().RotateAboutCenter 0, 0.00786334
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.0187959, 0.0157267
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.0187959, 0.0157267
Part.ActiveView().RotateAboutCenter 0.0187959, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.0313264, 0
Part.ActiveView().RotateAboutCenter -0.0187959, 0
Part.ActiveView().RotateAboutCenter -0.0187959, -0.00786334
Part.ActiveView().RotateAboutCenter -0.0187959, -0.00786334
Part.ActiveView().RotateAboutCenter -0.0187959, -0.0157267
Part.ActiveView().RotateAboutCenter -0.0125306, -0.00786334
Part.ActiveView().RotateAboutCenter -0.00626528, -0.00786334
Part.ActiveView().RotateAboutCenter -0.00626528, -0.00786334
Part.ActiveView().RotateAboutCenter -0.0187959, -0.00786334
Part.ActiveView().RotateAboutCenter -0.0375917, -0.02359
Part.ActiveView().RotateAboutCenter -0.0250611, -0.00786334
Part.ActiveView().RotateAboutCenter -0.0187959, -0.00786334
Part.ActiveView().RotateAboutCenter -0.0125306, 0
Part.ActiveView().RotateAboutCenter -0.0187959, 0
Part.ActiveView().RotateAboutCenter -0.0125306, 0
Part.ActiveView().RotateAboutCenter -0.0125306, 0
Part.ActiveView().RotateAboutCenter -0.0313264, 0
Part.ActiveView().RotateAboutCenter -0.0187959, 0
Part.ActiveView().RotateAboutCenter -0.0187959, 0
Part.ActiveView().RotateAboutCenter -0.0250611, 0
Part.ActiveView().RotateAboutCenter -0.0125306, 0
Part.ActiveView().RotateAboutCenter -0.0187959, 0
Part.ActiveView().RotateAboutCenter -0.0125306, 0
Part.ActiveView().RotateAboutCenter -0.0125306, 0
Part.ActiveView().RotateAboutCenter -0.0187959, 0
Part.ActiveView().RotateAboutCenter -0.0125306, 0
Part.ActiveView().RotateAboutCenter -0.0250611, 0
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.0187959, 0
Part.ActiveView().RotateAboutCenter -0.0187959, 0
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.0125306, 0
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.0187959, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.0187959, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.0187959, 0
Part.ActiveView().RotateAboutCenter 0.0375917, 0.0157267
Part.ActiveView().RotateAboutCenter 0.0313264, 0.0157267
Part.ActiveView().RotateAboutCenter 0.0313264, 0.0157267
Part.ActiveView().RotateAboutCenter 0.0375917, 0.02359
Part.ActiveView().RotateAboutCenter 0.0375917, 0.0157267
Part.ActiveView().RotateAboutCenter 0.0501223, 0.02359
Part.ActiveView().RotateAboutCenter 0.0375917, 0.0157267
Part.ActiveView().RotateAboutCenter 0.0187959, 0.00786334
Part.ActiveView().RotateAboutCenter 0.0125306, 0.0157267
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.0313264, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0.00786334
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.0125306, -0.00786334
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0, -0.00786334
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.0187959, 0
Part.ActiveView().RotateAboutCenter -0.043857, 0
Part.ActiveView().RotateAboutCenter -0.0375917, -0.0157267
Part.ActiveView().RotateAboutCenter -0.0250611, -0.0157267
Part.ActiveView().RotateAboutCenter -0.0125306, -0.00786334
Part.ActiveView().RotateAboutCenter -0.00626528, -0.0157267
Part.ActiveView().RotateAboutCenter 0, -0.00786334
Part.ActiveView().RotateAboutCenter 0, -0.00786334
Part.ActiveView().RotateAboutCenter 0, -0.0157267
Part.ActiveView().RotateAboutCenter 0.0125306, -0.0629067
Part.ActiveView().RotateAboutCenter 0.0375917, -0.0786334
Part.ActiveView().RotateAboutCenter 0.0375917, -0.0943601
Part.ActiveView().RotateAboutCenter 0.0375917, -0.110087
Part.ActiveView().RotateAboutCenter 0.0125306, -0.0157267
Part.ActiveView().RotateAboutCenter -0.0125306, 0.0157267
Part.ActiveView().RotateAboutCenter -0.0125306, 0
Part.ActiveView().RotateAboutCenter -0.0250611, 0.00786334
Part.ActiveView().RotateAboutCenter -0.0250611, 0.02359
Part.ActiveView().RotateAboutCenter -0.0250611, 0.02359
Part.ActiveView().RotateAboutCenter -0.0313264, 0.0314534
Part.ActiveView().RotateAboutCenter -0.0375917, 0.0314534
Part.ActiveView().RotateAboutCenter -0.0250611, 0.0157267
Part.ActiveView().RotateAboutCenter -0.0250611, 0.0393167
Part.ActiveView().RotateAboutCenter -0.0187959, 0.0314534
Part.ActiveView().RotateAboutCenter -0.0187959, 0.02359
Part.ActiveView().RotateAboutCenter -0.0187959, 0.0157267
Part.ActiveView().RotateAboutCenter -0.0125306, 0.02359
Part.ActiveView().RotateAboutCenter -0.0187959, 0.02359
Part.ActiveView().RotateAboutCenter -0.0187959, 0.0314534
Part.ActiveView().RotateAboutCenter -0.0187959, 0.0157267
Part.ActiveView().RotateAboutCenter -0.0187959, 0.0393167
Part.ActiveView().RotateAboutCenter -0.0250611, 0.0393167
Part.ActiveView().RotateAboutCenter -0.0375917, 0.0550434
Part.ActiveView().RotateAboutCenter -0.043857, 0.0471801
Part.ActiveView().RotateAboutCenter -0.0626528, 0.0629067
Part.ActiveView().RotateAboutCenter -0.0501223, 0.0393167
Part.ActiveView().RotateAboutCenter -0.0501223, 0.0393167
Part.ActiveView().RotateAboutCenter -0.0313264, 0.0157267
Part.ActiveView().RotateAboutCenter -0.0250611, 0
Part.ActiveView().RotateAboutCenter -0.0187959, 0
Part.ActiveView().RotateAboutCenter -0.0187959, 0
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.00626528, -0.0157267
Part.ActiveView().RotateAboutCenter -0.0125306, -0.00786334
Part.ActiveView().RotateAboutCenter -0.0125306, -0.02359
Part.ActiveView().RotateAboutCenter -0.0187959, -0.0157267
Part.ActiveView().RotateAboutCenter -0.0250611, -0.0157267
Part.ActiveView().RotateAboutCenter -0.0187959, -0.0157267
Part.ActiveView().RotateAboutCenter -0.0313264, -0.0157267
Part.ActiveView().RotateAboutCenter -0.0313264, -0.00786334
Part.ActiveView().RotateAboutCenter -0.0751834, -0.02359
Part.ActiveView().RotateAboutCenter -0.043857, -0.0157267
Part.ActiveView().RotateAboutCenter -0.043857, -0.0157267
Part.ActiveView().RotateAboutCenter -0.043857, -0.00786334
Part.ActiveView().RotateAboutCenter -0.0187959, -0.00786334
Part.ActiveView().RotateAboutCenter -0.0125306, -0.00786334
Part.ActiveView().RotateAboutCenter 0, -0.00786334
Part.ActiveView().RotateAboutCenter 0, -0.00786334
Part.ActiveView().RotateAboutCenter 0.0125306, -0.0157267
Part.ActiveView().RotateAboutCenter 0, -0.0157267
Part.ActiveView().RotateAboutCenter 0.0250611, -0.0393167
Part.ActiveView().RotateAboutCenter 0.0187959, -0.0393167
Part.ActiveView().RotateAboutCenter 0.0250611, -0.0629067
Part.ActiveView().RotateAboutCenter 0.0187959, -0.0314534
Part.ActiveView().RotateAboutCenter 0.00626528, -0.0157267
Part.ActiveView().RotateAboutCenter 0.0125306, -0.00786334
Part.ActiveView().RotateAboutCenter 0.0313264, -0.0157267
Part.ActiveView().RotateAboutCenter 0.0250611, -0.00786334
Part.ActiveView().RotateAboutCenter 0.043857, -0.00786334
Part.ActiveView().RotateAboutCenter 0.0250611, 0.00786334
Part.ActiveView().RotateAboutCenter 0.0313264, 0.0314534
Part.ActiveView().RotateAboutCenter 0.043857, 0.0786334
Part.ActiveView().RotateAboutCenter 0.0250611, 0.0629067
Part.ActiveView().RotateAboutCenter 0.0313264, 0.0707701
Part.ActiveView().RotateAboutCenter 0.0187959, 0.0786334
Part.ActiveView().RotateAboutCenter 0.0187959, 0.0314534
Part.ActiveView().RotateAboutCenter 0.00626528, 0.02359
Part.ActiveView().RotateAboutCenter 0.00626528, 0.0157267
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.0313264, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.0187959, -0.0157267
Part.ActiveView().RotateAboutCenter 0.0313264, -0.0157267
Part.ActiveView().RotateAboutCenter 0.0187959, -0.0157267
Part.ActiveView().RotateAboutCenter 0.0375917, -0.02359
Part.ActiveView().RotateAboutCenter 0.0626528, -0.0314534
Part.ActiveView().RotateAboutCenter 0.0501223, -0.0393167
Part.ActiveView().RotateAboutCenter 0.0501223, -0.0393167
Part.ActiveView().RotateAboutCenter 0.0375917, -0.0314534
Part.ActiveView().RotateAboutCenter 0.0501223, -0.0314534
Part.ActiveView().RotateAboutCenter 0.0250611, -0.02359
Part.ActiveView().RotateAboutCenter 0.0125306, -0.00786334
Part.ActiveView().RotateAboutCenter 0, -0.00786334
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.0125306, 0
Part.ActiveView().RotateAboutCenter -0.0187959, 0.0157267
Part.ActiveView().RotateAboutCenter -0.0125306, 0
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.SaveAs2 "C:\Documents and Settings\fejo\Desktop\pig pullys\DOCK POLLER\bearing.SLDPRT", 0, TRUE, FALSE
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub