' ******************************************************************************
' swxJRNL.swj - journal recorded on 07/11/06 by Sylvain
' *****************************************************************************
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\Sylvain\Mes documents\Lycée LJF\Terminale STI GM\Mes sites TP\Site_Cric Hydraulique\Cric Hydraulique\Maquette virtuelle\CRIC HYDRAULIQUE ROULANT.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\Sylvain\Mes documents\Lycée LJF\Terminale STI GM\Mes sites TP\Site_Cric Hydraulique\Cric Hydraulique\Maquette virtuelle\groupe hydraulique\moule du corps\emprunte du corps.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("emprunte du corps")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 2
Set Part = swApp.ActivateDoc ("CRIC HYDRAULIQUE ROULANT")
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.0107624
Part.ActiveView().RotateAboutCenter -0.0124361, -0.0645743
Part.ActiveView().RotateAboutCenter -0.0994887, -0.215248
Part.ActiveView().RotateAboutCenter -0.105707, -0.247535
Part.ActiveView().RotateAboutCenter -0.192759, -0.387446
Part.ActiveView().RotateAboutCenter -0.180323, -0.419733
Part.ActiveView().RotateAboutCenter -0.0808346, -0.301347
Part.ActiveView().RotateAboutCenter -0.0248722, -0.150673
Part.ActiveView().RotateAboutCenter -0.0124361, -0.204485
Part.ActiveView().RotateAboutCenter 0.0124361, -0.150673
Part.ActiveView().RotateAboutCenter 0.0186541, -0.107624
Part.ActiveView().RotateAboutCenter 0.0124361, -0.0322872
Part.ActiveView().RotateAboutCenter 0.0124361, -0.0215248
Part.ActiveView().RotateAboutCenter 0.0248722, 0
Part.ActiveView().RotateAboutCenter 0.0559624, 0
Part.ActiveView().RotateAboutCenter 0.0808346, 0.0538119
Part.ActiveView().RotateAboutCenter 0.111925, 0.118386
Part.ActiveView().RotateAboutCenter 0.0746165, 0.0968615
Part.ActiveView().RotateAboutCenter 0.0497444, 0.0645743
Part.ActiveView().RotateAboutCenter 0.0373083, 0.0753367
Part.ActiveView().RotateAboutCenter 0.0621804, 0.215248
Part.ActiveView().RotateAboutCenter 0.0683985, 0.301347
Part.ActiveView().RotateAboutCenter 0.0559624, 0.312109
Part.ActiveView().RotateAboutCenter 0.0435263, 0.355159
Part.ActiveView().RotateAboutCenter 0.0186541, 0.365921
Part.ActiveView().RotateAboutCenter 0, 0.355159
Part.ActiveView().RotateAboutCenter 0, 0.172198
Part.ActiveView().RotateAboutCenter -0.0248722, 0.0645743
Part.ActiveView().RotateAboutCenter -0.0310902, 0.0107624
Part.ActiveView().RotateAboutCenter -0.0373083, -0.0107624
Part.ActiveView().RotateAboutCenter -0.0373083, -0.0430496
Part.ActiveView().RotateAboutCenter -0.0186541, -0.0107624
Part.ActiveView().RotateAboutCenter 0.0186541, 0
Part.ActiveView().RotateAboutCenter 0.0870526, -0.0215248
Part.ActiveView().RotateAboutCenter 0.0310902, 0
Part.ActiveView().RotateAboutCenter 0.00621804, 0
Part.ActiveView().RotateAboutCenter 0.0248722, -0.0322872
Part.ActiveView().RotateAboutCenter 0.0124361, -0.0215248
Part.ActiveView().RotateAboutCenter 0.00621804, -0.0107624
Part.ActiveView().RotateAboutCenter 0.00621804, 0
Part.ActiveView().RotateAboutCenter 0.0186541, -0.0107624
Part.ActiveView().RotateAboutCenter 0.0248722, 0
Part.ActiveView().RotateAboutCenter 0.0435263, 0
Part.ActiveView().RotateAboutCenter 0.0435263, 0
Part.ActiveView().RotateAboutCenter 0.0373083, 0
Part.ActiveView().RotateAboutCenter 0.0248722, 0
Part.ActiveView().RotateAboutCenter 0.0310902, -0.0215248
Part.ActiveView().RotateAboutCenter 0.0186541, -0.0430496
Part.ActiveView().RotateAboutCenter 0.0248722, -0.0538119
Part.ActiveView().RotateAboutCenter 0.0124361, -0.0430496
Part.ActiveView().RotateAboutCenter 0, -0.0968615
Part.ActiveView().RotateAboutCenter -0.0310902, -0.150673
Part.ActiveView().RotateAboutCenter -0.0683985, -0.0968615
Part.ActiveView().RotateAboutCenter -0.105707, -0.0107624
Part.ActiveView().RotateAboutCenter -0.0621804, 0.0430496
Part.ActiveView().RotateAboutCenter -0.00621804, 0.0430496
Part.ActiveView().RotateAboutCenter 0.0186541, 0.107624
Part.ActiveView().RotateAboutCenter 0.0435263, 0.139911
Part.ActiveView().RotateAboutCenter 0.0124361, 0.0430496
Part.ActiveView().RotateAboutCenter 0.0248722, 0.0107624
Part.ActiveView().RotateAboutCenter 0.0373083, 0
Part.ActiveView().RotateAboutCenter 0.0248722, -0.0322872
Part.ActiveView().RotateAboutCenter 0.0248722, -0.0322872
Part.ActiveView().RotateAboutCenter 0.0186541, -0.0215248
Part.ActiveView().RotateAboutCenter 0.00621804, 0
Part.ActiveView().RotateAboutCenter 0, 0.0860991
swApp.LoadFile2 "C:\Documents and Settings\Sylvain\Mes documents\Lycée LJF\Terminale STI GM\Mes sites TP\Site_Cric Hydraulique\Cric Hydraulique\Maquette virtuelle\CRIC HYDRAULIQUE ROULANT(cinématique).SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\Sylvain\Mes documents\Lycée LJF\Terminale STI GM\Mes sites TP\Site_Cric Hydraulique\Cric Hydraulique\Maquette virtuelle\CRIC HYDRAULIQUE ROULANT(cinématique).SLDDRW", 3, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("CRIC HYDRAULIQUE ROULANT(cinématique) - Feuille1")
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Vue de mise en plan2", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan2", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan2", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.116902097357, 0.1393318011246, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.1441447454439, 0.2142490833638, 0, False, 0, Nothing)
Part.SketchConstraintsDel 0, "sgPARALLEL"
boolstatus = Part.Extension.SelectByID("Axe de centrage1", "CENTERMARKS", 0.385229649063, 0.07071122578424, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Axe de centrage1", "CENTERMARKS", 0.3870065196643, 0.07031636565061, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Axe de centrage1", "CENTERMARKS", 0.3860193693303, 0.07169837611829, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.3966805929381, 0.0752521173209, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Axe de centrage1", "CENTERMARKS", 0.3856245091966, 0.07130351598467, 0, False, 0, Nothing)
' MSGBOX
' Enregistrer les modifications apportées à emprunte du corps?

swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ClearSelection2 True
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("CRIC HYDRAULIQUE ROULANT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("emprunte du corps")
swApp.ExitApp
End Sub