' ******************************************************************************
' swxJRNL.swj - journal recorded on 05/30/06 by luc
' *****************************************************************************
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 ("E:\CCF CRIC AUTOMOBILE A MANIVELLE\Dessins SW\Cric automobile1.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Cric automobile1.SLDASM")
swApp.ActiveDoc.ActiveView.FrameWidth = 949
swApp.ActiveDoc.ActiveView.FrameHeight = 580
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0, 0.0116974
Part.ActiveView().RotateAboutCenter 0, 0.0116974
Part.ActiveView().RotateAboutCenter 0.0170474, -0.0233948
Part.ActiveView().RotateAboutCenter 0.0170474, -0.0233948
Part.ActiveView().RotateAboutCenter 0.0255711, -0.0935794
Part.ActiveView().RotateAboutCenter 0.0085237, -0.0467897
Part.ActiveView().RotateAboutCenter 0.0170474, -0.152066
Part.ActiveView().RotateAboutCenter 0, -0.0467897
Part.ActiveView().RotateAboutCenter 0, -0.0818819
Part.ActiveView().RotateAboutCenter -0.0085237, -0.0116974
Part.ActiveView().RotateAboutCenter -0.0170474, -0.0233948
Part.ActiveView().RotateAboutCenter 0, -0.0116974
Part.ActiveView().RotateAboutCenter -0.0085237, -0.0233948
Part.ActiveView().RotateAboutCenter 0, -0.0233948
Part.ActiveView().RotateAboutCenter -0.0085237, -0.0116974
Part.ActiveView().RotateAboutCenter 0.0170474, -0.0233948
Part.ActiveView().RotateAboutCenter 0.0085237, -0.0233948
Part.ActiveView().RotateAboutCenter 0.0255711, -0.0350923
Part.ActiveView().RotateAboutCenter 0.0085237, -0.0350923
Part.ActiveView().RotateAboutCenter 0.0255711, -0.0350923
Part.ActiveView().RotateAboutCenter 0.0170474, -0.0233948
Part.ActiveView().RotateAboutCenter 0.0255711, -0.0350923
Part.ActiveView().RotateAboutCenter 0, -0.0116974
Part.ActiveView().RotateAboutCenter 0.0085237, 0
Part.ActiveView().RotateAboutCenter 0.0085237, 0
Part.ActiveView().RotateAboutCenter 0.0085237, 0
Part.ActiveView().RotateAboutCenter 0.0085237, 0
Part.ActiveView().RotateAboutCenter 0.0085237, 0
Part.ActiveView().RotateAboutCenter 0.0085237, 0
Part.ActiveView().RotateAboutCenter 0.0170474, 0
Part.ActiveView().RotateAboutCenter 0.0085237, 0
Part.ActiveView().RotateAboutCenter 0.0085237, 0.0116974
Part.ActiveView().RotateAboutCenter 0, 0.0116974
Part.ActiveView().RotateAboutCenter 0.0085237, 0
Part.ActiveView().RotateAboutCenter 0, 0.0116974
Part.ActiveView().RotateAboutCenter 0, 0.0116974
Part.ActiveView().RotateAboutCenter 0, 0.0350923
Part.ActiveView().RotateAboutCenter 0, 0.0233948
Part.ActiveView().RotateAboutCenter 0, 0.0116974
Part.ActiveView().RotateAboutCenter -0.0085237, 0.0467897
Part.ActiveView().RotateAboutCenter -0.0170474, 0.0350923
Part.ActiveView().RotateAboutCenter -0.0085237, 0.0233948
Part.ActiveView().RotateAboutCenter -0.0085237, 0.0350923
Part.ActiveView().RotateAboutCenter -0.0085237, 0.0233948
Part.ActiveView().RotateAboutCenter -0.0170474, 0.0233948
Part.ActiveView().RotateAboutCenter 0, 0.0233948
Part.ActiveView().RotateAboutCenter -0.0085237, 0.0233948
Part.ActiveView().RotateAboutCenter -0.0170474, 0.0467897
Part.ActiveView().RotateAboutCenter -0.0170474, 0.0467897
Part.ActiveView().RotateAboutCenter 0, 0.0233948
Part.ActiveView().RotateAboutCenter -0.0170474, 0.0467897
Part.ActiveView().RotateAboutCenter -0.0170474, 0.0233948
Part.ActiveView().RotateAboutCenter -0.0085237, 0.0350923
Part.ActiveView().RotateAboutCenter -0.0170474, 0.0116974
Part.ActiveView().RotateAboutCenter -0.0085237, 0
Part.ActiveView().RotateAboutCenter -0.0085237, 0
Part.ActiveView().RotateAboutCenter -0.0085237, -0.0116974
Part.ActiveView().RotateAboutCenter -0.0170474, -0.0584871
Part.ActiveView().RotateAboutCenter -0.0085237, -0.0350923
Part.ActiveView().RotateAboutCenter 0, -0.0818819
Part.ActiveView().RotateAboutCenter 0, -0.0350923
Part.ActiveView().RotateAboutCenter 0, -0.0116974
Part.ActiveView().RotateAboutCenter 0, -0.0116974
Part.ActiveView().RotateAboutCenter 0.0085237, 0.0233948
Part.ActiveView().RotateAboutCenter 0.0170474, 0.0350923
Part.ActiveView().RotateAboutCenter 0, 0.0233948
Part.ActiveView().RotateAboutCenter 0.0085237, 0.0233948
Part.ActiveView().RotateAboutCenter 0, 0.0116974
Part.ActiveView().RotateAboutCenter 0, 0.0116974
Part.ActiveView().RotateAboutCenter 0.0085237, 0
Part.ActiveView().RotateAboutCenter 0.0085237, -0.0116974
Part.ActiveView().RotateAboutCenter 0.0085237, -0.0350923
Part.ActiveView().RotateAboutCenter 0.0085237, -0.0116974
Part.ActiveView().RotateAboutCenter 0, -0.0116974
Part.ActiveView().RotateAboutCenter 0, -0.0116974
Part.ActiveView().RotateAboutCenter 0, -0.0116974
Part.ActiveView().RotateAboutCenter 0.0085237, 0
Part.ActiveView().RotateAboutCenter 0.0085237, -0.0116974
Part.ActiveView().RotateAboutCenter 0.0255711, -0.0233948
Part.ActiveView().RotateAboutCenter 0, -0.0116974
Part.ActiveView().RotateAboutCenter 0.0085237, 0
Part.ActiveView().RotateAboutCenter 0, -0.0116974
Part.ActiveView().RotateAboutCenter 0, -0.0116974
Part.ActiveView().RotateAboutCenter 0, -0.0116974
Part.ActiveView().RotateAboutCenter 0, -0.0116974
Part.ActiveView().RotateAboutCenter 0.0085237, -0.0116974
Part.ActiveView().RotateAboutCenter 0, -0.0116974
Part.ActiveView().RotateAboutCenter 0, -0.0350923
Part.ActiveView().RotateAboutCenter 0.0085237, -0.0233948
Part.ActiveView().RotateAboutCenter 0.0085237, -0.0467897
Part.ActiveView().RotateAboutCenter 0, -0.0116974
Part.ActiveView().RotateAboutCenter 0, -0.0233948
Part.ActiveView().RotateAboutCenter 0, 0.0584871
Part.ActiveView().RotateAboutCenter 0, 0.0350923
Part.ActiveView().RotateAboutCenter -0.0085237, 0.0818819
Part.ActiveView().RotateAboutCenter 0, 0.0350923
Part.ActiveView().RotateAboutCenter -0.0170474, 0.0350923
Part.ActiveView().RotateAboutCenter 0, 0.0116974
Part.ActiveView().RotateAboutCenter 0, 0.0116974
Part.ActiveView().RotateAboutCenter 0, 0.0116974
Part.ActiveView().RotateAboutCenter -0.0085237, 0.0116974
Part.ActiveView().RotateAboutCenter 0, 0.0116974
Part.ActiveView().RotateAboutCenter 0, 0.0116974
boolstatus = Part.Extension.SelectByID("Corps-1@Cric automobile1", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "Cric automobile1.SLDASM"
swApp.ExitApp
End Sub
