' ******************************************************************************
' swxJRNL.swj - journal recorded on 01/13/06 by MARC
' ******************************************************************************

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:\Mes documents\Mécanique\examens\BEP CCF SolidWorks\Frein de parcage\Piston_1.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Piston_1")
Part.ShowNamedView2 "*Isométrique", 7
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")
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameWidth = 962
swApp.ActiveDoc.ActiveView.FrameHeight = 320
Set Part = swApp.ActivateDoc ("Piston_1")
Part.SelectByID "Piston_1.SLDPRT", "COMPONENT", 0, 0, 0
Part.SelectByID "Piston_1.SLDPRT", "COMPONENT", 0, 0, 0
Set Part = swApp.ActivateDoc ("Piston_1 - Feuille1")
Part.Create1stAngleViews "C:\Mes documents\Mécanique\examens\BEP CCF SolidWorks\Frein de parcage\Piston_1.SLDPRT"
Part.EditSketch
Part.EditSketch
Part.SelectByID "Vue de mise en plan3", "DRAWINGVIEW", 0.1919842105263, 0.1275473684211, 0
Part.EditSketch
Part.CreateDrawViewFromModelView "C:\Mes documents\Mécanique\examens\BEP CCF SolidWorks\Frein de parcage\Piston_1.SLDPRT", "*Isométrique", 0.2121157894737, 0.06634736842105, 0
Part.ClearSelection
Part.EditDelete
Part.EditSketch
Part.EditSketch
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0.1058210526316, 0.1315736842105, 0
Part.CreateDrawViewFromModelView "C:\Mes documents\Mécanique\examens\BEP CCF SolidWorks\Frein de parcage\Piston_1.SLDPRT", "*Isométrique", 0.2056736842105, 0.07601052631579, 0
Part.ClearSelection
Part.EditSketch
Part.SelectByID "Vue de mise en plan3", "DRAWINGVIEW", 0.2531842105263, 0.1855263157895, 0
Part.EditDelete
Part.EditSketch
Part.EditSketch
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0.1058210526316, 0.1267421052632, 0
Part.EditDelete
Part.EditSketch
Part.EditSketch
Part.SelectByID "", "EDGE", 0.08810526315789, 0.06232105262809, -499.828038821
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", 0.09776842105263, 0.07278947368421, 0
Part.EditDelete
Part.EditSketch
Part.SelectByID "Vue de mise en plan5", "DRAWINGVIEW", 0.1774894736842, 0.09614210526316, 0
Part.SelectByID "Vue de mise en plan5", "DRAWINGVIEW", 0.1710473684211, 0.1275473684211, 0
Part.ViewPropertySheet
Part.ClearSelection
Part.SelectByID "Feuille1", "SHEET", 0.06233684210526, 0.07762105263158, 0
Part.SelectByID "Feuille1", "SHEET", 0.0567, 0.09855789473684, 0
Part.ClearSelection
Part.SetupSheet4 "Feuille1", 6, 13, 1, 1, 1, "*.drt", 0.297, 0.21, "Par défaut"
Part.SelectByID "Vue de mise en plan5", "DRAWINGVIEW", 0.1968157894737, 0.1943842105263, 0
Set Part = swApp.ActivateDoc ("Piston_1")
swApp.ActiveDoc.ActiveView.FrameLeft = -6
swApp.ActiveDoc.ActiveView.FrameTop = 322
swApp.ActiveDoc.ActiveView.FrameLeft = -11
swApp.ActiveDoc.ActiveView.FrameTop = 323
swApp.ActiveDoc.ActiveView.FrameLeft = -19
swApp.ActiveDoc.ActiveView.FrameTop = 323
swApp.ActiveDoc.ActiveView.FrameLeft = -28
swApp.ActiveDoc.ActiveView.FrameTop = 323
swApp.ActiveDoc.ActiveView.FrameLeft = -39
swApp.ActiveDoc.ActiveView.FrameTop = 323
swApp.ActiveDoc.ActiveView.FrameLeft = -51
swApp.ActiveDoc.ActiveView.FrameTop = 323
swApp.ActiveDoc.ActiveView.FrameLeft = -61
swApp.ActiveDoc.ActiveView.FrameTop = 323
swApp.ActiveDoc.ActiveView.FrameLeft = -71
swApp.ActiveDoc.ActiveView.FrameTop = 323
swApp.ActiveDoc.ActiveView.FrameLeft = -80
swApp.ActiveDoc.ActiveView.FrameTop = 323
swApp.ActiveDoc.ActiveView.FrameLeft = -87
swApp.ActiveDoc.ActiveView.FrameTop = 323
swApp.ActiveDoc.ActiveView.FrameLeft = -91
swApp.ActiveDoc.ActiveView.FrameTop = 323
swApp.ActiveDoc.ActiveView.FrameLeft = -93
swApp.ActiveDoc.ActiveView.FrameTop = 324
swApp.ActiveDoc.ActiveView.FrameLeft = -94
swApp.ActiveDoc.ActiveView.FrameTop = 325
swApp.ActiveDoc.ActiveView.FrameLeft = -95
swApp.ActiveDoc.ActiveView.FrameTop = 325
swApp.ActiveDoc.ActiveView.FrameLeft = -95
swApp.ActiveDoc.ActiveView.FrameTop = 326
swApp.ActiveDoc.ActiveView.FrameLeft = -97
swApp.ActiveDoc.ActiveView.FrameTop = 326
swApp.ActiveDoc.ActiveView.FrameLeft = -100
swApp.ActiveDoc.ActiveView.FrameTop = 326
swApp.ActiveDoc.ActiveView.FrameLeft = -102
swApp.ActiveDoc.ActiveView.FrameTop = 327
swApp.ActiveDoc.ActiveView.FrameLeft = -105
swApp.ActiveDoc.ActiveView.FrameTop = 327
swApp.ActiveDoc.ActiveView.FrameLeft = -106
swApp.ActiveDoc.ActiveView.FrameTop = 327
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "Piston_1"
Set Part = swApp.ActivateDoc ("Piston_1 - Feuille1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Vue de mise en plan5", "DRAWINGVIEW", 0.1812502702703, 0.1971101351351, 0
Part.ViewZoomtofit2
Part.SelectByID "Feuille1", "SHEET", 0.02241145945946, 0.1767176073969, 0
Part.ViewZoomTo2 0.0645774, 0.163617, -1.17668e-015, 0.22096, 0.0219726, -1.87575e-016
Part.SaveAs2 "C:\Mes documents\Mécanique\examens\BEP CCF SolidWorks\Frein de parcage\Microsoft Files\Piston Isométrique.TIF", 0, TRUE, FALSE
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ClearSelection
swApp.ExitApp
End Sub
