' ******************************************************************************
' swxJRNL.swj - journal recorded on 11/15/04 by NONAME
' ******************************************************************************

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 ("F:\Colle Info Prépa\Cric Hydraulique\CRIC Hydraulique.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.OpenDoc4 ("F:\Colle Info Prépa\Cric Hydraulique\Maquette virtuelle\groupe hydraulique\moule du corps\emprunte du corps.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("emprunte du corps.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 2
Set Part = swApp.ActivateDoc ("CRIC Hydraulique.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.AndSelectByID "E TETE-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "E TETE-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.ActiveView().RotateAboutCenter 0.273182, -0.00767133
Part.ActiveView().RotateAboutCenter 0.129761, 0.0383567
Part.SelectByID "", "FACE", 0.4429460051301, 0.0707791711327, 0.04542524166692
Part.ClearSelection
Part.SelectByID "", "FACE", 0.4460781521736, 0.07089669863501, 0.04739429757251
Part.ClearSelection
Part.AndSelectByID "A CHASSIS-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.ActiveView().RotateAboutCenter 0.00682955, 0
Part.ActiveView().RotateAboutCenter 0, -0.00767133
Part.ActiveView().RotateAboutCenter 0.0273182, -0.122741
Part.ActiveView().RotateAboutCenter 0.0204886, -0.046028
Part.ActiveView().RotateAboutCenter 0.00682955, -0.0153427
Part.ActiveView().RotateAboutCenter 0.00682955, -0.023014
Part.ActiveView().RotateAboutCenter 0, -0.00767133
Part.ClearSelection
Part.AndSelectByID "bielle de levage-2@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "B CORPS DU VERIN-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "C TIGE DU VERIN-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Coaxial2", "MATE", 0, 0, 0
Part.ActiveView().RotateAboutCenter -0.00682955, 0
Part.ActiveView().RotateAboutCenter -0.0136591, 0.023014
Part.ActiveView().RotateAboutCenter -0.0204886, 0.0153427
Part.ActiveView().RotateAboutCenter -0.0546364, -0.00767133
Part.ActiveView().RotateAboutCenter -0.0136591, -0.0536993
Part.ActiveView().RotateAboutCenter -0.00682955, -0.0153427
Part.ActiveView().RotateAboutCenter 0, -0.023014
Part.ActiveView().RotateAboutCenter -0.00682955, -0.023014
Part.ActiveView().RotateAboutCenter 0, -0.00767133
Part.ClearSelection
Part.AndSelectByID "E TETE-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "E TETE-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "E TETE-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "E TETE-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "E TETE-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "B CORPS DU VERIN-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "C TIGE DU VERIN-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "bielle de levage-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "bielle de levage-2@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "bielle de levage-2@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "A CHASSIS-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "B CORPS DU VERIN-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "C TIGE DU VERIN-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "D BRAS-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "E TETE-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "bielle de levage-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0.00682955, 0
Part.ActiveView().RotateAboutCenter 0.0136591, 0
Part.ActiveView().RotateAboutCenter 0.0682955, 0.00767133
Part.ActiveView().RotateAboutCenter 0.0546364, 0
Part.ActiveView().RotateAboutCenter 0.0409773, 0
Part.ActiveView().RotateAboutCenter 0.0409773, 0
Part.ActiveView().RotateAboutCenter 0.0546364, 0
Part.ActiveView().RotateAboutCenter 0.0682955, -0.00767133
Part.ActiveView().RotateAboutCenter 0.0546364, -0.00767133
Part.ActiveView().RotateAboutCenter 0.0136591, -0.00767133
Part.ActiveView().RotateAboutCenter 0.00682955, -0.0153427
Part.ActiveView().RotateAboutCenter 0.00682955, -0.046028
Part.ActiveView().RotateAboutCenter 0, -0.0613706
Part.ActiveView().RotateAboutCenter -0.00682955, -0.0767133
Part.ActiveView().RotateAboutCenter -0.00682955, -0.107399
Part.ActiveView().RotateAboutCenter -0.00682955, -0.046028
Part.ActiveView().RotateAboutCenter -0.00682955, 0
Part.ActiveView().RotateAboutCenter -0.0136591, -0.0153427
Part.ActiveView().RotateAboutCenter -0.0409773, -0.046028
Part.ActiveView().RotateAboutCenter -0.0682955, -0.0153427
Part.ActiveView().RotateAboutCenter -0.109273, -0.0613706
Part.ActiveView().RotateAboutCenter -0.0819546, -0.0153427
Part.ActiveView().RotateAboutCenter -0.00682955, 0
Part.ActiveView().RotateAboutCenter 0, 0.00767133
Part.ActiveView().RotateAboutCenter 0.00682955, 0
Part.ActiveView().RotateAboutCenter 0.00682955, 0.0613706
Part.ActiveView().RotateAboutCenter 0.00682955, 0.046028
Part.ActiveView().RotateAboutCenter 0.00682955, 0.0153427
Part.ActiveView().RotateAboutCenter 0, 0.00767133
Part.AndSelectByID "A CHASSIS-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "B CORPS DU VERIN-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "C TIGE DU VERIN-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "D BRAS-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "E TETE-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "bielle de levage-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "D BRAS-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "A CHASSIS-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "B CORPS DU VERIN-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "C TIGE DU VERIN-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "E TETE-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "bielle de levage-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "bielle de levage-2@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, -0.00767133
Part.ActiveView().RotateAboutCenter -0.0136591, -0.0613706
Part.ActiveView().RotateAboutCenter -0.00682955, -0.00767133
Part.ActiveView().RotateAboutCenter 0, -0.00767133
Part.ActiveView().RotateAboutCenter 0, -0.0153427
Part.ActiveView().RotateAboutCenter 0, -0.046028
Part.ActiveView().RotateAboutCenter 0, -0.00767133
Part.ActiveView().RotateAboutCenter 0, -0.00767133
Part.ActiveView().RotateAboutCenter 0, -0.00767133
Part.ActiveView().RotateAboutCenter 0, -0.0153427
Part.ActiveView().RotateAboutCenter -0.0136591, -0.0153427
Part.ActiveView().RotateAboutCenter -0.0819546, -0.092056
Part.ActiveView().RotateAboutCenter -0.0546364, -0.0767133
Part.ActiveView().RotateAboutCenter -0.0136591, -0.0153427
Part.ActiveView().RotateAboutCenter 0, -0.0153427
Part.ActiveView().RotateAboutCenter -0.00682955, 0
Part.ActiveView().RotateAboutCenter -0.0409773, 0.00767133
Part.ActiveView().RotateAboutCenter -0.00682955, 0.00767133
Part.ActiveView().RotateAboutCenter -0.00682955, 0.00767133
Part.ActiveView().RotateAboutCenter -0.00682955, 0
Part.ActiveView().RotateAboutCenter 0, -0.00767133
Part.ActiveView().RotateAboutCenter 0, -0.153427
Part.ActiveView().RotateAboutCenter 0, -0.199455
Part.ActiveView().RotateAboutCenter 0.00682955, -0.0767133
Part.ActiveView().RotateAboutCenter 0.00682955, 0
Part.ActiveView().RotateAboutCenter 0.0136591, -0.00767133
Part.ActiveView().RotateAboutCenter 0.0409773, 0
Part.ActiveView().RotateAboutCenter 0.0136591, 0
Part.ActiveView().RotateAboutCenter 0.00682955, 0.0153427
Part.ActiveView().RotateAboutCenter 0.00682955, 0.0613706
Part.ActiveView().RotateAboutCenter 0.00682955, 0.0153427
Part.ActiveView().RotateAboutCenter 0, 0.046028
Part.ActiveView().RotateAboutCenter 0, 0.00767133
Part.ActiveView().RotateAboutCenter 0, 0.00767133
Part.ActiveView().RotateAboutCenter -0.00682955, 0.0153427
Part.ActiveView().RotateAboutCenter -0.0136591, 0.046028
Part.ActiveView().RotateAboutCenter -0.00682955, 0.046028
Part.ActiveView().RotateAboutCenter -0.00682955, 0.0153427
Part.ActiveView().RotateAboutCenter -0.0136591, 0.0153427
Part.ActiveView().RotateAboutCenter -0.00682955, 0.00767133
Part.ActiveView().RotateAboutCenter -0.00682955, 0.00767133
Part.ActiveView().RotateAboutCenter -0.0136591, 0.00767133
Part.ActiveView().RotateAboutCenter -0.0136591, 0.00767133
Part.ActiveView().RotateAboutCenter -0.0136591, 0.00767133
Part.ActiveView().RotateAboutCenter -0.00682955, 0
Part.ActiveView().RotateAboutCenter -0.00682955, 0
Part.AndSelectByID "A CHASSIS-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "B CORPS DU VERIN-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "C TIGE DU VERIN-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "E TETE-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "bielle de levage-1@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.AndSelectByID "bielle de levage-2@CRIC Hydraulique", "COMPONENT", 0, 0, 0
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("emprunte du corps.SLDPRT")
swApp.ExitApp
End Sub