' ******************************************************************************
' swxJRNL.swj - journal recorded on 01/13/05 by Franck
' ******************************************************************************

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 ("C:\Documents and Settings\Franck\Mes documents\CAP-BEP\TP\tp repérage\POMPE A 5 PISTONS AXIAUX\Assemblage.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Assemblage")
swApp.LoadFile2 "C:\Program Files\SolidWorks\data\templates\Mise en plan.drwdot", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\data\templates\Mise en plan.drwdot", 2, 0.279400, 0.431800)
Set Part = swApp.ActivateDoc ("Draw1 - Feuille1")
Set Part = Nothing
swApp.CloseDoc "Draw1 - Feuille1"
Set Part = swApp.ActivateDoc ("Assemblage")
swApp.LoadFile2 "C:\Documents and Settings\Franck\Mes documents\CAP-BEP\DESSIN\Fond de plan A4 bep.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\Franck\Mes documents\CAP-BEP\DESSIN\Fond de plan A4 bep.SLDDRW", 3, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Fond de plan A4 bep - Feuille1")
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameWidth = 991
swApp.ActiveDoc.ActiveView.FrameHeight = 305
Set Part = swApp.ActivateDoc ("Assemblage")
Part.SelectByID "Assemblage.SLDASM", "COMPONENT", 0, 0, 0
Set Part = swApp.ActivateDoc ("Fond de plan A4 bep - Feuille1")
Part.Create1stAngleViews "C:\Documents and Settings\Franck\Mes documents\CAP-BEP\TP\tp repérage\POMPE A 5 PISTONS AXIAUX\Assemblage.SLDASM"
Part.EditSketch
Part.ViewDispOrigins
Part.ViewZoomTo2 -0.0307799, 0.163587, -1.16306e-015, 0.130949, 0.00185773, -3.37119e-017
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", 0, 0, 0
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0, 0, 0
Part.EditDelete
Part.EditSketch
Part.SelectByID "Vue de mise en plan3", "DRAWINGVIEW", 0, 0, 0
Part.EditDelete
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.CreateLine2 -6.269457531292e-005, 0.1073383266932, 0, 0, -0.0963203187251, 0
Part.CreateSectionViewAt2 0.1526043884784, 0.07428081628138, 0, 0, 0, "A", 0, 0, 0, 0 
Part.ViewZoomtofit2
Part.EditSketch
Part.EditSketch
Part.SelectByID "Vue de mise en plan4", "DRAWINGVIEW", 0.128715, 0.12198, 0
Part.EditSketch
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", 0.026715, 0.11127, 0
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", 0.028755, 0.12045, 0
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", 0.004275, 0.22398, 0
Part.EditSketch
Part.SelectByID "Vue de mise en plan4", "DRAWINGVIEW", 0.133305, 0.18114, 0
Part.EditSketch
Part.SelectByID "Feuille1", "SHEET", 0, 0, 0
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", 0, 0, 0
Part.SuppressView
' MSGBOX
' Voulez-vous également masquer les vues dépendantes ?

Part.SelectByID "Vue de mise en plan4", "DRAWINGVIEW", -0.018165, 0.20562, 0
Part.SelectByID "Vue de mise en plan4", "DRAWINGVIEW", -0.017145, 0.14391, 0
Part.ClearSelection
Part.SelectByID "Vue de mise en plan4", "DRAWINGVIEW", 0.184305, 0.09903, 0
Part.SelectByID "Vue de mise en plan4", "DRAWINGVIEW", 0.186855, 0.0975, 0
Part.SelectByID "Vue de mise en plan4", "DRAWINGVIEW", 0.197565, 0.09648, 0
Part.SelectByID "Vue de mise en plan4", "DRAWINGVIEW", 0.189915, 0.0975, 0
Part.SelectByID "Vue de mise en plan4", "DRAWINGVIEW", 0.198585, 0.0975, 0
Part.SelectByID "Vue de mise en plan4", "DRAWINGVIEW", 0.201135, 0.09699, 0
Part.SelectByID "Vue de mise en plan4", "DRAWINGVIEW", 0.141465, 0.09801, 0
Part.SelectByID "Vue de mise en plan4", "DRAWINGVIEW", 0.147075, 0.0975, 0
Part.SelectByID "Vue de mise en plan4", "DRAWINGVIEW", 0.136365, 0.09597, 0
Part.SelectByID "Vue de mise en plan4", "DRAWINGVIEW", 0.126675, 0.0975, 0
Part.SelectByID "Vue de mise en plan4", "DRAWINGVIEW", 0.165435, 0.09699, 0
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", 0, 0, 0
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", -0.018675, 0.19338, 0
Part.ClearSelection
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", -0.017655, 0.13575, 0
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", -0.018675, 0.13932, 0
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", 0, 0, 0
Part.UnsuppressView
Part.EditSketch
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", -0.018165, 0.18675, 0
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", -0.019695, 0.18165, 0
Part.EditSketch
Part.SelectByID "Objet de détail4@Vue de mise en plan4", "NOTE", 0.100665, 0.08067, 0
Part.EditDelete
Part.EditSketch
Part.EditSketch
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", 0, 0, 0
Part.EditDelete
Part.EditSketch
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", 0, 0, 0
Part.SuppressView
' MSGBOX
' Voulez-vous également masquer les vues dépendantes ?

Part.ViewZoomTo2 0.024675, 0.27141, -2.29693e-015, 0.187875, 0.03681, -6.58729e-016
Part.ViewZoomTo2 0.0571038, 0.260746, -3.04157e-015, 0.226932, 0.0968423, -1.89704e-015
Part.ViewZoomTo2 0.0615835, 0.24557, -3.50786e-015, 0.180786, 0.101809, -2.50399e-015
Part.SaveAs2 "C:\Documents and Settings\Franck\Mes documents\CAP-BEP\DESSIN\PLAN POMPE COUPE.SLDDRW", 0, FALSE, FALSE
Part.EditSketch
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
Set Part = swApp.ActivateDoc ("Assemblage")
Part.ClearSelection
Part.AndSelectByID "Face", "PLANE", 0, 0, 0
Part.AndSelectByID "Droite", "PLANE", 0, 0, 0
Part.DeSelectByID "Face", "PLANE", 0, 0, 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 305
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewDisplayHiddenremoved
Part.ViewDisplayHiddenremoved
Part.ShowNamedView2 "*Face", 1
Part.ShowNamedView2 "*Droite", 4
swApp.LoadFile2 "C:\Program Files\SolidWorks\data\templates\Mise en plan.drwdot", ""
Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\data\templates\Mise en plan.drwdot", 2, 0.279400, 0.431800)
Set Part = swApp.ActivateDoc ("Draw2 - Feuille1")
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 991
swApp.ActiveDoc.ActiveView.FrameHeight = 203
Set Part = swApp.ActivateDoc ("Assemblage")
Part.SelectByID "Assemblage.SLDASM", "COMPONENT", 0, 0, 0
Set Part = swApp.ActivateDoc ("Assemblage - Feuille1")
Part.Create1stAngleViews "C:\Documents and Settings\Franck\Mes documents\CAP-BEP\TP\tp repérage\POMPE A 5 PISTONS AXIAUX\Assemblage.SLDASM"
Part.EditSketch
Part.ViewDispOrigins
Part.EditSketch
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch
Part.CreateLine2 0, -0.1048968686869, 0, 0, 0.1156918686869, 0
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.ViewZoomTo2 0.0631427, 0.165785, -1.17275e-015, 0.0842748, 0.151326, -1.07178e-015
Part.AndSelectByID "Assemblage-1@Vue de mise en plan1/ARBRE DE POMPE-1@Assemblage", "COMPONENT", 0.06954554514587, 0.1623478754047, -1999.484450754
Part.ViewZoomtofit2
Part.CreateSectionViewAt2 0.02273235858586, 0.161925, 0, 0, 0, "A", 0, 0, 0, 0 
Part.EditSketch
Part.ViewZoomTo2 0.000117379, 0.183951, -1.2996e-015, 0.0501669, 0.130565, -9.26807e-016
Part.ViewZoomtofit2
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditDelete
Part.EditSketch
Part.EditSketch
Part.SelectByID "Vue de mise en plan3", "DRAWINGVIEW", 0.2031494832278, 0.1500975871255, 0
Part.EditDelete
Part.EditSketch
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", 0.08865196484365, 0.05663022517921, 0
Part.EditDelete
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "Assemblage - Feuille1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 203
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Assemblage")
Part.ViewDisplayShaded
Part.ClearSelection
Part.AndSelectByID "Face", "PLANE", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "Face", "PLANE", 0, 0, 0
Part.ClearSelection
swApp.LoadFile2 "C:\Program Files\SolidWorks\data\templates\Mise en plan.drwdot", ""
Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\data\templates\Mise en plan.drwdot", 2, 0.279400, 0.431800)
Set Part = swApp.ActivateDoc ("Draw3 - Feuille1")
Set Part = Nothing
swApp.CloseDoc "Draw3 - Feuille1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 203
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Assemblage")
swApp.LoadFile2 "C:\Documents and Settings\Franck\Mes documents\CAP-BEP\DESSIN\Fond de plan A4.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\Franck\Mes documents\CAP-BEP\DESSIN\Fond de plan A4.SLDDRW", 3, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Fond de plan A4 - Feuille1")
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 991
swApp.ActiveDoc.ActiveView.FrameHeight = 203
Set Part = swApp.ActivateDoc ("Assemblage")
Part.SelectByID "Assemblage.SLDASM", "COMPONENT", 0, 0, 0
Set Part = swApp.ActivateDoc ("Fond de plan A4 - Feuille1")
Part.Create1stAngleViews "C:\Documents and Settings\Franck\Mes documents\CAP-BEP\TP\tp repérage\POMPE A 5 PISTONS AXIAUX\Assemblage.SLDASM"
Part.EditSketch
Part.EditSketch
Part.EditSketch
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", 0, 0, 0
Part.EditDelete
Part.EditSketch
Part.SelectByID "Vue de mise en plan3", "DRAWINGVIEW", 0.13815, 0.18675, 0
Part.EditSketch
Part.EditDelete
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0.09633, 0.1689, 0
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0.09327, 0.16737, 0
Part.CreateLine2 0, 0.09732, 0, 0, -0.10158, 0
Part.AndSelectByID "Assemblage-1@Vue de mise en plan1/ARBRE DE POMPE-1@Assemblage", "COMPONENT", 0.24372, 0.1612499999965, -499.8144507537
Part.CreateSectionViewAt2 0.10041, 0.16053, 0, 0, 0, "C", 0, 0, 0, 0 
Part.ViewPropertySheet
Part.AndSelectByID "Assemblage-4@Vue de mise en plan4/Assemblage-1@Assemblage/ARBRE DE POMPE-1@Assemblage", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Assemblage-4@Vue de mise en plan4/Assemblage-1@Assemblage/CULASSE-1@Assemblage/ROULEMENT A BILLES 26-1@CULASSE/billes roul-1@ROULEMENT A BILLES 26", "COMPONENT", 0.06114, 0.18471, 0
Part.ViewZoomTo2 0.07134, 0.22296, -1.66039e-015, 0.12999, 0.18114, -1.36836e-015
Part.AndSelectByID "Assemblage-4@Vue de mise en plan4/Assemblage-1@Assemblage/VIS M6x30-1@Assemblage", "COMPONENT", 0.1090113461538, 0.1940044230769, 0
Part.ClearSelection
Part.ViewZoomtofit2
Part.ClearSelection
Part.EditUndo 1
Part.SelectByID "Line1", "SKETCHSEGMENT", 0, 0.07488, 0
Part.EditDelete
Part.CreateLine2 -6.000000000106e-005, 0.10038, 0, 0, -0.09954, 0
Part.CreateSectionViewAt2 0.1029573207425, 0.1604872861107, 0, 0, 0, "D", 0, 0, 0, 0 
Part.ViewPropertySheet
Part.AndSelectByID "Assemblage-6@Vue de mise en plan5/Assemblage-1@Assemblage/ARBRE DE POMPE-1@Assemblage", "COMPONENT", 0.06369, 0.16431, -2.987394827869e-005
Part.AndSelectByID "Assemblage-6@Vue de mise en plan5/Assemblage-1@Assemblage/VIS M6x30-1@Assemblage", "COMPONENT", 0.1101, 0.19389, -2.987394844922e-005
Part.AndSelectByID "Assemblage-6@Vue de mise en plan5/Assemblage-1@Assemblage/CULASSE-1@Assemblage/BOUCHON-1@CULASSE", "COMPONENT", 0.08205, 0.07149, -2.987394839238e-005
Part.AndSelectByID "Assemblage-6@Vue de mise en plan5/Assemblage-1@Assemblage/CULASSE-1@Assemblage/CLAPET-3@CULASSE", "COMPONENT", 0.09633, 0.13575, -2.9873948165e-005
Part.ClearSelection
Part.ViewZoomTo2 0.02442, 0.24795, -1.83489e-015, 0.19986, 0.0465, -4.28173e-016
Part.CreateLine2( -0.08170758527354, 0.001860495082055, 0, 0.0709061452312, 0.001885958324642, 0 ).ConstructionGeometry = TRUE
Part.SetLineColor 0
Part.CreateLine2( 0.02987040350482, 0.03287360274933, 0, -0.02505836445034, 0.03287749664893, 0 ).ConstructionGeometry = TRUE
Part.SetLineColor 0
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.SelectByID "", "FACE", 0.0646602020202, 0.1394247474747, -2.987394827869e-005
Part.SelectByID "", "FACE", 0.06364277777778, 0.1387464646465, -2.987394833553e-005
Part.CreateCircle -0.03829708472066, 0.02291255185691, 0, -0.03354942178998, 0.02159436380182, 0
Part.ClearSelection
Part.EditUndo 1
Part.CreateCircle -0.03829698293753, 0.02291255188745, 0, -0.03151457330513, 0.02159436380182, 0
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "Point14", "SKETCHPOINT", -0.0382969566926, 0.02291255189533, 0
Part.SketchConstraintsDel 0, "sgCOINCIDENT"
Part.SelectByID "Point14", "SKETCHPOINT", -0.03897455322282, 0.02291234853503, 0
Part.ViewZoomTo2 0.0561817, 0.192331, -2.14986e-015, 0.0758519, 0.171982, -2.00777e-015
Part.SelectByID "Point14", "SKETCHPOINT", -0.0382968811544, 0.022912551918, 0
Part.SketchConstraintsDel 0, "sgCOINCIDENT"
Part.SelectByID "Point14", "SKETCHPOINT", -0.04019400763032, 0.02291198255231, 0
Part.CreateCircle -0.03803705060336, -0.02034612441367, 0, -0.03169955953102, -0.02051740795617, 0
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "Point20", "SKETCHPOINT", -0.03803705060336, -0.02034612441367, 0
Part.SelectByID "Arc2", "SKETCHSEGMENT", -0.04411609915899, -0.01842953515316, 0
Part.ViewZoomtofit2
Part.ClearSelection
Part.SelectByID "Point14", "SKETCHPOINT", -0.03803705060336, 0.02387928625871, 0
Part.SelectByID "Point14", "SKETCHPOINT", -0.03803705060336, 0.02387928625871, 0
Part.SelectByID "Point14", "SKETCHPOINT", -0.03803705060336, 0.02387928625871, 0
Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.04418155375239, 0.02175912563943, 0
Part.SetLineColor 0
Part.ClearSelection
Part.SelectByID "Arc2", "SKETCHSEGMENT", -0.04415479474073, -0.01800802204445, 0
Part.SetLineColor 0
Part.ClearSelection
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0, 0, 0
Part.SuppressView
' MSGBOX
' Voulez-vous également masquer les vues dépendantes ?

Part.SelectByID "Point14", "SKETCHPOINT", -0.03803705060336, 0.02387928625871, 0
Part.SelectByID "Point14", "SKETCHPOINT", -0.03803705060336, 0.02387928625871, 0
Part.ViewDispOrigins
Part.ViewDispOrigins
Part.ViewDispRefaxes
Part.ViewDispRefplanes
Part.ViewDispRefPoints
Part.ClearSelection
Part.SelectByID "Objet de détail5@Vue de mise en plan5", "NOTE", 0.112871036766, 0.04089, 0
Part.EditDelete
Part.SelectByID "Feuille1", "SHEET", 0.09349103676602, 0.04191, 0
Part.SelectByID "Vue de mise en plan5", "DRAWINGVIEW", 0.07360103676602, 0.05466, 0
Part.ClearSelection
Part.SelectByID "Vue de mise en plan5", "DRAWINGVIEW", 0.170501036766, 0.06078, 0
Part.SelectByID "Vue de mise en plan5", "DRAWINGVIEW", 0.182741036766, 0.04956, 0
Part.SelectByID "Vue de mise en plan5", "DRAWINGVIEW", 0.198041036766, 0.0771, 0
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0, 0, 0
Part.UnsuppressView
Part.EditSketch
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0.238841036766, 0.21786, 0
Part.ClearSelection
Part.EditSketch
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0, 0, 0
Part.SuppressView
' MSGBOX
' Voulez-vous également masquer les vues dépendantes ?

Part.ClearSelection
Part.EditUndo 1
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0, 0, 0
Part.SuppressView
' MSGBOX
' Voulez-vous également masquer les vues dépendantes ?

Part.EditSketch
Part.SelectByID "Vue de mise en plan5", "DRAWINGVIEW", 0.129191036766, 0.06894, 0
Part.EditTemplate
Part.EditSketch
Part.ClearSelection
Part.SelectByID "DetailItem18@Fond de plan1", "NOTE", 0.100631036766, 0.04191, 0
Part.SelectByID "Fond de plan1", "SHEET", 0.152141036766, 0.09648, 0
Part.SelectByID "DetailItem18@Fond de plan1", "NOTE", 0.129701036766, 0.046, 0
Part.SelectByID "DetailItem31@Fond de plan1", "NOTE", 0.02209103676602, 0.04191, 0
Part.SelectByID "Fond de plan1", "SHEET", 0.06493103676602, 0.12708, 0
Part.SelectByID "DetailItem18@Fond de plan1", "NOTE", 0.110831036766, 0.0414, 0
Part.ClearSelection
Part.SelectByID "Fond de plan1", "SHEET", 0.07972103676602, 0.10413, 0
Part.EditSheet
Part.EditSketch
Part.ClearSelection
Part.EditSketch
Part.SelectByID "", "FACE", 0.08584103676602, 0.07608, 0.004897961541303
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0.269441036766, 0.11382, 0
Part.ViewZoomTo2 0.073091, 0.08781, -1.37969e-015, 0.108281, 0.05823, -1.17313e-015
Part.SelectByID "Vue de mise en plan5", "DRAWINGVIEW", 0, 0, 0
Part.ViewPropertySheet
Part.AndSelectByID "Assemblage-6@Vue de mise en plan5/Assemblage-1@Assemblage/ARBRE DE POMPE-1@Assemblage", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Assemblage-6@Vue de mise en plan5/Assemblage-1@Assemblage/VIS M6x30-1@Assemblage", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Assemblage-6@Vue de mise en plan5/Assemblage-1@Assemblage/CULASSE-1@Assemblage/BOUCHON-1@CULASSE", "COMPONENT", 0, 0, 0
Part.AndSelectByID "Assemblage-6@Vue de mise en plan5/Assemblage-1@Assemblage/CULASSE-1@Assemblage/CLAPET-3@CULASSE", "COMPONENT", 0, 0, 0
Part.DeSelectByID "Assemblage-6@Vue de mise en plan5/Assemblage-1@Assemblage/CULASSE-1@Assemblage/BOUCHON-1@CULASSE", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.ViewZoomtofit2
Part.SaveAs2 "C:\Documents and Settings\Franck\Mes documents\CAP-BEP\TP\tp repérage\PLAN POMPE.SLDDRW", 0, FALSE, FALSE
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "PLAN POMPE - Feuille1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 203
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Assemblage")
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ClearSelection
Part.ClearSelection
swApp.ExitApp
End Sub
