' ******************************************************************************
' swxJRNL.swj - journal recorded on 04/12/05 by Administrateur
' ******************************************************************************

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 ("G:\Pompe d'alimentation Moteur Diesel\Pompe d'alimentation CEC.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Pompe d'alimentation CEC.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "BATI EXCENTRIQUE-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.SelectByID "BATI EXCENTRIQUE-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.SelectByID "Distance1", "MATE", 0, 0, 0
Part.SelectByID "Distance1", "MATE", 0, 0, 0
Part.DeSelectByID "Plan1", "PLANE", 0, 0, 0
Part.AndSelectByID "Plan1@Pièce 1-1@Pompe d'alimentation CEC", "PLANE", 0, 0, 0
Part.ClearSelection 
Part.SelectByMark "", "FACE", 0.13525, 0, -0.004, 8
Part.AndSelectByMark "Plan1@Pièce 1-1@Pompe d'alimentation CEC", "PLANE", 0, 0, 0, 8
Part.AndSelectByID "Distance1", "MATE", 0, 0, 0
Part.EditMate 5, 0, 0, 0.004, 0.5235987755983
Part.ClearSelection
Part.SelectByID "Pièce 1-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.Save2 FALSE
Part.AndSelectByID "Plan1", "PLANE", 0, 0, 0
Part.ClearSelection
Part.SelectByID "Pièce 1-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 4-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 10-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 11-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 12-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 12-2@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 13-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.DeSelectByID "Pièce 13-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 13-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 13-2@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 14-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 15-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "BATI EXCENTRIQUE-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 17-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.SelectByID "Pièce 10-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "CEC BATI-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
' MSGBOX
' Réaliser une section à cette endroit va produire des corps non valides. Veuillez sélectionner une position de section différente.

' MSGBOX
' Réaliser une section à cette endroit va produire des corps non valides. Veuillez sélectionner une position de section différente.

Part.AndSelectByID "Plan1", "PLANE", 0, 0, 0
Part.AndSelectByID "Plan1@CEC BATI-1@Pompe d'alimentation CEC/Pièce 1-1@CEC BATI", "PLANE", 0, 0, 0
Part.DeSelectByID "Plan1", "PLANE", 0, 0, 0
Part.ClearSelection
Part.ShowNamedView2 "*Isométrique", 7
Part.SelectByID "Pièce 2-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 5-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "anneauint18-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.SelectByID "Pièce 2-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Set Part = Nothing
swApp.CloseDoc "Pompe d'alimentation CEC.SLDASM"
Set Part = swApp.OpenDoc4 ("G:\Pompe d'alimentation Moteur Diesel\Pompe d'alimentation CEC.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Pompe d'alimentation CEC.SLDASM")
Part.SelectByID "CEC BATI-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.FixComponent
Part.ClearSelection
Part.SelectByID "", "FACE", 0.1456141438268, 0.01499999999999, -0.02481779862802
Part.SelectByID "BATI EXCENTRIQUE-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.SelectByID "Coaxial1", "MATE", 0, 0, 0
Part.SelectByID "Coïncidente1", "MATE", 0, 0, 0
Part.SelectByID "Coïncidente2", "MATE", 0, 0, 0
Part.SelectByID "Distance1", "MATE", 0, 0, 0
Part.SelectByID "Distance2", "MATE", 0, 0, 0
Part.ClearSelection
Part.SelectByID "Pièce 1-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.SelectByID "Pompe d'alimentation CEC.SLDASM", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AddConfiguration "COUPE","","",1,0,0,1,0
Part.SelectByID "", "FACE", 0.1619999999999, 0.001681414465907, -0.02379549472397
Part.InsertSketch
Part.SketchRectangle 0, -0.08, 0, -0.05, 0.08, 0, 1
Part.ShowNamedView2 "*Isométrique", 7
Part.FeatureCut5 0, 0, 0, 1, 1, 0.2865257835512, 0.01, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, 0, 0, -1, 0
Part.ClearSelection
Part.SelectByID "Pièce 1-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 2-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.DeSelectByID "Pièce 2-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 4-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 10-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 11-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 12-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 12-2@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 13-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 13-2@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 14-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 15-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 17-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "BATI EXCENTRIQUE-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.SelectByID "Pièce 1-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "CEC BATI-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "Pièce 2-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Pièce 5-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.AndSelectByID "anneauint18-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.SelectByID "Pièce 2-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.SelectByID "Pièce 3-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.SelectByID "Pièce 3-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.SelectByID "Pièce 8-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.SelectByID "Pièce 8-2@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.SelectByID "Excentrique-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.SelectByID "Coïncidente26", "MATE", 0, 0, 0
Part.ClearSelection
Part.SelectByID "Coïncidente26", "MATE", 0, 0, 0
Part.EditDelete
Part.ShowNamedView2 "*Isométrique", 7
Part.SelectByID "CEC BATI-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.SelectByID "CEC PISTON EXCENTRIQUE-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.SelectByID "CEC PISTON-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.SelectByID "CEC Clapet 8 A-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.SelectByID "CEC Clapet 8 B-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.SelectByID "CEC Excentrique-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "CEC BATI-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "CEC Excentrique-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "Coaxial32", "MATE", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "CEC BATI-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "CEC PISTON EXCENTRIQUE-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "Coaxial29", "MATE", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "CEC BATI-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "CEC PISTON-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "Coaxial28", "MATE", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "CEC PISTON-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "CEC PISTON EXCENTRIQUE-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "Coïncidente32", "MATE", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "CEC PISTON EXCENTRIQUE-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "CEC Excentrique-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ViewZoomTo2 0.0915819, -0.0490532, 0.0412507, 0.100922, -0.0628762, 0.0412507
Part.ViewDispTempRefaxes
Part.ActiveView().RotateAboutCenter 0, 0.00937123
Part.ActiveView().RotateAboutCenter 0, 0.0281137
Part.ActiveView().RotateAboutCenter 0, 0.00937123
Part.ActiveView().RotateAboutCenter 0, 0.0187425
Part.ActiveView().RotateAboutCenter 0, 0.00937123
Part.ActiveView().RotateAboutCenter 0, 0.0187425
Part.ActiveView().RotateAboutCenter 0, 0.00937123
Part.ActiveView().RotateAboutCenter 0, 0.0187425
Part.ActiveView().RotateAboutCenter -0.00713226, 0.0281137
Part.ActiveView().RotateAboutCenter -0.0142645, 0.0468561
Part.ActiveView().RotateAboutCenter 0, 0.0281137
Part.ActiveView().RotateAboutCenter -0.00713226, 0.0187425
Part.ActiveView().RotateAboutCenter 0, 0.00937123
Part.ActiveView().RotateAboutCenter 0, 0.0187425
Part.ActiveView().RotateAboutCenter 0, 0.0187425
Part.ActiveView().RotateAboutCenter 0, 0.00937123
Part.ActiveView().RotateAboutCenter 0, 0.00937123
Part.ShowNamedView2 "*Isométrique", 7
Part.ActiveView().RotateAboutCenter 0, 0.00937123
Part.ActiveView().RotateAboutCenter 0.0499259, 0.0937123
Part.ActiveView().RotateAboutCenter 0.0427936, 0.0468561
Part.ActiveView().RotateAboutCenter 0.0855872, 0.0374849
Part.ActiveView().RotateAboutCenter 0.15691, 0.0562274
Part.ActiveView().RotateAboutCenter 0.114116, 0.0187425
Part.ActiveView().RotateAboutCenter 0.0784549, 0.00937123
Part.ActiveView().RotateAboutCenter 0.00713226, 0.00937123
Part.ActiveView().RotateAboutCenter 0.00713226, 0
Part.ViewZoomTo2 0.0986802, -0.0598875, 0.0412507, 0.106152, -0.075952, 0.0412507
Part.ViewZoomTo2 0.103797, -0.0637895, 0.0412507, 0.106307, -0.0668929, 0.0412507
Part.SelectByID "", "FACE", 0.1365, 0.001153242642602, -6.22223142841e-005
Part.AndSelectByID "", "FACE", 0.1377666500702, 0.007270594928627, 0.002861825270145
Part.ShowNamedView2 "*Isométrique", 7
Part.ClearSelection
Part.AndSelectByID "CEC Clapet 8 A-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.SelectByID "CEC Clapet 8 A-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.SelectByID "CEC Clapet 8 B-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "CEC Clapet 8 A-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "CEC PISTON-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "CEC Clapet 8 A-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "Coïncidente34", "MATE", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "CEC BATI-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "CEC Clapet 8 B-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "Coïncidente36", "MATE", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "CEC Clapet 8 B-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "CEC Clapet 8 B-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "CEC Clapet 8 A-1@Pompe d'alimentation CEC", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.ShowNamedView2 "*Face", 1
Part.AndSelectByID "Plan1", "PLANE", 0, 0, 0
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "Pompe d'alimentation CEC.SLDASM"
swApp.ExitApp
End Sub
