' ******************************************************************************
' swxJRNL.swj - journal recorded on 11/10/04 by nicolas delort
' *****************************************************************************
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\nicolas delort\Bureau\COURS\DELORT COURS\theme MPMI\Minipince\Corps.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Corps")
swApp.ActiveDoc.ActiveView.FrameWidth = 918
swApp.ActiveDoc.ActiveView.FrameHeight = 617
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.0105727
Part.ActiveView().RotateAboutCenter 0, 0.0105727
Part.ActiveView().RotateAboutCenter 0, 0.0105727
Part.ActiveView().RotateAboutCenter 0, 0.0211453
Part.ActiveView().RotateAboutCenter 0, 0.063436
Part.ActiveView().RotateAboutCenter 0, 0.0528633
Part.ActiveView().RotateAboutCenter 0, 0.031718
Part.ActiveView().RotateAboutCenter 0, 0.031718
Part.ActiveView().RotateAboutCenter 0, 0.0422907
Part.ActiveView().RotateAboutCenter 0, 0.031718
Part.ActiveView().RotateAboutCenter 0, 0.031718
Part.ActiveView().RotateAboutCenter 0, 0.0422907
Part.ActiveView().RotateAboutCenter 0, 0.0422907
Part.ActiveView().RotateAboutCenter 0.0188227, 0.0740087
Part.ActiveView().RotateAboutCenter 0.00941133, 0.0422907
Part.ActiveView().RotateAboutCenter 0.028234, 0.0528633
Part.ActiveView().RotateAboutCenter 0.00941133, 0.0422907
Part.ActiveView().RotateAboutCenter 0.0188227, 0.031718
Part.ActiveView().RotateAboutCenter 0, 0.0211453
Part.ActiveView().RotateAboutCenter 0.0188227, 0.031718
Part.ActiveView().RotateAboutCenter 0.00941133, 0.031718
Part.ActiveView().RotateAboutCenter 0.056468, 0.0845813
Part.ActiveView().RotateAboutCenter 0.0376453, 0.063436
Part.ActiveView().RotateAboutCenter 0.028234, 0.063436
Part.ActiveView().RotateAboutCenter 0.028234, 0.0528633
Part.ActiveView().RotateAboutCenter 0.0188227, 0.0422907
Part.ActiveView().RotateAboutCenter 0.028234, 0.0422907
Part.ActiveView().RotateAboutCenter 0.028234, 0.031718
Part.ActiveView().RotateAboutCenter 0.0470567, 0.0740087
Part.ActiveView().RotateAboutCenter 0.0376453, 0.0740087
Part.ActiveView().RotateAboutCenter 0.00941133, 0.0422907
Part.ActiveView().RotateAboutCenter 0.0188227, 0.0528633
Part.ActiveView().RotateAboutCenter 0.00941133, 0.0422907
Part.ActiveView().RotateAboutCenter 0, 0.063436
Part.ActiveView().RotateAboutCenter 0, 0.0422907
Part.ActiveView().RotateAboutCenter -0.0188227, 0.0845813
Part.ActiveView().RotateAboutCenter -0.0376453, 0.0740087
Part.ActiveView().RotateAboutCenter -0.0376453, 0.0845813
Part.ActiveView().RotateAboutCenter -0.0470567, 0.063436
Part.ActiveView().RotateAboutCenter -0.056468, 0.095154
Part.ActiveView().RotateAboutCenter -0.0752907, 0.095154
Part.ActiveView().RotateAboutCenter -0.056468, 0.0528633
Part.ActiveView().RotateAboutCenter -0.122347, 0.0845813
Part.ActiveView().RotateAboutCenter -0.0941133, 0.031718
Part.ActiveView().RotateAboutCenter -0.0658793, 0.0211453
Part.ActiveView().RotateAboutCenter -0.0658793, 0
Part.ActiveView().RotateAboutCenter -0.0658793, 0
Part.ActiveView().RotateAboutCenter -0.103525, 0
Part.ActiveView().RotateAboutCenter -0.0658793, 0
Part.ActiveView().RotateAboutCenter -0.0376453, 0
Part.ActiveView().RotateAboutCenter -0.0470567, 0
Part.ActiveView().RotateAboutCenter -0.0470567, 0.0105727
Part.ActiveView().RotateAboutCenter -0.028234, 0
Part.ActiveView().RotateAboutCenter -0.0188227, 0
Part.ActiveView().RotateAboutCenter -0.0188227, 0
Part.ActiveView().RotateAboutCenter -0.00941133, 0
Part.ActiveView().RotateAboutCenter 0, -0.0105727
Part.ActiveView().RotateAboutCenter 0.0188227, -0.0211453
Part.ActiveView().RotateAboutCenter 0.028234, -0.031718
Part.ActiveView().RotateAboutCenter 0.0470567, -0.063436
Part.ActiveView().RotateAboutCenter 0.056468, -0.0845813
Part.ActiveView().RotateAboutCenter 0.0752907, -0.095154
Part.ActiveView().RotateAboutCenter 0.0752907, -0.126872
Part.ActiveView().RotateAboutCenter 0.084702, -0.126872
Part.ActiveView().RotateAboutCenter 0.084702, -0.137445
Part.ActiveView().RotateAboutCenter 0.0941133, -0.148017
Part.ActiveView().RotateAboutCenter 0.0658793, -0.179735
Part.ActiveView().RotateAboutCenter 0.0376453, -0.105727
Part.ActiveView().RotateAboutCenter 0.0188227, -0.126872
Part.ActiveView().RotateAboutCenter 0, -0.0845813
Part.ActiveView().RotateAboutCenter 0, -0.126872
Part.ActiveView().RotateAboutCenter -0.0376453, -0.095154
Part.ActiveView().RotateAboutCenter -0.0376453, -0.0740087
Part.ActiveView().RotateAboutCenter -0.0752907, -0.126872
Part.ActiveView().RotateAboutCenter -0.084702, -0.116299
Part.ActiveView().RotateAboutCenter -0.056468, -0.0845813
Part.ActiveView().RotateAboutCenter -0.0470567, -0.0845813
Part.ActiveView().RotateAboutCenter -0.056468, -0.0528633
Part.ActiveView().RotateAboutCenter -0.056468, -0.0422907
Part.ActiveView().RotateAboutCenter -0.0470567, -0.0422907
Part.ActiveView().RotateAboutCenter -0.0470567, -0.031718
Part.ActiveView().RotateAboutCenter -0.028234, -0.031718
Part.ActiveView().RotateAboutCenter -0.056468, -0.031718
Part.ActiveView().RotateAboutCenter -0.0188227, -0.0211453
Part.ActiveView().RotateAboutCenter -0.0376453, -0.0211453
Part.ActiveView().RotateAboutCenter -0.028234, 0
Part.ActiveView().RotateAboutCenter -0.028234, -0.0211453
Part.ActiveView().RotateAboutCenter -0.0188227, -0.0105727
Part.ActiveView().RotateAboutCenter -0.028234, -0.0105727
Part.ActiveView().RotateAboutCenter -0.028234, -0.0105727
Part.ActiveView().RotateAboutCenter -0.028234, -0.0105727
Part.ActiveView().RotateAboutCenter -0.028234, -0.0211453
Part.ActiveView().RotateAboutCenter -0.028234, 0
Part.ActiveView().RotateAboutCenter -0.0658793, -0.0105727
Part.ActiveView().RotateAboutCenter -0.056468, 0
Part.ActiveView().RotateAboutCenter -0.084702, 0
Part.ActiveView().RotateAboutCenter -0.0658793, 0.031718
Part.ActiveView().RotateAboutCenter -0.0752907, 0.063436
Part.ActiveView().RotateAboutCenter -0.0470567, 0.063436
Part.ActiveView().RotateAboutCenter -0.0376453, 0.063436
Part.ActiveView().RotateAboutCenter -0.028234, 0.0422907
Part.ActiveView().RotateAboutCenter -0.028234, 0.0845813
Part.ActiveView().RotateAboutCenter -0.0188227, 0.063436
Part.ActiveView().RotateAboutCenter -0.00941133, 0.0528633
Part.ActiveView().RotateAboutCenter 0, 0.0422907
Part.ActiveView().RotateAboutCenter 0, 0.105727
Part.ActiveView().RotateAboutCenter 0.00941133, 0.105727
Part.ActiveView().RotateAboutCenter 0.0188227, 0.116299
Part.ActiveView().RotateAboutCenter 0.00941133, 0.0845813
Part.ActiveView().RotateAboutCenter 0.0188227, 0.116299
Part.ActiveView().RotateAboutCenter 0.0188227, 0.063436
Part.ActiveView().RotateAboutCenter 0.028234, 0.0740087
Part.ActiveView().RotateAboutCenter 0.028234, 0.0845813
Part.ActiveView().RotateAboutCenter 0.028234, 0.0845813
Part.ActiveView().RotateAboutCenter 0.028234, 0.063436
Part.ActiveView().RotateAboutCenter 0.0470567, 0.063436
Part.ActiveView().RotateAboutCenter 0.0470567, 0.063436
Part.ActiveView().RotateAboutCenter 0.112936, 0.190308
Part.ActiveView().RotateAboutCenter 0.112936, 0.190308
Part.ActiveView().RotateAboutCenter 0.0752907, 0.169163
Part.ActiveView().RotateAboutCenter 0.0658793, 0.179735
Part.ActiveView().RotateAboutCenter 0, 0.105727
Part.ActiveView().RotateAboutCenter 0, 0.105727
Part.ActiveView().RotateAboutCenter 0, 0.0845813
Part.ActiveView().RotateAboutCenter -0.00941133, 0.0845813
Part.ActiveView().RotateAboutCenter -0.0376453, 0.0740087
Part.ActiveView().RotateAboutCenter -0.0188227, 0.0105727
Part.ActiveView().RotateAboutCenter -0.0188227, 0.0105727
Part.ActiveView().RotateAboutCenter -0.00941133, 0
Part.ActiveView().RotateAboutCenter -0.028234, 0
Part.ActiveView().RotateAboutCenter -0.0188227, 0
Part.ActiveView().RotateAboutCenter -0.028234, 0
Part.ActiveView().RotateAboutCenter -0.028234, 0
Part.ActiveView().RotateAboutCenter -0.028234, 0
Part.ActiveView().RotateAboutCenter -0.028234, 0
Part.ActiveView().RotateAboutCenter -0.084702, -0.031718
Part.ActiveView().RotateAboutCenter -0.0658793, -0.031718
Part.ActiveView().RotateAboutCenter -0.0470567, -0.031718
Part.ActiveView().RotateAboutCenter -0.0658793, -0.0211453
Part.ActiveView().RotateAboutCenter -0.056468, -0.0422907
Part.ActiveView().RotateAboutCenter -0.0658793, -0.063436
Part.ActiveView().RotateAboutCenter -0.084702, -0.0740087
Part.ActiveView().RotateAboutCenter -0.112936, -0.137445
Part.ActiveView().RotateAboutCenter -0.131759, -0.211453
Part.ActiveView().RotateAboutCenter -0.0188227, -0.116299
Part.ActiveView().RotateAboutCenter 0, -0.126872
Part.ActiveView().RotateAboutCenter 0, -0.0740087
Part.ActiveView().RotateAboutCenter 0, -0.063436
Part.ActiveView().RotateAboutCenter 0, -0.031718
Part.ActiveView().RotateAboutCenter 0, -0.0105727
Part.ActiveView().RotateAboutCenter 0, -0.0105727
Part.ActiveView().RotateAboutCenter 0, -0.031718
Part.ActiveView().RotateAboutCenter 0, -0.0105727
Part.ActiveView().RotateAboutCenter 0, -0.031718
Part.ActiveView().RotateAboutCenter 0, -0.0105727
Part.ActiveView().RotateAboutCenter 0.00941133, 0
Part.ActiveView().RotateAboutCenter 0, 0.0105727
Part.ActiveView().RotateAboutCenter 0.00941133, 0.0105727
Part.ActiveView().RotateAboutCenter 0.0188227, 0.031718
Part.ActiveView().RotateAboutCenter 0.0188227, 0.031718
Part.ActiveView().RotateAboutCenter 0.00941133, 0.0528633
Part.ActiveView().RotateAboutCenter 0.028234, 0.0528633
Part.ActiveView().RotateAboutCenter 0.0188227, 0.0422907
Part.ActiveView().RotateAboutCenter 0.0188227, 0.0528633
Part.ActiveView().RotateAboutCenter 0.028234, 0.063436
Part.ActiveView().RotateAboutCenter 0, 0.031718
Part.ActiveView().RotateAboutCenter 0.00941133, 0.0211453
Part.ActiveView().RotateAboutCenter 0, 0.0105727
Part.ActiveView().RotateAboutCenter 0, -0.0105727
Part.ActiveView().RotateAboutCenter -0.00941133, 0
Part.ActiveView().RotateAboutCenter -0.00941133, 0
Part.ActiveView().RotateAboutCenter 0, -0.0105727
Part.ActiveView().RotateAboutCenter -0.00941133, 0
Part.ActiveView().RotateAboutCenter 0, -0.0105727
Part.ActiveView().RotateAboutCenter -0.00941133, -0.0105727
Part.SaveAs2 "C:\Documents and Settings\nicolas delort\Bureau\Corps.X_T", 0, TRUE, FALSE
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub
