' ******************************************************************************
' swxJRNL.swj - journal recorded on 03/14/05 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 ("D:\Mes documents\mécanique\examens\Modèles 3D SolidWorks\Frein de parcage\Frein de parcage.SLDASM", 2, 0, "", longstatus)
' MSGBOX
' N'a pas pu trouver le fichier C:\GMC\Activités SW\Liaison mécaniques\Coordonnées\Part5.SLDPRT. Voulez-vous le chercher vous-même ?

Set Part = swApp.ActivateDoc ("Frein de parcage")
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 2
swApp.ActiveDoc.ActiveView.FrameWidth = 495
swApp.ActiveDoc.ActiveView.FrameHeight = 640
Part.ViewZoomtofit2
Set Part = swApp.ActivateDoc ("Frein de parcage")
Part.ViewZoomTo2 -0.246557, -0.0282213, 0.0637567, -0.0489134, -0.390104, 0.0637567
Part.ShowNamedView2 "*Arrière", 2
Part.ShowNamedView2 "*Face", 1
Part.SetPickMode
Part.SelectByID "", "FACE", -0.1381942323788, -0.2160297867563, 0.1841679780133
Set Part = swApp.ActivateDoc ("Fourchette_14 - Feuille1")
Part.Create1stAngleViews "D:\Mes documents\mécanique\examens\Modèles 3D SolidWorks\Frein de parcage\Fourchette_14.SLDPRT"
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.SelectByID "Feuille1", "SHEET", 0.1806465517241, 0.1472586896552, 0
Part.SelectByID "Feuille1", "SHEET", 0.1326025977011, 0.1308800689655, 0
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0, 0, 0
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", 0, 0, 0
Part.SelectByID "Vue de mise en plan3", "DRAWINGVIEW", 0, 0, 0
Part.SelectByID "Feuille1", "SHEET", 0, 0, 0
Part.SelectByID "Feuille1", "SHEET", 0, 0, 0
Part.EditSketch
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0, 0, 0
Part.EditSketch
Part.SelectByID "", "EDGE", 0.2112199770115, 0.1559939540195, -499.8764805359
Part.SelectByID "", "EDGE", 0.2046685287356, 0.1821997471229, -499.89225
Part.SelectByID "", "EDGE", 0.2134037931034, 0.1909350114908, -499.89225
Part.EditSketch
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", 0, 0, 0
Part.SelectByID "Vue de mise en plan2", "DRAWINGVIEW", 0, 0, 0
Part.EditDelete
Part.EditSketch
Part.EditSketch
Part.SelectByID "Vue de mise en plan3", "DRAWINGVIEW", 0, 0, 0
Part.SelectByID "Vue de mise en plan3", "DRAWINGVIEW", 0, 0, 0
Part.EditDelete
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0, 0, 0
Part.ViewPropertySheet
Part.ClearSelection
Part.SelectByID "Fourchette_14-1@Vue de mise en plan1", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.SelectByID "Fourchette_14-1@Vue de mise en plan1", "COMPONENT", 0, 0, 0
Part.ViewZoomToSelection
Part.SelectByID "Fourchette_14-1@Vue de mise en plan1", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0.06592428640244, 0.1846069007859, 0
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0.06592428640244, 0.1846069007859, 0
Part.ClearSelection
Part.SelectByID "", "EDGE", 0.06883222240063, 0.1665776975936, -499.88
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0.06447031840335, 0.17791864799, 0
Set Part = swApp.ActivateDoc ("Frein de parcage")
swApp.ActiveDoc.ActiveView.FrameLeft = 495
swApp.ActiveDoc.ActiveView.FrameTop = 0
Set Part = swApp.ActivateDoc ("Fourchette_14 - Feuille1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewZoomtofit2
Part.SetPickMode
Part.ClearSelection
Part.CreateDrawViewFromModelView "D:\Mes documents\mécanique\examens\Modèles 3D SolidWorks\Frein de parcage\Fourchette_14.SLDPRT", "*Face", 0.06613677763329, 0.1913340052016, 0
Part.EditSketch
Part.EditDelete
Part.SelectByID "Feuille1", "SHEET", 0.04204806501951, 0.2057872327698, 0
Part.SelectByID "", "EDGE", 0.07132511573472, 0.1783631599445, -499.88
Part.SelectByID "", "EDGE", 0.06910154226268, 0.1702100572137, -499.88
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0, 0, 0
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0.06428379973992, 0.1846632847854, 0
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0, 0, 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0.07422978378378, 0.1934464, 0
Part.SelectByID "", "EDGE", 0.2194196162162, 0.1618666486452, -499.877
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0.2209600918919, 0.1738053351351, 0
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0, 0, 0
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0, 0, 0
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0, 0, 0
Part.ViewPropertySheet
Part.AndSelectByID "Fourchette_14-1@Vue de mise en plan1", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0, 0, 0
Part.SelectByID "Fourchette_14-1@Vue de mise en plan1", "COMPONENT", 0, 0, 0
Part.SelectByID "Annotations@Fourchette_14-1@Vue de mise en plan1", "DCABINET", 0, 0, 0
Part.SelectByID "Annotations@Fourchette_14-1@Vue de mise en plan1", "DCABINET", 0, 0, 0
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0, 0, 0
Part.SectionMassProps
swApp.PageSetup
Part.SelectByID "", "EDGE", 0.2201898540541, 0.1684136702668, -499.88
Part.SelectByID "Feuille1", "SHEET", 0.1874547459459, 0.2042297297297, 0
Part.SelectByID "Feuille1", "SHEET", 0.06421669189189, 0.1060244054054, 0
Part.ClearSelection
Part.SetupSheet4 "Feuille1", 0, 13, 1, 1, 1, "*.drt", 0.2794, 0.2159, "Par défaut"
Part.SelectByID "", "EDGE", 0.2244261621622, 0.1949868756757, 0.009999999999991
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0, 0, 0
Part.ViewZoomtofit2
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0.223569905833, -0.1097438631858, 0
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0.2037803774904, 0.2116003827585, 0
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0.1905873585953, 0.201234439341, 0
Part.SelectByID "Vue de mise en plan1", "DRAWINGVIEW", 0.1934144340728, 0.1955802883859, 0
Part.ClearSelection
Part.ViewZoomtofit2
Part.SelectByID "Feuille1", "SHEET", 0.08578335135135, 0.1433809405405, 0
Part.ClearSelection
Part.SetupSheet4 "Feuille1", 6, 13, 1, 1, 1, "*.drt", 0.297, 0.21, "Par défaut"
Part.SelectByID "Feuille1", "SHEET", 0.1040537567568, 0.1426038108108, 0
Part.SelectByID "Feuille1", "SHEET", 0.09627556756757, 0.1540664054054, 0
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.ActiveDoc.ActiveView.FrameState = 1
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 495
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Frein de parcage")
Part.ClearSelection
swApp.ExitApp
End Sub
