' ******************************************************************************
' swxJRNL.swj - journal recorded on 05/26/10 by Professeur3
' *****************************************************************************
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 = Application.SldWorks

Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\Professeur3\Mes documents\Sujets Collègues\CCF Moteur à vapeur\Préparations 2006\Moteur à vapeur\Dessin axes.SLDDRW", 3, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Dessin axes - Feuille1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.09879807874016, 0.2603731181102, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Base-Extrusion@Axe du cylindre-3@Vue de mise en plan3", "DIMENSION", 0.09593565354331, 0.2603731181102, 0, False, 0, Nothing)
Part.Parameter("D1@Base-Extrusion@Axe du cylindre.Part").SystemValue = 0.053
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Base-Extrusion@Axe du volant-3@Vue de mise en plan6", "DIMENSION", 0.1102477795276, 0.1950144094488, 0, False, 0, Nothing)
Part.Parameter("D1@Base-Extrusion@Axe du volant.Part").SystemValue = 0.082
Part.EditSketch
Part.EditSketch
Part.EditSketch
' MSGBOX
' Les marges d'impression sélectionnées peuvent résulter en une image découpée. Voulez-vous que le système corrige les marges ?

Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.PrintPreview
swApp.ActiveDoc.ActiveView.FrameState = 1
' MSGBOX
' Les marges d'impression sélectionnées peuvent résulter en une image découpée. Voulez-vous que le système corrige les marges ?

swApp.ActiveDoc.ActiveView.FrameState = 1
Part.PrintDirect
' MSGBOX
' Les marges d'impression sélectionnées peuvent résulter en une image découpée. Voulez-vous que le système corrige les marges ?

Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
' MSGBOX
' Certains des modèles référencées dans ce document ont été modifiés. Ils doivent être enregistrés lorsque le document est enregistré.
' 		Enregistrer le document et les modèles référencés maintenant ?

Part.Save2 FALSE
Part.EditSketch
Part.EditSketch
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "Dessin axes - Feuille1"
swApp.ExitApp
End Sub
