' ******************************************************************************
' swxJRNL.swj - journal recorded on 12/16/05 by Propriétaire
' *****************************************************************************
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 ("D:\Lycée Jules Ferry\1ère STI GE\TP\Modélisation des AM\TP Méca3D Vanne AMRI\Copie de Vanne AMRI - SLD pour mise en plan\Actair PA8-15 Méca 3D.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Actair PA8-15 Méca 3D - Feuille1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
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
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail113@Vue de mise en plan3", "NOTE", 0.1238432893422, 0.02708068276123, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1047540288903, 0.02770656014844, -666.52045, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail209@Vue de mise en plan3", "NOTE", 0.1304150019569, 0.01487607361979, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail209@Vue de mise en plan3", "NOTE", 0.1006858258431, 0.0295841923287, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail209@Vue de mise en plan3", "NOTE", 0.129789124565, 0.01518901231573, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.1341702663081, 0.02614186667343, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail209@Vue de mise en plan3", "NOTE", 0.1266597376057, 0.01894427666694, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Vue de mise en plan6", "DRAWINGVIEW", 0.1617088715503, 0.04867345278069, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail209@Vue de mise en plan3", "NOTE", 0.1257209215179, 0.01612782840353, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Vue de mise en plan6", "DRAWINGVIEW", 0.1592053619828, 0.04867345278069, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail117@Vue de mise en plan3", "NOTE", 0.04158452059407, 0.02960171462693, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail117@Vue de mise en plan3", "NOTE", 0.04256756606948, 0.0359915102171, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan3", "DRAWINGVIEW", 0.02929645215145, 0.04139826033185, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail117@Vue de mise en plan3", "NOTE", 0.02339817929899, 0.02493224861874, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan3", "DRAWINGVIEW", 0.02462698614325, 0.03058476010234, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail117@Vue de mise en plan3", "NOTE", 0.0238897020367, 0.03746607843021, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan3", "DRAWINGVIEW", 0.02561003161866, 0.02812714641382, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail117@Vue de mise en plan3", "NOTE", 0.02413546340555, 0.0364830329548, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.04109299785637, 0.02468648724523, -666.52045, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail210@Vue de mise en plan3", "NOTE", 0.03077102036457, 0.02173735082365, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail210@Vue de mise en plan3", "NOTE", 0.04551670249571, 0.02763562367611, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan3", "DRAWINGVIEW", 0.05215225945473, 0.02198311219251, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Vue de mise en plan3", "DRAWINGVIEW", 0.04641286282356, 0.0244337732146, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail210@Vue de mise en plan3", "NOTE", 0.04653591555286, 0.02492598413181, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail210@Vue de mise en plan3", "NOTE", 0.0494481634797, 0.02582837081337, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan3", "DRAWINGVIEW", 0.05043258531413, 0.02361342168591, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan3", "DRAWINGVIEW", 0.05030953258482, 0.02305968440405, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail210@Vue de mise en plan3", "NOTE", 0.02879135257311, 0.02271793311539, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan3", "DRAWINGVIEW", 0.03475964808934, 0.03160688388424, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail117@Vue de mise en plan3", "NOTE", 0.0242198921777, 0.03744819438949, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan3", "DRAWINGVIEW", 0.03006120268294, 0.04328950489474, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail210@Vue de mise en plan3", "NOTE", 0.02409290716671, 0.0295751237085, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan3", "DRAWINGVIEW", 0.0242198921777, 0.02500366331309, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail117@Vue de mise en plan3", "NOTE", 0.0242198921777, 0.04176568476293, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.01291822620015, 0.04214663979588, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail210@Vue de mise en plan3", "NOTE", 0.02396592215573, 0.03160688388424, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan3", "DRAWINGVIEW", 0.02333099710081, 0.02640049843391, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan3", "DRAWINGVIEW", 0.02675959239737, 0.02347984318129, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail109@Vue de mise en plan3", "NOTE", 0.1270266851727, 0.0971290887261, 0, True, 0, Nothing)
' MSGBOX
' L'action glisser-déposer a échoué.

Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.148536463776, 0.09849046711872, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail109@Vue de mise en plan3", "NOTE", 0.1259375824586, 0.09767364008315, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail211@Vue de mise en plan5", "NOTE", 0.1174970364243, 0.07861434258647, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail211@Vue de mise en plan5", "NOTE", 0.1134129012465, 0.07507475876566, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.1463582583479, 0.08732716429924, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail211@Vue de mise en plan3", "NOTE", 0.1068108062729, 0.08697393014698, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail211@Vue de mise en plan3", "NOTE", 0.1013948308612, 0.08508263714605, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail211@Vue de mise en plan3", "NOTE", 0.1401663373802, 0.09952523824403, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.1423155339721, 0.09118635546722, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail211@Vue de mise en plan3", "NOTE", 0.1018246701796, 0.08405102278191, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Vue de mise en plan5", "DRAWINGVIEW", 0.1406821445622, 0.08147198687156, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.1448086020188, 0.08121408328052, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail211@Vue de mise en plan3", "NOTE", 0.1359441800728, 0.09317743854505, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail211@Vue de mise en plan3", "NOTE", 0.1376112024625, 0.08928771963572, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.1526144039699, 0.08725024782607, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.1507621568703, 0.08373097833667, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail211@Vue de mise en plan3", "NOTE", 0.09920439555942, 0.07923313020957, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "SILH_VERTEX", 0.09468754757985, 0.07708954133326, -666.52045, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail211@Vue de mise en plan3", "NOTE", 0.09706080668776, 0.07823789251916, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail211@Vue de mise en plan3", "NOTE", 0.09522344479777, 0.07739576831958, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "SILH_VERTEX", 0.09453443408902, 0.07701298458784, -666.52045, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail211@Vue de mise en plan3", "NOTE", 0.09530000154318, 0.07731921157416, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "SILH_VERTEX", 0.09461099083444, 0.07701298458784, -666.52045, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail211@Vue de mise en plan3", "NOTE", 0.09598901225193, 0.077472325065, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "SILH_VERTEX", 0.09461099083444, 0.07701298458784, -666.52045, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Vue de mise en plan5", "DRAWINGVIEW", 0.1162765497873, 0.07930968695499, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail211@Vue de mise en plan3", "NOTE", 0.09841586108163, 0.07860812093999, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "SILH_VERTEX", 0.0947117395114, 0.07715293031847, -666.52045, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail211@Vue de mise en plan3", "NOTE", 0.09907731136203, 0.07940186127647, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "SILH_VERTEX", 0.09457944945532, 0.07715293031847, -666.52045, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "SILH_VERTEX", 0.09457944945532, 0.07715293031847, -666.52045, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "SILH_VERTEX", 0.09497631962356, 0.07728522037454, -666.52045, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "SILH_VERTEX", 0.09444715939924, 0.07728522037454, -666.52045, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail211@Vue de mise en plan3", "NOTE", 0.09881273124987, 0.07900499110823, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "SILH_VERTEX", 0.0947117395114, 0.07702064026239, -666.52045, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.1478923420553, 0.07609460987448, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail211@Vue de mise en plan3", "NOTE", 0.09489065546976, 0.07706084024632, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail211@Vue de mise en plan3", "NOTE", 0.09467588499195, 0.07695595233855, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Vue de mise en plan6", "DRAWINGVIEW", 0.1672778294522, 0.1163657132035, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail105@Vue de mise en plan3", "NOTE", 0.1264688949074, 0.1364944444317, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail116@Vue de mise en plan3", "NOTE", 0.1264688949074, 0.1254650026629, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail106@Vue de mise en plan3", "NOTE", 0.1267446309516, 0.1158142411151, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail116@Vue de mise en plan3", "NOTE", 0.1264688949074, 0.1312554595915, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail106@Vue de mise en plan3", "NOTE", 0.125917422819, 0.1213289619995, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail107@Vue de mise en plan3", "NOTE", 0.1250902146863, 0.1072664237442, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail109@Vue de mise en plan3", "NOTE", 0.1256416867747, 0.0976156621965, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail109@Vue de mise en plan3", "NOTE", 0.1267446309516, 0.1036818551694, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail211@Vue de mise en plan3", "NOTE", 0.13970422503, 0.1009244947272, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail116@Vue de mise en plan3", "NOTE", 0.1256416867747, 0.1342885560779, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail106@Vue de mise en plan3", "NOTE", 0.1267446309516, 0.1221561701322, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail116@Vue de mise en plan3", "NOTE", 0.1275718390843, 0.1364944444317, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail106@Vue de mise en plan3", "NOTE", 0.1278475751285, 0.1262922107955, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.1424615854722, 0.1155385050709, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail106@Vue de mise en plan3", "NOTE", 0.125917422819, 0.1273951549724, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.1402556971185, 0.1227076422206, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail106@Vue de mise en plan3", "NOTE", 0.1264688949074, 0.1235348503533, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.1449432098702, 0.1180201294689, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail107@Vue de mise en plan3", "NOTE", 0.1264688949074, 0.1114024644076, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.1386012808531, 0.114435560894, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail211@Vue de mise en plan3", "NOTE", 0.1264688949074, 0.1047847993463, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.142185849428, 0.1039575912136, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail211@Vue de mise en plan3", "NOTE", 0.1267446309516, 0.1069906877, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.1438402656933, 0.1053362714347, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.Save2 FALSE
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
swApp.SetUserPreferenceToggle 26, 1
Part.SaveAs2 "D:\Lycée Jules Ferry\1ère STI GE\TP\Modélisation des AM\TP Méca3D Vanne AMRI\Copie de Vanne AMRI - SLD pour mise en plan\actair pa8-15 méca 3d.tif", 0, TRUE, FALSE
Part.EditSketch
Part.EditSketch
Part.EditSketch
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub
