' ******************************************************************************
' swxJRNL.swj - journal recorded on 08/08/01 by RIRIWIN
' ******************************************************************************

Dim swApp As Object
Dim Part As Object
Dim Gtol As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc ("D:\I.S.I\Mini_stepper\Solid_works\Roulement_plastic_7_bis.SLDPRT", 1)
Set Part = swApp.ActivateDoc ("Roulement_plastic_7_bis")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Plan6", "PLANE", -0.002307482997258, -0.003707801635958, -0.0170121867127
Part.SelectByID "", "FACE", -0.02350000000001, 0.01008920250757, 0.02605322061467
Part.SelectByID "", "FACE", -0.02350000000001, 0.01008920250757, 0.02605322061467
Part.SelectByID "", "FACE", -0.02649999999988, 0.001561729837306, 0.02431114760219
Part.SelectByID "", "FACE", -0.0184999999999, 0.02263001457351, 0.004981559639489
Part.SelectByID "", "FACE", -0.01517293401076, 0.02449999999999, -0.0078949506523
Part.SelectByID "", "FACE", -0.0184999999999, 0.02305424562064, -0.009409945130813
Part.SelectByID "Boss.-Extru.10", "BODYFEATURE", 0, 0, 0
Part.SelectByID "Boss.-Extru.10", "BODYFEATURE", 0, 0, 0
Part.FeatEdit
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditRebuild
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0.00364531, 0
Part.ActiveView().RotateAboutCenter 0.0583249, 0.0454107
Part.ActiveView().RotateAboutCenter 0.047389, 0.0635749
Part.ActiveView().RotateAboutCenter 0.0182265, 0.0363285
Part.ActiveView().RotateAboutCenter 0.0109359, 0.0408696
Part.ActiveView().RotateAboutCenter 0.00364531, 0.0726571
Part.ActiveView().RotateAboutCenter 0, 0.0408696
Part.ActiveView().RotateAboutCenter 0, 0.0544928
Part.ActiveView().RotateAboutCenter 0, 0.0136232
Part.SelectByID "", "FACE", -0.01850000000002, 0.02215132357036, 0.009498358608511
Part.InsertSketch
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewZoomTo2 0.00565131, -0.0130559, -0.015, 0.0194536, -0.03164, -0.015
Part.CreateLine2 0.008, 0.002, 0, 0.019, 0.002, 0
Part.CreateLine2( 0.001, 0, 0, 0.022, 0, 0 ).ConstructionGeometry = TRUE
Part.CreateLine2 0.008, 0.002, 0, 0.008, 0, 0
Part.CreateLine2 0.019, 0.002, 0, 0.019, 0, 0
Part.CreateCircle 0.013, 0, 0, 0.01334054911692, 0.002012199305962, 0
Part.ClearSelection
Part.SelectByID "Line3", "SKETCHSEGMENT", 0.008, 0.001224089769525, 0
Part.AddDimension -0.0185, 0.00427484, 0.00645095
Part.ClearSelection
Part.SelectByID "D1@Esquisse12@Roulement_plastic_7_bis.SLDPRT", "DIMENSION", -0.0035, 0.003766378596741, 0.00439169244512
Part.Parameter("D1@Esquisse12").SystemValue = 0.0015
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "Ligne1", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 0, 0.01316258889902, 0.001402049987431
Part.SetPickMode
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, 0.01481507663671, 0.000842746445443
Part.SetPickMode
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, 0.01486592241325, -0.0005046666329815
Part.SetPickMode
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, 0.01110333494897, 0.0006393633392658
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.01376743561598, 0.001846900802782, 0
Part.AddDimension -0.0185, -0.00716546, 0.0216538
Part.ClearSelection
Part.SelectByID "Line2", "SKETCHSEGMENT", 0.01049318563044, 0, 0
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "Line2", "SKETCHSEGMENT", 0.01115418072551, 0, 0
Part.AndSelectByID "Line3", "SKETCHSEGMENT", 0.008, 0.0006139404509936, 0
Part.AndSelectByID "Line1", "SKETCHSEGMENT", 0.01018811097117, 0.0015, 0
Part.AndSelectByID "Arc1", "SKETCHSEGMENT", 0.01235497700704, 0.001893131093862, 0
Part.AndSelectByID "Line5", "SKETCHSEGMENT", 0.01695059925157, 0.0015, 0
Part.AndSelectByID "Line4", "SKETCHSEGMENT", 0.019, 0.0008173235571709, 0
Part.SketchMirror
Part.ClearSelection
Part.ClearSelection 
Part.SelectByMark "", "FACE", -0.004999999999995, -0.005233323851603, 0.01196771315022, 0
Part.FeatureBoss 1, 0, 0, 4, 0, 0.001, 0.001, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0.0145812, -0.0136232
Part.ActiveView().RotateAboutCenter 0.0291625, -0.0726571
Part.ActiveView().RotateAboutCenter 0.0364531, -0.0499517
Part.ActiveView().RotateAboutCenter 0.0218718, -0.0272464
Part.ActiveView().RotateAboutCenter 0.0291625, 0
Part.ActiveView().RotateAboutCenter 0.0218718, 0
Part.ActiveView().RotateAboutCenter 0.0145812, 0.0181643
Part.ActiveView().RotateAboutCenter 0.0400984, 0.0544928
Part.ActiveView().RotateAboutCenter 0, 0.00454107
Part.ActiveView().RotateAboutCenter -0.00729062, 0.0227053
Part.ShowNamedView2 "*Isométrique", 7
Part.ActiveView().RotateAboutCenter 0.0218718, -0.00454107
Part.ActiveView().RotateAboutCenter 0.379112, -0.517682
Part.ActiveView().RotateAboutCenter 0.0692609, -0.581257
Part.ActiveView().RotateAboutCenter 0, -0.263382
Part.ActiveView().RotateAboutCenter 0.00364531, -0.29971
Part.ActiveView().RotateAboutCenter -0.00729062, -0.104445
Part.ActiveView().RotateAboutCenter -0.094778, -0.55401
Part.ActiveView().RotateAboutCenter -0.0291625, -0.240677
Part.ActiveView().RotateAboutCenter -0.00364531, -0.0227053
Part.ActiveView().RotateAboutCenter 0.102069, -0.00454107
Part.ActiveView().RotateAboutCenter 0.342659, -0.0771981
Part.ActiveView().RotateAboutCenter 0.244236, -0.326957
Part.ActiveView().RotateAboutCenter 0.0364531, -0.172561
Part.ActiveView().RotateAboutCenter 0.0328078, -0.12715
Part.ActiveView().RotateAboutCenter 0.0364531, -0.068116
Part.ActiveView().RotateAboutCenter 0.047389, -0.0499517
Part.ActiveView().RotateAboutCenter 0.0801968, -0.0136232
Part.ActiveView().RotateAboutCenter 0.0801968, 0.0272464
Part.ActiveView().RotateAboutCenter 0.0255172, 0
Part.ActiveView().RotateAboutCenter 0.0255172, -0.00908213
Part.ActiveView().RotateAboutCenter 0.0364531, 0.00454107
Part.ActiveView().RotateAboutCenter 0.0255172, 0
Part.ActiveView().RotateAboutCenter 0.0182265, 0
Part.ActiveView().RotateAboutCenter 0.00729062, 0
Part.ActiveView().RotateAboutCenter -0.0182265, 0.168019
Part.ActiveView().RotateAboutCenter 0, 0.0817392
Part.ActiveView().RotateAboutCenter 0.0255172, 0.0590339
Part.ActiveView().RotateAboutCenter 0.00729062, 0.00454107
Part.ActiveView().RotateAboutCenter 0.0218718, 0.00454107
Part.ActiveView().RotateAboutCenter 0.00364531, 0
Part.ActiveView().RotateAboutCenter 0.0619702, 0.00908213
Part.ActiveView().RotateAboutCenter 0.0510343, 0
Part.ActiveView().RotateAboutCenter 0.0364531, -0.00454107
Part.ActiveView().RotateAboutCenter 0.0109359, -0.00454107
Part.ActiveView().RotateAboutCenter 0.00729062, 0
Part.ActiveView().RotateAboutCenter 0.00729062, 0.00454107
Part.ActiveView().RotateAboutCenter 0.287979, 0.240677
Part.ActiveView().RotateAboutCenter 0.262462, 0.104445
Part.ActiveView().RotateAboutCenter 0.0838421, 0.00454107
Part.ActiveView().RotateAboutCenter 0.0656155, 0.0136232
Part.ActiveView().RotateAboutCenter 0.00364531, 0
Part.ActiveView().RotateAboutCenter -0.00729062, 0
Part.ActiveView().RotateAboutCenter -0.047389, -0.0272464
Part.ActiveView().RotateAboutCenter -0.0510343, -0.0317875
Part.ActiveView().RotateAboutCenter -0.0583249, -0.0408696
Part.ActiveView().RotateAboutCenter -0.047389, -0.0227053
Part.ActiveView().RotateAboutCenter -0.0255172, -0.0136232
Part.ActiveView().RotateAboutCenter -0.00364531, -0.00908213
Part.ActiveView().RotateAboutCenter -0.0328078, -0.163478
Part.ActiveView().RotateAboutCenter -0.0291625, -0.0590339
Part.ActiveView().RotateAboutCenter -0.00364531, -0.00908213
Part.ActiveView().RotateAboutCenter -0.0364531, -0.0635749
Part.ActiveView().RotateAboutCenter -0.0182265, -0.0227053
Part.ActiveView().RotateAboutCenter 0.00364531, 0
Part.ActiveView().RotateAboutCenter 0.0510343, -0.0408696
Part.ActiveView().RotateAboutCenter 0.0291625, -0.0590339
Part.ActiveView().RotateAboutCenter 0.0218718, -0.0408696
Part.ActiveView().RotateAboutCenter 0.0109359, -0.0317875
Part.ActiveView().RotateAboutCenter 0.0182265, -0.0908213
Part.ActiveView().RotateAboutCenter 0.00729062, -0.0272464
Part.ActiveView().RotateAboutCenter 0.0364531, -0.0317875
Part.ActiveView().RotateAboutCenter 0.0328078, -0.0227053
Part.SelectByID "", "FACE", -0.02649999999988, -0.004281068981754, 0.02050714003892
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SimpleHole 1, 0, 0, 0, 0, 0.022, 0.001, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0.0182265, -0.0635749
Part.ActiveView().RotateAboutCenter 0.00364531, -0.399614
Part.ActiveView().RotateAboutCenter -0.0291625, -0.136232
Part.ActiveView().RotateAboutCenter -0.0838421, -0.0544928
Part.ActiveView().RotateAboutCenter -0.0437437, -0.0181643
Part.ActiveView().RotateAboutCenter -0.0218718, 0
Part.ActiveView().RotateAboutCenter -0.0291625, 0
Part.ActiveView().RotateAboutCenter -0.0437437, 0.0272464
Part.ActiveView().RotateAboutCenter -0.0437437, 0.0590339
Part.ActiveView().RotateAboutCenter -0.0364531, 0.0408696
Part.ActiveView().RotateAboutCenter -0.0255172, 0.0454107
Part.ActiveView().RotateAboutCenter -0.00364531, 0.00454107
Part.SelectByID "Perçage1", "BODYFEATURE", 0, 0, 0
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Perçage1", "BODYFEATURE", 0, 0, 0
Part.FeatEdit
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.AndSelectByID "Arc1", "SKETCHSEGMENT", 0.02253015157816, 0.001896100621885, 0
Part.AndSelectByID "", "EDGE", -0.02652660780558, 0.006710543649803, 0.02822310860367
Part.SketchAddConstraints "sgCONCENTRIC"
Part.ClearSelection
Part.EditRebuild
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Perçage1", "BODYFEATURE", 0, 0, 0
Part.SelectByID "Boss.-Extru.15", "BODYFEATURE", 0, 0, 0
Part.ActiveView().RotateAboutCenter 0.0109359, 0.00454107
Part.ActiveView().RotateAboutCenter 0.094778, 0.0363285
Part.ActiveView().RotateAboutCenter 0.0145812, 0.0181643
Part.ActiveView().RotateAboutCenter 0.00364531, 0.00908213
Part.ActiveView().RotateAboutCenter 0, 0.00454107
Part.ActiveView().RotateAboutCenter -0.0328078, 0.240677
Part.ActiveView().RotateAboutCenter -0.0765515, 0.181643
Part.ActiveView().RotateAboutCenter -0.0984233, 0.0454107
Part.ActiveView().RotateAboutCenter -0.0145812, 0.00908213
Part.SelectByID "Perçage1", "BODYFEATURE", 0, 0, 0
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "", "FACE", -0.0265, 0.0008603722833271, -0.02541493769223
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.01894669954209, 0.001502162929174, 0
Part.SelectByID "", "EDGE", -0.02653285909446, 0.0008716253598209, -0.01527307681465
Part.SimpleHole 1, 0, 0, 0, 0, 0.045, 0.022, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Perçage2", "BODYFEATURE", 0, 0, 0
Part.FeatEdit
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.01902303489719, -0.0003201270426702, 0
Part.SelectByID "Plan6", "PLANE", -0.002238584900641, -0.01305098638502, -0.01869834189421
' MSGBOX
' Les objets sélectionnés ne peuvent pas être convertis en une ligne ou un arc dans le plan esquissé.

Part.DeSelectByID "Plan6", "PLANE", -0.002238584900641, -0.01305098638502, -0.01869834189421
Part.AndSelectByID "Arc1", "SKETCHSEGMENT", -0.02409669099398, 0.007225293778723, 0
Part.AndSelectByID "", "EDGE", -0.02648855868688, 0.008439940033895, -0.02323911331109
Part.SketchAddConstraints "sgCONCENTRIC"
Part.ClearSelection
Part.EditRebuild
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0, -0.00454107
Part.ActiveView().RotateAboutCenter 0.00729062, -0.0181643
Part.ActiveView().RotateAboutCenter 0, -0.0272464
Part.ActiveView().RotateAboutCenter 0, -0.0363285
Part.ActiveView().RotateAboutCenter -0.00729062, -0.0499517
Part.ActiveView().RotateAboutCenter -0.0364531, -0.0181643
Part.ActiveView().RotateAboutCenter -0.0109359, -0.0136232
Part.ActiveView().RotateAboutCenter -0.0218718, -0.0227053
Part.ActiveView().RotateAboutCenter 0.00729062, 0
Part.ActiveView().RotateAboutCenter 0.134876, 0.227053
Part.ActiveView().RotateAboutCenter 0.0328078, 0.154396
Part.ActiveView().RotateAboutCenter 0.0291625, 0.2543
Part.ActiveView().RotateAboutCenter 0.00364531, 0.2543
Part.ActiveView().RotateAboutCenter 0.0255172, 0.363285
Part.ActiveView().RotateAboutCenter 0.0109359, 0.177102
Part.ActiveView().RotateAboutCenter -0.00729062, 0.0363285
Part.ActiveView().RotateAboutCenter -0.0291625, 0.0590339
Part.ActiveView().RotateAboutCenter -0.0182265, 0.108986
Part.ActiveView().RotateAboutCenter -0.0145812, 0.163478
Part.ActiveView().RotateAboutCenter -0.0145812, 0.104445
Part.ActiveView().RotateAboutCenter -0.0109359, 0.0363285
Part.ActiveView().RotateAboutCenter -0.0218718, 0.0908213
Part.ActiveView().RotateAboutCenter -0.0145812, 0.136232
Part.ActiveView().RotateAboutCenter -0.00364531, 0.0227053
Part.ActiveView().RotateAboutCenter -0.00364531, 0
Part.ActiveView().RotateAboutCenter 0.0145812, 0.0181643
Part.ActiveView().RotateAboutCenter 0.105714, 0.308793
Part.ActiveView().RotateAboutCenter 0.0291625, 0.2543
Part.ActiveView().RotateAboutCenter 0.0218718, 0.0817392
Part.ActiveView().RotateAboutCenter 0.00364531, 0.0227053
Part.ActiveView().RotateAboutCenter 0.00364531, 0
Part.ActiveView().RotateAboutCenter 0.0328078, 0.0454107
Part.ActiveView().RotateAboutCenter 0.0400984, 0.00454107
Part.ActiveView().RotateAboutCenter 0.0911327, -0.0499517
Part.ActiveView().RotateAboutCenter 0.0400984, -0.0544928
Part.ActiveView().RotateAboutCenter 0.0291625, -0.0181643
Part.ActiveView().RotateAboutCenter 0.00364531, 0
Part.ActiveView().RotateAboutCenter 0.0145812, -0.0227053
Part.ActiveView().RotateAboutCenter 0.00729062, -0.0272464
Part.ActiveView().RotateAboutCenter 0.0109359, -0.0908213
Part.ActiveView().RotateAboutCenter 0, -0.00454107
Part.SelectByID "", "FACE", 0.01949999999994, 0.002626837548036, -0.02606304275535
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SimpleHole 1, 0, 0, 1, 0, 0.045, 0.045, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Perçage3", "BODYFEATURE", 0, 0, 0
Part.FeatEdit
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.AndSelectByID "Arc1", "SKETCHSEGMENT", 0.02061381173888, 0.003372412044023, 0
Part.AndSelectByID "", "EDGE", 0.01950448824272, 0.005183904995789, -0.01773621197806
Part.SketchAddConstraints "sgCONCENTRIC"
Part.ClearSelection
Part.EditRebuild
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0, 0.00454107
Part.ActiveView().RotateAboutCenter 0, 0.0181643
Part.ActiveView().RotateAboutCenter -0.0182265, 0.0953624
Part.ActiveView().RotateAboutCenter -0.0145812, 0.0590339
Part.ActiveView().RotateAboutCenter -0.0182265, 0.0544928
Part.ActiveView().RotateAboutCenter -0.0328078, 0.0908213
Part.ActiveView().RotateAboutCenter -0.0291625, 0.0908213
Part.ActiveView().RotateAboutCenter -0.0255172, 0.068116
Part.ActiveView().RotateAboutCenter -0.0182265, 0.0363285
Part.ActiveView().RotateAboutCenter -0.0182265, 0.0454107
Part.ActiveView().RotateAboutCenter -0.0145812, 0.0363285
Part.ActiveView().RotateAboutCenter -0.0182265, 0.0363285
Part.ActiveView().RotateAboutCenter 0, 0.00454107
Part.ActiveView().RotateAboutCenter 0.00364531, -0.00454107
Part.ActiveView().RotateAboutCenter 0.0546796, -0.0590339
Part.ActiveView().RotateAboutCenter 0.0145812, -0.0272464
Part.ActiveView().RotateAboutCenter 0.0109359, -0.0544928
Part.ActiveView().RotateAboutCenter 0, -0.00454107
Part.ActiveView().RotateAboutCenter 0.0145812, -0.145314
Part.ActiveView().RotateAboutCenter 0, -0.0136232
Part.ActiveView().RotateAboutCenter 0, -0.0771981
Part.ActiveView().RotateAboutCenter 0, -0.0181643
Part.ActiveView().RotateAboutCenter 0, -0.0408696
Part.ActiveView().RotateAboutCenter 0, -0.00454107
Part.ActiveView().RotateAboutCenter 0.0510343, -0.0635749
Part.ActiveView().RotateAboutCenter 0.11665, -0.0953624
Part.ActiveView().RotateAboutCenter 0.145812, -0.181643
Part.ActiveView().RotateAboutCenter 0.196847, -0.345121
Part.ActiveView().RotateAboutCenter 0.182265, -0.372367
Part.ActiveView().RotateAboutCenter 0.0874874, -0.186184
Part.ActiveView().RotateAboutCenter 0, -0.00454107
Part.ActiveView().RotateAboutCenter 0.00364531, -0.413237
Part.ActiveView().RotateAboutCenter 0.0218718, -0.0635749
Part.ActiveView().RotateAboutCenter 0.0692609, -0.00908213
Part.ActiveView().RotateAboutCenter 0.0328078, 0
Part.ActiveView().RotateAboutCenter 0.047389, 0
Part.ActiveView().RotateAboutCenter 0.047389, 0.154396
Part.ActiveView().RotateAboutCenter 0.0328078, 0.508599
Part.ActiveView().RotateAboutCenter 0.00729062, 0.068116
Part.ActiveView().RotateAboutCenter -0.0145812, 0.463189
Part.ActiveView().RotateAboutCenter -0.0838421, 0.445025
Part.ActiveView().RotateAboutCenter -0.105714, 0.635749
Part.ActiveView().RotateAboutCenter -0.0291625, 0.154396
Part.ActiveView().RotateAboutCenter -0.0328078, 0.181643
Part.ActiveView().RotateAboutCenter -0.142167, 0.068116
Part.ActiveView().RotateAboutCenter -0.0656155, -0.00454107
Part.ActiveView().RotateAboutCenter -0.0801968, -0.199807
Part.ActiveView().RotateAboutCenter -0.0510343, -0.108986
Part.ActiveView().RotateAboutCenter -0.0328078, -0.0499517
Part.ActiveView().RotateAboutCenter -0.00729062, -0.0408696
Part.ActiveView().RotateAboutCenter 0, -0.00454107
Part.ActiveView().RotateAboutCenter 0.0291625, -0.0272464
Part.ActiveView().RotateAboutCenter 0.0218718, -0.0227053
Part.ActiveView().RotateAboutCenter 0.0218718, 0
Part.ActiveView().RotateAboutCenter 0.0400984, -0.00908213
Part.ActiveView().RotateAboutCenter 0.00364531, -0.00454107
Part.ActiveView().RotateAboutCenter 0.0400984, -0.104445
Part.ActiveView().RotateAboutCenter 0.0182265, -0.0817392
Part.ActiveView().RotateAboutCenter 0.0109359, -0.0181643
Part.ActiveView().RotateAboutCenter 0.0145812, -0.0272464
Part.ActiveView().RotateAboutCenter 0.00729062, -0.00908213
Part.ActiveView().RotateAboutCenter 0, -0.00454107
Part.ActiveView().RotateAboutCenter 0.00364531, 0
Part.ActiveView().RotateAboutCenter 0.0218718, 0.208889
Part.ActiveView().RotateAboutCenter 0.0145812, 0.140773
Part.ActiveView().RotateAboutCenter 0.0218718, 0.199807
Part.ActiveView().RotateAboutCenter 0.00364531, 0.0635749
Part.ActiveView().RotateAboutCenter -0.00364531, -0.00908213
Part.ActiveView().RotateAboutCenter -0.0364531, -0.0817392
Part.ActiveView().RotateAboutCenter -0.0328078, -0.0499517
Part.ActiveView().RotateAboutCenter -0.0109359, -0.0136232
Part.ActiveView().RotateAboutCenter -0.0109359, -0.0272464
Part.ActiveView().RotateAboutCenter 0, -0.0227053
Part.ActiveView().RotateAboutCenter 0.00364531, -0.0590339
Part.ActiveView().RotateAboutCenter 0.0145812, -0.0635749
Part.ActiveView().RotateAboutCenter 0, -0.245218
Part.ActiveView().RotateAboutCenter 0, -0.113527
Part.ActiveView().RotateAboutCenter 0.00364531, 0
Part.SelectByID "Perçage3", "BODYFEATURE", 0, 0, 0
Part.FeatEdit
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0, -0.00472743
Part.ActiveView().RotateAboutCenter 0.00729062, -0.482198
Part.ActiveView().RotateAboutCenter 0, -0.425469
Part.ActiveView().RotateAboutCenter -0.0109359, -0.387649
Part.ActiveView().RotateAboutCenter -0.0291625, -0.425469
Part.ActiveView().RotateAboutCenter -0.0218718, -0.36874
Part.ActiveView().RotateAboutCenter 0, -0.127641
Part.ActiveView().RotateAboutCenter 0, -0.00472743
Part.ActiveView().RotateAboutCenter 0.0109359, -0.00472743
Part.ActiveView().RotateAboutCenter 0, -0.00472743
Part.EditRebuild
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0, -0.00454107
Part.ActiveView().RotateAboutCenter 0, -0.149855
Part.ActiveView().RotateAboutCenter -0.00729062, -0.104445
Part.ActiveView().RotateAboutCenter -0.0145812, -0.118068
Part.ActiveView().RotateAboutCenter -0.00364531, -0.0181643
Part.ActiveView().RotateAboutCenter 0.00364531, -0.00454107
Part.ActiveView().RotateAboutCenter 0.00729062, -0.00908213
Part.ActiveView().RotateAboutCenter 0.0145812, -0.0227053
Part.ActiveView().RotateAboutCenter 0.00364531, -0.0181643
Part.ActiveView().RotateAboutCenter 0.00364531, -0.00454107
Part.ActiveView().RotateAboutCenter 0, -0.108986
Part.ActiveView().RotateAboutCenter 0, -0.0227053
Part.ActiveView().RotateAboutCenter 0, -0.00454107
Part.ActiveView().RotateAboutCenter -0.0109359, -0.0136232
Part.ActiveView().RotateAboutCenter -0.0255172, -0.00454107
Part.ActiveView().RotateAboutCenter -0.0182265, 0.00454107
Part.ActiveView().RotateAboutCenter -0.0291625, 0.0181643
Part.ActiveView().RotateAboutCenter -0.0109359, 0.00908213
Part.ActiveView().RotateAboutCenter -0.0109359, 0.0272464
Part.ActiveView().RotateAboutCenter -0.00364531, 0.0408696
Part.ActiveView().RotateAboutCenter 0, 0.00908213
Part.ActiveView().RotateAboutCenter 0.0145812, 0.0454107
Part.ActiveView().RotateAboutCenter 0.0109359, 0.0136232
Part.ActiveView().RotateAboutCenter 0.0182265, 0.00908213
Part.ActiveView().RotateAboutCenter 0, 0.00908213
Part.ActiveView().RotateAboutCenter 0.00364531, 0.00454107
Part.ActiveView().RotateAboutCenter 0.0255172, 0.0317875
Part.ActiveView().RotateAboutCenter 0.0364531, 0.0544928
Part.ActiveView().RotateAboutCenter 0.0109359, 0.00908213
Part.ActiveView().RotateAboutCenter 0.0400984, 0.0454107
Part.ActiveView().RotateAboutCenter 0.047389, 0.0635749
Part.ActiveView().RotateAboutCenter 0.105714, 0.313334
Part.ActiveView().RotateAboutCenter 0.0437437, 0.599421
Part.ActiveView().RotateAboutCenter -0.0328078, 0.372367
Part.ActiveView().RotateAboutCenter -0.0364531, 0.00908213
Part.ActiveView().RotateAboutCenter 0.0109359, 0.0136232
Part.ActiveView().RotateAboutCenter 0.160394, 0.326957
Part.ActiveView().RotateAboutCenter 0.0874874, 0.217971
Part.ActiveView().RotateAboutCenter 0.0437437, 0.145314
Part.ActiveView().RotateAboutCenter 0.0218718, 0.104445
Part.ActiveView().RotateAboutCenter 0, 0.00908213
Part.ActiveView().RotateAboutCenter 0, 0.149855
Part.ActiveView().RotateAboutCenter 0.0109359, 0.0544928
Part.ActiveView().RotateAboutCenter 0.0145812, 0.0726571
Part.ActiveView().RotateAboutCenter 0, 0.0272464
Part.ActiveView().RotateAboutCenter -0.0437437, 0.0227053
Part.ActiveView().RotateAboutCenter -0.196847, -0.0227053
Part.ActiveView().RotateAboutCenter -0.145812, -0.0408696
Part.ActiveView().RotateAboutCenter -0.0838421, -0.0181643
Part.ActiveView().RotateAboutCenter -0.0765515, -0.0181643
Part.ActiveView().RotateAboutCenter -0.0729062, -0.0136232
Part.ActiveView().RotateAboutCenter -0.153103, 0
Part.ActiveView().RotateAboutCenter -0.0510343, 0.0181643
Part.ActiveView().RotateAboutCenter -0.0984233, 0.0544928
Part.ActiveView().RotateAboutCenter -0.0729062, 0.0544928
Part.ActiveView().RotateAboutCenter -0.0838421, 0.0544928
Part.ActiveView().RotateAboutCenter -0.0656155, 0.0317875
Part.ActiveView().RotateAboutCenter -0.0109359, 0.00454107
Part.ActiveView().RotateAboutCenter 0, 0.0317875
Part.ActiveView().RotateAboutCenter 0.00364531, 0.0408696
Part.ActiveView().RotateAboutCenter 0.0109359, 0.0272464
Part.ActiveView().RotateAboutCenter 0.0145812, 0.0317875
Part.ActiveView().RotateAboutCenter 0.0255172, 0.0499517
Part.ActiveView().RotateAboutCenter 0.047389, 0.0454107
Part.ActiveView().RotateAboutCenter 0.113005, 0.0272464
Part.ActiveView().RotateAboutCenter 0.0437437, 0.0181643
Part.ActiveView().RotateAboutCenter 0.226009, 0.0227053
Part.ActiveView().RotateAboutCenter 0.102069, 0.00454107
Part.ActiveView().RotateAboutCenter 0.0437437, 0.00908213
Part.ActiveView().RotateAboutCenter 0.047389, 0.00454107
Part.ActiveView().RotateAboutCenter 0.0546796, 0.00454107
Part.ActiveView().RotateAboutCenter 0.0692609, 0
Part.ActiveView().RotateAboutCenter 0.047389, 0.00454107
Part.ActiveView().RotateAboutCenter 0.0510343, 0
Part.ActiveView().RotateAboutCenter 0.0328078, 0
Part.ActiveView().RotateAboutCenter 0.0255172, 0.00454107
Part.ActiveView().RotateAboutCenter 0.0328078, 0
Part.ActiveView().RotateAboutCenter 0.0218718, 0
Part.ActiveView().RotateAboutCenter 0.0291625, 0
Part.ActiveView().RotateAboutCenter 0.0255172, 0
Part.ActiveView().RotateAboutCenter 0.0291625, 0
Part.ActiveView().RotateAboutCenter 0.0255172, 0
Part.ActiveView().RotateAboutCenter 0.0291625, 0
Part.ActiveView().RotateAboutCenter 0.0255172, -0.0272464
Part.ActiveView().RotateAboutCenter 0.0145812, -0.0272464
Part.ActiveView().RotateAboutCenter 0.0145812, -0.0408696
Part.ActiveView().RotateAboutCenter 0.00729062, -0.0136232
Part.ActiveView().RotateAboutCenter 0.00364531, -0.0136232
Part.ActiveView().RotateAboutCenter -0.0109359, -0.00908213
Part.ActiveView().RotateAboutCenter -0.0510343, 0.0408696
Part.ActiveView().RotateAboutCenter -0.047389, 0.0544928
Part.ActiveView().RotateAboutCenter -0.0400984, 0.0499517
Part.ActiveView().RotateAboutCenter -0.0218718, 0.0408696
Part.ActiveView().RotateAboutCenter -0.0182265, 0.0317875
Part.ActiveView().RotateAboutCenter -0.0218718, 0.0317875
Part.ActiveView().RotateAboutCenter -0.0145812, 0.0181643
Part.ActiveView().RotateAboutCenter -0.00729062, 0.0136232
Part.ActiveView().RotateAboutCenter -0.0109359, 0.0136232
Part.ActiveView().RotateAboutCenter 0, 0.00454107
Part.ActiveView().RotateAboutCenter 0.0328078, 0.00908213
Part.ActiveView().RotateAboutCenter 0.0255172, 0
Part.ActiveView().RotateAboutCenter 0.0291625, 0
Part.ActiveView().RotateAboutCenter 0.0145812, 0
Part.ActiveView().RotateAboutCenter 0.0109359, 0
Part.ActiveView().RotateAboutCenter 0.00364531, 0
Part.ActiveView().RotateAboutCenter 0.0145812, 0
Part.ActiveView().RotateAboutCenter 0.00364531, 0
Part.ActiveView().RotateAboutCenter 0, -0.00908213
Part.ActiveView().RotateAboutCenter -0.0182265, -0.00908213
Part.ActiveView().RotateAboutCenter -0.0145812, 0
Part.ActiveView().RotateAboutCenter -0.00729062, 0
Part.ActiveView().RotateAboutCenter -0.00364531, 0
Part.ActiveView().RotateAboutCenter -0.00729062, -0.00454107
Part.ActiveView().RotateAboutCenter -0.00364531, 0
Part.ActiveView().RotateAboutCenter -0.00729062, 0
Part.ActiveView().RotateAboutCenter -0.00729062, -0.00908213
Part.ActiveView().RotateAboutCenter -0.0182265, -0.0136232
Part.ActiveView().RotateAboutCenter -0.00364531, 0
Part.ActiveView().RotateAboutCenter -0.00729062, 0
Part.ActiveView().RotateAboutCenter -0.00729062, -0.00454107
Part.ActiveView().RotateAboutCenter -0.00364531, -0.00454107
Part.ActiveView().RotateAboutCenter -0.0255172, -0.0272464
Part.ActiveView().RotateAboutCenter -0.0182265, -0.0317875
Part.ActiveView().RotateAboutCenter -0.0255172, -0.0862803
Part.ActiveView().RotateAboutCenter -0.0145812, -0.0817392
Part.ActiveView().RotateAboutCenter 0, -0.113527
Part.ActiveView().RotateAboutCenter 0, -0.168019
Part.ActiveView().RotateAboutCenter -0.00364531, -0.00908213
Part.ActiveView().RotateAboutCenter -0.0328078, -0.0908213
Part.ActiveView().RotateAboutCenter 0, -0.00454107
Part.ActiveView().RotateAboutCenter -0.00729062, -0.0908213
Part.ActiveView().RotateAboutCenter 0.00364531, -0.281546
Part.ActiveView().RotateAboutCenter 0.00364531, -0.408696
Part.ActiveView().RotateAboutCenter -0.0218718, -0.38145
Part.ActiveView().RotateAboutCenter -0.0437437, -0.517682
Part.ActiveView().RotateAboutCenter -0.0145812, -0.177102
Part.ActiveView().RotateAboutCenter -0.00729062, -0.104445
Part.ActiveView().RotateAboutCenter 0, -0.0181643
Part.ActiveView().RotateAboutCenter 0.00729062, -0.163478
Part.ActiveView().RotateAboutCenter 0, -0.00454107
Part.ActiveView().RotateAboutCenter -0.0145812, -0.281546
Part.ActiveView().RotateAboutCenter -0.0145812, -0.0317875
Part.ActiveView().RotateAboutCenter -0.0291625, -0.0363285
Part.ActiveView().RotateAboutCenter -0.00364531, 0
Part.ActiveView().RotateAboutCenter -0.0364531, -0.0363285
Part.ActiveView().RotateAboutCenter -0.00364531, -0.00454107
Part.ActiveView().RotateAboutCenter -0.0364531, 0
Part.ActiveView().RotateAboutCenter -0.0328078, 0
Part.ActiveView().RotateAboutCenter -0.047389, 0.0363285
Part.ActiveView().RotateAboutCenter -0.0291625, 0.0317875
Part.ActiveView().RotateAboutCenter -0.0145812, 0.0227053
Part.ActiveView().RotateAboutCenter 0.00364531, 0
Part.ActiveView().RotateAboutCenter 0.00729062, 0
Part.ActiveView().RotateAboutCenter 0.0218718, 0.00454107
Part.ActiveView().RotateAboutCenter 0.0400984, 0.00454107
Part.ActiveView().RotateAboutCenter 0.0255172, 0.00908213
Part.ActiveView().RotateAboutCenter 0.0291625, 0.0136232
Part.ActiveView().RotateAboutCenter 0.0291625, 0.0136232
Part.ActiveView().RotateAboutCenter 0.0182265, 0.0181643
Part.ActiveView().RotateAboutCenter 0.00364531, 0
Part.ActiveView().RotateAboutCenter 0.0109359, 0.00454107
Part.ActiveView().RotateAboutCenter 0.00729062, 0.00454107
Part.ActiveView().RotateAboutCenter 0.0619702, 0.108986
Part.ActiveView().RotateAboutCenter 0.00364531, 0
Part.ActiveView().RotateAboutCenter 0.0182265, 0.0363285
Part.ActiveView().RotateAboutCenter 0.0109359, 0.0317875
Part.ActiveView().RotateAboutCenter 0.0109359, 0.0408696
Part.ActiveView().RotateAboutCenter 0.00364531, 0.00908213
Part.ActiveView().RotateAboutCenter 0.00364531, 0.00908213
Part.ActiveView().RotateAboutCenter 0.047389, 0.0862803
Part.ActiveView().RotateAboutCenter 0.0400984, 0.0999035
Part.ActiveView().RotateAboutCenter 0.0218718, 0.0726571
Part.ActiveView().RotateAboutCenter 0.0291625, 0.231594
Part.ActiveView().RotateAboutCenter 0.0109359, 0.108986
Part.ActiveView().RotateAboutCenter 0, 0.0590339
Part.ActiveView().RotateAboutCenter -0.0109359, 0.131691
Part.ActiveView().RotateAboutCenter -0.0291625, 0.158937
Part.ActiveView().RotateAboutCenter -0.0109359, 0.0862803
Part.ActiveView().RotateAboutCenter -0.00364531, 0.0181643
Part.ActiveView().RotateAboutCenter -0.0218718, 0.0590339
Part.ActiveView().RotateAboutCenter -0.0109359, 0.0499517
Part.ActiveView().RotateAboutCenter -0.00729062, 0.0363285
Part.ActiveView().RotateAboutCenter -0.00364531, 0.0181643
Part.ActiveView().RotateAboutCenter 0, 0.00454107
Part.ActiveView().RotateAboutCenter 0.0291625, 0.0363285
Part.ActiveView().RotateAboutCenter 0.00364531, 0
Part.ActiveView().RotateAboutCenter 0.00729062, 0.00908213
Part.ActiveView().RotateAboutCenter 0.00729062, 0.00454107
Part.ActiveView().RotateAboutCenter 0.00364531, 0.00908213
Part.ActiveView().RotateAboutCenter 0.00364531, 0.00454107
Part.ActiveView().RotateAboutCenter 0.0109359, 0.0181643
Part.ActiveView().RotateAboutCenter 0.00364531, 0
Part.ActiveView().RotateAboutCenter 0.00364531, -0.0181643
Part.ActiveView().RotateAboutCenter 0.0109359, -0.0181643
Part.ActiveView().RotateAboutCenter 0, -0.00454107
Part.ActiveView().RotateAboutCenter 0.00364531, -0.00454107
Part.ActiveView().RotateAboutCenter 0.00729062, -0.0136232
Part.ActiveView().RotateAboutCenter 0.0109359, -0.0181643
Part.ActiveView().RotateAboutCenter 0.0109359, -0.0136232
Part.ActiveView().RotateAboutCenter 0.00364531, 0
Part.ActiveView().RotateAboutCenter 0.0145812, 0.0136232
Part.ActiveView().RotateAboutCenter 0.00364531, 0.0136232
Part.ActiveView().RotateAboutCenter 0, 0.0317875
Part.ActiveView().RotateAboutCenter 0.00364531, 0.0272464
Part.ActiveView().RotateAboutCenter 0, 0.0227053
Part.ActiveView().RotateAboutCenter 0, 0.0136232
Part.ActiveView().RotateAboutCenter 0, 0.0181643
Part.ActiveView().RotateAboutCenter 0, 0.00908213
Part.ActiveView().RotateAboutCenter 0, 0.00454107
Part.ActiveView().RotateAboutCenter 0, 0.00908213
Part.ActiveView().RotateAboutCenter -0.00364531, 0.0136232
Part.ActiveView().RotateAboutCenter -0.0218718, 0.0227053
Part.ActiveView().RotateAboutCenter -0.00364531, 0.00454107
Part.ActiveView().RotateAboutCenter -0.00729062, 0
Part.ActiveView().RotateAboutCenter -0.0838421, -0.00454107
Part.ActiveView().RotateAboutCenter -0.047389, 0.00908213
Part.ActiveView().RotateAboutCenter -0.0437437, 0.00454107
Part.ActiveView().RotateAboutCenter -0.0255172, 0.00454107
Part.ActiveView().RotateAboutCenter -0.0109359, 0
Part.ActiveView().RotateAboutCenter 0, 0.00454107
Part.ActiveView().RotateAboutCenter 0.0255172, 0.00908213
Part.ActiveView().RotateAboutCenter 0, 0.00454107
Part.ActiveView().RotateAboutCenter 0.00729062, 0.00454107
Part.ActiveView().RotateAboutCenter 0.00364531, 0.00454107
Part.ActiveView().RotateAboutCenter 0.0255172, 0.0136232
Part.ActiveView().RotateAboutCenter 0.0255172, 0.0181643
Part.ActiveView().RotateAboutCenter 0.0145812, 0.00908213
Part.ActiveView().RotateAboutCenter 0.0182265, 0.00908213
Part.ActiveView().RotateAboutCenter 0.00364531, 0.00454107
Part.ActiveView().RotateAboutCenter 0.0364531, 0.0363285
Part.ActiveView().RotateAboutCenter 0.00729062, 0.00454107
Part.ActiveView().RotateAboutCenter 0.0109359, 0.00908213
Part.ActiveView().RotateAboutCenter 0.00364531, 0
Part.SelectByID "Perçage3", "BODYFEATURE", 0, 0, 0
Part.EditRebuild
Part.ClearSelection
Part.SelectByID "Perçage3", "BODYFEATURE", 0, 0, 0
Part.SelectByID "Perçage2", "BODYFEATURE", 0, 0, 0
Part.ViewZoomtofit2
Part.SelectByID "Roulement_plastic_7_bis.SLDPRT", "COMPONENT", 0, 0, 0
Part.SelectByID "Roulement_plastic_7_bis.SLDPRT", "COMPONENT", 0, 0, 0
Part.SelectByID "Roulement_plastic_7_bis.SLDPRT", "COMPONENT", 0, 0, 0
Part.DimPreferences
Part.ClearSelection
Part.ShowNamedView2 "*Isométrique", 7
Part.SelectByID "Plan1", "PLANE", 0, 0, 0
Part.SelectByID "Plan2", "PLANE", 0, 0, 0
Part.SelectByID "Plan3", "PLANE", 0, 0, 0
Part.ClearSelection
Part.SelectByID "Plan4", "PLANE", 0, 0, 0
Part.BlankRefGeom
Part.SelectByID "Plan5", "PLANE", 0, 0, 0
Part.BlankRefGeom
Part.SelectByID "Plan6", "PLANE", 0, 0, 0
Part.BlankRefGeom
Part.SelectByID "Point1@Origine", "EXTSKETCHPOINT", 0, 0, 0
Part.BlankSketch
Part.SelectByID "Inconnu", "BROWSERITEM", 0, 0, 0
Part.AddLightSource "SW#2", 4, "Directionelle2"
Part.SetLightSourcePropertyValuesVB "SW#2", 4, 1, 16777215, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Part.LockLightToModel 2, False
Part.GraphicsRedraw
Part.SelectByID "Inconnu", "BROWSERITEM", 0, 0, 0
Part.AddLightSource "SW#3", 2, "Spot 1"
Part.SetLightSourcePropertyValuesVB "SW#3", 2, 1, 16777215, 1, 0, 0, 1, 0, 0, -1, 45, 1, 0, 0, 0, 0, 0, 0
Part.LockLightToModel 3, False
Part.GraphicsRedraw
Part.SelectByID "Inconnu", "BROWSERITEM", 0, 0, 0
Part.AddLightSource "SW#4", 2, "Spot 2"
Part.SetLightSourcePropertyValuesVB "SW#4", 2, 1, 16777215, 1, 0, 0, 1, 0, 0, -1, 45, 1, 0, 0, 0, 0, 0, 0
Part.LockLightToModel 4, False
Part.GraphicsRedraw
Part.SelectByID "Spot 2", "LIGHTS", 0, 0, 0
Part.EditDelete
Part.SelectByID "Directionelle2", "LIGHTS", 0, 0, 0
Part.ClearSelection
Part.SelectByID "Directionelle2", "LIGHTS", 0, 0, 0
Part.EditDelete
Part.SelectByID "Ambiante", "LIGHTS", 0, 0, 0
Part.ClearSelection
Part.SelectByID "Ambiante", "LIGHTS", 0, 0, 0
Part.EditDelete
' MSGBOX
' Aucune de ses entités ne peut être supprimée.

Part.ActiveView().RotateAboutCenter 0.0109359, -0.0635749
Part.ActiveView().RotateAboutCenter 0.0109359, -0.29971
Part.ActiveView().RotateAboutCenter -0.0109359, -0.0817392
Part.ActiveView().RotateAboutCenter -0.0546796, -0.068116
Part.ActiveView().RotateAboutCenter -0.156748, -0.145314
Part.ActiveView().RotateAboutCenter -0.105714, -0.0590339
Part.ActiveView().RotateAboutCenter -0.0619702, -0.00454107
Part.ActiveView().RotateAboutCenter -0.0400984, 0.0181643
Part.ActiveView().RotateAboutCenter -0.0619702, 0.068116
Part.ActiveView().RotateAboutCenter -0.0619702, 0.0544928
Part.ActiveView().RotateAboutCenter -0.0437437, 0.0635749
Part.ActiveView().RotateAboutCenter -0.0328078, 0.118068
Part.ActiveView().RotateAboutCenter -0.0437437, 0.0726571
Part.ActiveView().RotateAboutCenter -0.0291625, 0.0635749
Part.ActiveView().RotateAboutCenter -0.0182265, 0.2543
Part.ActiveView().RotateAboutCenter -0.0145812, 0.0544928
Part.ActiveView().RotateAboutCenter -0.0182265, 0.0635749
Part.ActiveView().RotateAboutCenter -0.00364531, 0.0726571
Part.ActiveView().RotateAboutCenter 0.0145812, 0.290628
Part.ActiveView().RotateAboutCenter 0.0291625, 0.168019
Part.ActiveView().RotateAboutCenter 0.0182265, 0.0181643
Part.ActiveView().RotateAboutCenter 0.00364531, 0
Part.ActiveView().RotateAboutCenter 0.0218718, 0.00454107
Part.ActiveView().RotateAboutCenter 0.189556, 0.222512
Part.ActiveView().RotateAboutCenter 0.0874874, 0.435942
Part.ActiveView().RotateAboutCenter 0.0145812, 0.308793
Part.ActiveView().RotateAboutCenter 0.00729062, 0.390532
Part.ActiveView().RotateAboutCenter 0.00729062, 0.181643
Part.ActiveView().RotateAboutCenter -0.0291625, 0.222512
Part.ActiveView().RotateAboutCenter -0.0583249, 0.0544928
Part.ActiveView().RotateAboutCenter -0.105714, 0.0136232
Part.ActiveView().RotateAboutCenter -0.284334, -0.00454107
Part.ActiveView().RotateAboutCenter -0.174975, 0.00454107
Part.ActiveView().RotateAboutCenter -0.102069, 0.0272464
Part.ActiveView().RotateAboutCenter -0.0874874, 0.00908213
Part.ActiveView().RotateAboutCenter -0.113005, 0.0363285
Part.ActiveView().RotateAboutCenter -0.0583249, 0.0136232
Part.ActiveView().RotateAboutCenter -0.00364531, 0
Part.ActiveView().RotateAboutCenter -0.145812, -0.0181643
Part.ActiveView().RotateAboutCenter -0.171329, -0.0317875
Part.ActiveView().RotateAboutCenter -0.0984233, -0.0227053
Part.ActiveView().RotateAboutCenter -0.0255172, -0.00908213
Part.ActiveView().RotateAboutCenter -0.047389, -0.0136232
Part.ActiveView().RotateAboutCenter -0.0437437, -0.0181643
Part.ActiveView().RotateAboutCenter -0.0437437, -0.0181643
Part.ActiveView().RotateAboutCenter -0.00729062, -0.00454107
Part.ActiveView().RotateAboutCenter -0.0145812, -0.0999035
Part.ActiveView().RotateAboutCenter -0.00364531, -0.0181643
Part.ActiveView().RotateAboutCenter -0.0145812, -0.385991
Part.ActiveView().RotateAboutCenter 0.0218718, -0.181643
Part.ActiveView().RotateAboutCenter 0.0437437, -0.0999035
Part.ActiveView().RotateAboutCenter 0.0400984, -0.145314
Part.ActiveView().RotateAboutCenter 0.0692609, -0.0862803
Part.ActiveView().RotateAboutCenter 0.269753, -0.0408696
Part.ActiveView().RotateAboutCenter 0.149458, 0.0181643
Part.ActiveView().RotateAboutCenter 0.0583249, 0.0272464
Part.ActiveView().RotateAboutCenter 0.0801968, 0.0499517
Part.ActiveView().RotateAboutCenter 0.00364531, 0.00454107
Part.ActiveView().RotateAboutCenter 0.00364531, 0
Part.ActiveView().RotateAboutCenter 0.113005, 0.236135
Part.ActiveView().RotateAboutCenter 0.0364531, 0.38145
Part.ActiveView().RotateAboutCenter 0.00364531, 0.122609
Part.ActiveView().RotateAboutCenter 0, 0.195266
Part.ActiveView().RotateAboutCenter 0.0145812, 0.163478
Part.ActiveView().RotateAboutCenter 0.0510343, 0.0590339
Part.ActiveView().RotateAboutCenter 0.0145812, 0.0136232
Part.ActiveView().RotateAboutCenter 0.0255172, 0.0272464
Part.ActiveView().RotateAboutCenter 0.0218718, 0.0272464
Part.SelectByID "Spot 1", "LIGHTS", 0, 0, 0
Part.EditDelete
Part.Save2 FALSE
Part.SelectByID "", "FACE", -0.02449999999999, 0.001541347752038, 0.0008497513451999
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SimpleHole 1, 0, 0, 2, 0, 0.045, 0.045, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Perçage4", "BODYFEATURE", 0, 0, 0
Part.FeatEdit
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.002876766054301, -0.0006702605697693, 0
Part.SelectByID "", "EDGE", -0.02480218844579, -0.005798195583282, 0.006467274989234
Part.DeSelectByID "", "EDGE", -0.02459468067036, -0.007816241645685, 0.004228388662433
Part.AndSelectByID "", "EDGE", -0.02459468067036, -0.007816241645685, 0.004228388662433
Part.AndSelectByID "Arc1", "SKETCHSEGMENT", 0.003380211387349, -7.010251870702e-005, 0
Part.SketchAddConstraints "sgCONCENTRIC"
Part.ClearSelection
Part.EditRebuild
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0.0510343, 0.0136232
Part.ActiveView().RotateAboutCenter 0.142167, -0.00908213
Part.ActiveView().RotateAboutCenter 0.102069, -0.145314
Part.ActiveView().RotateAboutCenter 0.0255172, -0.145314
Part.ActiveView().RotateAboutCenter 0.0182265, -0.122609
Part.ActiveView().RotateAboutCenter 0.00729062, -0.104445
Part.ActiveView().RotateAboutCenter 0, -0.068116
Part.ActiveView().RotateAboutCenter 0.0145812, -0.113527
Part.ActiveView().RotateAboutCenter 0.0145812, -0.0590339
Part.ActiveView().RotateAboutCenter 0.0145812, -0.0862803
Part.ActiveView().RotateAboutCenter 0.0109359, -0.0272464
Part.ActiveView().RotateAboutCenter 0.0364531, -0.0317875
Part.ActiveView().RotateAboutCenter 0.00729062, -0.00908213
Part.ActiveView().RotateAboutCenter 0.0255172, -0.0272464
Part.ActiveView().RotateAboutCenter 0.0291625, -0.0317875
Part.ActiveView().RotateAboutCenter 0.0145812, -0.0272464
Part.ActiveView().RotateAboutCenter 0.0109359, -0.0363285
Part.ActiveView().RotateAboutCenter 0, -0.0181643
Part.ActiveView().RotateAboutCenter 0, -0.00908213
Part.ActiveView().RotateAboutCenter 0.00364531, 0
Part.ActiveView().RotateAboutCenter -0.00729062, -0.104445
Part.ActiveView().RotateAboutCenter -0.00729062, -0.0363285
Part.ActiveView().RotateAboutCenter 0.0400984, -0.190725
Part.ActiveView().RotateAboutCenter 0.0255172, -0.435942
Part.ActiveView().RotateAboutCenter 0.0109359, -0.408696
Part.ActiveView().RotateAboutCenter 0.0364531, -0.227053
Part.ActiveView().RotateAboutCenter 0.0437437, -0.172561
Part.ActiveView().RotateAboutCenter 0.0291625, -0.0817392
Part.ActiveView().RotateAboutCenter 0.0328078, -0.00908213
Part.ActiveView().RotateAboutCenter 0.113005, 0.0317875
Part.ActiveView().RotateAboutCenter 0.0619702, 0.0272464
Part.ActiveView().RotateAboutCenter 0.0364531, 0.0181643
Part.ActiveView().RotateAboutCenter 0.0510343, 0.0363285
Part.ActiveView().RotateAboutCenter 0.0583249, 0.0363285
Part.ActiveView().RotateAboutCenter 0.0328078, 0.068116
Part.ActiveView().RotateAboutCenter 0.0109359, 0.0363285
Part.ActiveView().RotateAboutCenter 0.00729062, 0.0181643
Part.ActiveView().RotateAboutCenter 0, 0.0317875
Part.ActiveView().RotateAboutCenter -0.0145812, 0.0363285
Part.ActiveView().RotateAboutCenter -0.0145812, 0.0544928
Part.ActiveView().RotateAboutCenter -0.0182265, 0.0953624
Part.ActiveView().RotateAboutCenter -0.0182265, 0.372367
Part.ActiveView().RotateAboutCenter -0.0400984, 0.29971
Part.ActiveView().RotateAboutCenter -0.0218718, 0.108986
Part.ActiveView().RotateAboutCenter -0.0109359, 0.217971
Part.ActiveView().RotateAboutCenter -0.00364531, 0.108986
Part.ActiveView().RotateAboutCenter -0.00364531, 0.272464
Part.ActiveView().RotateAboutCenter -0.0109359, 0.0953624
Part.ActiveView().RotateAboutCenter -0.0218718, 0.190725
Part.ActiveView().RotateAboutCenter -0.0109359, 0.208889
Part.ActiveView().RotateAboutCenter -0.0145812, 0.0999035
Part.ActiveView().RotateAboutCenter -0.0182265, 0.0408696
Part.ActiveView().RotateAboutCenter -0.0437437, 0.0227053
Part.ActiveView().RotateAboutCenter -0.0437437, 0.0317875
Part.ActiveView().RotateAboutCenter -0.12394, 0.0454107
Part.ActiveView().RotateAboutCenter -0.0218718, 0.0136232
Part.ActiveView().RotateAboutCenter -0.0291625, 0.0136232
Part.ActiveView().RotateAboutCenter 0.0218718, 0.00908213
Part.ActiveView().RotateAboutCenter 0.0911327, 0.0499517
Part.ActiveView().RotateAboutCenter 0.0437437, 0.0499517
Part.ActiveView().RotateAboutCenter 0.0291625, 0.0726571
Part.ActiveView().RotateAboutCenter 0.0692609, 0.149855
Part.ActiveView().RotateAboutCenter 0.0510343, 0.0726571
Part.ActiveView().RotateAboutCenter 0.0437437, 0.0635749
Part.ActiveView().RotateAboutCenter 0, 0.00454107
Part.AndSelectByID "", "EDGE", -0.02631491063289, -0.03382247206497, 0.01177670904227
Part.AndSelectByID "", "EDGE", 0.01942556323539, -0.03414187534025, 0.01051529382418
Part.FeatureFillet3 0.001, 1, 0, 0, 0, 0, 0, 0, 0
Part.ActiveView().RotateAboutCenter 0.0218718, 0
Part.ActiveView().RotateAboutCenter 0.0583249, 0.0590339
Part.ActiveView().RotateAboutCenter 0.0510343, 0.317875
Part.ActiveView().RotateAboutCenter 0.00729062, 0.336039
Part.ActiveView().RotateAboutCenter -0.00364531, 0.217971
Part.ActiveView().RotateAboutCenter -0.0145812, 0.199807
Part.ActiveView().RotateAboutCenter -0.0145812, 0.131691
Part.ActiveView().RotateAboutCenter 0, 0.0408696
Part.ActiveView().RotateAboutCenter 0, 0.00908213
Part.ActiveView().RotateAboutCenter -0.0328078, 0.104445
Part.ActiveView().RotateAboutCenter -0.0364531, 0.00908213
Part.ClearSelection
Part.SelectByID "Congé1", "BODYFEATURE", 0, 0, 0
Part.AndSelectByID "", "EDGE", 0.01947981912883, 0.0005840990909292, -0.01599469298012
Part.AndSelectByID "", "EDGE", 0.01942291184099, 0.02647956603261, -0.01714978024009
Part.DeSelectByID "", "EDGE", 0.01942291184099, 0.02647956603261, -0.01714978024009
Part.ClearSelection
Part.SelectByID "Congé1", "BODYFEATURE", 0, 0, 0
Part.SelectByID "Congé1", "BODYFEATURE", 0, 0, 0
Part.ActiveView().RotateAboutCenter 0.0874874, 0.00454107
Part.ActiveView().RotateAboutCenter 0.0874874, 0
Part.ActiveView().RotateAboutCenter 0.047389, -0.0181643
Part.ActiveView().RotateAboutCenter 0.0182265, -0.0181643
Part.ActiveView().RotateAboutCenter -0.0619702, -0.0181643
Part.ActiveView().RotateAboutCenter -0.0255172, 0.00908213
Part.ActiveView().RotateAboutCenter -0.00729062, 0.00454107
Part.ActiveView().RotateAboutCenter 0, 0.00908213
Part.ActiveView().RotateAboutCenter -0.0145812, 0.0499517
Part.ActiveView().RotateAboutCenter -0.0218718, 0.0953624
Part.ActiveView().RotateAboutCenter -0.00364531, 0.00908213
Part.SelectByID "Perçage4", "BODYFEATURE", 0, 0, 0
Part.ActiveView().RotateAboutCenter 0.00729062, 0
Part.ActiveView().RotateAboutCenter 0.0546796, -0.00908213
Part.ActiveView().RotateAboutCenter 0.0400984, -0.0408696
Part.ActiveView().RotateAboutCenter 0.0109359, -0.0136232
Part.ActiveView().RotateAboutCenter 0.00364531, -0.00454107
Part.ActiveView().RotateAboutCenter 0.00729062, 0
Part.ActiveView().RotateAboutCenter 0.185911, -0.163478
Part.ActiveView().RotateAboutCenter 0.12394, -0.136232
Part.ActiveView().RotateAboutCenter 0.0510343, -0.349662
Part.ActiveView().RotateAboutCenter 0.0182265, -0.563092
Part.ActiveView().RotateAboutCenter -0.0400984, -0.862803
Part.ActiveView().RotateAboutCenter -0.0838421, -0.690242
Part.ActiveView().RotateAboutCenter -0.0364531, -0.0908213
Part.ActiveView().RotateAboutCenter 0, -0.00454107
Part.SelectByID "Roulement_plastic_7_bis.SLDPRT", "COMPONENT", 0, 0, 0
Part.Save2 FALSE
Part.SaveAs2 "D:\I.S.I\Mini_stepper\Solid_works\Roulement_plastic_7.SLDPRT", 0, FALSE, FALSE
Part.SaveAs2 "G:\ISI\Mini_stepper\Solid_works\Roulement_plastic_7.SLDPRT", 0, FALSE, FALSE
Part.ActiveView().RotateAboutCenter 0.0874874, -0.0136232
Part.ActiveView().RotateAboutCenter 0.24059, -0.0771981
Part.ActiveView().RotateAboutCenter 0.189556, -0.236135
Part.ActiveView().RotateAboutCenter 0.0765515, -0.199807
Part.ActiveView().RotateAboutCenter 0.0437437, -0.399614
Part.ActiveView().RotateAboutCenter 0.0218718, -0.163478
Part.ActiveView().RotateAboutCenter 0.0692609, -0.158937
Part.ActiveView().RotateAboutCenter 0.0255172, -0.263382
Part.ActiveView().RotateAboutCenter 0, -0.181643
Part.ActiveView().RotateAboutCenter 0.0182265, -0.0817392
Part.ActiveView().RotateAboutCenter 0.0291625, -0.0726571
Part.ActiveView().RotateAboutCenter 0.00364531, -0.00454107
Part.SelectByID "", "FACE", -0.007951266215372, 0.01703246221905, -0.0008816833747107
Part.SelectByID "Enlèv. mat.-Extru.1", "BODYFEATURE", 0, 0, 0
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "Roulement_plastic_7"
Set Part = swApp.NewPart
Set Part = swApp.ActivateDoc ("Part1")
Part.SaveAs2 "G:\ISI\Mini_stepper\Solid_works\Axe_10.SLDPRT", 0, FALSE, FALSE
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Plan3", "PLANE", 0, 0, 0
Part.InsertSketch
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.CreateLine2( 0.092, 0, 0, -0.096, 0, 0 ).ConstructionGeometry = TRUE
Part.CreateLine2 -0.086, 0.006, 0, 0.077, 0.006, 0
Part.CreateLine2 0.077, 0.006, 0, -0.013, 0.006, 0
Part.ClearSelection
Part.EditUndo 1
Part.SelectByID "Line2", "SKETCHSEGMENT", -0.01872574468085, 0.006, 0
Part.SelectByID "Point5", "SKETCHPOINT", 0.077, 0.006, 0
Part.ClearSelection
Part.SelectByID "Line2", "SKETCHSEGMENT", -0.04250446808511, 0.008, 0
Part.AddDimension 0, 0.0468144, 0.0436934
Part.ClearSelection
Part.SelectByID "Line2", "SKETCHSEGMENT", -0.0647970212766, 0.008, 0
Part.AndSelectByID "Line1", "SKETCHSEGMENT", -0.06212191489362, 0, 0
Part.AddDimension 0, 0.0206578, 0.117407
Part.ClearSelection
Part.SelectByID "D1@Esquisse1@Axe_10.SLDPRT", "DIMENSION", 0, 0.04859776595745, 0.04101829787234
Part.Parameter("D1@Esquisse1").SystemValue = 0.075
Part.ViewZoomTo2 -0.118596, 0.0741599, -5.17856e-016, 0.00653915, -0.0206578, 1.44252e-016
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Part.ActiveView().TranslateBy 0, -0.000297234
Part.ActiveView().TranslateBy 0.000594468, -0.000891702
Part.ActiveView().TranslateBy 0, -0.000297234
Part.ActiveView().TranslateBy 0, -0.000297234
Part.ActiveView().TranslateBy 0, -0.000594468
Part.ActiveView().TranslateBy 0.000297234, -0.000297234
Part.ActiveView().TranslateBy 0, -0.000594468
Part.ActiveView().TranslateBy 0, -0.000297234
Part.ActiveView().TranslateBy 0.000297234, -0.000297234
Part.ActiveView().TranslateBy 0, -0.000297234
Part.ActiveView().TranslateBy 0, -0.000297234
Part.ActiveView().TranslateBy 0, -0.000297234
Part.ActiveView().TranslateBy 0, -0.000297234
Part.ActiveView().TranslateBy 0.000297234, -0.000297234
Part.ActiveView().TranslateBy 0.000297234, -0.000297234
Part.ActiveView().TranslateBy 0, -0.000594468
Part.ActiveView().TranslateBy 0.000297234, 0
Part.ActiveView().TranslateBy 0, -0.000297234
Part.ActiveView().TranslateBy 0.000297234, -0.000297234
Part.ActiveView().TranslateBy 0, -0.000297234
Part.ActiveView().TranslateBy 0, 0.000297234
Part.ActiveView().TranslateBy 0, 0.000594468
Part.ActiveView().TranslateBy 0, 0.000594468
Part.ActiveView().TranslateBy 0, 0.000297234
Part.ActiveView().TranslateBy 0, 0.000594468
Part.Create3PointArc -0.092, 0, 0, -0.086, 0.008, 0, -0.08717937709371, 0.002722379244002, 0
Part.ClearSelection
Part.EditUndo 1
Part.EditUndo 1
Part.EditUndo 1
Part.Create3PointArc -0.092, 0, 0, -0.086, 0.008, 0, -0.07945824852875, 0.009911016183794, 0
Part.ClearSelection
Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.09080029954616, 0.005044320112797, 0
Part.AddDimension 0, 0.03161, 0.113671
Part.ClearSelection
Part.SelectByID "D3@Esquisse1@Axe_10.SLDPRT", "DIMENSION", 0, 0.03107755828429, 0.1090115337257
Part.Parameter("D3@Esquisse1").SystemValue = 0.007
Part.SelectByID "D3@Esquisse1@Axe_10.SLDPRT", "DIMENSION", 0, 0.030944435378, 0.1086121650068
Part.Parameter("D3@Esquisse1").SystemValue = 0.008
Part.CreateLine2 -0.011, 0.008, 0, -0.011, 0.006, 0
Part.CreateLine2 -0.011, 0.006, 0, 0, 0.006, 0
Part.ClearSelection
Part.SelectByID "Line4", "SKETCHSEGMENT", -0.004110683567225, 0.006, 0
Part.AddDimension 0, 0.0442567, 0.00637377
Part.ClearSelection
Part.SelectByID "Line2", "SKETCHSEGMENT", -0.0132961641014, 0.008, 0
Part.AndSelectByID "Line4", "SKETCHSEGMENT", -0.008903108193753, 0.006, 0
Part.AddDimension 0, 0.024022, 0.0186211
Part.ClearSelection
Part.SelectByID "D4@Esquisse1@Axe_10.SLDPRT", "DIMENSION", 0, 0.04745167575826, 0.007838124943413
Part.Parameter("D4@Esquisse1").SystemValue = 0.0062
Part.ClearSelection
Part.SelectByID "Line4", "SKETCHSEGMENT", -0.007571879130828, 0.006, 0
Part.AndSelectByID "Line1", "SKETCHSEGMENT", -0.007838124943413, 0, 0
Part.AddDimension 0, -0.0103237, 0.0324659
Part.ClearSelection
' MSGBOX
' L'esquisse n'est plus sur-contrainte.

Part.SelectByID "D5@Esquisse1@Axe_10.SLDPRT", "DIMENSION", 0, 0.02335642971933, 0.01941981779086
Part.EditDelete
Part.SelectByID "Line4", "SKETCHSEGMENT", -0.009036231100045, 0.006, 0
Part.AndSelectByID "Line1", "SKETCHSEGMENT", -0.007971247849706, 0, 0
Part.AddDimension 0, 0.0201615, 0.0188873
Part.ClearSelection
Part.SelectByID "D5@Esquisse1@Axe_10.SLDPRT", "DIMENSION", 0, 0.01989523415573, 0.02101729266636
Part.Parameter("D5@Esquisse1").SystemValue = 0.0062
Part.SelectByID "D4@Esquisse1@Axe_10.SLDPRT", "DIMENSION", 0, 0.04758479866455, 0.008237493662291
Part.Parameter("D4@Esquisse1").SystemValue = 0.0045
Part.SelectByID "Point9", "SKETCHPOINT", -0.0065, 0.0062, 0
Part.CreateLine2( -0.006, -0.011, 0, -0.006, 0.058, 0 ).ConstructionGeometry = TRUE
Part.AndSelectByID "Line4", "SKETCHSEGMENT", -0.008503739474876, 0.0062, 0
Part.AndSelectByID "Point5", "SKETCHPOINT", -0.0105, 0.008, 0
Part.AndSelectByID "Line2", "SKETCHSEGMENT", -0.01489363897691, 0.008, 0
Part.AndSelectByID "Line3", "SKETCHSEGMENT", -0.0105, 0.007115435151652, 0
Part.AndSelectByID "Arc1", "SKETCHSEGMENT", -0.09124829689828, 0.003494428546447, 0
Part.SketchMirror
Part.ClearSelection
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.952381
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.961538
Part.ActiveView().ZoomByFactor 0.934579
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ViewZoomtofit2
Part.SelectByID "Line1", "SKETCHSEGMENT", -0.03342059385727, 0, 0
Part.AndSelectByID "Arc1", "SKETCHSEGMENT", -0.09153904872668, 0.002773549097836, 0
Part.AndSelectByID "Line2", "SKETCHSEGMENT", -0.07748052303667, 0.008, 0
Part.AndSelectByID "Line7", "SKETCHSEGMENT", 0.009137292281921, 0.008, 0
Part.AndSelectByID "Arc2", "SKETCHSEGMENT", 0.07858189827088, 0.004668029722713, 0
Part.AndSelectByID "Line4", "SKETCHSEGMENT", -0.003379733053136, 0.0062, 0
Part.ViewZoomTo2 -0.0201525, 0.0166156, -1.20779e-016, 0.00638355, -0.000157178, -3.65549e-018
Part.AndSelectByID "Line3", "SKETCHSEGMENT", -0.0105, 0.007114148557658, 0
Part.AndSelectByID "Line6", "SKETCHSEGMENT", -0.0015, 0.00717060833151, 0
Part.SketchMirror
Part.ClearSelection
Part.ViewZoomtofit2
Part.EditUndo 1
Part.Save2 FALSE
' MSGBOX
' Une esquisse devant être pivotée devrait avoir un contour unique fermé ne s'entrecroisant pas 
' Elle devrait aussi contenir une seule ligne de construction, ou une qui est sélectionnée.

Part.CreateLine2 -0.09198185175659, 0, 0, 0.07998185175659, 0, 0
' MSGBOX
' Une esquisse devant être pivotée devrait avoir un contour unique fermé ne s'entrecroisant pas 
' Elle devrait aussi contenir une seule ligne de construction, ou une qui est sélectionnée.

Part.EditRebuild
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Esquisse1", "SKETCH", 0, 0, 0
Part.EditSketch
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameState = 1
' MSGBOX
' Une esquisse devant être pivotée devrait avoir un contour unique fermé ne s'entrecroisant pas 
' Elle devrait aussi contenir une seule ligne de construction, ou une qui est sélectionnée.

Part.SelectByID "Line1", "SKETCHSEGMENT", 0.08609972205801, 0, 0
Part.EditDelete
' MSGBOX
' Le contour de la révolution ne peut pas croiser la ligne de construction ou la toucher à un point isolé.

Part.SelectByID "Line5", "SKETCHSEGMENT", -0.006, 0.05472559671904, 0
Part.EditDelete
Part.EditRebuild
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Esquisse1", "SKETCH", 0, 0, 0
Part.SelectByID "Esquisse1", "SKETCH", 0, 0, 0
Part.EditSketch
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewZoomTo2 -0.0153327, 0.0176977, 0.00116287, 0.00782822, -0.00707909, 0.00116287
Part.ActiveView().TranslateBy -0.00594468, -0.00891702
Part.ActiveView().TranslateBy -0.00237787, -0.00297234
Part.ActiveView().TranslateBy -0.00297234, -0.00237787
Part.ActiveView().TranslateBy -0.00237787, -0.0017834
Part.ActiveView().TranslateBy -0.00237787, -0.0017834
Part.ActiveView().TranslateBy -0.00237787, -0.0017834
Part.ActiveView().TranslateBy -0.00237787, -0.000594468
Part.ActiveView().TranslateBy -0.00237787, -0.000594468
Part.ActiveView().TranslateBy -0.00237787, -0.0017834
Part.ActiveView().TranslateBy -0.00237787, -0.000594468
Part.ActiveView().TranslateBy -0.00237787, -0.000594468
Part.ActiveView().TranslateBy -0.00237787, -0.000594468
Part.ActiveView().TranslateBy -0.00297234, -0.000594468
Part.ActiveView().TranslateBy -0.00237787, -0.000594468
Part.ActiveView().TranslateBy -0.0017834, -0.000594468
Part.ActiveView().TranslateBy -0.00237787, -0.000594468
Part.ActiveView().TranslateBy -0.00237787, -0.000594468
Part.ActiveView().TranslateBy -0.00356681, -0.0017834
Part.ActiveView().TranslateBy -0.00356681, -0.0017834
Part.ActiveView().TranslateBy -0.00475574, -0.0017834
Part.ActiveView().TranslateBy -0.00475574, -0.0017834
Part.ActiveView().TranslateBy -0.00416128, -0.00237787
Part.ActiveView().TranslateBy -0.00416128, -0.00237787
Part.ActiveView().TranslateBy -0.00475574, -0.00237787
Part.ActiveView().TranslateBy -0.00356681, -0.0017834
Part.ActiveView().TranslateBy -0.00416128, -0.0017834
Part.ActiveView().TranslateBy -0.00416128, -0.0017834
Part.ActiveView().TranslateBy -0.00535021, -0.0017834
Part.ActiveView().TranslateBy -0.00535021, -0.00237787
Part.ActiveView().TranslateBy -0.00416128, -0.00237787
Part.ActiveView().TranslateBy -0.00297234, -0.0017834
Part.ActiveView().TranslateBy -0.00237787, -0.000297234
Part.ActiveView().TranslateBy -0.000297234, -0.000297234
Part.ActiveView().TranslateBy -0.000594468, -0.00416128
Part.ActiveView().TranslateBy -0.000297234, -0.00416128
Part.ActiveView().TranslateBy -0.000594468, -0.00356681
Part.ActiveView().TranslateBy -0.0017834, -0.00297234
Part.ActiveView().TranslateBy -0.00237787, -0.00356681
Part.ActiveView().TranslateBy -0.00356681, -0.00297234
Part.ActiveView().TranslateBy -0.00356681, -0.00356681
Part.ActiveView().TranslateBy -0.00475574, -0.00356681
Part.ActiveView().TranslateBy -0.00535021, -0.00356681
Part.ActiveView().TranslateBy -0.00475574, -0.00356681
Part.ActiveView().TranslateBy -0.00535021, -0.00356681
Part.ActiveView().TranslateBy -0.00535021, -0.00297234
Part.ActiveView().TranslateBy -0.00416128, -0.00297234
Part.ActiveView().TranslateBy -0.00475574, -0.00297234
Part.ActiveView().TranslateBy -0.00356681, -0.00297234
Part.ActiveView().TranslateBy -0.00356681, -0.00237787
Part.ActiveView().TranslateBy -0.00297234, -0.0017834
Part.ActiveView().TranslateBy -0.00237787, -0.00237787
Part.ActiveView().TranslateBy -0.0017834, -0.000594468
Part.ActiveView().TranslateBy -0.000594468, -0.000594468
Part.ActiveView().TranslateBy 0, -0.00237787
Part.ActiveView().TranslateBy -0.000594468, -0.00297234
Part.ActiveView().TranslateBy -0.0017834, -0.00237787
Part.ActiveView().TranslateBy -0.00237787, -0.00237787
Part.ActiveView().TranslateBy -0.00237787, -0.00297234
Part.ActiveView().TranslateBy -0.00416128, -0.00297234
Part.ActiveView().TranslateBy -0.00416128, -0.00297234
Part.ActiveView().TranslateBy -0.00475574, -0.00297234
Part.ActiveView().TranslateBy -0.00535021, -0.00237787
Part.ActiveView().TranslateBy -0.00594468, -0.00237787
Part.ActiveView().TranslateBy -0.00653915, -0.0017834
Part.ActiveView().TranslateBy -0.00653915, -0.0017834
Part.ActiveView().TranslateBy -0.00535021, -0.000594468
Part.ActiveView().TranslateBy -0.00475574, -0.0017834
Part.ActiveView().TranslateBy -0.00356681, -0.000297234
Part.ActiveView().TranslateBy -0.00297234, -0.000594468
Part.ActiveView().TranslateBy -0.00237787, 0
Part.ActiveView().TranslateBy -0.000594468, -0.000297234
Part.ActiveView().TranslateBy -0.000297234, -0.000297234
Part.ActiveView().TranslateBy -0.00891702, -0.00713362
Part.ActiveView().TranslateBy -0.00475574, -0.00356681
Part.ActiveView().TranslateBy -0.00594468, -0.00356681
Part.ActiveView().TranslateBy -0.00594468, -0.00356681
Part.ActiveView().TranslateBy -0.00653915, -0.00356681
Part.ActiveView().TranslateBy -0.00713362, -0.00297234
Part.ActiveView().TranslateBy -0.00713362, -0.00297234
Part.ActiveView().TranslateBy -0.00713362, -0.00297234
Part.ActiveView().TranslateBy -0.00653915, -0.00237787
Part.ActiveView().TranslateBy -0.00594468, -0.0017834
Part.ActiveView().TranslateBy -0.00475574, -0.0017834
Part.ActiveView().TranslateBy -0.00297234, -0.0017834
Part.ActiveView().TranslateBy -0.0017834, -0.000297234
Part.ActiveView().TranslateBy -0.000297234, 0
Part.ActiveView().TranslateBy 0, -0.000297234
Part.ActiveView().TranslateBy -0.00356681, -0.00475574
Part.ActiveView().TranslateBy -0.00416128, -0.00475574
Part.ActiveView().TranslateBy -0.00416128, -0.00416128
Part.ActiveView().TranslateBy -0.00594468, -0.00356681
Part.ActiveView().TranslateBy -0.00594468, -0.00356681
Part.ActiveView().TranslateBy -0.00713362, -0.00297234
Part.ActiveView().TranslateBy -0.00713362, -0.00297234
Part.ActiveView().TranslateBy -0.00772809, -0.00297234
Part.ActiveView().TranslateBy -0.00653915, -0.00237787
Part.ActiveView().TranslateBy -0.00653915, -0.0017834
Part.ActiveView().TranslateBy -0.00475574, -0.000594468
Part.ActiveView().TranslateBy -0.00356681, -0.000297234
Part.ActiveView().TranslateBy -0.00237787, -0.000297234
Part.ActiveView().TranslateBy -0.000594468, 0
Part.ActiveView().TranslateBy 0.0017834, 0.0017834
Part.ActiveView().TranslateBy -0.00356681, -0.00535021
Part.ActiveView().TranslateBy -0.00356681, -0.00535021
Part.ActiveView().TranslateBy -0.00475574, -0.00594468
Part.ActiveView().TranslateBy -0.00653915, -0.00535021
Part.ActiveView().TranslateBy -0.00594468, -0.00475574
Part.ActiveView().TranslateBy -0.00535021, -0.00475574
Part.ActiveView().TranslateBy -0.00475574, -0.00416128
Part.ActiveView().TranslateBy -0.00416128, -0.00297234
Part.ActiveView().TranslateBy -0.00416128, -0.00237787
Part.ActiveView().TranslateBy -0.00416128, -0.0017834
Part.ActiveView().TranslateBy -0.00297234, -0.000594468
Part.ActiveView().TranslateBy -0.00297234, -0.0017834
Part.ActiveView().TranslateBy -0.00237787, -0.000594468
Part.ActiveView().TranslateBy -0.000594468, -0.000594468
Part.ActiveView().TranslateBy -0.000594468, -0.000297234
Part.ActiveView().TranslateBy -0.000594468, -0.000297234
Part.ActiveView().TranslateBy -0.000297234, 0
Part.ActiveView().TranslateBy 0.00237787, 0.000297234
Part.ActiveView().TranslateBy 0.00416128, 0.0017834
Part.ActiveView().TranslateBy 0.00594468, 0.00237787
Part.ActiveView().TranslateBy 0.00713362, 0.00416128
Part.ActiveView().TranslateBy 0.00653915, 0.00475574
Part.ActiveView().TranslateBy 0.00772809, 0.00653915
Part.ActiveView().TranslateBy 0.00713362, 0.00653915
Part.ActiveView().TranslateBy 0.00594468, 0.00594468
Part.ActiveView().TranslateBy 0.00416128, 0.00594468
Part.ActiveView().TranslateBy 0.00356681, 0.00475574
Part.ActiveView().TranslateBy 0.00237787, 0.00475574
Part.ActiveView().TranslateBy 0.000594468, 0.00416128
Part.ActiveView().TranslateBy 0.000297234, 0.00297234
Part.ActiveView().TranslateBy 0, 0.0017834
Part.ActiveView().TranslateBy 0, 0.000594468
Part.ActiveView().TranslateBy 0.00535021, 0.00594468
Part.ActiveView().TranslateBy 0.00713362, 0.00653915
Part.ActiveView().TranslateBy 0.00713362, 0.00653915
Part.ActiveView().TranslateBy 0.00772809, 0.00594468
Part.ActiveView().TranslateBy 0.00594468, 0.00475574
Part.ActiveView().TranslateBy 0.00653915, 0.00356681
Part.ActiveView().TranslateBy 0.00475574, 0.00297234
Part.ActiveView().TranslateBy 0.00594468, 0.00237787
Part.ActiveView().TranslateBy 0.00416128, 0.0017834
Part.ActiveView().TranslateBy 0.00237787, 0.000594468
Part.ActiveView().TranslateBy 0.000297234, 0.000297234
Part.ActiveView().TranslateBy 0.00445851, 0.00237787
Part.ActiveView().TranslateBy 0.00772809, 0.00475574
Part.ActiveView().TranslateBy 0.00951149, 0.00535021
Part.ActiveView().TranslateBy 0.0107004, 0.00594468
Part.ActiveView().TranslateBy 0.0107004, 0.00713362
Part.ActiveView().TranslateBy 0.00891702, 0.00653915
Part.ActiveView().TranslateBy 0.00772809, 0.00594468
Part.ActiveView().TranslateBy 0.00475574, 0.00535021
Part.ActiveView().TranslateBy 0.00297234, 0.00297234
Part.ActiveView().TranslateBy 0.000297234, 0.000594468
Part.ActiveView().TranslateBy 0.00832255, 0.0124838
Part.ActiveView().TranslateBy 0.00772809, 0.00772809
Part.ActiveView().TranslateBy 0.010106, 0.00772809
Part.ActiveView().TranslateBy 0.010106, 0.00713362
Part.ActiveView().TranslateBy 0.00891702, 0.00594468
Part.ActiveView().TranslateBy 0.00832255, 0.00475574
Part.ActiveView().TranslateBy 0.00535021, 0.00297234
Part.ActiveView().TranslateBy 0.00356681, 0.0017834
Part.ActiveView().TranslateBy 0.000297234, 0
Part.ActiveView().TranslateBy 0.00475574, 0.00416128
Part.ActiveView().TranslateBy 0.00713362, 0.00594468
Part.ActiveView().TranslateBy 0.0112949, 0.00772809
Part.ActiveView().TranslateBy 0.0107004, 0.00772809
Part.ActiveView().TranslateBy 0.0112949, 0.00772809
Part.ActiveView().TranslateBy 0.00951149, 0.00713362
Part.ActiveView().TranslateBy 0.00713362, 0.00535021
Part.ActiveView().TranslateBy 0.00416128, 0.00416128
Part.ActiveView().TranslateBy 0.000297234, 0.000594468
Part.ActiveView().TranslateBy 0.00832255, 0.00713362
Part.ActiveView().TranslateBy 0.00891702, 0.00713362
Part.ActiveView().TranslateBy 0.00951149, 0.00653915
Part.ActiveView().TranslateBy 0.00891702, 0.00653915
Part.ActiveView().TranslateBy 0.00832255, 0.00535021
Part.ActiveView().TranslateBy 0.00594468, 0.00356681
Part.ActiveView().TranslateBy 0.00356681, 0.00237787
Part.ActiveView().TranslateBy 0.000594468, 0.000297234
Part.ActiveView().TranslateBy 0.00772809, 0.00475574
Part.ActiveView().TranslateBy 0.00891702, 0.00475574
Part.ActiveView().TranslateBy 0.00951149, 0.00475574
Part.ActiveView().TranslateBy 0.00891702, 0.00475574
Part.ActiveView().TranslateBy 0.00772809, 0.00416128
Part.ActiveView().TranslateBy 0.00535021, 0.00297234
Part.ActiveView().TranslateBy 0.00356681, 0.0017834
Part.ActiveView().TranslateBy 0.000297234, 0.000297234
Part.ActiveView().TranslateBy 0.00416128, 0.00297234
Part.ActiveView().TranslateBy 0.00653915, 0.00416128
Part.ActiveView().TranslateBy 0.00891702, 0.00475574
Part.ActiveView().TranslateBy 0.00891702, 0.00535021
Part.ActiveView().TranslateBy 0.00832255, 0.00594468
Part.ActiveView().TranslateBy 0.00653915, 0.00475574
Part.ActiveView().TranslateBy 0.00475574, 0.00297234
Part.ActiveView().TranslateBy 0.00237787, 0.00237787
Part.ActiveView().TranslateBy 0.000297234, 0.000297234
Part.ActiveView().TranslateBy 0, -0.000297234
Part.ActiveView().TranslateBy 0.00535021, 0.00475574
Part.ActiveView().TranslateBy 0.00713362, 0.00535021
Part.ActiveView().TranslateBy 0.00772809, 0.00594468
Part.ActiveView().TranslateBy 0.00713362, 0.00535021
Part.ActiveView().TranslateBy 0.00713362, 0.00535021
Part.ActiveView().TranslateBy 0.00535021, 0.00297234
Part.ActiveView().TranslateBy 0.00356681, 0.00237787
Part.ActiveView().TranslateBy 0.000297234, 0
Part.ActiveView().TranslateBy 0.00951149, 0.0118894
Part.ActiveView().TranslateBy 0.00713362, 0.00653915
Part.ActiveView().TranslateBy 0.00713362, 0.00653915
Part.ActiveView().TranslateBy 0.00772809, 0.00594468
Part.ActiveView().TranslateBy 0.00653915, 0.00475574
Part.ActiveView().TranslateBy 0.00475574, 0.00356681
Part.ActiveView().TranslateBy 0.0017834, 0.000594468
Part.ActiveView().TranslateBy 0.0118894, 0.0130783
Part.ActiveView().TranslateBy 0.00653915, 0.00772809
Part.ActiveView().TranslateBy 0.00653915, 0.00653915
Part.ActiveView().TranslateBy 0.00713362, 0.00594468
Part.ActiveView().TranslateBy 0.00475574, 0.00356681
Part.ActiveView().TranslateBy 0.00237787, 0.00237787
Part.ActiveView().TranslateBy 0, 0.000297234
Part.ActiveView().TranslateBy 0.00356681, 0.00416128
Part.ActiveView().TranslateBy 0.00653915, 0.00535021
Part.ActiveView().TranslateBy 0.00891702, 0.00594468
Part.ActiveView().TranslateBy 0.010106, 0.00594468
Part.ActiveView().TranslateBy 0.00951149, 0.00535021
Part.ActiveView().TranslateBy 0.00891702, 0.00475574
Part.ActiveView().TranslateBy 0.00713362, 0.00297234
Part.ActiveView().TranslateBy 0.00475574, 0.00237787
Part.ActiveView().TranslateBy 0.00535021, 0.00356681
Part.ActiveView().TranslateBy 0.00832255, 0.00475574
Part.ActiveView().TranslateBy 0.010106, 0.00594468
Part.ActiveView().TranslateBy 0.010106, 0.00535021
Part.ActiveView().TranslateBy 0.010106, 0.00594468
Part.ActiveView().TranslateBy 0.00951149, 0.00475574
Part.ActiveView().TranslateBy 0.00713362, 0.00356681
Part.ActiveView().TranslateBy 0.00475574, 0.00237787
Part.ActiveView().TranslateBy 0.000594468, 0.000594468
Part.ActiveView().TranslateBy 0.00475574, 0.00594468
Part.ActiveView().TranslateBy 0.00713362, 0.00594468
Part.ActiveView().TranslateBy 0.00951149, 0.00713362
Part.ActiveView().TranslateBy 0.00951149, 0.00713362
Part.ActiveView().TranslateBy 0.00832255, 0.00594468
Part.ActiveView().TranslateBy 0.00713362, 0.00535021
Part.ActiveView().TranslateBy 0.00653915, 0.00416128
Part.ActiveView().TranslateBy 0.00416128, 0.00297234
Part.ActiveView().TranslateBy 0.000594468, 0.000594468
Part.ActiveView().TranslateBy 0.010106, 0.00356681
Part.ActiveView().TranslateBy 0.0112949, 0.00416128
Part.ActiveView().TranslateBy 0.0107004, 0.00475574
Part.ActiveView().TranslateBy 0.00891702, 0.00356681
Part.ActiveView().TranslateBy 0.00772809, 0.00416128
Part.ActiveView().TranslateBy 0.00475574, 0.00297234
Part.ActiveView().TranslateBy 0.00297234, 0.0017834
Part.ActiveView().TranslateBy 0.000297234, 0.000297234
Part.ActiveView().TranslateBy 0, 0.000297234
Part.ActiveView().TranslateBy 0.0017834, 0.00416128
Part.ActiveView().TranslateBy 0.00535021, 0.00653915
Part.ActiveView().TranslateBy 0.00713362, 0.00713362
Part.ActiveView().TranslateBy 0.00891702, 0.00772809
Part.ActiveView().TranslateBy 0.00772809, 0.00772809
Part.ActiveView().TranslateBy 0.00713362, 0.00653915
Part.ActiveView().TranslateBy 0.00535021, 0.00535021
Part.ActiveView().TranslateBy 0.00475574, 0.00356681
Part.ActiveView().TranslateBy 0.00237787, 0.000594468
Part.ActiveView().TranslateBy 0, 0.000297234
Part.ActiveView().TranslateBy 0.0136728, 0.0130783
Part.ActiveView().TranslateBy 0.00535021, 0.00535021
Part.ActiveView().TranslateBy 0.00416128, 0.00356681
Part.ActiveView().TranslateBy 0.00237787, 0.00237787
Part.ActiveView().TranslateBy 0.000594468, 0.000594468
Part.ActiveView().TranslateBy -0.00237787, 0
Part.ActiveView().TranslateBy -0.000594468, 0
Part.ActiveView().TranslateBy -0.000594468, 0
Part.ActiveView().TranslateBy -0.000594468, -0.000594468
Part.ActiveView().TranslateBy -0.000297234, -0.000297234
Part.ActiveView().TranslateBy -0.000297234, 0
Part.ActiveView().TranslateBy -0.000297234, -0.000297234
Part.ActiveView().TranslateBy -0.000297234, -0.000297234
Part.ActiveView().TranslateBy -0.000594468, -0.000297234
Part.ActiveView().TranslateBy -0.0017834, -0.000594468
Part.ActiveView().TranslateBy -0.0017834, -0.000594468
Part.ActiveView().TranslateBy -0.00297234, -0.000297234
Part.ActiveView().TranslateBy -0.00297234, -0.000594468
Part.ActiveView().TranslateBy -0.00297234, -0.000594468
Part.ActiveView().TranslateBy -0.00297234, -0.000594468
Part.ActiveView().TranslateBy -0.00237787, -0.000594468
Part.ActiveView().TranslateBy -0.00297234, -0.000594468
Part.ActiveView().TranslateBy -0.00297234, -0.000297234
Part.ActiveView().TranslateBy -0.00356681, -0.000594468
Part.ActiveView().TranslateBy -0.00356681, -0.000297234
Part.ActiveView().TranslateBy -0.00237787, -0.000594468
Part.ActiveView().TranslateBy -0.00297234, -0.000297234
Part.ActiveView().TranslateBy -0.00297234, -0.000594468
Part.ActiveView().TranslateBy -0.00297234, 0
Part.ActiveView().TranslateBy -0.00297234, -0.000297234
Part.ActiveView().TranslateBy -0.00297234, 0
Part.ActiveView().TranslateBy -0.00297234, 0
Part.ActiveView().TranslateBy -0.00356681, -0.000297234
Part.ActiveView().TranslateBy -0.00237787, 0
Part.ActiveView().TranslateBy -0.0017834, -0.00297234
Part.ActiveView().TranslateBy -0.00237787, -0.00297234
Part.ActiveView().TranslateBy -0.00237787, -0.00237787
Part.ActiveView().TranslateBy -0.00297234, -0.00297234
Part.ActiveView().TranslateBy -0.00297234, -0.00237787
Part.ActiveView().TranslateBy -0.00356681, -0.00237787
Part.ActiveView().TranslateBy -0.00356681, -0.0017834
Part.ActiveView().TranslateBy -0.00416128, -0.0017834
Part.ActiveView().TranslateBy -0.00356681, -0.00237787
Part.ActiveView().TranslateBy -0.00416128, -0.000594468
Part.ActiveView().TranslateBy -0.00416128, -0.000594468
Part.ActiveView().TranslateBy -0.00356681, -0.000594468
Part.ActiveView().TranslateBy -0.00356681, 0
Part.ActiveView().TranslateBy -0.0017834, -0.00356681
Part.ActiveView().TranslateBy -0.000594468, -0.0017834
Part.ActiveView().TranslateBy -0.000594468, -0.000594468
Part.ActiveView().TranslateBy -0.000297234, -0.000297234
Part.ActiveView().TranslateBy -0.000297234, 0.000297234
Part.ActiveView().TranslateBy 0, 0.00237787
Part.SelectByID "Arc2", "SKETCHSEGMENT", 0.0776222388056, 0.005819696822713, 0
Part.ViewZoomTo2 -0.0974888, 0.00397456, -0.0211988, -0.0893157, -0.00513255, -0.0211988
Part.ViewZoomtofit2
Part.SelectByID "Line9", "SKETCHSEGMENT", 0.02650735080698, 0, 0
Part.ClearSelection
Part.SelectByID "D4@Esquisse1@Axe_10.SLDPRT", "DIMENSION", 0, 0, 0
Part.AndSelectByID "D3@Esquisse1@Axe_10.SLDPRT", "DIMENSION", 0, 0, 0
Part.AndSelectByID "D1@Esquisse1@Axe_10.SLDPRT", "DIMENSION", 0, 0, 0
Part.AndSelectByID "Point17", "SKETCHPOINT", 0, 0, 0
Part.AndSelectByID "Line2", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line3", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line4", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line6", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line7", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line9", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Arc1", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Arc2", "SKETCHSEGMENT", 0, 0, 0
Part.ClearSelection
Part.SelectByID "Line9", "SKETCHSEGMENT", -0.05929107737057, 0, 0
Part.EditDelete
Part.EditRebuild
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Esquisse1", "SKETCH", 0, 0, 0
Part.SelectByID "Point1@Origine", "EXTSKETCHPOINT", 0, 0, 0
Part.EditDelete
' MSGBOX
' Aucune de ses entités ne peut être supprimée.

Part.ClearSelection
Part.SelectByID "Esquisse1", "SKETCH", 0, 0, 0
Part.EditSketch
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Line2", "SKETCHSEGMENT", -0.04828013935237, 0.008, 0
Part.ClearSelection
Part.CreateLine2( -0.1, 0, 0, 0.084, 0, 0 ).ConstructionGeometry = TRUE
' MSGBOX
' L'esquisse est actuellement ouverte. Une fonction de révolution non-mince demande une esquisse fermée. Voulez-vous que l'esquisse soit automatiquement fermée ?

Part.FeatureRevolve 6.28318530718, 0, 0.000314159265359, 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewZoomTo2 -0.0216581, 0.014736, -0.00877919, 0.0142566, -0.0243409, -0.00877919
Part.AndSelectByID "", "FACE", 0.004422761480953, 0.004345017938135, 0.006243322589967
Part.FeatureFillet3 0.002, 1, 0, 0, 0, 0, 0, 0, 0
Part.ActiveView().RotateAboutCenter 0.00735266, -0.00454107
Part.ActiveView().RotateAboutCenter 0.044116, -0.068116
Part.ActiveView().RotateAboutCenter 0.0367633, -0.0953624
Part.ActiveView().RotateAboutCenter 0.022058, -0.0544928
Part.ActiveView().RotateAboutCenter 0.0183817, -0.0544928
Part.ActiveView().RotateAboutCenter 0.0183817, -0.0862803
Part.ActiveView().RotateAboutCenter 0.0294107, -0.113527
Part.ActiveView().RotateAboutCenter 0.0294107, -0.0499517
Part.ActiveView().RotateAboutCenter 0.0294107, -0.0544928
Part.ActiveView().RotateAboutCenter 0.0257343, -0.0726571
Part.ActiveView().RotateAboutCenter 0.0147053, -0.0454107
Part.ActiveView().RotateAboutCenter 0.011029, -0.0408696
Part.ActiveView().RotateAboutCenter 0.00735266, -0.0317875
Part.ActiveView().RotateAboutCenter 0.00735266, -0.00454107
Part.ActiveView().RotateAboutCenter 0.00367633, -0.00454107
Part.ActiveView().RotateAboutCenter 0.00367633, 0
Part.ActiveView().RotateAboutCenter 0.00735266, 0.140773
Part.ActiveView().RotateAboutCenter 0, 0.0544928
Part.ActiveView().RotateAboutCenter -0.0147053, 0.217971
Part.ActiveView().RotateAboutCenter -0.0294107, 0.113527
Part.ActiveView().RotateAboutCenter -0.0294107, 0.0862803
Part.ActiveView().RotateAboutCenter -0.0257343, 0.140773
Part.ActiveView().RotateAboutCenter -0.00735266, 0.0771981
Part.ActiveView().RotateAboutCenter 0, 0.00454107
Part.ViewZoomtofit2
Part.SelectByID "Base-Révolution", "BODYFEATURE", 0, 0, 0
Part.SelectByID "Congé1", "BODYFEATURE", 0, 0, 0
Part.SelectByID "Axe_10.SLDPRT", "COMPONENT", 0, 0, 0
Part.SelectByID "Axe_10.SLDPRT", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.SelectByID "Axe_10.SLDPRT", "COMPONENT", 0, 0, 0
Part.DimPreferences
Part.SelectByID "Inconnu", "BROWSERITEM", 0, 0, 0
Part.AddLightSource "SW#2", 2, "Spot 1"
Part.SetLightSourcePropertyValuesVB "SW#2", 2, 1, 16777215, 1, 0, 0, 1, 0, 0, -1, 45, 1, 0, 0, 0, 0, 0, 0
Part.LockLightToModel 2, False
Part.GraphicsRedraw
Part.ActiveView().RotateAboutCenter 0.0294107, 0
Part.ActiveView().RotateAboutCenter 0.198522, 0.0227053
Part.ActiveView().RotateAboutCenter 0.198522, 0.0999035
Part.ActiveView().RotateAboutCenter 0.124995, 0.0771981
Part.ActiveView().RotateAboutCenter 0.0404397, 0.0635749
Part.ActiveView().RotateAboutCenter 0.0955846, 0.217971
Part.ActiveView().RotateAboutCenter 0.0404397, 0.227053
Part.ActiveView().RotateAboutCenter 0.0183817, 0.2543
Part.ActiveView().RotateAboutCenter 0.00735266, 0.290628
Part.ActiveView().RotateAboutCenter 0, 0.163478
Part.ActiveView().RotateAboutCenter -0.066174, 0.227053
Part.ActiveView().RotateAboutCenter -0.169111, 0.245218
Part.ActiveView().RotateAboutCenter -0.132348, 0.12715
Part.ActiveView().RotateAboutCenter -0.088232, 0.172561
Part.ActiveView().RotateAboutCenter -0.0183817, 0.208889
Part.ActiveView().RotateAboutCenter -0.011029, 0.154396
Part.ActiveView().RotateAboutCenter -0.0183817, 0.113527
Part.ActiveView().RotateAboutCenter -0.011029, 0.0862803
Part.ActiveView().RotateAboutCenter 0.00735266, 0.0363285
Part.ActiveView().RotateAboutCenter 0.169111, 0.181643
Part.ActiveView().RotateAboutCenter 0.0147053, 0.0136232
Part.ActiveView().RotateAboutCenter 0.0257343, -0.00454107
Part.ActiveView().RotateAboutCenter 0.011029, -0.00454107
Part.Save2 FALSE
Part.SelectByID "Point1@Origine", "EXTSKETCHPOINT", 0, 0, 0
Part.BlankSketch
Part.SaveAs2 "D:\I.S.I\Mini_stepper\Solid_works\Axe_10.SLDPRT", 0, FALSE, FALSE
Part.SaveAs2 "D:\I.S.I\Mini_stepper\Solid_works\Axe_10_bis.SLDPRT", 0, FALSE, FALSE
Set Part = Nothing
swApp.CloseDoc "Axe_10_bis"
Set Part = swApp.NewAssembly
Set Part = swApp.ActivateDoc ("Assem1")
Set Part = Nothing
swApp.CloseDoc "Assem1"
Set Part = swApp.NewPart
Set Part = swApp.ActivateDoc ("Part2")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Plan1", "PLANE", 0, 0, 0
Part.InsertSketch
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.CreateCircle 0, 0, 0, 0.002972340425532, -0.009362872340426, 0
Part.SketchRectangle -0.019, 0.019, 0, 0.018, -0.019, 0, 1
Part.EditDelete
Part.CreateLine2 -0.025, 0, 0, -0.025, 0.025, 0
Part.CreateLine2 -0.025, 0.025, 0, 0, 0.025, 0
Part.ClearSelection
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.006930387061135, -0.006478405296279, 0
Part.AddDimension 0.0422072, -0.0263052, 0
Part.ClearSelection
Part.SelectByID "Line6", "SKETCHSEGMENT", -0.01545617021277, 0.025, 0
Part.AddDimension -0.0148617, 0.0509756, 0
Part.ClearSelection
Part.SelectByID "Line5", "SKETCHSEGMENT", -0.025, 0.009957340425532, 0
Part.AddDimension -0.0448823, 0.0102546, 0
Part.ClearSelection
Part.ClearSelection
Part.AndSelectByID "Line5", "SKETCHSEGMENT", -0.025, 0.01560478723404, 0
Part.AndSelectByID "Line6", "SKETCHSEGMENT", -0.01961744680851, 0.025, 0
Part.ClearSelection 
Part.SelectByMark "Line5", "SKETCHSEGMENT", -0.025, 0.01560478723404, 0, 1
Part.AndSelectByMark "Line6", "SKETCHSEGMENT", -0.01961744680851, 0.025, 0, 1
Part.SketchFillet2 0.005, 1
Part.ClearSelection
Part.SelectByID "D4@Esquisse1@Part2.SLDPRT", "DIMENSION", -0.02645382978723, 0.02868308510638, 0
Part.SelectByID "D4@Esquisse1@Part2.SLDPRT", "DIMENSION", -0.04161276595745, 0.03760010638298, 0
Part.SelectByID "D1@Esquisse1@Part2.SLDPRT", "DIMENSION", 0.04280170212766, -0.02452180851064, 0
Part.Parameter("D1@Esquisse1").SystemValue = 0.0235
Part.SelectByID "D2@Esquisse1@Part2.SLDPRT", "DIMENSION", -0.01456446808511, 0.05216457446809, 0
Part.Parameter("D2@Esquisse1").SystemValue = 0.01125
Part.SelectByID "D1@Esquisse1@Part2.SLDPRT", "DIMENSION", 0.0463685106383, -0.02779138297872, 0
Part.Parameter("D1@Esquisse1").SystemValue = 0.0135
Part.SelectByID "D3@Esquisse1@Part2.SLDPRT", "DIMENSION", -0.0469629787234, 0.009660106382979, 0
Part.Parameter("D3@Esquisse1").SystemValue = 0.01125
Part.AndSelectByID "Point10", "SKETCHPOINT", -0.01375, 0.025, 0
Part.AndSelectByID "Arc1", "SKETCHSEGMENT", 0.0003288772375655, -0.006741983370093, 0
Part.SketchAddConstraints "sgCOINCIDENT"
Part.ClearSelection
Part.SelectByID "Line6", "SKETCHSEGMENT", -0.01723957446809, 0.025, 0
Part.SelectByID "Line6", "SKETCHSEGMENT", -0.01753680851064, 0.017, 0
Part.SelectByID "Line5", "SKETCHSEGMENT", -0.025, 0.004904361702128, 0
Part.ViewZoomtofit2
Part.SelectByID "Line5", "SKETCHSEGMENT", -0.013, 0.004651446937637, 0
Part.SelectByID "Line5", "SKETCHSEGMENT", -0.013, 0.004651446937637, 0
Part.SelectByID "Line6", "SKETCHSEGMENT", -0.003558798881894, 0.013, 0
Part.CreateLine2( 0.018, 0, 0, -0.021, 0, 0 ).ConstructionGeometry = TRUE
Part.CreateLine2( 0, -0.011, 0, 0, 0.02, 0 ).ConstructionGeometry = TRUE
Part.AndSelectByID "Point10", "SKETCHPOINT", 0.00025, 0.011, 0
Part.DeSelectByID "Line8", "SKETCHSEGMENT", 0, 0.008937600737823, 0
Part.AndSelectByID "Line8", "SKETCHSEGMENT", 0, 0.009597009014775, 0
Part.SketchAddConstraints "sgCOINCIDENT"
Part.ClearSelection
Part.AndSelectByID "Point8", "SKETCHPOINT", -0.01125, -0.00025, 0
Part.AndSelectByID "Line7", "SKETCHSEGMENT", -0.009713276133443, 0, 0
Part.SketchAddConstraints "sgCOINCIDENT"
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, -0.002679587845959, -0.00589908549359
Part.SetPickMode
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 0, 0.003364988026098, -0.006118888252574
Part.SetPickMode
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 0, 0.005453114236445, 0.002893024865766
Part.SelectByID "Line7", "SKETCHSEGMENT", 0.01358581631885, 0, 0
Part.AndSelectByID "Arc1", "SKETCHSEGMENT", -0.006282742435371, 0.002467721112846, 0
Part.AndSelectByID "Line5", "SKETCHSEGMENT", -0.01125, 0.002343517968306, 0
Part.AndSelectByID "Arc2", "SKETCHSEGMENT", -0.009396098484167, 0.01013613745613, 0
Part.AndSelectByID "Line6", "SKETCHSEGMENT", -0.00443800991783, 0.01125, 0
Part.SketchMirror
Part.ClearSelection
Part.SelectByID "Line8", "SKETCHSEGMENT", 0, -0.008426817221905, 0
Part.AndSelectByID "Line9", "SKETCHSEGMENT", -0.00333899612291, -0.01125, 0
Part.AndSelectByID "Arc3", "SKETCHSEGMENT", -0.008996704046344, -0.01042799196766, 0
Part.AndSelectByID "Line5", "SKETCHSEGMENT", -0.01125, -0.004690170319178, 0
Part.AndSelectByID "Arc2", "SKETCHSEGMENT", -0.01085914214861, 0.008187990880748, 0
Part.AndSelectByID "Line6", "SKETCHSEGMENT", -0.003558798881894, 0.01125, 0
Part.AndSelectByID "Arc1", "SKETCHSEGMENT", -0.002641954293444, 0.006211487544168, 0
Part.SketchMirror
Part.ClearSelection
Part.SelectByID "D4@Esquisse1@Part2.SLDPRT", "DIMENSION", -0.0266380885752, 0.02344458283076, 0
Part.Parameter("D4@Esquisse1").SystemValue = 0.007
Part.FeatureExtrusion 1, 0, 0, 0, 0, 0.0245, 0.001, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.AndSelectByID "", "EDGE", 0.002350805249591, 0.01122576813941, 0.02453426902576
Part.AndSelectByID "", "EDGE", 0.002196225234684, 0.01102780282838, 0.0003142342536648
Part.FeatureFillet3 0.002, 1, 0, 0, 0, 0, 0, 0, 0
Part.ViewZoomtofit2
Part.AndSelectByID "", "EDGE", 0.002254588227572, -0.006340440280439, 0.02447951272865
Part.ActiveView().RotateAboutCenter 0.0588213, -0.0181643
Part.ActiveView().RotateAboutCenter 0.11029, -0.145314
Part.ActiveView().RotateAboutCenter 0.183817, -0.272464
Part.ActiveView().RotateAboutCenter 0.176464, -0.290628
Part.ActiveView().RotateAboutCenter 0.169111, -0.345121
Part.ActiveView().RotateAboutCenter 0.088232, -0.263382
Part.ActiveView().RotateAboutCenter 0.0257343, -0.181643
Part.ActiveView().RotateAboutCenter 0.011029, -0.0953624
Part.ActiveView().RotateAboutCenter 0, -0.00454107
Part.AndSelectByID "", "EDGE", -0.006442942751306, 0.001939970075789, 6.064784713544e-006
Part.FeatureChamferType 1, 0.001, 0.7853981633975, 0, 0, 0, 0, 0
Part.SelectByID "Chanfrein1", "BODYFEATURE", 0, 0, 0
Part.SelectByID "Congé1", "BODYFEATURE", 0, 0, 0
Part.SelectByID "Base-Extrusion", "BODYFEATURE", 0, 0, 0
Part.ShowNamedView2 "*Isométrique", 7
Part.SelectByID "Part2.SLDPRT", "COMPONENT", 0, 0, 0
Part.SelectByID "Point1@Origine", "EXTSKETCHPOINT", 0, 0, 0
Part.BlankSketch
Part.SelectByID "Part2.SLDPRT", "COMPONENT", 0, 0, 0
Part.ShowNamedView2 "*Isométrique", 7
Part.SelectByID "Part2.SLDPRT", "COMPONENT", 0, 0, 0
Part.DimPreferences
Part.SaveAs2 "D:\I.S.I\Mini_stepper\Solid_works\Entretoise_11.SLDPRT", 0, FALSE, FALSE
Part.SaveAs2 "D:\I.S.I\Mini_stepper\Solid_works\Entretoise_11_bis.SLDPRT", 0, FALSE, FALSE
Part.SaveAs2 "G:\ISI\Mini_stepper\Solid_works\Entretoise_11.SLDPRT", 0, FALSE, FALSE
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "Entretoise_11"
Set Part = swApp.NewPart
Set Part = swApp.ActivateDoc ("Part3")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub
