' ******************************************************************************
' swxJRNL.swj - journal recorded on 01/14/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\Boîte Prise de force\BOITE PRISE DE FORCE boitier coupé.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("BOITE PRISE DE FORCE boitier coupé")
Part.SelectByID "", "FACE", 0.01522301405191, -0.0549329765978, -0.05610371043866
Part.SelectByID "Pignon 6-2@BOITE PRISE DE FORCE boitier coupé", "COMPONENT", 0, 0, 0
Part.OpenCompFile
swApp.LoadFile2 "C:\Mes documents\Mécanique\examens\BEP CCF SolidWorks\Boîte Prise de force\Pignon 6.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Mes documents\Mécanique\examens\BEP CCF SolidWorks\Boîte Prise de force\Pignon 6.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Pignon 6")
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
Set Part = swApp.ActivateDoc ("BOITE PRISE DE FORCE boitier coupé")
Set Part = Nothing
swApp.CloseDoc "BOITE PRISE DE FORCE boitier coupé"
Set Part = swApp.ActivateDoc ("Pignon 6")
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 = 609
Set Part = swApp.ActivateDoc ("Pignon 6")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 921
swApp.ActiveDoc.ActiveView.FrameHeight = 553
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameWidth = 931
swApp.ActiveDoc.ActiveView.FrameHeight = 320
Part.SelectByID "Pignon 6.SLDPRT", "COMPONENT", 0, 0, 0
Part.SelectByID "Pignon 6.SLDPRT", "COMPONENT", 0, 0, 0
Set Part = swApp.ActivateDoc ("Pignon 6 - Feuille1")
Part.Create1stAngleViews "C:\Mes documents\Mécanique\examens\BEP CCF SolidWorks\Boîte Prise de force\Pignon 6.SLDPRT"
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.SelectByID "Feuille1", "SHEET", 0.1260398609023, 0.1062942255639, 0
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", 0.1045147932331, 0.07069507518797, 0
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", 0.1045147932331, 0.07069507518797, 0
Part.EditSketch
Part.EditDelete
Set Part = swApp.ActivateDoc ("Pignon 6")
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "Pignon 6"
Set Part = swApp.ActivateDoc ("Pignon 6 - Feuille1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 320
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.SelectByID "", "EDGE", 0.07846609189189, 0.1518535567568, 0.03249999999997
Part.AddDimension 0.131998, 0.102173, 0
Part.ClearSelection
Part.EditSketch
Part.EditSketch
Part.SelectByID "RD1@Vue de mise en plan1", "DIMENSION", 0.1358488108108, 0.1048690486486, 0
Part.EditSketch
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "Pignon 6 - Feuille1"
swApp.ExitApp
End Sub
