' ******************************************************************************
' swxJRNL.swj - journal recorded on 04/08/11 by alebreton
' *****************************************************************************
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 ("\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à béquilles\pont.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("pont.SLDASM")
swApp.LoadFile2 "\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à béquilles\béquille v2.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à béquilles\béquille v2.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("béquille v2.SLDPRT")
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameWidth = 962
swApp.ActiveDoc.ActiveView.FrameHeight = 317
boolstatus = Part.Extension.SelectByID("", "FACE", 0.004355814958928, 0.07386619109382, 0.002999999999986, False, 0, Nothing)
Set Part = swApp.ActivateDoc ("pont.SLDASM")
Set Part = swApp.ActivateDoc ("béquille v2.SLDPRT")
boolstatus = Part.Extension.SelectByID("", "FACE", 0.01306744487678, 0.07855706874189, 0.002999999999986, False, 0, Nothing)
Set Part = swApp.ActivateDoc ("pont.SLDASM")
Set Part = swApp.ActivateDoc ("béquille v2.SLDPRT")
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "béquille v2.SLDPRT"
Set Part = swApp.ActivateDoc ("pont.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 317
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.RotateComponent
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0892905690547, -0.04034843598998, 0.3090187729512, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.1339416906129, -0.1220971754936, 0.5016083650938, False, 0, Nothing)
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.009125698994978, 0.0001878509903008, 0.3142655228949, False, 0, Nothing)
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.214199
Part.ActiveView().RotateAboutCenter 0, 0.353429
Part.ActiveView().RotateAboutCenter 0, 0.342719
Part.ActiveView().RotateAboutCenter 0.0267099, 0.214199
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0642598
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0.0712264, 0.18207
Part.ActiveView().RotateAboutCenter 0.0267099, 0.0535499
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter 0.195873, -0.13923
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0214199
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter -0.0267099, -0.0749698
Part.ActiveView().RotateAboutCenter -0.0089033, -0.0214199
Part.RotateComponent
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01492740001629, -0.2249196922461, 0.3582647083566, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.04276666314672, -0.2634181913058, 0.3617336166329, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0534198, -0.11781
Part.ActiveView().RotateAboutCenter 0.0267099, -0.11781
Part.ActiveView().RotateAboutCenter 0.089033, -0.278459
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0749698
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0712264, -0.12852
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0963898
Part.ActiveView().RotateAboutCenter 0, -0.0749698
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0356132, -0.14994
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0749698
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0535499
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0089033, -0.299879
Part.ActiveView().RotateAboutCenter -0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter -0.124646, -0.13923
Part.ActiveView().RotateAboutCenter -0.142453, -0.214199
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0214199
Part.ActiveView().RotateAboutCenter 0.133549, -0.16065
Part.ActiveView().RotateAboutCenter 0.0623231, -0.0749698
Part.ActiveView().RotateAboutCenter 0.0534198, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0534198, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0445165, -0.0642598
Part.ActiveView().RotateAboutCenter 0.0623231, -0.0963898
Part.ActiveView().RotateAboutCenter 0.0178066, 0.0214199
Part.ActiveView().RotateAboutCenter 0.186969, 0.214199
Part.ActiveView().RotateAboutCenter 0.0445165, 0.0321299
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1086561130223, -0.2699679973252, 0.1015143008344, True, 0, Nothing)
Part.AddMate 0, 2, False, 0.2596609348263, 0.275656343838
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.10684, -0.1071
Part.ActiveView().RotateAboutCenter 0.462972, -0.524789
Part.ActiveView().RotateAboutCenter 0.178066, -0.13923
Part.ActiveView().RotateAboutCenter 0.0267099, -0.01071
Part.ActiveView().RotateAboutCenter 0.160259, -0.0749698
Part.ActiveView().RotateAboutCenter 0.0979363, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0623231, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0979363, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0356132, -0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.124646, 0
Part.ActiveView().RotateAboutCenter 0.169163, -0.0642598
Part.ActiveView().RotateAboutCenter 0.0979363, -0.0749698
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1027571806769, -0.1470575447608, 0.07772950464636, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0712264, 0.17136
Part.ActiveView().RotateAboutCenter -0.0356132, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0749698
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0428399
Part.ActiveView().RotateAboutCenter -0.0356132, 0.13923
Part.ActiveView().RotateAboutCenter -0.0356132, 0.0963898
Part.ActiveView().RotateAboutCenter -0.0534198, 0.12852
Part.ActiveView().RotateAboutCenter -0.0623231, 0.13923
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0178066, 0
Part.ActiveView().RotateAboutCenter -0.0356132, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0321299
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter -0.0356132, 0.01071
Part.ActiveView().RotateAboutCenter -0.0534198, 0.0642598
Part.ActiveView().RotateAboutCenter -0.0356132, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0178066, -0.01071
Part.ActiveView().RotateAboutCenter -0.151356, -0.0749698
Part.ActiveView().RotateAboutCenter -0.0445165, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0356132, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0356132, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0267099, -0.01071
Part.ActiveView().RotateAboutCenter -0.0267099, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0178066, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0178066, -0.01071
Part.ActiveView().RotateAboutCenter -0.0445165, -0.0535499
Part.ActiveView().RotateAboutCenter -0.0356132, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0712264, -0.0749698
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2298096712142, -0.1854904929965, 0.05764912378726, True, 0, Nothing)
Part.AddMate 0, -1, False, 0.1303009510542, 0.5235987755983
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0.115743, 0.267749
Part.ActiveView().RotateAboutCenter 0.0178066, 0.0428399
Part.ActiveView().RotateAboutCenter 0, 0.0428399
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0321299
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.222530459812, -0.1995417843318, 0.06606835868467, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter -0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter -0.0534198, -0.1071
Part.ActiveView().RotateAboutCenter -0.0089033, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0356132, -0.0428399
Part.ActiveView().RotateAboutCenter -0.0089033, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0445165, 0
Part.ActiveView().RotateAboutCenter -0.0623231, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0356132, -0.01071
Part.ActiveView().RotateAboutCenter -0.0089033, 0
boolstatus = Part.Extension.SelectByID("", "FACE", 0.2074417867826, -0.1855809565808, 0.06937971433905, True, 0, Nothing)
Part.AddMate 0, -1, False, 0.01378537240427, 0.5235987755983
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0.0445165, -0.01071
Part.ActiveView().RotateAboutCenter 0.240389, -0.14994
Part.ActiveView().RotateAboutCenter 0.0534198, -0.0749698
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0801297, 0.0642598
Part.ActiveView().RotateAboutCenter -0.0801297, 0.12852
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0428399
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0214199
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0712264, 0
Part.ActiveView().RotateAboutCenter -0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter -0.0267099, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0.0356132, 0.01071
Part.ActiveView().RotateAboutCenter 0.0801297, 0.0535499
Part.ActiveView().RotateAboutCenter 0.0534198, 0
Part.ActiveView().RotateAboutCenter 0.0801297, 0
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.133549, 0.0214199
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0445165, 0
Part.ActiveView().RotateAboutCenter 0.0534198, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0178066, -0.01071
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1210398040084, -0.2695809565807, 0.05676862874543, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter -0.0534198, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0623231, -0.0428399
Part.ActiveView().RotateAboutCenter -0.0712264, -0.0535499
Part.ActiveView().RotateAboutCenter -0.0623231, -0.0535499
Part.ActiveView().RotateAboutCenter -0.0445165, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0623231, -0.0642598
Part.ActiveView().RotateAboutCenter -0.0089033, 0
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1681534311231, -0.3086448770653, 0.054565076117, True, 0, Nothing)
Part.AddMate 0, -1, False, 0.0389858951377, 0.5235987755983
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1430820896115, -0.3005809565808, 0.1264463715492, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0356132, 0
Part.ActiveView().RotateAboutCenter 0.151356, -0.0749698
Part.ActiveView().RotateAboutCenter 0.0445165, -0.0428399
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0712264, -0.0642598
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0178066, 0.503369
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0428399
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0356132, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0642598
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0267099, 0
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0089033, 0.01071
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0623231, -0.0963898
Part.ActiveView().RotateAboutCenter 0.0979363, -0.18207
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0356132, -0.19278
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter -0.0267099, 0
Part.ActiveView().RotateAboutCenter -0.0267099, 0
Part.ActiveView().RotateAboutCenter -0.0267099, 0.01071
Part.ActiveView().RotateAboutCenter -0.089033, 0.12852
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0214199
Part.ActiveView().RotateAboutCenter 0.0089033, 0.01071
Part.ActiveView().RotateAboutCenter 0.0445165, 0.0535499
Part.ActiveView().RotateAboutCenter 0.0356132, 0.0214199
Part.ActiveView().RotateAboutCenter 0.0445165, 0.0214199
Part.ActiveView().RotateAboutCenter 0.0534198, 0.0963898
Part.ActiveView().RotateAboutCenter 0, 0.0321299
boolstatus = Part.Extension.SelectByID("", "FACE", 0.3588780942784, -0.1342502100896, -0.003393849478243, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter -0.0267099, 0
Part.ActiveView().RotateAboutCenter -0.089033, -0.01071
Part.ActiveView().RotateAboutCenter -0.0267099, -0.01071
Part.ActiveView().RotateAboutCenter -0.0267099, 0
Part.ActiveView().RotateAboutCenter -0.0712264, 0
Part.ActiveView().RotateAboutCenter -0.0356132, 0
Part.ActiveView().RotateAboutCenter -0.0267099, 0
Part.ActiveView().RotateAboutCenter -0.0445165, 0
Part.ActiveView().RotateAboutCenter -0.0623231, 0.01071
Part.ActiveView().RotateAboutCenter -0.0445165, 0
Part.ActiveView().RotateAboutCenter -0.0445165, 0
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0267099, 0.01071
Part.ActiveView().RotateAboutCenter -0.0178066, 0
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3897905137753, -0.1855423382647, 0.06057281985795, True, 0, Nothing)
Part.AddMate 0, -1, False, 0.04044133125763, 0.5235987755983
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.4187037648263, -0.2204524929844, -0.02253081445701, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0.0178066, -0.01071
Part.ActiveView().RotateAboutCenter 0.115743, -0.0535499
Part.ActiveView().RotateAboutCenter 0.10684, -0.0642598
Part.ActiveView().RotateAboutCenter 0.0979363, -0.0428399
Part.ActiveView().RotateAboutCenter 0.10684, -0.0963898
Part.ActiveView().RotateAboutCenter 0.10684, -0.0963898
Part.ActiveView().RotateAboutCenter 0.0801297, -0.0856798
Part.ActiveView().RotateAboutCenter 0.089033, -0.1071
Part.ActiveView().RotateAboutCenter 0.0623231, -0.0749698
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0214199
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter -0.0089033, 0.01071
boolstatus = Part.Extension.SelectByID("", "FACE", 0.4968785016027, -0.2695809565808, 0.05450226710218, True, 0, Nothing)
Part.AddMate 0, -1, False, 0.1105710232294, 0.5235987755983
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.5051073546998, -0.2717708192403, 0.1015143008343, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Coïncidente33", "MATE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Coïncidente35", "MATE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Coïncidente36", "MATE", 0, 0, 0, True, 0, Nothing)
Part.EditDelete
Part.RotateComponent
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.408447298499, -0.2698752290166, -0.05351698286273, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3642627851965, -0.1441055387352, -0.05528685995449, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter -0.0178066, 0
Part.ActiveView().RotateAboutCenter -0.0534198, -0.0428399
Part.ActiveView().RotateAboutCenter -0.0712264, -0.0535499
Part.ActiveView().RotateAboutCenter -0.0712264, -0.01071
Part.ActiveView().RotateAboutCenter -0.0445165, 0
Part.ActiveView().RotateAboutCenter -0.0445165, 0
Part.ActiveView().RotateAboutCenter -0.0534198, 0
Part.ActiveView().RotateAboutCenter -0.0801297, -0.01071
Part.ActiveView().RotateAboutCenter -0.160259, -0.0856798
Part.ActiveView().RotateAboutCenter -0.089033, -0.0321299
boolstatus = Part.Extension.SelectByID("", "FACE", 0.3390742814176, -0.1855809565808, 0.07643414395591, True, 0, Nothing)
Part.AddMate 0, -1, False, 0.1046985143827, 0.5235987755983
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.377619377559, -0.3184182439553, -0.09925105503197, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0.0623231, 0
Part.ActiveView().RotateAboutCenter 0.178066, 0
Part.ActiveView().RotateAboutCenter 0.0801297, 0
Part.ActiveView().RotateAboutCenter 0.0534198, 0
Part.ActiveView().RotateAboutCenter 0.0712264, 0
Part.ActiveView().RotateAboutCenter 0.0534198, 0
Part.ActiveView().RotateAboutCenter 0.0178066, 0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0.0534198, 0.11781
Part.ActiveView().RotateAboutCenter 0.0267099, 0.0642598
Part.ActiveView().RotateAboutCenter 0.0267099, 0.0535499
Part.ActiveView().RotateAboutCenter 0.0534198, 0.0642598
boolstatus = Part.Extension.SelectByID("", "FACE", 0.4970977327987, -0.2695809565808, 0.05629131423188, True, 0, Nothing)
Part.AddMate 0, 2, False, 0.1933116714394, 0.2779990534489
Part.ClearSelection
' MSGBOX
' Cette contrainte contient des erreurs.  Veuillez utiliser l'outil de Diagnostic de contraintes pour analyser le problème.

boolstatus = Part.Extension.SelectByID("Coïncidente38", "MATE", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3810337731335, -0.3237031995687, -0.09609555152508, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.3816724095209, -0.3213838889127, -0.09667771259996, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0963898
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0642598
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0979363, -0.17136
Part.ActiveView().RotateAboutCenter 0.0623231, -0.17136
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0856798
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0445165, -0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.10684, -0.0749698
Part.ActiveView().RotateAboutCenter 0.089033, -0.0856798
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.089033, -0.0642598
Part.ActiveView().RotateAboutCenter 0.0534198, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0856798
Part.ActiveView().RotateAboutCenter 0, -0.0963898
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.0535499
Part.ActiveView().RotateAboutCenter 0, 0.0214199
boolstatus = Part.Extension.SelectByID("", "FACE", 0.5165616308425, -0.2653188236185, 0.05851430083433, True, 0, Nothing)
Part.AddMate 0, 2, False, 0.1948731175336, 0.5886852724648
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter 0.089033, -0.224909
Part.ActiveView().RotateAboutCenter 0.0534198, -0.14994
Part.ActiveView().RotateAboutCenter 0, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0089033, -0.12852
Part.ActiveView().RotateAboutCenter 0, -0.0856798
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter 0, -0.0642598
Part.ActiveView().RotateAboutCenter 0, -0.01071
boolstatus = Part.Extension.SelectByID("", "FACE", 0.407153845597, -0.3095197575146, 0.1003834761436, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.4109531191648, -0.3182824795026, 0.1055449713996, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0979363, 0.13923
Part.ActiveView().RotateAboutCenter 0.0178066, 0.01071
Part.ActiveView().RotateAboutCenter 0.0445165, 0.0749698
Part.ActiveView().RotateAboutCenter 0.0801297, 0.14994
Part.ClearSelection
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0623231, -0.0428399
Part.ActiveView().RotateAboutCenter -0.142453, -0.0963898
Part.ActiveView().RotateAboutCenter -0.124646, -0.0856798
Part.ActiveView().RotateAboutCenter -0.124646, -0.0963898
Part.ActiveView().RotateAboutCenter -0.0178066, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.01071
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.4097874661453, -0.3187142470158, 0.1050072607757, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0.0267099, 0.0321299
Part.ActiveView().RotateAboutCenter 0.178066, 0.19278
Part.ActiveView().RotateAboutCenter 0.186969, 0.12852
Part.ActiveView().RotateAboutCenter 0.124646, 0.0535499
Part.ActiveView().RotateAboutCenter 0.0267099, 0
boolstatus = Part.Extension.SelectByID("", "FACE", 0.4985726500581, -0.2695809565808, 0.1034317567151, True, 0, Nothing)
Part.AddMate 0, -1, False, 0.04904418817601, 0.5235987755983
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.4870795345848, -0.2845809565808, 0.1058954865765, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0.0267099, 0
Part.ActiveView().RotateAboutCenter 0.276002, 0.01071
Part.ActiveView().RotateAboutCenter 0.0623231, 0
Part.ActiveView().RotateAboutCenter -0.0089033, 0
boolstatus = Part.Extension.SelectByID("", "FACE", 0.406278828949, -0.2087089869516, 0.09195421940581, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3895995101796, -0.1856742582862, 0.1017979472868, True, 0, Nothing)
Part.AddMate 0, -1, False, 0.008820512076679, 0.5235987755983
Part.ClearSelection
' MSGBOX
' L'assemblage ne peut pas être résolu en ajoutant cette contrainte.   Considérez :
'      o Enlever la contrainte.
'     o Déplacer l'esquisse plus près de la solution désirée en faisant glisser ou en changeant les valeurs de cote.
'      o Ajouter des contraintes supplémentaires pour définir l'esquisse plus précisément.
'      o Changer le système de contrainte.

boolstatus = Part.Extension.SelectByID("Coïncidente39", "MATE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Coïncidente40", "MATE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Coïncidente41", "MATE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Coïncidente37", "MATE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Coïncidente34", "MATE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Coïncidente37", "MATE", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Coïncidente41", "MATE", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.4080599554612, -0.2040129894058, 0.1072850883571, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.3821824993176, -0.221794234633, 0.08915424066942, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3896698638076, -0.1856354224999, 0.101649928079, True, 0, Nothing)
Part.AddMate 0, -1, False, 0.0364275122239, 0.5235987755983
Part.ClearSelection
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3668246907287, -0.2152782024903, 0.08465751341646, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter -0.0445165, -0.224909
Part.ActiveView().RotateAboutCenter -0.0534198, -0.13923
Part.ActiveView().RotateAboutCenter -0.124646, -0.0749698
Part.ActiveView().RotateAboutCenter -0.124646, -0.1071
Part.ActiveView().RotateAboutCenter -0.0445165, -0.0428399
boolstatus = Part.Extension.SelectByID("", "FACE", 0.4000458345679, -0.1855809565808, 0.08917404137588, True, 0, Nothing)
Part.AddMate 0, -1, False, 0.02989204296602, 0.5235987755983
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0.0445165, 0.0214199
Part.ActiveView().RotateAboutCenter 0.0979363, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0178066, -0.0214199
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3897615724972, -0.1855100679715, 0.1024248356952, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0.0267099, 0.0214199
Part.ActiveView().RotateAboutCenter 0.311615, 0.289169
Part.ActiveView().RotateAboutCenter 0.115743, 0.11781
Part.ActiveView().RotateAboutCenter 0.0712264, 0.0642598
boolstatus = Part.Extension.SelectByID("", "FACE", 0.3912852037447, -0.2038715345237, 0.09672436947284, True, 0, Nothing)
Part.AddMate 0, -1, False, 0.01382303554496, 0.5235987755983
Part.ClearSelection
' MSGBOX
' L'assemblage ne peut pas être résolu en ajoutant cette contrainte.   Considérez :
'      o Enlever la contrainte.
'     o Déplacer l'esquisse plus près de la solution désirée en faisant glisser ou en changeant les valeurs de cote.
'      o Ajouter des contraintes supplémentaires pour définir l'esquisse plus précisément.
'      o Changer le système de contrainte.

boolstatus = Part.Extension.SelectByID("Coïncidente44", "MATE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Coïncidente39", "MATE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Coïncidente40", "MATE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Coïncidente43", "MATE", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
Part.ActiveView().RotateAboutCenter -0.0178066, 0
Part.ActiveView().RotateAboutCenter -0.240389, -0.0535499
Part.ActiveView().RotateAboutCenter -0.133549, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0356132, 0
Part.ActiveView().RotateAboutCenter -0.0623231, 0
Part.ActiveView().RotateAboutCenter -0.0534198, 0
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0178066, 0
Part.ActiveView().RotateAboutCenter 0.151356, 0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0178066, 0
Part.ActiveView().RotateAboutCenter 0.0534198, 0
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0445165, 0.0321299
Part.ActiveView().RotateAboutCenter 0.0267099, 0
Part.ActiveView().RotateAboutCenter 0.0178066, 0.0214199
Part.ActiveView().RotateAboutCenter 0.142453, 0.0856798
Part.ActiveView().RotateAboutCenter 0.0178066, 0
boolstatus = Part.Extension.SelectByID("", "FACE", 0.4719468756055, -0.2622805428949, 0.1003370894159, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.4774131231001, -0.2673885775766, 0.1049503693974, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.4997685324678, -0.2682682317957, 0.1031118236877, True, 0, Nothing)
Part.AddMate 0, -1, False, 0.02234959410989, 0.5235987755983
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.4832028746136, -0.2905809565808, 0.1281980806613, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.133549, -0.01071
Part.ActiveView().RotateAboutCenter -0.142453, 0
Part.ActiveView().RotateAboutCenter -0.124646, 0.01071
Part.ActiveView().RotateAboutCenter -0.0801297, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0623231, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0445165, 0.01071
Part.ActiveView().RotateAboutCenter -0.0712264, 0.0749698
Part.ActiveView().RotateAboutCenter -0.0534198, 0.0321299
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter -0.10684, -0.0856798
Part.ActiveView().RotateAboutCenter -0.0979363, -0.0642598
Part.ActiveView().RotateAboutCenter -0.0801297, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0445165, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0445165, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0178066, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0356132, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0178066, 0
Part.ActiveView().RotateAboutCenter 0.204776, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0801297, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0623231, -0.0749698
Part.ActiveView().RotateAboutCenter 0.0445165, -0.0642598
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0445165, -0.0428399
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0801297, -0.0963898
Part.ActiveView().RotateAboutCenter 0.10684, -0.12852
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0445165, -0.0963898
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0979363, -0.13923
Part.ActiveView().RotateAboutCenter 0.124646, -0.14994
Part.ActiveView().RotateAboutCenter 0.10684, -0.0642598
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.0321299
Part.ActiveView().RotateAboutCenter 0.0089033, 0.11781
Part.ActiveView().RotateAboutCenter 0, 0.0321299
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.ActiveView().RotateAboutCenter 0, 0.0749698
Part.ActiveView().RotateAboutCenter 0.0089033, 0.1071
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.0642598
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.TranslateComponent
' MSGBOX
' Le composant sélectionné est fixé. Il ne peut pas être déplacé.

Part.ClearSelection
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1270482190897, -0.2612986666758, 0.08413886662623, False, 0, Nothing)
' MSGBOX
' Le composant sélectionné est totalement contraint. Il ne peut pas être déplacé.

Part.ClearSelection
Part.ActiveView().RotateAboutCenter -0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0356132, -0.0749698
Part.ActiveView().RotateAboutCenter -0.115743, -0.0535499
Part.ActiveView().RotateAboutCenter -0.10684, -0.0535499
Part.ActiveView().RotateAboutCenter -0.0178066, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0267099, -0.01071
Part.ActiveView().RotateAboutCenter -0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter -0.0534198, -0.0321299
Part.ActiveView().RotateAboutCenter -0.10684, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0356132, 0
Part.ActiveView().RotateAboutCenter -0.0534198, 0.01071
Part.ActiveView().RotateAboutCenter -0.0712264, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0623231, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0534198, 0.0963898
Part.ActiveView().RotateAboutCenter -0.0356132, 0.0749698
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0428399
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0428399
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter -0.0089033, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0.0178066, 0.0856798
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.178066, -0.16065
Part.ActiveView().RotateAboutCenter 0.0178066, -0.01071
Part.ShowNamedView2 "*Isométrique", 7
Part.Save2 FALSE
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "pont.SLDASM"
Set Part = swApp.OpenDoc4 ("\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à piliers\pont.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("pont.SLDASM")
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1486548725835, -0.2453718624094, 0.07153115518599, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.4524561548937, -0.2320783440995, 0.08204242974853, True, 0, Nothing)
Part.EditDelete
swApp.LoadFile2 "\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à piliers\pilier v2.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à piliers\pilier v2.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("pilier v2.SLDPRT")
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameWidth = 962
swApp.ActiveDoc.ActiveView.FrameHeight = 317
boolstatus = Part.Extension.SelectByID("", "FACE", -0.009445572002616, 0.07943590814766, 0.002999999999986, False, 0, Nothing)
Set Part = swApp.ActivateDoc ("pont.SLDASM")
Set Part = swApp.ActivateDoc ("pilier v2.SLDPRT")
boolstatus = Part.Extension.SelectByID("", "FACE", 0.002144320476365, 0.06995326884667, 0.002999999999986, False, 0, Nothing)
Set Part = swApp.ActivateDoc ("pont.SLDASM")
Set Part = swApp.ActivateDoc ("pilier v2.SLDPRT")
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "pilier v2.SLDPRT"
Set Part = swApp.ActivateDoc ("pont.SLDASM")
Part.Save2 FALSE
boolstatus = Part.Extension.SelectByID("", "FACE", 0.02805072221292, -0.2905809565808, 0.1283292640281, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("pilier v2-1@pont", "COMPONENT", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection
swApp.LoadFile2 "\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à piliers\pilier v2.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à piliers\pilier v2.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("pilier v2.SLDPRT")
boolstatus = Part.Extension.SelectByID("RD1@Annotations@pilier v2.moPart_c", "DIMENSION", 0.05061114357029, 0.01937919257476, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("RD1@Annotations@pilier v2.moPart_c", "DIMENSION", 0.009525529185149, -0.2263559256962, 0.4285244278297, False, 0, Nothing)
Part.EditDelete
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0275, 0.0877171957672, 0.003, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.025, 0.0637171957672, 0.003, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0225, 0.0267171957672, 0.003, True, 0, Nothing)
Part.EditDelete
' MSGBOX
' Aucune de ces entités ne peut être supprimée.

Part.ClearSelection
boolstatus = Part.Extension.SelectByID("RD5@Annotations@pilier v2.moPart_c", "DIMENSION", 0.001090693887367, -0.03857026982015, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("RD4@Annotations@pilier v2.moPart_c", "DIMENSION", 0.004251573654362, -0.01328323168419, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("RD3@Annotations@pilier v2.moPart_c", "DIMENSION", -0.04842975579555, 0.04677348388871, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("RD7@Annotations@pilier v2.moPart_c", "DIMENSION", -0.002070185879628, 0.1447607566656, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("RD6@Annotations@pilier v2.moPart_c", "DIMENSION", 0.006358826832358, 0.1163128387626, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("RD2@Annotations@pilier v2.moPart_c", "DIMENSION", 0.07063004876125, 0.08997217403764, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("RD9@Annotations@pilier v2.moPart_c", "DIMENSION", 0.0390212510913, 0.07627502838066, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("RD8@Annotations@pilier v2.moPart_c", "DIMENSION", 0.0400748776803, 0.02254007234175, 0, False, 0, Nothing)
Part.EditDelete
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "pilier v2.SLDPRT"
Set Part = swApp.ActivateDoc ("pont.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 317
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ShowNamedView2 "*Isométrique", 7
Part.Save2 FALSE
swApp.LoadFile2 "\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont\pont.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont\pont.SLDASM", 2, 0, "", longstatus)
' MSGBOX
' Un document nommé "pont" est déjà ouvert. Voulez-vous montrer ce document déjà ouvert?

Part.ActiveView().RotateAboutCenter -0.0178066, 0
Part.ActiveView().RotateAboutCenter -0.0356132, 0.1071
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0856798
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0214199
boolstatus = Part.Extension.SelectByID("", "FACE", -0.0449821887691, -0.1577806822312, 0.4346750169104, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0321299
Part.ActiveView().RotateAboutCenter 0.0712264, 0.310589
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0321299
Part.ActiveView().RotateAboutCenter 0, 0.0535499
Part.ActiveView().RotateAboutCenter 0, 0.13923
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.RotateComponent
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -0.05215467750802, -0.2295162646217, 0.4541036985191, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.169163, -0.321299
Part.ActiveView().RotateAboutCenter 0.169163, -0.299879
Part.ActiveView().RotateAboutCenter 0.0623231, -0.11781
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0535499
Part.ActiveView().RotateAboutCenter 0, -0.0642598
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0963898
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0856798
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0623231, -0.13923
Part.ActiveView().RotateAboutCenter 0.115743, -0.235619
Part.ActiveView().RotateAboutCenter 0.0712264, -0.0963898
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0089033, 0
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0562726907005, -0.2324821254363, 0.4361391628365, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0.133549, 0.439109
Part.ActiveView().RotateAboutCenter 0.0267099, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0801297, 0.17136
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0534198, 0.0642598
Part.ActiveView().RotateAboutCenter -0.0356132, 0.0428399
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0428399
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0749698
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0642598
Part.ActiveView().RotateAboutCenter 0, 0.0535499
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter -0.0356132, -0.0428399
Part.ActiveView().RotateAboutCenter -0.124646, -0.0749698
Part.ActiveView().RotateAboutCenter -0.0623231, -0.0535499
Part.ActiveView().RotateAboutCenter -0.0356132, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0356132, -0.0428399
Part.ActiveView().RotateAboutCenter -0.089033, -0.0749698
Part.ActiveView().RotateAboutCenter -0.0267099, -0.0214199
boolstatus = Part.Extension.SelectByID("", "FACE", -0.03772638269385, -0.1691910922412, 0.4212775648942, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -0.04255369246476, -0.1823490954972, 0.420025205609, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0.0445165, 0.0856798
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0321299
Part.ActiveView().RotateAboutCenter 0.0267099, 0.0428399
Part.ActiveView().RotateAboutCenter 0.0445165, 0.0642598
Part.ActiveView().RotateAboutCenter 0.0445165, 0.0749698
Part.ActiveView().RotateAboutCenter 0.0623231, 0.0963898
Part.ActiveView().RotateAboutCenter 0.124646, 0.267749
Part.ActiveView().RotateAboutCenter 0.115743, 0.278459
Part.ActiveView().RotateAboutCenter 0.0089033, 0.01071
boolstatus = Part.Extension.SelectByID("", "FACE", 0.232768532468, -0.2873794189859, 0.07731887655825, True, 0, Nothing)
Part.AddMate 0, 2, False, 0.429240995392, 0.3942858509789
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.2211177896011, -0.284580956581, 0.08642040977861, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.2312957004974, -0.1274793965489, 0.4130248886809, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0749698
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0979363, -0.13923
Part.ActiveView().RotateAboutCenter 0.0712264, -0.13923
Part.ActiveView().RotateAboutCenter 0.0979363, -0.20349
Part.ActiveView().RotateAboutCenter 0.0712264, -0.14994
Part.ActiveView().RotateAboutCenter 0.0534198, -0.18207
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0856798
Part.ActiveView().RotateAboutCenter 0, -0.18207
Part.ActiveView().RotateAboutCenter 0, -0.17136
Part.ActiveView().RotateAboutCenter 0, -0.0535499
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0178066, -0.01071
Part.ActiveView().RotateAboutCenter 0.0534198, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0214199
boolstatus = Part.Extension.SelectByID("", "FACE", 0.2353059703229, -0.184719867183, 0.05751430083421, True, 0, Nothing)
Part.AddMate 0, 2, False, 0.3598330352319, 0.09101150201761
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.2327685324678, -0.1709434975216, 0.06546682342076, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter -0.0089033, 0.01071
Part.ActiveView().RotateAboutCenter -0.0712264, 0.1071
Part.ActiveView().RotateAboutCenter -0.0801297, 0.14994
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0749698
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0214199
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter -0.0178066, 0
Part.ActiveView().RotateAboutCenter -0.0356132, 0.0214199
Part.ActiveView().RotateAboutCenter 0, 0.0321299
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0089033, 0.01071
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter -0.089033, 0.235619
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.ClearSelection
Part.EditUndo 1
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0642598
Part.ActiveView().RotateAboutCenter -0.0712264, 0.17136
Part.ActiveView().RotateAboutCenter -0.0356132, 0.0856798
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0178066, 0.01071
Part.ActiveView().RotateAboutCenter -0.10684, 0.1071
Part.ActiveView().RotateAboutCenter -0.160259, 0.0963898
Part.ActiveView().RotateAboutCenter -0.0979363, 0.0642598
Part.ActiveView().RotateAboutCenter -0.089033, 0.12852
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0749698
Part.ActiveView().RotateAboutCenter -0.0356132, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0856798
Part.ActiveView().RotateAboutCenter -0.0534198, 0.0963898
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0963898
Part.ActiveView().RotateAboutCenter -0.0623231, 0.11781
Part.ActiveView().RotateAboutCenter -0.0534198, 0.1071
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0428399
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter -0.0979363, -0.0428399
Part.ActiveView().RotateAboutCenter -0.0534198, -0.01071
Part.ActiveView().RotateAboutCenter -0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter -0.0356132, -0.0428399
Part.ActiveView().RotateAboutCenter -0.0178066, -0.01071
Part.ActiveView().RotateAboutCenter -0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0267099, -0.0321299
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0535499
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0623231, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0712264, -0.0856798
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0445165, -0.0963898
Part.ActiveView().RotateAboutCenter 0.0445165, -0.0856798
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0749698
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0963898
Part.ActiveView().RotateAboutCenter 0.0979363, -0.16065
Part.ActiveView().RotateAboutCenter 0.133549, -0.235619
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter 0.160259, -0.224909
Part.ActiveView().RotateAboutCenter 0.089033, -0.14994
Part.ActiveView().RotateAboutCenter 0.0089033, 0
boolstatus = Part.Extension.SelectByID("", "FACE", 0.2309742348971, -0.1245052704651, 0.4478989152653, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter -0.0089033, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.0428399
Part.ActiveView().RotateAboutCenter -0.0089033, 0.12852
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0749698
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0642598
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0321299
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.ActiveView().RotateAboutCenter 0, 0.0642598
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0321299
Part.ActiveView().RotateAboutCenter 0, 0.0535499
Part.ActiveView().RotateAboutCenter 0, 0.0321299
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0428399
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0963898
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0428399
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.0428399
boolstatus = Part.Extension.SelectByID("", "FACE", 0.2309701628816, -0.1845494317753, 0.09751430083429, True, 0, Nothing)
Part.AddMate 0, 2, False, 0.3552554779698, 0.09101150201761
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.0428399
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0.089033, -0.0963898
Part.ActiveView().RotateAboutCenter 0.0534198, -0.0428399
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter 0.0623231, -0.0214199
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.2309181073325, -0.125300324166, 0.09306529624158, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0214199
Part.ActiveView().RotateAboutCenter -0.089033, 0.18207
Part.ActiveView().RotateAboutCenter -0.133549, 0.16065
Part.ActiveView().RotateAboutCenter -0.115743, 0.1071
Part.ActiveView().RotateAboutCenter -0.0534198, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0623231, 0.0428399
Part.ActiveView().RotateAboutCenter -0.089033, 0.0963898
Part.ActiveView().RotateAboutCenter -0.0623231, 0.0856798
Part.ActiveView().RotateAboutCenter -0.089033, 0.0963898
Part.ActiveView().RotateAboutCenter -0.133549, 0.13923
Part.ActiveView().RotateAboutCenter -0.10684, 0.14994
Part.ActiveView().RotateAboutCenter -0.0801297, 0.0963898
Part.ActiveView().RotateAboutCenter -0.0356132, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0267099, 0.01071
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0214199
boolstatus = Part.Extension.SelectByID("", "FACE", 0.2144032636272, -0.1855809565807, 0.08572462059738, True, 0, Nothing)
Part.AddMate 0, 2, False, 0.0602806324149, 0
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.0428399
Part.ActiveView().RotateAboutCenter 0.133549, -0.17136
Part.ActiveView().RotateAboutCenter 0.115743, -0.13923
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0178066, -0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0089033, 0.01071
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0214199
Part.ActiveView().RotateAboutCenter 0.124646, -0.0856798
Part.ActiveView().RotateAboutCenter 0.124646, -0.0963898
Part.ActiveView().RotateAboutCenter 0.133549, -0.0963898
Part.ActiveView().RotateAboutCenter 0.0178066, -0.01071
Part.RotateComponent
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.7282638634123, -0.3038686202285, -0.2126979481723, False, 0, Nothing)
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter -0.0801297, 0.18207
Part.ActiveView().RotateAboutCenter -0.0712264, 0.1071
Part.ActiveView().RotateAboutCenter -0.0178066, 0.1071
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0428399
Part.ActiveView().RotateAboutCenter 0.10684, 0.13923
Part.ActiveView().RotateAboutCenter 0.0178066, 0.01071
boolstatus = Part.Extension.SelectByID("", "FACE", 0.7013774420899, -0.2785697619861, -0.2242790760128, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter -0.0178066, -0.0749698
Part.ActiveView().RotateAboutCenter -0.151356, -0.546209
Part.ActiveView().RotateAboutCenter -0.0445165, -0.12852
boolstatus = Part.Extension.SelectByID("", "FACE", 0.3867685324678, -0.2855050423017, 0.07681934741771, True, 0, Nothing)
Part.AddMate 0, 2, False, 0.421339478826, 0.5281840285687
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.3795938475679, -0.284580956581, 0.07711670352018, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter -0.0089033, 0.01071
Part.ActiveView().RotateAboutCenter -0.0356132, 0.14994
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0214199
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0428399
Part.ActiveView().RotateAboutCenter 0.133549, -0.310589
Part.ActiveView().RotateAboutCenter 0.0178066, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.0749698
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0856798
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0712264, -0.18207
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0856798
Part.ActiveView().RotateAboutCenter 0.0534198, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0712264, -0.17136
Part.ActiveView().RotateAboutCenter 0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0534198, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0428399
Part.ActiveView().RotateAboutCenter 0.10684, -0.12852
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0428399
boolstatus = Part.Extension.SelectByID("", "FACE", 0.3883970927012, -0.2287436761011, -0.1992892444117, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0428399
Part.ActiveView().RotateAboutCenter -0.0089033, 0.364139
Part.ActiveView().RotateAboutCenter 0, 0.18207
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0856798
Part.ActiveView().RotateAboutCenter -0.0089033, 0.214199
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0856798
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0642598
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.ActiveView().RotateAboutCenter 0, 0.0321299
Part.ActiveView().RotateAboutCenter 0.0267099, 0.267749
Part.ActiveView().RotateAboutCenter 0, 0.0321299
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.ActiveView().RotateAboutCenter 0.0178066, 0.224909
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0535499
boolstatus = Part.Extension.SelectByID("", "FACE", 0.3884732874301, -0.1847595920253, 0.09751430083423, True, 0, Nothing)
Part.AddMate 0, 2, False, 0.2997609857716, 0.02306571398544
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.3879337763064, -0.2307332018762, 0.07168846139251, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter -0.0089033, 0.01071
Part.ActiveView().RotateAboutCenter -0.124646, 0.224909
Part.ActiveView().RotateAboutCenter -0.0712264, 0.0963898
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0428399
Part.ActiveView().RotateAboutCenter -0.0534198, 0.0856798
Part.ActiveView().RotateAboutCenter -0.0712264, 0.11781
Part.ActiveView().RotateAboutCenter -0.10684, 0.20349
Part.ActiveView().RotateAboutCenter -0.0534198, 0.0642598
Part.ActiveView().RotateAboutCenter -0.0623231, 0.0642598
Part.ActiveView().RotateAboutCenter -0.115743, 0.16065
Part.ActiveView().RotateAboutCenter -0.0089033, 0.01071
boolstatus = Part.Extension.SelectByID("", "FACE", 0.3785405983542, -0.1855809565807, 0.09953188879234, True, 0, Nothing)
Part.AddMate 0, 2, False, 0.04515224529538, 0
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0428399
Part.ActiveView().RotateAboutCenter 0.258196, -0.492659
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0356132, -0.1071
Part.ActiveView().RotateAboutCenter 0.0178066, -0.332009
Part.ActiveView().RotateAboutCenter -0.0267099, -0.385559
Part.ActiveView().RotateAboutCenter -0.0178066, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0178066, -0.01071
Part.ActiveView().RotateAboutCenter -0.0712264, -0.0749698
Part.ActiveView().RotateAboutCenter -0.0267099, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0801297, -0.0856798
Part.ActiveView().RotateAboutCenter -0.0178066, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0267099, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0356132, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0356132, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0356132, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0534198, -0.0642598
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0267099, -0.310589
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0214199
Part.ActiveView().RotateAboutCenter 0, -0.0428399
Part.ActiveView().RotateAboutCenter 0, -0.0535499
Part.ActiveView().RotateAboutCenter -0.0979363, 0
Part.ActiveView().RotateAboutCenter -0.133549, 0
Part.ActiveView().RotateAboutCenter -0.0801297, 0
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0178066, 0
Part.ActiveView().RotateAboutCenter -0.133549, -0.18207
Part.ActiveView().RotateAboutCenter -0.0445165, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0267099, -0.01071
Part.ActiveView().RotateAboutCenter -0.0178066, 0
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ShowNamedView2 "*Isométrique", 7
Part.Save2 FALSE
Part.Save2 FALSE
Part.Save2 FALSE
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub
