' ******************************************************************************
' 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

swApp.LoadFile2 "\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à voute\Voute-4.stl", "r"
Set Part = swApp.ActiveDoc
Part.ActiveView().RotateAboutCenter -0.00921417, -0.0119301
Part.ActiveView().RotateAboutCenter -0.138213, -0.0238602
Part.ActiveView().RotateAboutCenter -0.22114, 0
Part.ActiveView().RotateAboutCenter -0.147427, 0.0238602
Part.ActiveView().RotateAboutCenter -0.101356, 0
Part.ActiveView().RotateAboutCenter -0.128998, 0.0238602
Part.ActiveView().RotateAboutCenter -0.11057, 0
Part.ActiveView().RotateAboutCenter -0.138213, 0
Part.ActiveView().RotateAboutCenter -0.147427, 0.0119301
Part.ActiveView().RotateAboutCenter -0.147427, 0.0715806
Part.ActiveView().RotateAboutCenter -0.11057, 0.0238602
Part.ActiveView().RotateAboutCenter -0.055285, 0
Part.ActiveView().RotateAboutCenter -0.0184283, 0
Part.ActiveView().RotateAboutCenter -0.0184283, 0
Part.ActiveView().RotateAboutCenter -0.0184283, 0
Part.ActiveView().RotateAboutCenter -0.00921417, 0
Part.ActiveView().RotateAboutCenter -0.00921417, 0
Part.ActiveView().RotateAboutCenter -0.0644992, 0
Part.ActiveView().RotateAboutCenter -0.00921417, 0
Part.ActiveView().RotateAboutCenter 0.00921417, 0.0596505
Part.ActiveView().RotateAboutCenter 0.0276425, 0.155091
Part.ActiveView().RotateAboutCenter 0.00921417, 0.0357903
Part.ActiveView().RotateAboutCenter 0.00921417, 0.0477204
Part.ActiveView().RotateAboutCenter 0, 0.119301
Part.ActiveView().RotateAboutCenter 0.0368567, 0.119301
Part.ActiveView().RotateAboutCenter 0.0460708, 0.0596505
Part.ActiveView().RotateAboutCenter 0.0276425, 0.0119301
Part.ActiveView().RotateAboutCenter 0.0921417, 0
Part.ActiveView().RotateAboutCenter 0.0368567, 0
boolstatus = Part.Extension.SelectByID("Voute-4.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, -0.0238602
Part.ActiveView().RotateAboutCenter -0.055285, -0.143161
Part.ActiveView().RotateAboutCenter -0.0460708, -0.0954408
Part.ActiveView().RotateAboutCenter -0.055285, -0.131231
Part.ActiveView().RotateAboutCenter -0.0276425, -0.0596505
Part.ActiveView().RotateAboutCenter 0, -0.0238602
boolstatus = Part.Extension.SelectByID("Graphiques STL1", "PICTURE BODY", 0, 0, 0, False, 0, Nothing)
swApp.LoadFile2 "\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à voute\pont.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à voute\pont.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("pont.SLDASM")
boolstatus = Part.Extension.SelectByID("poutre v2-1@pont", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
Part.ActiveView().RotateAboutCenter -0.00921417, -0.0119301
Part.ActiveView().RotateAboutCenter -0.0737133, -0.0357903
Part.ActiveView().RotateAboutCenter -0.350138, -0.0119301
Part.ActiveView().RotateAboutCenter -0.202712, 0
Part.ActiveView().RotateAboutCenter -0.101356, 0
Part.ActiveView().RotateAboutCenter -0.101356, 0
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameWidth = 962
swApp.ActiveDoc.ActiveView.FrameHeight = 317
Set Part = swApp.ActivateDoc ("Voute-4")
boolstatus = Part.Extension.SelectByID("Graphiques STL1", "PICTURE BODY", -0.15664237869, -0.02513966494183, 0.05710731957936, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Graphiques STL1", "PICTURE BODY", -0.1449537969826, -0.004339196989235, 0.06526236279683, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Graphiques STL1", "PICTURE BODY", -0.1494111851278, 0.02322309277946, 0.06444671901321, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Graphiques STL1", "PICTURE BODY", -0.1532719751002, 0.009360809461725, 0.05945882702678, False, 0, Nothing)
Part.SaveAs2 "\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à voute\Voute-4.SLDPRT", 0, FALSE, FALSE
boolstatus = Part.Extension.SelectByID("Graphiques STL1", "PICTURE BODY", -0.1454348094532, 0.02322309277952, 0.06615606389206, False, 0, Nothing)
Set Part = swApp.ActivateDoc ("pont.SLDASM")
Part.ActiveView().RotateAboutCenter 0.0723988, 0.0770118
Part.ActiveView().RotateAboutCenter 0.0542991, 0.102682
Part.ActiveView().RotateAboutCenter 0.0452493, 0.0770118
Part.ActiveView().RotateAboutCenter 0.0361994, 0.0513412
Part.ActiveView().RotateAboutCenter 0.0271496, 0.102682
Part.ActiveView().RotateAboutCenter 0.0180997, 0.0770118
Part.ActiveView().RotateAboutCenter 0.00904986, 0.0256706
Part.ActiveView().RotateAboutCenter 0.00904986, 0
Part.ActiveView().RotateAboutCenter 0.108598, 0.0770118
Part.ActiveView().RotateAboutCenter 0.063349, 0
Part.ActiveView().RotateAboutCenter 0.0361994, 0
Part.ActiveView().RotateAboutCenter 0.0180997, -0.0256706
Part.ActiveView().RotateAboutCenter 0.0361994, -0.128353
Part.ActiveView().RotateAboutCenter 0.0723988, -0.359388
Part.ActiveView().RotateAboutCenter 0.0361994, -0.308047
Part.ActiveView().RotateAboutCenter 0.00904986, -0.179694
Part.ActiveView().RotateAboutCenter 0, -0.0513412
Part.ActiveView().RotateAboutCenter 0.0180997, -0.102682
Part.ActiveView().RotateAboutCenter 0.0180997, -0.128353
Part.ActiveView().RotateAboutCenter 0.0271496, -0.0770118
Part.ActiveView().RotateAboutCenter 0.0452493, -0.0256706
Part.ActiveView().RotateAboutCenter 0.0452493, 0.0256706
Part.ActiveView().RotateAboutCenter 0.0452493, 0.0770118
Part.ActiveView().RotateAboutCenter 0.063349, 0.205365
Part.ActiveView().RotateAboutCenter 0.0542991, 0.154024
Part.ActiveView().RotateAboutCenter 0.0180997, 0.0770118
Part.ActiveView().RotateAboutCenter 0.0180997, 0.0513412
Part.ActiveView().RotateAboutCenter 0.00904986, 0.0513412
Part.ActiveView().RotateAboutCenter 0.0271496, 0.128353
Part.ActiveView().RotateAboutCenter 0.00904986, 0.0513412
Part.ActiveView().RotateAboutCenter 0, 0.0256706
Part.ActiveView().RotateAboutCenter 0, 0.0256706
Part.ActiveView().RotateAboutCenter 0, 0.0256706
Set Part = swApp.ActivateDoc ("Voute-4.SLDPRT")
Part.ActiveView().RotateAboutCenter 0, 0.0770118
Part.ActiveView().RotateAboutCenter 0.0542991, 0.4364
Part.ActiveView().RotateAboutCenter 0.0271496, 0.282377
Part.ActiveView().RotateAboutCenter 0, 0.0513412
Part.ActiveView().RotateAboutCenter 0, 0.0256706
Part.ActiveView().RotateAboutCenter 0.063349, 0.0770118
Part.ActiveView().RotateAboutCenter 0.00904986, 0
boolstatus = Part.Extension.SelectByID("Graphiques STL1", "PICTURE BODY", -0.1394443240424, -0.009819483437866, 0.06893931370756, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Graphiques STL1", "PICTURE BODY", -0.1209097865041, -0.0002632208241664, 0.07805153955836, False, 0, Nothing)
Part.Save2 FALSE
boolstatus = Part.Extension.SelectByID("Graphiques STL1", "PICTURE BODY", 0, 0, 0, False, 0, Nothing)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 317
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0356132, -0.535499
Part.ActiveView().RotateAboutCenter -0.0267099, -0.14994
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter 0, -0.449819
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, -0.18207
Part.ActiveView().RotateAboutCenter -0.0979363, -0.20349
Part.ActiveView().RotateAboutCenter -0.258196, -0.246329
Part.ActiveView().RotateAboutCenter -0.089033, -0.0428399
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0214199
Part.ActiveView().RotateAboutCenter 0.0712264, 0.14994
boolstatus = Part.Extension.SelectByID("Graphiques STL1", "PICTURE BODY", -0.1056239770805, -0.003545981579066, 0.08554506100347, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Graphiques STL1", "PICTURE BODY", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Face", "PLANE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Dessus", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0214199
Part.ActiveView().RotateAboutCenter 0.178066, -0.481949
Part.ActiveView().RotateAboutCenter 0.0267099, -0.18207
Part.ActiveView().RotateAboutCenter 0, -0.16065
Part.ActiveView().RotateAboutCenter 0, -0.13923
Part.ActiveView().RotateAboutCenter -0.0089033, -0.12852
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0214199
Part.ActiveView().RotateAboutCenter 0.0979363, 0.0535499
Part.ActiveView().RotateAboutCenter 0.0356132, 0
Part.ActiveView().RotateAboutCenter 0.0267099, 0
Part.ActiveView().RotateAboutCenter 0.0178066, -0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.0535499
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0089033, 0.01071
Part.ActiveView().RotateAboutCenter 0.0267099, 0.0321299
Part.ActiveView().RotateAboutCenter 0.0089033, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.InsertSketch2 True
Part.ViewDisplayHiddenremoved
Part.ViewDisplayHiddengreyed
Part.ViewDisplayShaded
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.952381
Part.ActiveView().ZoomByFactor 0.684932
Part.ActiveView().ZoomByFactor 0.840336
Part.ActiveView().ZoomByFactor 0.877193
Part.ActiveView().ZoomByFactor 0.869565
Part.ActiveView().ZoomByFactor 0.833333
Part.ActiveView().ZoomByFactor 0.775194
Part.ActiveView().ZoomByFactor 0.724638
Part.ActiveView().ZoomByFactor 0.735294
Part.ActiveView().ZoomByFactor 0.847458
Part.ActiveView().ZoomByFactor 0.787402
Part.ActiveView().ZoomByFactor 0.854701
Part.ActiveView().ZoomByFactor 0.892857
Part.ActiveView().ZoomByFactor 0.884956
Part.ActiveView().ZoomByFactor 0.877193
Part.ActiveView().ZoomByFactor 0.884956
Part.ActiveView().ZoomByFactor 0.909091
Part.ActiveView().ZoomByFactor 0.943396
Part.ActiveView().ZoomByFactor 0.961538
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 1.02
Part.Create3PointArc 0.183200955483, -0.013113458595, 0, -0.2069097718629, -0.013113458595, 0, -0.007573389028683, -0.1029955639671, 0
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.08580632253268, -0.004276908002794, 0.08337342823372, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0438396, 0, 0.0208049)
Part.ClearSelection
Part.Parameter("D1@Esquisse1").SystemValue = 0.256522
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "Voute-4.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("pont.SLDASM")
Part.ActiveView().RotateAboutCenter -0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter -0.0712264, -0.0428399
Part.ActiveView().RotateAboutCenter -0.089033, 0
Part.ActiveView().RotateAboutCenter -0.151356, 0.0214199
Part.ActiveView().RotateAboutCenter -0.160259, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0801297, 0.0428399
Part.ActiveView().RotateAboutCenter -0.0979363, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0712264, 0.0963898
Part.ActiveView().RotateAboutCenter -0.0623231, 0.13923
Part.ActiveView().RotateAboutCenter -0.0445165, 0.16065
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0749698
Part.ActiveView().RotateAboutCenter 0.0267099, 0.0428399
Part.ActiveView().RotateAboutCenter 0.142453, 0.19278
Part.ActiveView().RotateAboutCenter 0.0267099, 0.0214199
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.213679, -0.19278
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0321299
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1045830704936, -0.2404688925146, 0.1075143008343, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.4997685324678, -0.2695809565808, 0.1075143008343, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0.0089033, 0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0856798
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0749698
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter -0.0712264, -0.16065
Part.ActiveView().RotateAboutCenter -0.0801297, -0.0963898
Part.ActiveView().RotateAboutCenter -0.133549, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0445165, 0
boolstatus = Part.Extension.SelectByID("Droite", "PLANE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Face", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0.0178066, 0.0321299
Part.ActiveView().RotateAboutCenter 0.133549, 0.364139
Part.ActiveView().RotateAboutCenter 0.0178066, 0.246329
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.0642598
Part.ActiveView().RotateAboutCenter 0, 0.16065
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.214199
Part.ActiveView().RotateAboutCenter 0, 0.0642598
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0428399
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0856798
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0428399
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0856798
Part.ActiveView().RotateAboutCenter -0.0356132, 0.0856798
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0642598
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0642598
Part.ActiveView().RotateAboutCenter -0.0178066, 0.299879
Part.ActiveView().RotateAboutCenter 0, 0.0321299
Part.ActiveView().RotateAboutCenter 0, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0534198, -0.246329
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0321299
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0534198, -0.0642598
Part.ActiveView().RotateAboutCenter 0.151356, -0.246329
Part.ActiveView().RotateAboutCenter -0.0267099, -0.0749698
Part.ActiveView().RotateAboutCenter -0.0534198, -0.17136
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0.186969, -0.396269
Part.ActiveView().RotateAboutCenter 0.10684, -0.14994
Part.ActiveView().RotateAboutCenter 0.115743, -0.0535499
Part.ActiveView().RotateAboutCenter 0.142453, -0.1071
Part.ActiveView().RotateAboutCenter 0.0712264, -0.0535499
Part.ActiveView().RotateAboutCenter 0.10684, -0.0749698
Part.ActiveView().RotateAboutCenter 0.124646, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0534198, -0.01071
Part.ClearSelection
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.5590623664451, -0.2367551821409, 0.1075143008343, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0, 0.0321299
Part.ActiveView().RotateAboutCenter 0, 0.289169
Part.ActiveView().RotateAboutCenter 0, 0.257039
Part.ActiveView().RotateAboutCenter -0.0267099, 0.20349
Part.ActiveView().RotateAboutCenter -0.0089033, 0.17136
Part.ActiveView().RotateAboutCenter 0, 0.0321299
Part.ActiveView().RotateAboutCenter 0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter 0.204776, -0.14994
Part.ActiveView().RotateAboutCenter 0.0623231, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0178066, 0
Part.ActiveView().RotateAboutCenter 0.142453, 0.0856798
Part.ActiveView().RotateAboutCenter 0.0534198, 0.0214199
Part.ClearSelection
Part.ActiveView().RotateAboutCenter -0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter -0.0623231, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0534198, -0.01071
Part.ActiveView().RotateAboutCenter -0.0089033, 0
boolstatus = Part.Extension.SelectByID("", "FACE", 0.5323235307628, -0.2087886806948, 0.07701430083432, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.5352685324677, -0.2185189883851, 0.08188303728755, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.160259, 0.01071
Part.ActiveView().RotateAboutCenter -0.204776, 0
Part.ActiveView().RotateAboutCenter -0.0623231, 0
Part.ActiveView().RotateAboutCenter -0.0356132, 0
Part.ActiveView().RotateAboutCenter -0.0178066, 0.01071
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0267099, 0
Part.ActiveView().RotateAboutCenter 0.151356, 0
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.115743, -0.0535499
Part.ActiveView().RotateAboutCenter -0.10684, 0
Part.ActiveView().RotateAboutCenter -0.0356132, -0.01071
boolstatus = Part.Extension.SelectByID("", "FACE", 0.5093935899375, -0.2669392868025, 0.1075143008343, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection
Part.ViewZoomtofit2
Part.ActiveView().ZoomByFactor 0.961538
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.724638
Part.ActiveView().ZoomByFactor 0.826446
Part.ActiveView().ZoomByFactor 0.943396
Part.ActiveView().ZoomByFactor 0.877193
Part.ActiveView().ZoomByFactor 0.819672
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.27
Part.ActiveView().ZoomByFactor 1.23
Part.ActiveView().ZoomByFactor 1.19
Part.ActiveView().ZoomByFactor 1.12
Part.ActiveView().ZoomByFactor 1.18
Part.ActiveView().ZoomByFactor 1.2
Part.ActiveView().ZoomByFactor 1.19
Part.ActiveView().ZoomByFactor 1.15
Part.ActiveView().ZoomByFactor 1.09
Part.ActiveView().ZoomByFactor 1.15
Part.ActiveView().ZoomByFactor 1.02
Part.ActiveView().ZoomByFactor 1.02
Part.ActiveView().ZoomByFactor 1.06
Part.ActiveView().ZoomByFactor 1.36
Part.ActiveView().ZoomByFactor 1.18
Part.ActiveView().ZoomByFactor 1.11
Part.ActiveView().ZoomByFactor 1.16
Part.ActiveView().ZoomByFactor 1.19
Part.ActiveView().ZoomByFactor 1.28
Part.ActiveView().ZoomByFactor 1.1
Part.ActiveView().ZoomByFactor 1.01
Part.Create3PointArc 0.1197685324678, -0.2695809565808, 0, 0.4997685324678, -0.2695809565808, 0, 0.309305511874, -0.1855753007754, 0
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.2001832369746, -0.2074997007528, 0.08001430083429, False, 0, Nothing)
Part.EditCopy
swApp.LoadFile2 "\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont\Pièce.prtdot", ""
Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.NewDocument ("\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont\Pièce.prtdot", 0, 0.000000, 0.000000)
Set Part = swApp.ActivateDoc ("Part2")
Part.InsertSketch2 True
Part.Paste
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.003634862351607, 0.04142886377632, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.07011221210696, 0.032138404611, 0, False, 0, Nothing)
Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.07011221210696, 0.032138404611, 0, False, 1, Nothing)
boolstatus = Part.SketchOffset2 (0.003, 0, 1)
Part.ClearSelection
Part.EditUndo 1
Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.07011221210696, 0.032138404611, 0, False, 1, Nothing)
boolstatus = Part.SketchOffset2 (0.003, 0, 1)
Part.ClearSelection
Part.CreateLine2 0.1875924363381, -0.04402191873307, 0, 0.1898114709852, -0.04200303655836, 0
Part.CreateLine2 -0.1901885290148, -0.04200303655836, 0, -0.1879694943678, -0.04402191873307, 0
Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing)
Part.FeatureManager.FeatureExtrusion True, False, False, 6, 0, 0.043, 0.01, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -0.173349806291, -0.02852137074399, 0.0215, False, 0, Nothing)
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("pont.SLDASM")
Part.EditDelete
Set Part = Nothing
swApp.CloseDoc "pont.SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Part2")
swApp.LoadFile2 "\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à voute\pont.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à voute\pont.SLDASM", 2, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("pont.SLDASM")
Part.ActiveView().RotateAboutCenter -0.0178066, -0.01071
Part.ActiveView().RotateAboutCenter -0.0623231, 0
Part.ActiveView().RotateAboutCenter -0.0445165, 0.01071
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0534198, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0534198, 0.0428399
Part.ActiveView().RotateAboutCenter -0.0623231, 0.0214199
boolstatus = Part.Extension.SelectByID("poutre v2-1@pont", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
Part.Save2 FALSE
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.5697685324678, -0.1765809565808, 0.1075143008343, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.5697685324678, -0.1765809565808, 0.1015143008343, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.481, -0.191663, -0.0480842)
Part.ClearSelection
Part.EditDelete
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Part2")
Part.ActiveView().RotateAboutCenter -0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0178066, -0.257039
Part.ActiveView().RotateAboutCenter -0.0089033, -0.18207
Part.ActiveView().RotateAboutCenter 0.0534198, -0.235619
Part.ActiveView().RotateAboutCenter 0.0356132, -0.214199
Part.ActiveView().RotateAboutCenter 0.0356132, -0.18207
Part.ActiveView().RotateAboutCenter 0.0267099, -0.18207
Part.ActiveView().RotateAboutCenter 0.0712264, -0.18207
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0642598
Part.ActiveView().RotateAboutCenter 0.0356132, -0.12852
Part.ActiveView().RotateAboutCenter 0.0712264, -0.0642598
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0321299
boolstatus = Part.Extension.SelectByID("", "FACE", 0.06480101168549, 0.031419060626, -0.02149999999995, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection
Part.CreateCircle 0.0001885290148448, -0.2148654178243, 0, 0.05456311972642, 0.02919758349758, 0
Part.ClearSelection
Part.CreateCircle 0.0001885290148448, -0.2148654178243, 0, 0.1848468165526, -0.03244201500084, 0
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.1907458803701, -0.04893015110425, 0, False, 0, Nothing)
Part.EditDelete
Part.SetPickMode
Part.CreateCircle 0.0001885290148448, -0.2148654178243, 0, 0.05926772580656, -0.243359418761, 0
Part.SetPickMode
Part.ClearSelection
Part.EditUndo 1
Part.CreateCircle 0.0001885290148448, -0.2148654178243, 0, 0.1620686026107, -0.01539676533253, 0
Part.SetPickMode
Part.ClearSelection
Part.CreateLine2 0.1964938318922, -0.05388895931916, 0, 0.1988135998605, -0.0519866773807, 0
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.1886136984215, -0.04336866244504, -0.02149999999995, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -0.1977514742407, -0.05302489362985, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgPARALLEL"
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0963898
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ClearSelection
Part.EditUndo 1
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0801297, 0.18207
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0178066, 0
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0445165, 0
Part.ActiveView().RotateAboutCenter 0.133549, 0
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0178066, 0
Part.ActiveView().RotateAboutCenter -0.0801297, 0.01071
Part.ActiveView().RotateAboutCenter -0.0089033, 0
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.1890331544247, -0.04334644715986, -0.02150149463506, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -0.1976832203401, -0.05325276643783, -0.0005433873669245, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.19844, -0.0439127, -0.0215)
Part.ClearSelection
Part.Parameter("D1@Esquisse2").SystemValue = 0.174533
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1878860977156, -0.0439302990381, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point6", "SKETCHPOINT", 0.214783341846, -0.0792252378016, 0, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.19701, -0.0634887, -0.0215)
Part.ClearSelection
Part.Parameter("D2@Esquisse2").SystemValue = 0.01
Part.ClearSelection
Part.EditUndo 1
Part.CreateLine2 -0.2049494443208, -0.06026976862077, 0, -0.2025536113195, -0.06207531126214, 0
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Point12", "SKETCHPOINT", -0.2049494443208, -0.06026976862077, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", -0.189717458254, -0.04189975979832, 0, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.201355, -0.0457757, -0.0215)
Part.ClearSelection
Part.Parameter("D2@Esquisse2").SystemValue = 0.01
Part.ClearSelection
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 1, -0.205041188768, -0.05995154016861
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 1, -0.201872964676, -0.06103661999242
Part.ActiveView().RotateAboutCenter -0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0089033, -0.17136
Part.ActiveView().RotateAboutCenter 0, -0.14994
Part.ActiveView().RotateAboutCenter 0.0356132, -0.11781
Part.ActiveView().RotateAboutCenter 0.0267099, -0.1071
Part.ActiveView().RotateAboutCenter 0, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0749698
Part.ActiveView().RotateAboutCenter 0.0445165, -0.1071
Part.ActiveView().RotateAboutCenter 0.0445165, -0.1071
Part.ActiveView().RotateAboutCenter 0.0712264, -0.12852
Part.ActiveView().RotateAboutCenter 0.0712264, -0.14994
Part.ActiveView().RotateAboutCenter 0.0534198, -0.0856798
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0428399
Part.ClearSelection 
Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.043, 0.043, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1
Part.SelectionManager.EnableContourSelection = 0
boolstatus = Part.Extension.SelectByID("Extrusion2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.SelectionManager.EnableContourSelection = 0
boolstatus = Part.Extension.SelectByID("Esquisse2", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.SelectionManager.EnableContourSelection = 0
boolstatus = Part.Extension.SelectByID("Extrusion1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection
Part.ActiveView().RotateAboutCenter -0.0267099, -0.0321299
Part.ActiveView().RotateAboutCenter -0.178066, -0.332009
Part.ActiveView().RotateAboutCenter -0.0356132, -0.1071
Part.ActiveView().RotateAboutCenter -0.0267099, -0.0535499
Part.ActiveView().RotateAboutCenter -0.0534198, -0.0749698
Part.ActiveView().RotateAboutCenter -0.0534198, -0.1071
Part.ActiveView().RotateAboutCenter -0.0089033, -0.20349
Part.ActiveView().RotateAboutCenter 0.0089033, -0.11781
Part.ActiveView().RotateAboutCenter 0.142453, -0.214199
Part.ActiveView().RotateAboutCenter 0.0178066, -0.01071
Part.ActiveView().RotateAboutCenter 0.0267099, 0.0535499
Part.ActiveView().RotateAboutCenter 0.0801297, 0.214199
Part.ActiveView().RotateAboutCenter 0.0623231, 0.235619
Part.ActiveView().RotateAboutCenter 0.0267099, 0.18207
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0.089033, 0.14994
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0178066, 0.0321299
Part.ActiveView().RotateAboutCenter 0.0089033, 0.16065
Part.ActiveView().RotateAboutCenter 0, 0.246329
Part.ActiveView().RotateAboutCenter 0, 0.0428399
Part.ActiveView().RotateAboutCenter 0, 0.0428399
Part.ActiveView().RotateAboutCenter 0, 0.0214199
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1189155211782, 0.01039593240338, -0.02450000000002, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion1", "BODYFEATURE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion2", "BODYFEATURE", 0, 0, 0, True, 0, Nothing)

Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1189155211782, 0.01039593240338, -0.02450000000002, False, 2, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion1", "BODYFEATURE", 0, 0, 0, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion2", "BODYFEATURE", 0, 0, 0, True, 1, Nothing)
Part.FeatureManager.InsertMirrorFeature  False, False, False, False

Part.ClearSelection
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0214199
Part.ActiveView().RotateAboutCenter -0.089033, 0.374849
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0963898
Part.ActiveView().RotateAboutCenter -0.0445165, 0.13923
Part.ActiveView().RotateAboutCenter -0.0267099, 0.12852
Part.ActiveView().RotateAboutCenter 0, 0.12852
Part.ActiveView().RotateAboutCenter 0.0534198, 0.396269
Part.ActiveView().RotateAboutCenter 0.160259, 0.332009
Part.ActiveView().RotateAboutCenter 0.0712264, 0.0963898
Part.ActiveView().RotateAboutCenter 0.0801297, 0.13923
Part.ActiveView().RotateAboutCenter 0.0534198, 0.1071
Part.ActiveView().RotateAboutCenter 0.0178066, 0.0856798
Part.ActiveView().RotateAboutCenter 0, 0.0321299
boolstatus = Part.Extension.SelectByID("Symétrie1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Symétrie1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Symétrie1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion2", "BODYFEATURE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion1", "BODYFEATURE", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0428399
Part.ActiveView().RotateAboutCenter 0.124646, 0.385559
Part.ActiveView().RotateAboutCenter 0.0089033, 0.16065
Part.ActiveView().RotateAboutCenter 0, 0.1071
Part.ActiveView().RotateAboutCenter 0, 0.12852
Part.ActiveView().RotateAboutCenter 0.0267099, 0.19278
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0321299
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter 0.089033, -0.460529
Part.ActiveView().RotateAboutCenter 0, -0.0214199
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1268769279085, 0.007849532660202, -0.002191330690724, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0214199
Part.ActiveView().RotateAboutCenter 0.115743, 0.19278
Part.ActiveView().RotateAboutCenter 0.0178066, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter -0.0178066, -0.0321299
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter 0, -0.0428399
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0, -0.0535499
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0178066, -0.12852
Part.ActiveView().RotateAboutCenter 0, -0.1071
Part.ActiveView().RotateAboutCenter 0, -0.0856798
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0214199
boolstatus = Part.Extension.SelectByID("Esquisse1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Esquisse1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection
Part.ActiveView().RotateAboutCenter -0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter -0.178066, -0.224909
Part.ActiveView().RotateAboutCenter -0.115743, -0.0535499
Part.ActiveView().RotateAboutCenter -0.115743, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0712264, -0.0642598
Part.ActiveView().RotateAboutCenter -0.0267099, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0267099, -0.0321299
boolstatus = Part.Extension.SelectByID("Point5", "SKETCHPOINT", 0.1875924363381, -0.04402191873307, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point4", "SKETCHPOINT", -0.1879694943678, -0.04402191873307, 0, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.0665703, -0.0564699, 0)
Part.ClearSelection
Part.Parameter("D2@Esquisse1").SystemValue = 0.375562
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.1898114709852, -0.04200303655836, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point1", "SKETCHPOINT", -0.1901885290148, -0.04200303655836, 0, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.00465478, -0.02741, 0)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D2@Esquisse1@Part2.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D3@Esquisse1").SystemValue = 0.38
Part.ClearSelection
Part.EditRebuild
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0428399
Part.ActiveView().RotateAboutCenter 0.0178066, 0.246329
Part.ActiveView().RotateAboutCenter 0, 0.0749698
Part.ActiveView().RotateAboutCenter 0, 0.14994
Part.ActiveView().RotateAboutCenter 0, 0.11781
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.0321299
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0.0445165, 0.12852
Part.ActiveView().RotateAboutCenter 0.0267099, 0.0642598
boolstatus = Part.Extension.SelectByID("Extrusion2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Esquisse2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D1@Esquisse2@Part2.SLDPRT", "DIMENSION", -0.09516101047516, -0.06925236520488, -0.09792700404653, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -0.2166859150109, -0.07915426860892, 0.002375, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", -0.1890790116913, -0.04301247764571, -0.003, True, 0, Nothing)
' MSGBOX
' Un cote n'a pas pu être créée à partir des objets sélectionnés.

Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.1885412842793, -0.0435268434657, -0.002999999999929, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -0.2155887930237, -0.07877648482586, 0.002375, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.196158, -0.0583688, -0.003)
Part.ClearSelection
' MSGBOX
' Veuillez entrer un nombre entre 0° et 36000000°

Part.Parameter("D1@Esquisse2").SystemValue = 0.174533
boolstatus = Part.Extension.SelectByID("D1@Esquisse2@Part2.SLDPRT", "DIMENSION", -0.1980127945616, -0.05788057554311, 0.002375, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.005412941865147, 0.03880248392069, -0.002999999999986, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", -0.001302867220505, 0.03887879993303, -0.002999999999986, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.1014065426425, 0.01772751751226, 0.002375, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1052202785961, 0.01903100650413, -0.002999999999986, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1052030585696, 0.01904392152399, -0.002999999999986, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1050437733246, 0.01909127659681, -0.002999999999986, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1050050282651, 0.01914724168288, -0.002999999999986, False, 0, Nothing)
Part.DeSelectByID "", "FACE", 0.1048285229936, 0.01889324629228, -0.002999999999986
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1048930980929, 0.01902670149751, -0.002999999999986, False, 0, Nothing)
Part.ClearSelection
Part.CreateLine2 0, 0, 0, 0, 0.06525619865668, 0
Part.ClearSelection
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 0, 0.1293847775218, 0.008460983758588
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 0, 0.1258789000589, 0.004955106295743
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Ligne1", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 0, 0.2121234856449, -0.07708242633484
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Ligne6", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 1, 0.000368486889058, 0.05473856626815
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Ligne6", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 1, 0.003173188859334, 0.02388684459511
Part.SetPickMode
Part.EditRebuild
boolstatus = Part.Extension.SelectByID("Extrusion2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Droite", "PLANE", 0, 0, 0, True, 0, Nothing)

Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("Extrusion2", "BODYFEATURE", 0, 0, 0, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Droite", "PLANE", 0, 0, 0, True, 2, Nothing)
Part.FeatureManager.InsertMirrorFeature  False, False, False, False

Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0535499
Part.ActiveView().RotateAboutCenter 0.089033, -0.13923
Part.ActiveView().RotateAboutCenter 0.0534198, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0642598
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0963898
Part.ActiveView().RotateAboutCenter 0.0623231, -0.13923
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0749698
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0642598
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter 0.10684, -0.1071
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0214199
boolstatus = Part.Extension.SelectByID("Extrusion2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Symétrie1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Symétrie2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Symétrie2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ReorderFeature "Symétrie2", "Symétrie1"
boolstatus = Part.Extension.SelectByID("Symétrie1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
' MSGBOX
' Les fonctions sélectionnées n'ont pas pu être répétées à l'aide de la répétition de géométrie. Désactivez la case à cocher Répétition de géométrie.

boolstatus = Part.Extension.SelectByID("Symétrie2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Symétrie1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Symétrie2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Droite", "PLANE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion2", "BODYFEATURE", 0, 0, 0, True, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0267099, 0.246329
Part.ActiveView().RotateAboutCenter -0.0623231, 0.13923
Part.ActiveView().RotateAboutCenter -0.0712264, 0.0749698
Part.ActiveView().RotateAboutCenter -0.0534198, 0.0642598
Part.ActiveView().RotateAboutCenter -0.0178066, 0
Part.ActiveView().RotateAboutCenter -0.0178066, 0
Part.ActiveView().RotateAboutCenter -0.089033, 0.0428399
Part.ActiveView().RotateAboutCenter -0.0712264, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0534198, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter 0.258196, -0.631889
Part.ActiveView().RotateAboutCenter 0.0979363, -0.14994
Part.ActiveView().RotateAboutCenter 0.0445165, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0356132, -0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter -0.0089033, 0.224909
Part.ActiveView().RotateAboutCenter 0, 0.0321299
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0, -0.17136
boolstatus = Part.Extension.SelectByID("", "FACE", 0.08919155200061, 0.02434618066326, -0.02449999999999, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion1", "BODYFEATURE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion2", "BODYFEATURE", 0, 0, 0, True, 0, Nothing)
Part.DeSelectByID "Symétrie2", "BODYFEATURE", 0, 0, 0

Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("", "FACE", 0.08919155200061, 0.02434618066326, -0.02449999999999, False, 2, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion1", "BODYFEATURE", 0, 0, 0, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion2", "BODYFEATURE", 0, 0, 0, True, 1, Nothing)
Part.FeatureManager.InsertMirrorFeature  False, False, False, False

Part.ClearSelection
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0267099, 0
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0623231, 0.0642598
Part.ActiveView().RotateAboutCenter -0.0534198, 0.0642598
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0356132, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0267099, 0.01071
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0428399
Part.ActiveView().RotateAboutCenter 0, 0.0428399
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0.0178066, 0
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0428399
Part.ActiveView().RotateAboutCenter 0.142453, -0.224909
Part.ActiveView().RotateAboutCenter 0.0623231, -0.0535499
boolstatus = Part.Extension.SelectByID("", "FACE", -0.03409605009415, 0.03943505355102, -0.01593841824567, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Extrusion2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0.04007761166855, -0.01770946053861, True, 0, Nothing)

Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("Extrusion2", "BODYFEATURE", 0, 0, 0, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0.04007761166855, -0.01770946053861, True, 2, Nothing)
Part.FeatureManager.InsertMirrorFeature  False, False, False, False

boolstatus = Part.Extension.SelectByID("Extrusion2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter -0.0089033, 0.01071
Part.ActiveView().RotateAboutCenter 0.142453, 0.846088
Part.ActiveView().RotateAboutCenter 0.0445165, 0.556919
Part.ActiveView().RotateAboutCenter 0.0089033, 0.17136
Part.ActiveView().RotateAboutCenter 0.0178066, 0.18207
Part.ActiveView().RotateAboutCenter 0.0178066, 0.1071
Part.ActiveView().RotateAboutCenter 0.0979363, 0.224909
Part.ActiveView().RotateAboutCenter 0.0712264, 0.19278
Part.ActiveView().RotateAboutCenter 0.0445165, 0.1071
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0.0712264, 0.235619
Part.ActiveView().RotateAboutCenter 0.0178066, 0.0321299
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.13923
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0.0356132, 0.16065
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter -0.0979363, -0.278459
Part.ActiveView().RotateAboutCenter -0.178066, -0.878218
Part.ActiveView().RotateAboutCenter -0.0356132, -0.332009
Part.ActiveView().RotateAboutCenter 0, -0.0428399
Part.ActiveView().RotateAboutCenter -0.0178066, -0.01071
Part.ActiveView().RotateAboutCenter -0.302712, -0.16065
Part.ActiveView().RotateAboutCenter -0.133549, -0.01071
Part.ActiveView().RotateAboutCenter -0.10684, 0
Part.ActiveView().RotateAboutCenter -0.124646, 0
Part.ActiveView().RotateAboutCenter -0.0979363, 0
Part.ActiveView().RotateAboutCenter -0.0801297, 0
Part.ActiveView().RotateAboutCenter -0.0267099, 0
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.10684, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0979363, -0.01071
Part.ActiveView().RotateAboutCenter 0.133549, 0
Part.ActiveView().RotateAboutCenter 0.124646, 0
Part.ActiveView().RotateAboutCenter 0.124646, 0
Part.ActiveView().RotateAboutCenter 0.142453, 0
Part.ActiveView().RotateAboutCenter 0.10684, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0979363, -0.0749698
Part.ActiveView().RotateAboutCenter 0.0801297, -0.11781
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0749698
Part.ActiveView().RotateAboutCenter 0.0534198, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0801297, -0.0856798
Part.ActiveView().RotateAboutCenter 0.0801297, -0.0642598
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter 0, -0.0428399
Part.ActiveView().RotateAboutCenter 0, -0.0642598
Part.ActiveView().RotateAboutCenter 0, -0.0642598
Part.ActiveView().RotateAboutCenter 0, -0.0749698
Part.ActiveView().RotateAboutCenter 0, -0.13923
Part.ActiveView().RotateAboutCenter 0.0178066, -0.12852
Part.ActiveView().RotateAboutCenter 0, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0089033, -0.11781
Part.ActiveView().RotateAboutCenter 0, -0.19278
Part.ActiveView().RotateAboutCenter 0, -0.11781
boolstatus = Part.Extension.SelectByID("", "FACE", 0.08103185496321, 0.02882424564825, -0.0005345361555769, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Esquisse1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Esquisse1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter -0.0801297, 0.214199
Part.ActiveView().RotateAboutCenter -0.133549, 0.18207
Part.ActiveView().RotateAboutCenter -0.0801297, 0.0856798
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0214199
boolstatus = Part.Extension.SelectByID("D3@Esquisse1@Part2.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D2@Esquisse1@Part2.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Esquisse1@Part2.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
Part.EditCopy
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Esquisse2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0267099, 0
Part.ActiveView().RotateAboutCenter -0.0445165, 0
Part.ActiveView().RotateAboutCenter -0.10684, 0.0856798
Part.ActiveView().RotateAboutCenter -0.0534198, 0.01071
Part.ActiveView().RotateAboutCenter -0.0356132, 0
Part.ActiveView().RotateAboutCenter -0.0445165, 0
Part.ActiveView().RotateAboutCenter -0.0267099, 0.01071
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.1549558199583, -0.01395094130594, -0.002995007771176, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1569234638101, -0.01551859442365, 0.003010391676128, True, 0, Nothing)
Part.SketchAddConstraints "sgTANGENT"
boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0.1567610497304, -0.0119623074651, -0.002999999999872, False, 0, Nothing)
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, 0.0428399
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0642598
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.0321299
Part.ActiveView().RotateAboutCenter 0, 0.20349
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.ActiveView().RotateAboutCenter 0.0089033, 0.11781
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0.0267099, 0.0214199
Part.ActiveView().RotateAboutCenter 0.0445165, 0.0428399
Part.ActiveView().RotateAboutCenter 0.0178066, 0.01071
Part.ActiveView().RotateAboutCenter 0.0356132, 0.0214199
Part.ActiveView().RotateAboutCenter 0.0445165, 0.0214199
Part.ActiveView().RotateAboutCenter 0.0178066, 0
Part.ActiveView().RotateAboutCenter 0.133549, 0.12852
Part.ActiveView().RotateAboutCenter 0.0534198, 0.0535499
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0178066, 0.0321299
boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0.1435011822933, -0.002212595939625, -0.003180913491917, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0.1456168306055, -0.003722701304127, -0.002999999999929, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1452690516232, -0.004038662300218, -0.002999999999929, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1460011182283, -0.003654646565224, -0.0006412477551407, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0.1454491750993, -0.003649968916648, -0.002999999999929, True, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1467910548572, -0.004203592184979, -0.001058159136392, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0.1462346884347, -0.00412962053349, -0.002999999999929, True, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.150206875259, -0.006539639774644, 0.003058714905649, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0.1489171176904, -0.006100652834562, -0.002999999999872, True, 0, Nothing)
Part.SketchAddConstraints "sgTANGENT"
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0.0178066, 0.0535499
Part.ActiveView().RotateAboutCenter 0.0623231, 0.14994
Part.ActiveView().RotateAboutCenter 0.0445165, 0.1071
Part.ActiveView().RotateAboutCenter 0.115743, 0.342719
Part.ActiveView().RotateAboutCenter 0.0801297, 0.278459
Part.ActiveView().RotateAboutCenter 0.10684, 0.364139
Part.ActiveView().RotateAboutCenter 0.0178066, 0.0749698
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0445165, 0
Part.ActiveView().RotateAboutCenter -0.151356, -0.18207
Part.ActiveView().RotateAboutCenter -0.115743, -0.12852
Part.ActiveView().RotateAboutCenter -0.0267099, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0445165, -0.0642598
Part.ActiveView().RotateAboutCenter -0.0801297, -0.214199
Part.ActiveView().RotateAboutCenter -0.0712264, -0.12852
Part.ActiveView().RotateAboutCenter -0.0623231, -0.0535499
Part.ActiveView().RotateAboutCenter -0.0623231, -0.0535499
Part.ActiveView().RotateAboutCenter -0.0089033, -0.0321299
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.08442631594107, 0.02437388363145, -0.003079752951976, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0.0267099, 0.0321299
Part.ActiveView().RotateAboutCenter 0.204776, 0.16065
Part.ActiveView().RotateAboutCenter 0.115743, 0.0749698
Part.ActiveView().RotateAboutCenter 0.0979363, 0.0642598
Part.ActiveView().RotateAboutCenter 0.0979363, 0.0321299
Part.ActiveView().RotateAboutCenter 0.0623231, 0
Part.ActiveView().RotateAboutCenter 0.0623231, 0
Part.ActiveView().RotateAboutCenter 0.0623231, 0
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.ActiveView().RotateAboutCenter 0.0178066, 0.0856798
Part.ActiveView().RotateAboutCenter 0.0178066, 0.0428399
Part.ActiveView().RotateAboutCenter 0.0356132, 0.1071
Part.ActiveView().RotateAboutCenter 0.0534198, 0.12852
Part.ActiveView().RotateAboutCenter 0.0267099, 0.0749698
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0321299
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0321299
Part.ActiveView().RotateAboutCenter 0.0178066, 0.13923
Part.ActiveView().RotateAboutCenter 0, 0.01071
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05472024595872, 0.032944857552, 0.003029376497352, True, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.08442631594107, 0.02437388363145, -0.003079752951976, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05472024595872, 0.032944857552, 0.003029376497352, True, 0, Nothing)
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.20349
Part.ActiveView().RotateAboutCenter -0.0267099, -0.246329
Part.ActiveView().RotateAboutCenter -0.0267099, -0.235619
Part.ActiveView().RotateAboutCenter -0.0267099, -0.0963898
Part.ActiveView().RotateAboutCenter -0.0178066, -0.12852
Part.ActiveView().RotateAboutCenter -0.0356132, -0.0535499
Part.InsertSketch2 True
Part.ActiveView().RotateAboutCenter -0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter -0.10684, -0.0963898
Part.ActiveView().RotateAboutCenter -0.142453, -0.0749698
Part.ActiveView().RotateAboutCenter -0.186969, -0.1071
Part.ActiveView().RotateAboutCenter -0.186969, -0.0856798
Part.ActiveView().RotateAboutCenter -0.124646, -0.0535499
Part.ActiveView().RotateAboutCenter -0.0534198, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0356132, -0.246329
Part.ActiveView().RotateAboutCenter 0.0089033, -0.406979
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0428399
Part.ActiveView().RotateAboutCenter 0.160259, -0.20349
Part.ActiveView().RotateAboutCenter 0.124646, -0.235619
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0856798
Part.ActiveView().RotateAboutCenter 0.0445165, -0.12852
Part.ActiveView().RotateAboutCenter 0.115743, -0.17136
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0535499
Part.ActiveView().RotateAboutCenter 0, -0.0428399
boolstatus = Part.Extension.SelectByID("", "FACE", -0.0361368675841, 0.03942156261087, -0.01090218011386, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Esquisse1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, 0.0321299
Part.ActiveView().RotateAboutCenter 0, 0.481949
Part.ActiveView().RotateAboutCenter 0, 0.0963898
boolstatus = Part.Extension.SelectByID("Point1@Origine", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point1", "SKETCHPOINT", -0.1901885290148, -0.04200303655836, 0, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.101328, -0.0788189, 0)
Part.ClearSelection
Part.Parameter("D4@Esquisse1").SystemValue = 0.19
Part.ClearSelection
Part.CreateLine2 0, 0, 0, 0, 0.07388766752814, 0
Part.ClearSelection
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Ligne3", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 0, 0.001235972409657, 0.02716402080449
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Ligne3", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 1, 0.001235972409657, 0.05679365043412
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 1, 0.05308782426151, 0.0379902316307
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 1, 0.0479596191333, 0.0322922259327
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Ligne1", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 1, 0.1909795621532, -0.04349124985078
Part.EditRebuild
Part.ActiveView().RotateAboutCenter 0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter 0.222582, -0.235619
Part.ActiveView().RotateAboutCenter 0.142453, -0.12852
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0178066, -0.01071
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0445165, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0623231, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0445165, -0.01071
boolstatus = Part.Extension.SelectByID("Extrusion2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0.0267099, 0.0214199
Part.ActiveView().RotateAboutCenter 0.186969, 0.278459
Part.ActiveView().RotateAboutCenter 0.169163, 0.14994
Part.ActiveView().RotateAboutCenter 0.0534198, 0.0214199
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.10684, 0.0321299
Part.ActiveView().RotateAboutCenter 0.0801297, 0.01071
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0801297, -0.0428399
boolstatus = Part.Extension.SelectByID("Esquisse1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Esquisse2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter 0.115743, -0.14994
Part.ActiveView().RotateAboutCenter 0.133549, -0.12852
Part.ActiveView().RotateAboutCenter 0.231486, -0.214199
Part.ActiveView().RotateAboutCenter 0.0979363, -0.12852
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0214199
boolstatus = Part.Extension.SelectByID("Arc3@Esquisse2", "EXTSKETCHSEGMENT", -0.04803094843572, 0.03747251204218, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Esquisse2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection
Part.ActiveView().RotateAboutCenter -0.0089033, 0.01071
Part.ActiveView().RotateAboutCenter -0.0801297, 0.18207
Part.ActiveView().RotateAboutCenter -0.151356, 0.16065
Part.ActiveView().RotateAboutCenter -0.142453, 0.0963898
Part.ActiveView().RotateAboutCenter -0.186969, 0.01071
Part.ActiveView().RotateAboutCenter -0.240389, 0
Part.ActiveView().RotateAboutCenter -0.0356132, -0.01071
boolstatus = Part.Extension.SelectByID("Esquisse2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Esquisse2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0979363, 0.0963898
Part.ActiveView().RotateAboutCenter -0.133549, 0.0428399
Part.ActiveView().RotateAboutCenter -0.115743, 0
Part.ActiveView().RotateAboutCenter -0.0801297, 0
Part.ActiveView().RotateAboutCenter -0.0712264, -0.0321299
Part.ActiveView().RotateAboutCenter -0.10684, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0801297, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0445165, -0.01071
Part.ActiveView().RotateAboutCenter -0.0267099, -0.01071
Part.ActiveView().RotateAboutCenter -0.0089033, -0.0856798
Part.ActiveView().RotateAboutCenter -0.0089033, -0.492659
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0178066, -0.267749
boolstatus = Part.Extension.SelectByID("Extrusion1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter -0.0089033, 0.224909
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0856798
Part.ActiveView().RotateAboutCenter 0, 0.0642598
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0963898
Part.ActiveView().RotateAboutCenter -0.0089033, 0.12852
Part.ActiveView().RotateAboutCenter 0, 0.0642598
Part.ActiveView().RotateAboutCenter 0, 0.0856798
Part.ActiveView().RotateAboutCenter -0.0089033, 0.19278
Part.ActiveView().RotateAboutCenter -0.0089033, 0.11781
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0642598
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0428399
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0856798
Part.ActiveView().RotateAboutCenter 0, 0.19278
Part.ActiveView().RotateAboutCenter 0, 0.417689
Part.ActiveView().RotateAboutCenter 0, 0.267749
Part.ActiveView().RotateAboutCenter 0, 0.12852
Part.ActiveView().RotateAboutCenter 0, 0.0321299
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.ActiveView().RotateAboutCenter 0, 0.1071
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.258196, -0.524789
Part.ActiveView().RotateAboutCenter 0.151356, -0.353429
Part.ActiveView().RotateAboutCenter 0.0979363, -0.224909
Part.ActiveView().RotateAboutCenter 0.0356132, -0.267749
Part.ActiveView().RotateAboutCenter 0, -0.278459
Part.ActiveView().RotateAboutCenter 0, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0623231, -0.14994
Part.ActiveView().RotateAboutCenter 0.0623231, -0.0642598
Part.ActiveView().RotateAboutCenter -0.0178066, 0
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0979363, -0.0963898
Part.ActiveView().RotateAboutCenter 0.178066, -0.342719
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0428399
Part.ActiveView().RotateAboutCenter 0, -0.0214199
boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0.04033711134397, 0.0001442979409347, True, 0, Nothing)
Part.ActiveView().RotateAboutCenter -0.0178066, 0.01071
Part.ActiveView().RotateAboutCenter -0.115743, 0.11781
Part.ActiveView().RotateAboutCenter -0.0801297, 0.0749698
Part.ActiveView().RotateAboutCenter -0.0712264, 0.0642598
Part.ActiveView().RotateAboutCenter -0.0712264, 0.1071
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0214199

Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("Extrusion1", "BODYFEATURE", 0, 0, 0, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0.04033711134397, 0.0001442979409347, True, 2, Nothing)
Part.FeatureManager.InsertMirrorFeature  False, False, False, False

Part.ClearSelection
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0801297, 0.342719
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0642598
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0534198, 0.0642598
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0356132, 0.0428399
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0089033, 0.01071
Part.ActiveView().RotateAboutCenter -0.0356132, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0428399
Part.ActiveView().RotateAboutCenter -0.0534198, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0178066, 0
boolstatus = Part.Extension.SelectByID("", "FACE", 0.03476721195879, 0.03725124101463, 0.003000000000043, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection
Part.Create3PointArc -0.19, -0.04200303655836, 0, 0.19, -0.04200303655836, 0, 0.02364672364672, 0.06166862159071, 0
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02535612535613, 0.04172560164769, 0.002999999999986, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.02250712250712, 0.06109882102091, 0, True, 0, Nothing)
' MSGBOX
' L'esquisse n'a pas pu être mise à jour car sa résolution résulterait en une géométrie non valide (telle qu'une ligne avec 0 de longueur). Envisagez :
'     o De supprimer la géométrie non valide.
'     o De changer les relations ou les cotes pour éliminer la géométrie non valide.

Part.SketchAddConstraints "sgTANGENT"
' MSGBOX
' L'esquisse peut maintenant trouver une solution avec une géométrie valide.

Part.SketchConstraintsDel 0, "sgTANGENT"
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0.0356132, 0.01071
Part.ActiveView().RotateAboutCenter 0.204776, 0.278459
Part.ActiveView().RotateAboutCenter 0.0534198, 0.11781
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.224909
Part.ActiveView().RotateAboutCenter 0, 0.1071
Part.ActiveView().RotateAboutCenter 0, 0.14994
Part.ActiveView().RotateAboutCenter 0.0089033, 0.16065
Part.ActiveView().RotateAboutCenter 0, 0.0856798
Part.ActiveView().RotateAboutCenter 0, 0.0749698
Part.ActiveView().RotateAboutCenter 0.0178066, 0.16065
Part.ActiveView().RotateAboutCenter 0.0267099, 0.12852
Part.ActiveView().RotateAboutCenter 0.0178066, 0.0963898
Part.ActiveView().RotateAboutCenter 0.0267099, 0.0856798
Part.ActiveView().RotateAboutCenter 0.0623231, 0.12852
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.186969, -0.278459
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0214199
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0534346073805, 0.03633165065798, 0.002633612596057, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.02921111095947, 0.05888413335779, 0.00356447745577, True, 0, Nothing)
' MSGBOX
' L'esquisse n'a pas pu être mise à jour car sa résolution résulterait en une géométrie non valide (telle qu'une ligne avec 0 de longueur). Envisagez :
'     o De supprimer la géométrie non valide.
'     o De changer les relations ou les cotes pour éliminer la géométrie non valide.

Part.SketchAddConstraints "sgTANGENT"
Part.DeSelectByID "", "EDGE", 0.08230350663933, 0.02842880327248, 0.002937937860203
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.06420570165034, 0.03379352788713, -0.00321678881194, True, 0, Nothing)
' MSGBOX
' L'esquisse peut maintenant trouver une solution avec une géométrie valide.

Part.SketchAddConstraints "sgTANGENT"
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0623231, -0.13923
Part.ActiveView().RotateAboutCenter -0.0445165, -0.0856798
Part.ActiveView().RotateAboutCenter -0.0267099, -0.0856798
Part.ActiveView().RotateAboutCenter -0.0356132, -0.0749698
Part.ActiveView().RotateAboutCenter -0.0534198, -0.0749698
Part.ActiveView().RotateAboutCenter -0.0178066, -0.01071
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.02921111095947, 0.05888413335779, 0.00356447745577, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.06420570165034, 0.03379352788713, -0.00321678881194, True, 0, Nothing)
Part.ClearSelection
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.169163, -0.1071
Part.ActiveView().RotateAboutCenter -0.124646, -0.0535499
Part.ActiveView().RotateAboutCenter -0.0801297, -0.0428399
Part.ActiveView().RotateAboutCenter -0.0623231, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0178066, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0178066, 0
Part.ActiveView().RotateAboutCenter 0.089033, -0.0321299
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.02355975975117, 0.03806607852116, 0.02678308819087, False, 0, Nothing)
Part.ClearSelection
Part.EditUndo 1
Part.ClearSelection
Part.EditUndo 1
Part.ClearSelection
Part.EditUndo 1
Part.ClearSelection
Part.EditUndo 1
Part.ClearSelection
Part.EditUndo 1
boolstatus = Part.Extension.SelectByID("", "FACE", 0.05218565120919, 0.03541983994039, 0.002999999999872, False, 0, Nothing)
Part.ClearSelection
Part.CreateCircle 0, -0.2148654178243, 0, 0.1719138461538, -0.06599405647197, 0
Part.ClearSelection
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.1506461538462, -0.04708944108735, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1742769230769, -0.03172944108735, 0.002999999999986, True, 0, Nothing)
Part.SketchAddConstraints "sgTANGENT"
Part.ClearSelection
Part.CreateCircle 0, -0.2148654178243, 0, 0.1887648292225, -0.0409623735213, 0
Part.ClearSelection
Part.EditUndo 1
Part.CreateCircle 0, -0.2148654178243, 0, 0.09386529721761, 0.06037102506015, 0
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.03033086477369, 0.0426778919745, 0.002999999999986, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0.03274356473991, 0.07725992482373, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgTANGENT"
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.183087642001, -0.03938218701555, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", -0.1900757138883, -0.04240245537361, 0, False, 0, Nothing)
Part.DeSelectByID "Arc3", "SKETCHSEGMENT", -0.1894334284588, -0.04138233784456, 0
Part.ClearSelection 
Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.043, 0.043, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0.0445165, 0.674728
Part.ActiveView().RotateAboutCenter 0.0089033, 0.11781
Part.ActiveView().RotateAboutCenter 0, 0.0535499
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0356132, -0.19278
Part.ActiveView().RotateAboutCenter 0, -0.0535499
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0267099, 0.01071
Part.ActiveView().RotateAboutCenter 0.231486, 0.289169
Part.ActiveView().RotateAboutCenter 0.0712264, 0.235619
Part.ActiveView().RotateAboutCenter 0, 0.0856798
Part.ActiveView().RotateAboutCenter 0, 0.0856798
Part.ActiveView().RotateAboutCenter 0, 0.0856798
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.ActiveView().RotateAboutCenter 0, 0.0321299
Part.ActiveView().RotateAboutCenter 0, 0.364139
Part.ActiveView().RotateAboutCenter 0, 0.0963898
Part.ActiveView().RotateAboutCenter 0, 0.13923
Part.ActiveView().RotateAboutCenter 0, 0.1071
Part.ActiveView().RotateAboutCenter 0, 0.12852
Part.ActiveView().RotateAboutCenter 0, 0.18207
Part.ActiveView().RotateAboutCenter 0, 0.01071
boolstatus = Part.Extension.SelectByID("", "FACE", -0.1922337003577, -0.04781045128627, 0.003000000000043, False, 0, Nothing)
Part.ClearSelection
Part.InsertSketch2 True
Part.ActiveView().RotateAboutCenter 0.0267099, 0.0428399
Part.ActiveView().RotateAboutCenter 0.151356, 0.224909
Part.ActiveView().RotateAboutCenter 0.0801297, 0.0642598
Part.ActiveView().RotateAboutCenter 0.0267099, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.124646, -0.0749698
Part.ActiveView().RotateAboutCenter -0.0178066, 0
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1902875489926, -0.04565110714555, 0.002999999999986, False, 0, Nothing)
Part.ClearSelection
Part.CreateLine2 -0.2014505126056, -0.05549448625937, 0, -0.1972195391524, -0.05915995236105, 0
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.2004678235779, -0.05683974919997, 0.002999999999986, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1894855286154, -0.04260916981198, -0.002999999999929, True, 0, Nothing)
Part.SketchAddConstraints "sgPARALLEL"
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.2004678235779, -0.05683974919997, 0.002999999999986, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1894855286154, -0.04260916981198, -0.002999999999929, True, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.1997218601708, -0.05680545676183, 0.0214999875, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1894459133154, -0.04249972682591, -0.002999999999929, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.188438, -0.0536824, 0.003)
Part.ClearSelection
Part.Parameter("D1@Esquisse4").SystemValue = 0.01
Part.ClearSelection
Part.CreateLine2 0.1966152720338, -0.06055895245626, 0, 0.2079083331123, -0.05144286700738, 0
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", -0.2064116623669, -0.05280347677587, 0.0214999875, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.1894040402608, -0.04327920839644, 0.002999999999986, True, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.1887237353766, -0.04300708644274, -0.002999999999929, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", -0.2046428696679, -0.05389196459066, 0.0214999875, True, 0, Nothing)
Part.SketchAddConstraints "sgPARALLEL"
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Point-1", "SKETCHPOINT", -0.1888904826765, -0.04301247764571, -0.003, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.1881794914692, -0.04368739132699, -0.002999999999929, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.204507, -0.0528035, 0.003)
Part.ClearSelection
' MSGBOX
' La cote sélectionnée est une cote pilotée. Sa valeur ne peut pas être changée.

Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.1894040402608, -0.0425989035122, -0.002999999999929, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", -0.2043707477142, -0.05321165970641, 0.0214999875, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.199745, -0.0436874, 0.003)
Part.ClearSelection
Part.Parameter("D3@Esquisse4").SystemValue = 0.01
Part.ClearSelection
Part.CreateLine2 0.1911123207534, -0.05451043724077, 0, -0.192138093728, -0.05357718693011, 0
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Point1", "SKETCHPOINT", -0.1965855726905, -0.04953086164542, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point1", "SKETCHPOINT", -0.1965855726905, -0.04953086164542, 0, False, 0, Nothing)
Part.ClearSelection
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.689655
Part.ActiveView().ZoomByFactor 0.531915
Part.ActiveView().ZoomByFactor 0.8
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.704225
Part.ActiveView().ZoomByFactor 0.675676
Part.ActiveView().ZoomByFactor 0.862069
Part.ActiveView().ZoomByFactor 0.854701
Part.ActiveView().ZoomByFactor 0.806452
Part.ActiveView().ZoomByFactor 0.840336
Part.ActiveView().ZoomByFactor 0.892857
Part.ActiveView().ZoomByFactor 0.961538
Part.ActiveView().ZoomByFactor 1.11
Part.ActiveView().ZoomByFactor 1.04
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.943396
Part.ActiveView().ZoomByFactor 0.5
Part.ActiveView().ZoomByFactor 0.581395
Part.ActiveView().ZoomByFactor 0.952381
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.588235
Part.ActiveView().ZoomByFactor 0.769231
Part.ActiveView().ZoomByFactor 1.07
Part.CreateLine2 -0.1965855726905, -0.04953086164542, 0, -0.7597940451358, -0.04953086164542, 0
Part.CreateLine2 -0.7597940451358, -0.04953086164542, 0, -0.7597940451358, -0.7060843875903, 0
Part.CreateLine2 -0.7597940451358, -0.7060843875903, 0, 0.603824870278, -0.7060843875903, 0
Part.CreateLine2 0.603824870278, -0.7060843875903, 0, 0.603824870278, -0.0447435478772, 0
Part.ActiveView().ZoomByFactor 0.961538
Part.ActiveView().ZoomByFactor 0.943396
Part.ActiveView().ZoomByFactor 0.641026
Part.ActiveView().ZoomByFactor 0.588235
Part.ActiveView().ZoomByFactor 0.909091
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.892857
Part.ActiveView().ZoomByFactor 0.884956
Part.ActiveView().ZoomByFactor 1.48
Part.ActiveView().ZoomByFactor 1.64
Part.ActiveView().ZoomByFactor 1.51
Part.ActiveView().ZoomByFactor 1.17
Part.ActiveView().ZoomByFactor 1.1
Part.ActiveView().ZoomByFactor 1.04
Part.ActiveView().ZoomByFactor 1.02
Part.ActiveView().ZoomByFactor 1.03
Part.ActiveView().ZoomByFactor 1.42
Part.ActiveView().ZoomByFactor 1.58
Part.ActiveView().ZoomByFactor 1.02
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.04
Part.ActiveView().ZoomByFactor 1.51
Part.ActiveView().ZoomByFactor 1.26
Part.ActiveView().ZoomByFactor 1.03
Part.ActiveView().ZoomByFactor 1.02
Part.ActiveView().ZoomByFactor 1.32
Part.ActiveView().ZoomByFactor 1.62
Part.ActiveView().ZoomByFactor 1.03
Part.CreateLine2 0.603824870278, -0.0447435478772, 0, 0.201847501916, -0.0447435478772, 0
Part.SetPickMode
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter 0.142453, -0.11781
Part.ActiveView().RotateAboutCenter 0.0623231, -0.0642598
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0642598
Part.ActiveView().RotateAboutCenter 0.0623231, -0.0749698
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0535499
Part.ActiveView().RotateAboutCenter -0.0178066, 0
Part.ClearSelection 
Part.FeatureManager.FeatureCut True, False, False, 0, 0, 0.043, 0.043, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0321299
Part.ActiveView().RotateAboutCenter 0.133549, -0.374849
Part.ActiveView().RotateAboutCenter 0.10684, -0.299879
Part.ActiveView().RotateAboutCenter 0.0623231, -0.267749
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter 0.142453, -0.406979
Part.ActiveView().RotateAboutCenter 0.0623231, -0.235619
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0321299
Part.ActiveView().RotateAboutCenter 0.10684, -0.17136
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0749698
Part.SaveAs2 "\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à voute\VOUTE.SLDPRT", 0, FALSE, FALSE
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.0535499
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0856798
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0749698
Part.ActiveView().RotateAboutCenter 0, 0.0428399
Part.ActiveView().RotateAboutCenter 0, 0.01071
boolstatus = Part.Extension.SelectByID("", "FACE", -0.06039860461124, 0.03186157098548, 0.04599999999999, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion1", "BODYFEATURE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Symétrie5", "BODYFEATURE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion3", "BODYFEATURE", 0, 0, 0, True, 0, Nothing)

Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("", "FACE", -0.06039860461124, 0.03186157098548, 0.04599999999999, False, 2, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion1", "BODYFEATURE", 0, 0, 0, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Symétrie5", "BODYFEATURE", 0, 0, 0, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion3", "BODYFEATURE", 0, 0, 0, True, 1, Nothing)
Part.FeatureManager.InsertMirrorFeature  False, False, False, False


Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("", "FACE", -0.06039860461124, 0.03186157098548, 0.04599999999999, False, 2, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion1", "BODYFEATURE", 0, 0, 0, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Symétrie5", "BODYFEATURE", 0, 0, 0, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion3", "BODYFEATURE", 0, 0, 0, True, 1, Nothing)
Part.FeatureManager.InsertMirrorFeature  False, True, False, False


Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("", "FACE", -0.06039860461124, 0.03186157098548, 0.04599999999999, False, 2, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion1", "BODYFEATURE", 0, 0, 0, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Symétrie5", "BODYFEATURE", 0, 0, 0, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion3", "BODYFEATURE", 0, 0, 0, True, 1, Nothing)
Part.FeatureManager.InsertMirrorFeature  False, False, False, False

boolstatus = Part.Extension.SelectByID("Enlèv. mat.-Extru.1", "BODYFEATURE", 0, 0, 0, True, 0, Nothing)

Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("", "FACE", -0.06039860461124, 0.03186157098548, 0.04599999999999, False, 2, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion1", "BODYFEATURE", 0, 0, 0, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Symétrie5", "BODYFEATURE", 0, 0, 0, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion3", "BODYFEATURE", 0, 0, 0, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Enlèv. mat.-Extru.1", "BODYFEATURE", 0, 0, 0, True, 1, Nothing)
Part.FeatureManager.InsertMirrorFeature  False, True, False, False

Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0979363, -0.396269
Part.ActiveView().RotateAboutCenter 0.0712264, -0.289169
Part.ActiveView().RotateAboutCenter 0.0445165, -0.0963898
Part.ActiveView().RotateAboutCenter 0.089033, -0.16065
Part.ActiveView().RotateAboutCenter 0.0801297, -0.16065
Part.ActiveView().RotateAboutCenter 0.0979363, -0.12852
Part.ActiveView().RotateAboutCenter 0.151356, -0.18207
Part.ActiveView().RotateAboutCenter 0.320519, -0.417689
Part.ActiveView().RotateAboutCenter 0.0623231, -0.1071
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.133549, -0.0428399
Part.ActiveView().RotateAboutCenter 0.10684, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0623231, -0.01071
Part.ActiveView().RotateAboutCenter 0.0623231, -0.01071
Part.ActiveView().RotateAboutCenter 0.0445165, -0.01071
Part.ActiveView().RotateAboutCenter 0.0267099, 0
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0356132, 0.0321299
Part.ActiveView().RotateAboutCenter 0.0979363, 0.11781
Part.ActiveView().RotateAboutCenter 0.0089033, 0
boolstatus = Part.Extension.SelectByID("Enlèv. mat.-Extru.1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.SelectionManager.EnableContourSelection = 0
boolstatus = Part.Extension.SelectByID("Extrusion3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Extrusion3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.SelectionManager.EnableContourSelection = 0
Part.Save2 FALSE
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("VOUTE.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.Save2 FALSE
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("pont.SLDASM")
Part.Save2 FALSE
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 962
swApp.ActiveDoc.ActiveView.FrameHeight = 317
Set Part = swApp.ActivateDoc ("VOUTE.SLDPRT")
boolstatus = Part.Extension.SelectByID("", "FACE", 0.09250774776018, 0.02476704963641, 0.02553258516275, False, 0, Nothing)
Set Part = swApp.ActivateDoc ("pont.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("", "FACE", 0.497624017583, -0.1470278589278, -0.1009033664902, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter -0.0801297, 0.18207
Part.ActiveView().RotateAboutCenter -0.10684, 0.214199
Part.ActiveView().RotateAboutCenter -0.0712264, 0.17136
Part.ActiveView().RotateAboutCenter -0.0623231, 0.12852
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0642598
Part.ActiveView().RotateAboutCenter -0.0979363, 0.0642598
Part.ActiveView().RotateAboutCenter -0.0534198, 0.0321299
Part.ActiveView().RotateAboutCenter -0.089033, 0.0856798
Part.ActiveView().RotateAboutCenter -0.0356132, 0.0428399
boolstatus = Part.Extension.SelectByID("", "FACE", 0.4410332002233, -0.1855809565808, 0.06639354646802, True, 0, Nothing)
Part.AddMate 4, 2, False, 0.1228544671741, 0.5235987755983
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0.605424, 0
Part.ActiveView().RotateAboutCenter 0.658844, 0.01071
Part.ActiveView().RotateAboutCenter 0.133549, 0.01071
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0801297, 0.224909
Part.ActiveView().RotateAboutCenter -0.0623231, 0.0963898
Part.ActiveView().RotateAboutCenter -0.0623231, 0.0856798
Part.ActiveView().RotateAboutCenter -0.0979363, 0.14994
Part.ActiveView().RotateAboutCenter -0.0534198, 0.0963898
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0214199
Part.ActiveView().RotateAboutCenter 0.0178066, 0.01071
Part.ActiveView().RotateAboutCenter 0.124646, 0.0428399
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0178066, 0.01071
boolstatus = Part.Extension.SelectByID("", "FACE", 0.3545383601837, -0.2703376084528, -0.0717849790546, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3558381770338, -0.2718305058205, -0.07355663828019, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter -0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0712264, -0.289169
Part.ActiveView().RotateAboutCenter -0.0356132, -0.0535499
Part.ActiveView().RotateAboutCenter -0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0623231, -0.1071
Part.ActiveView().RotateAboutCenter -0.0178066, -0.13923
Part.ActiveView().RotateAboutCenter 0, -0.0856798
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0856798
Part.ActiveView().RotateAboutCenter 0.0445165, -0.1071
Part.ActiveView().RotateAboutCenter 0, -0.0642598
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter 0, -0.0856798
Part.ActiveView().RotateAboutCenter 0.0267099, -0.12852
Part.ActiveView().RotateAboutCenter 0, -0.0428399
Part.ActiveView().RotateAboutCenter 0, -0.01071
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1215526578284, -0.2695809565808, 0.1040263914038, True, 0, Nothing)
Part.AddMate 0, -1, False, 0.00202495529143, 0.5235987755983
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1197685324678, -0.2652753756339, 0.1046293789562, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0, 0.0321299
Part.ActiveView().RotateAboutCenter 0, 0.289169
Part.ActiveView().RotateAboutCenter 0, 0.0963898
Part.ActiveView().RotateAboutCenter 0.0089033, 0.0749698
Part.ActiveView().RotateAboutCenter 0.0178066, 0.0535499
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3536334885851, -0.2675945680048, -0.07295855973052, True, 0, Nothing)
Part.AddMate 0, -1, False, 0.233966845389, 0.5235987755983
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.118733267407, -0.2714027894104, -0.07634016633972, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0178066, -0.417689
Part.ActiveView().RotateAboutCenter -0.0089033, -0.278459
Part.ActiveView().RotateAboutCenter -0.0534198, -0.321299
Part.ActiveView().RotateAboutCenter -0.0267099, -0.17136
Part.ActiveView().RotateAboutCenter -0.0178066, -0.13923
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0623231, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter 0.089033, -0.13923
Part.ActiveView().RotateAboutCenter 0.0178066, -0.1071
Part.ActiveView().RotateAboutCenter 0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter 0.0445165, -0.1071
Part.ActiveView().RotateAboutCenter 0.0445165, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0534198, -0.12852
Part.ActiveView().RotateAboutCenter 0.0979363, -0.14994
Part.ActiveView().RotateAboutCenter 0.0445165, -0.0642598
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0178066, 0
boolstatus = Part.Extension.SelectByID("", "FACE", 0.101478091912, -0.2753803275129, 0.1015143008343, True, 0, Nothing)
Part.AddMate 0, 2, False, 0.1778544671741, 0
Part.ClearSelection
Part.ActiveView().RotateAboutCenter -0.089033, 0.214199
Part.ActiveView().RotateAboutCenter -0.10684, 0.19278
Part.ActiveView().RotateAboutCenter -0.089033, 0.17136
Part.ActiveView().RotateAboutCenter -0.178066, 0.321299
Part.ActiveView().RotateAboutCenter -0.195873, 0.332009
Part.ActiveView().RotateAboutCenter -0.0089033, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter -0.0534198, 0.20349
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0963898
Part.ActiveView().RotateAboutCenter -0.089033, 0.267749
Part.ActiveView().RotateAboutCenter -0.0712264, 0.13923
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0535499
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter -0.0178066, -0.0321299
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter -0.0178066, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0178066, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0267099, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0267099, -0.0535499
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0534198, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0445165, 0
Part.ActiveView().RotateAboutCenter 0.0356132, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0428399
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "pont.SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 317
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("VOUTE.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ClearSelection
swApp.ExitApp
End Sub
