' ****************************************************************************** ' swxJRNL.swj - journal recorded on 06/17/05 by jdecew ' ***************************************************************************** Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Dim FeatureData As Object Dim Feature As Object Dim Component As Object Sub main() Set swApp = Application.SldWorks Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jdecew\Desktop\Stuff\Glider MK II\fin.SLDPRT", 1, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("fin.SLDPRT") Part.WindowRedraw Part.WindowRedraw Part.EditRebuild swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 ' MSGBOX ' Save changes to fin.SLDPRT? Set Part = Nothing swApp.CloseDoc "fin.SLDPRT" Part.WindowRedraw Part.WindowRedraw swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\data\templates\English Part.prtdot", 0, 0.000000, 0.000000) Set Part = swApp.ActivateDoc ("Part1") Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, False, 0, Nothing) Part.WindowRedraw Part.InsertSketch2 True Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle 0, 0, 0, 0.1241297213622, -0.008073477812178, 0, 1 Part.ViewZoomtofit2 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0, 0, 0, 0.1099750391895, 0, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.1099750391895, 0, 0, 0.1099750391895, -0.01056276151279, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.1099750391895, -0.01056276151279, 0, 0, -0.01056276151279, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0, -0.01056276151279, 0, 0, 0, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.1099750391895, 0, 0, 0.1221739518605, 0, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.1221739518605, 0, 0, 0.1221739518605, -0.05343322604216, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.1221739518605, -0.05343322604216, 0, 0.1099750391895, -0.05343322604216, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.1099750391895, -0.05343322604216, 0, 0.1099750391895, -0.01056276151279, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", 0.1113692006376, 0, 0.03809745011296, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.1099750391895, -0.05343322604216, 0, 0.1099750391895, -0.04297701518134, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.1099750391895, -0.04297701518134, 0, 0.1099750391895, -0.01056276151279, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.1099750391895, -0.04297701518134, 0, 0, -0.04297701518134, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0, -0.04297701518134, 0, 0, -0.05343322604216, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0, -0.05343322604216, 0, 0.1099750391895, -0.05343322604216, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0, -0.05343322604216, 0, -0.01236262788207, -0.05343322604216, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.01236262788207, -0.05343322604216, 0, -0.01236262788207, 0, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.01236262788207, 0, 0, 0, 0, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0, -0.01056276151279, 0, 0, -0.04297701518134, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0.04026696678406, 0, 0.001500712100083, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(0.0437524, 0, -0.0312621) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part1.SLDPRT", "DIMENSION", 0.04444945112839, 0, -0.03161062229252, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D1@Sketch1").SystemValue = 0.3048 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.EditUndo 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part1.SLDPRT", "DIMENSION", 0.04305528968028, 0, -0.0326562433786, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line20", "SKETCHSEGMENT", -0.006088901365575, 0, -0.0005905300720811, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(-0.00364912, 0, -0.0465979) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0.1179914675162, 0, 0.0001065506519736, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(0.117294, 0, -0.0420668) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part1.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part1.SLDPRT", "DIMENSION", -0.001906417021247, 0, -0.04729493858375, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D1@Sketch1").SystemValue = 0.00635 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT", "DIMENSION", 0.1204312500504, 0, -0.04241537351536, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D2@Sketch1").SystemValue = 0.00635 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT", "DIMENSION", 0.1179914675162, 0, -0.04241537351536, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", -0.0008607959351649, 0, 0.004637575358329, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0.0005333655129445, 0, 0.005334656082384, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line20", "SKETCHSEGMENT", -0.003649118831384, 0, 0.0008036313760283, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0.0008819058749719, 0, 0.04959928205986, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0.1193856289643, 0, 0.000455091014001, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part1.SLDPRT", "DIMENSION", -0.00155787665922, 0, -0.04659785785969, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", -0.006437441727603, 0, 0.006380277168466, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0.1232195729466, 0, 0.01997335128753, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(0.0664075, 0, -0.0511289) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT", "DIMENSION", 0.06640749393612, 0, -0.05112888256605, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D2@Sketch1").SystemValue = 0.3175 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewZoomtofit2 Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", -0.006185683981195, 0, 0.03043211434816, False, 0, Nothing) Set Annotation = Part.AddDimension2(-0.022646, 0, 0.0293348) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT", "DIMENSION", 0.06640749393612, 0, -0.05112888256605, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D3@Sketch1@Part1.SLDPRT", "DIMENSION", -0.02191438481825, 0, 0.02970054686737, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D3@Sketch1").SystemValue = 0.127 boolstatus = Part.Extension.SelectByID("D3@Sketch1@Part1.SLDPRT", "DIMENSION", -0.02374330352024, 0, 0.06920519083022, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D3@Sketch1").SystemValue = 0.1016 boolstatus = Part.Extension.SelectByID("D3@Sketch1@Part1.SLDPRT", "DIMENSION", -0.02301173603945, 0, 0.05420805747395, False, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D3@Sketch1@Part1.SLDPRT", "DIMENSION", -0.02301173603945, 0, 0.05530540869514, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D3@Sketch1").SystemValue = 0.0762 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT", "DIMENSION", 0.17012207889, 0, -0.05077187601991, False, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle 0.03441631120284, -0.00635, 0, 0.04282933723197, -0.06985, 0, 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle 0.05782647058824, -0.00635, 0, 0.06806841531934, -0.06985, 0, 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle 0.08928387226236, -0.00635, 0, 0.09696533081069, -0.06985, 0, 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.InsertSketch2 True Part.WindowRedraw Part.ShowNamedView2 "*Trimetric", 8 Part.InsertSketch2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.WindowRedraw Part.ShowNamedView2 "*Top", 5 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.005810806065405, -0.00635, 0, 0.03441631120284, -0.06413478601013, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.03441631120284, -0.06413478601013, 0, 0.02999076862952, -0.06985, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.02999076862952, -0.06985, 0, 0, -0.01078534479724, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line35", "SKETCHSEGMENT", 0.0307583864887, 0.02788514854737, 0.06720525744684, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point33", "SKETCHPOINT", 0.02999076862952, -0.06985, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line36", "SKETCHSEGMENT", 0.02576887040404, 0.02788514854737, 0.06259955029177, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line34", "SKETCHSEGMENT", 0.02883934184075, 0.02788514854737, 0.05645860741835, True, 0, Nothing) Part.SketchAddConstraints "sgPARALLEL" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.0376669472213, 0.02788514854737, 0.006563446571764, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line26", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line30", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.SketchAddConstraints "sgSAMELENGTH" Part.SketchAddConstraints "sgSAMELENGTH" Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.01627884010563, -0.04412535939428, 0, 0.02271973796164, -0.04098047935743, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line37", "SKETCHSEGMENT", 0.0200117364602, 0.02788514854737, 0.04187386809396, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0.034212666855, 0.02788514854737, 0.02882436448793, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", 0.04265646330596, 0.02788514854737, 0.02767293769916, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line29", "SKETCHSEGMENT", 0.06453357229254, 0.02788514854737, 0.02613770198081, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line31", "SKETCHSEGMENT", 0.08986496164541, 0.02788514854737, 0.02613770198081, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0.0975411402372, 0.02788514854737, 0.02498627519204, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.07451260446185, 0.02788514854737, 0.008098682290121, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line29", "SKETCHSEGMENT", 0.06722023479966, 0.02788514854737, 0.01692628767067, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line27", "SKETCHSEGMENT", 0.05685739370075, 0.02788514854737, 0.02038056803697, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", 0.04188884544678, 0.02788514854737, 0.01999675910738, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line24", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line28", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line32", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line26", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line30", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line26", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line30", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line26", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line30", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.03410093680251, -0.0381, 0, 0.04282933723197, -0.0381, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.05782647058824, -0.0381, 0, 0.0665548710177, -0.0381, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.0665548710177, -0.0381, 0, 0.08928387226236, -0.0381, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.08928387226236, -0.0381, 0, 0.09801227269182, -0.0381, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.09801227269182, -0.0381, 0, 0.05782647058824, -0.0381, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line40", "SKETCHSEGMENT", 0.07374498660267, 0.02788514854737, 0.03765196986848, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line39", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line40", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line41", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line42", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.04282933723197, -0.0381, 0, 0.05782647058824, -0.0381, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.05782647058824, -0.0381, 0, 0.0665548710177, -0.0381, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.0665548710177, -0.0381, 0, 0.08928387226236, -0.0381, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.08928387226236, -0.0381, 0, 0.09801227269182, -0.0381, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line43", "SKETCHSEGMENT", 0.0518678776161, 0.02788514854737, 0.03880339665725, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line45", "SKETCHSEGMENT", 0.08372401877199, 0.02788514854737, 0.03880339665725, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line43", "SKETCHSEGMENT", 0.04687836153144, 0.02788514854737, 0.03803577879807, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line45", "SKETCHSEGMENT", 0.0798859294761, 0.02788514854737, 0.03765196986848, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line43", "SKETCHSEGMENT", 0.04687836153144, 0.02788514854737, 0.03957101451643, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line46", "SKETCHSEGMENT", 0.09216781522295, 0.02788514854737, 0.03803577879807, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line44", "SKETCHSEGMENT", 0.06107929192623, 0.02788514854737, 0.03880339665725, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line38", "SKETCHSEGMENT", 0.03805075615089, 0.02788514854737, 0.03918720558684, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0.09063257950459, 0.02788514854737, 0.03151102699505, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.03298114424216, -0.0381, 0, 0, -0.0381, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line43", "SKETCHSEGMENT", 0.0518678776161, 0.02788514854737, 0.0368843520093, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line47", "SKETCHSEGMENT", 0.02768791505198, 0.02788514854737, 0.03880339665725, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0.1255591920972, 0.02788514854737, 0.02767293769916, False, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line47", "SKETCHSEGMENT", 0.02615267933363, 0.02788514854737, 0.03880339665725, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0.120185867083, 0.02788514854737, 0.01846152338903, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.1524, -0.00635, 0, 0.1524, -0.06985, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line48", "SKETCHSEGMENT", 0.1535772439572, 0.02788514854737, 0.03189483592464, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0.1190344402942, 0.02788514854737, 0.02728912876957, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.146284874295, -0.00635, 0, 0.146284874295, -0.06985, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.1581829511123, -0.06985, 0, 0.1581829511123, -0.00635, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.1198020581534, -0.0381, 0, 0.146284874295, -0.0381, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.146284874295, -0.0381, 0, 0.1581829511123, -0.0381, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line51", "SKETCHSEGMENT", 0.1309325171114, 0.02788514854737, 0.03918720558684, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line45", "SKETCHSEGMENT", 0.1021468473923, 0.02788514854737, 0.03803577879807, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point54", "SKETCHPOINT", 0.1534934125104, -0.0381, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line52", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line46", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line52", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line46", "SKETCHSEGMENT", 0.1163477777871, 0.02788514854737, 0.03841958772766, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line50", "SKETCHSEGMENT", 0.159334377901, 0.02788514854737, 0.02345103947368, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0.03267743113664, 0.02788514854737, 0.03189483592464, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line38", "SKETCHSEGMENT", 0.03536409364376, 0.02788514854737, 0.03841958772766, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line47", "SKETCHSEGMENT", 0.02576887040404, 0.02788514854737, 0.03841958772766, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line49", "SKETCHSEGMENT", 0.1585667600419, 0.02788514854737, 0.03151102699505, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.1586374701657, -0.03074340913588, 0, 0.1524, -0.03074340913588, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.1524, -0.03074340913588, 0, 0.1699936996632, -0.03074340913588, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line54", "SKETCHSEGMENT", 0.1643238939857, 0.02788514854737, 0.03074340913588, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line53", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line54", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) ' MSGBOX ' The sketch has not been updated because solving it would result in invalid geometry (such as a zero-length line). Consider : ' o Deleting the invalid geometry. ' o Changing relations or dimensions to eliminate the invalid geometry. Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line49", "SKETCHSEGMENT", 0.1581829511123, 0.02788514854737, 0.02268342161451, False, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0.1270944278156, 0.02788514854737, 0.04532814846026, False, 0, Nothing) Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line44", "SKETCHSEGMENT", 0.08026973840569, 0.02788514854737, 0.03803577879807, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line43", "SKETCHSEGMENT", 0.05455454012322, 0.02788514854737, 0.03880339665725, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line44", "SKETCHSEGMENT", 0.07719926696897, 0.02788514854737, 0.03841958772766, False, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.EditUndo 1 Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line49", "SKETCHSEGMENT", 0.1566477153939, 0.02788514854737, 0.04801481096739, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line53", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line54", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line51", "SKETCHSEGMENT", 0.1274782367451, 0.02788514854737, 0.03765196986848, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line46", "SKETCHSEGMENT", 0.109823025984, 0.02788514854737, 0.03765196986848, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line45", "SKETCHSEGMENT", 0.08986496164541, 0.02788514854737, 0.03765196986848, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line44", "SKETCHSEGMENT", 0.07144213302514, 0.02788514854737, 0.03765196986848, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line43", "SKETCHSEGMENT", 0.05378692226404, 0.02788514854737, 0.03765196986848, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", 0.03920218293966, 0.02788514854737, 0.04494433953067, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line47", "SKETCHSEGMENT", 0.03114219541828, 0.02788514854737, 0.03880339665725, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", 0.03613171150294, 0.02788514854737, 0.04456053060108, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line47", "SKETCHSEGMENT", 0.02883934184075, 0.02788514854737, 0.03995482344601, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", 0.03689932936212, 0.02788514854737, 0.05070147347451, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", 0.03728313829171, 0.02788514854737, 0.04955004668574, False, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line38", "SKETCHSEGMENT", 0.03267743113664, 0.02788514854737, 0.03880339665725, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(0.0326774, 0, -0.0506241) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D4@Sketch1@Part1.SLDPRT", "DIMENSION", 0.03267743113664, 0.02788514854737, -0.05062408393701, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D4@Sketch1").SystemValue = 0.0047625 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line36", "SKETCHSEGMENT", 0.02576887040404, 0.02788514854737, 0.05338813598163, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point32", "SKETCHPOINT", 0.0339328125, -0.05101309125535, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.0339328125, -0.06451859493972, 0, 0.0339328125, -0.06985, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.0339328125, -0.06985, 0, 0.02855521291842, -0.06985, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.005810806065405, -0.00635, 0, 0, -0.00635, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line57", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0, -0.00635, 0, 0, -0.01078534479724, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line57", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line58", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line55", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line56", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchAddConstraints "sgSAMELENGTH" Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point35", "SKETCHPOINT", 0.01665937517053, -0.04414347100171, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line37", "SKETCHSEGMENT", 0.01924411860102, 0.02788514854737, 0.04340910381232, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw ' MSGBOX ' A dimension could not be created from the selected items. Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point35", "SKETCHPOINT", 0.01665937517053, -0.04414347100171, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point35", "SKETCHPOINT", 0.01665937517053, -0.04414347100171, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point36", "SKETCHPOINT", 0.02198220647882, -0.04148519687712, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line37", "SKETCHSEGMENT", 0.0200117364602, 0.02788514854737, 0.04417672167149, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(-0.0160663, 0, -0.0410289) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D5@Sketch1@Part1.SLDPRT", "DIMENSION", -0.01606630292117, 0.02788514854737, -0.04141266962687, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D5@Sketch1").SystemValue = 0.0015875 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.0386953125, -0.01040153586766, 0, 0.06414976336295, -0.06985, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.06414976336295, -0.06985, 0, 0.072628125, -0.061448123503, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.072628125, -0.061448123503, 0, 0.04918121510897, -0.00635, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.EditUndo 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.EditUndo 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.EditUndo 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.0386953125, -0.00635, 0, 0.0386953125, -0.01308819837478, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.0386953125, -0.01308819837478, 0, 0.06299833657418, -0.06985, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.06299833657418, -0.06985, 0, 0.072628125, -0.06985, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.072628125, -0.06985, 0, 0.072628125, -0.06029669671424, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.072628125, -0.06029669671424, 0, 0.04726217046103, -0.00635, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.04726217046103, -0.00635, 0, 0.0386953125, -0.00635, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.0386953125, -0.00635, 0, 0.0386953125, -0.01308819837478, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line59", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line65", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.DeSelectByID "Line65", "SKETCHSEGMENT", 0, 0, 0 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line59", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line64", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line65", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.DeSelectByID "Line59", "SKETCHSEGMENT", 0, 0, 0 Part.DeSelectByID "Line64", "SKETCHSEGMENT", 0, 0, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line59", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line64", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line65", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line63", "SKETCHSEGMENT", 0.05647358477116, 0.02788514854737, 0.02421865733286, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line60", "SKETCHSEGMENT", 0.04687836153144, 0.02788514854737, 0.03381388057259, True, 0, Nothing) Part.SketchAddConstraints "sgPARALLEL" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line59", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line64", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line61", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line62", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line55", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line56", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw ' MSGBOX ' A solution cannot be determined for this sketch. Consider: ' o Moving the sketch closer to the desired solution by dragging or changing dimension values. ' o Adding more dimensions or relations to further define the sketch. ' o Changing the dimensioning scheme. Part.SketchAddConstraints "sgSAMELENGTH" Part.ClearSelection2 True Part.EditUndo 1 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line55", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line56", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line61", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line62", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line59", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line64", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line61", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line62", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line60", "SKETCHSEGMENT", 0.05378692226404, 0.02788514854737, 0.04532814846026, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line63", "SKETCHSEGMENT", 0.05724120263034, 0.02788514854737, 0.03419768950218, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line60", "SKETCHSEGMENT", 0.04879740617938, 0.02788514854737, 0.03419768950218, False, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line60", "SKETCHSEGMENT", 0.04495931688349, 0.02788514854737, 0.02498627519204, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line63", "SKETCHSEGMENT", 0.05263549547527, 0.02788514854737, 0.02153199482574, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.0556581545602, -0.04975385698836, 0, 0.06466325027755, -0.04550167721311, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line66", "SKETCHSEGMENT", 0.05992786513747, 0.02788514854737, 0.04647957524903, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line37", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line66", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line47", "SKETCHSEGMENT", 0.02845553291116, 0.02788514854737, 0.0403386323756, True, 0, Nothing) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.EditUndo 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line66", "SKETCHSEGMENT", 0.06069548299664, 0.02788514854737, 0.04801481096739, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line66", "SKETCHSEGMENT", 0.05916024727829, 0.02788514854737, 0.0476310020378, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line37", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.077390625, -0.00635, 0, 0.077390625, -0.01423962516355, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.077390625, -0.01423962516355, 0, 0.09869256702596, -0.06985, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.09869256702596, -0.06985, 0, 0.1113234375, -0.06985, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.1113234375, -0.06985, 0, 0.1113234375, -0.05876146099588, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.1113234375, -0.05876146099588, 0, 0.08602687234952, -0.00635, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.08602687234952, -0.00635, 0, 0.077390625, -0.00635, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.077390625, -0.00635, 0, 0.077390625, -0.01423962516355, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line67", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line73", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.DeSelectByID "Line67", "SKETCHSEGMENT", 0, 0, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line67", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line73", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) Part.EditDelete Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line59", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line64", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line61", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line62", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line69", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line70", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line67", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line72", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line71", "SKETCHSEGMENT", 0.09140019736377, 0.02788514854737, 0.01347200730437, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line68", "SKETCHSEGMENT", 0.08103735626487, 0.02788514854737, 0.02575389305122, True, 0, Nothing) Part.SketchAddConstraints "sgPARALLEL" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line66", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point65", "SKETCHPOINT", 0.077390625, -0.01423962516355, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point59", "SKETCHPOINT", 0.0386953125, -0.007525554158415, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point34", "SKETCHPOINT", 0, -0.007525554158411, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchAddConstraints "sgHORIZPOINTS" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point67", "SKETCHPOINT", 0.1113234375, -0.05876146099588, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point61", "SKETCHPOINT", 0.072628125, -0.06867444584159, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point32", "SKETCHPOINT", 0.0339328125, -0.06867444584159, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchAddConstraints "sgHORIZPOINTS" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line63", "SKETCHSEGMENT", 0.05724120263034, 0.02788514854737, 0.03650054307971, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line60", "SKETCHSEGMENT", 0.05378692226404, 0.02788514854737, 0.03266245378382, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point22", "SKETCHPOINT", 0.0386953125, -0.00635, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line60", "SKETCHSEGMENT", 0.04419169902431, 0.02788514854737, 0.01462343409314, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line63", "SKETCHSEGMENT", 0.04534312581308, 0.02788514854737, 0.01462343409314, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point62", "SKETCHPOINT", 0.04018971969118, -0.00635, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line68", "SKETCHSEGMENT", 0.08257259198322, 0.02788514854737, 0.02038056803697, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line60", "SKETCHSEGMENT", 0.04687836153144, 0.02788514854737, 0.03112721806547, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line36", "SKETCHSEGMENT", 0.01156794000924, 0.02788514854737, 0.03381388057259, True, 0, Nothing) Part.SketchAddConstraints "sgPARALLEL" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line37", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line34", "SKETCHSEGMENT", 0.006194614994995, 0.02788514854737, 0.01769390552985, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line36", "SKETCHSEGMENT", 0.005043188206227, 0.02788514854737, 0.01884533231862, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(-0.00839012, 0, -0.0440993) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line71", "SKETCHSEGMENT", 0.09101638843418, 0.02788514854737, 0.02844055555834, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line68", "SKETCHSEGMENT", 0.09101638843418, 0.02788514854737, 0.03266245378382, True, 0, Nothing) Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line71", "SKETCHSEGMENT", 0.0867944902087, 0.02788514854737, 0.02076437696656, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line68", "SKETCHSEGMENT", 0.08410782770158, 0.02788514854737, 0.02421865733286, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.1160859375, -0.0192291412482, 0, 0.1405277403512, -0.06985, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.1251753831676, -0.00635, 0, 0.15001875, -0.05415575384081, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point72", "SKETCHPOINT", 0.15001875, -0.05415575384081, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point32", "SKETCHPOINT", 0.0339328125, -0.06867444584159, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchAddConstraints "sgHORIZPOINTS" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point69", "SKETCHPOINT", 0.1160859375, -0.0192291412482, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point34", "SKETCHPOINT", 0, -0.007525554158411, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point69", "SKETCHPOINT", 0.1160859375, -0.0192291412482, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchAddConstraints "sgHORIZPOINTS" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line55", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line56", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line20", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line57", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line58", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line74", "SKETCHSEGMENT", 0.1343867974777, 0.02788514854737, 0.05952907885506, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line36", "SKETCHSEGMENT", 0.01886030967143, 0.02788514854737, 0.0476310020378, True, 0, Nothing) Part.SketchAddConstraints "sgPARALLEL" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line75", "SKETCHSEGMENT", 0.1305487081819, 0.02788514854737, 0.01769390552985, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line74", "SKETCHSEGMENT", 0.1232563385197, 0.02788514854737, 0.02229961268492, True, 0, Nothing) Part.SketchAddConstraints "sgPARALLEL" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line49", "SKETCHSEGMENT", 0.1485877278725, 0.02788514854737, 0.0157748608819, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line75", "SKETCHSEGMENT", 0.1297810903227, 0.02788514854737, 0.02767293769916, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line74", "SKETCHSEGMENT", 0.1259430010268, 0.02788514854737, 0.02959198234711, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0.1148125420687, 0.02788514854737, 0.02805674662875, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line31", "SKETCHSEGMENT", 0.1105906438432, 0.02788514854737, 0.02805674662875, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line71", "SKETCHSEGMENT", 0.08832972592706, 0.02788514854737, 0.02229961268492, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line68", "SKETCHSEGMENT", 0.08410782770158, 0.02788514854737, 0.02421865733286, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line29", "SKETCHSEGMENT", 0.07604784018021, 0.02788514854737, 0.02421865733286, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line27", "SKETCHSEGMENT", 0.07182594195473, 0.02788514854737, 0.02421865733286, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line60", "SKETCHSEGMENT", 0.05263549547527, 0.02788514854737, 0.0299757912767, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line63", "SKETCHSEGMENT", 0.05378692226404, 0.02788514854737, 0.0299757912767, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", 0.03881837401007, 0.02788514854737, 0.0299757912767, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0.034212666855, 0.02788514854737, 0.0299757912767, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line34", "SKETCHSEGMENT", 0.0165574560939, 0.02788514854737, 0.03304626271341, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line36", "SKETCHSEGMENT", 0.01233555786842, 0.02788514854737, 0.033430071643, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line48", "SKETCHSEGMENT", 0.1524258171684, 0.02788514854737, 0.0157748608819, True, 0, Nothing) Part.WindowRedraw Part.DeSelectByID "Line49", "SKETCHSEGMENT", 0.15001875, -0.0157748608819, 0 Part.SketchMirror Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT", "DIMENSION", 0.1716162636479, 0.02788514854737, -0.02836316602084, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.WindowRedraw Part.ShowNamedView2 "*Trimetric", 8 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditCopy Part.Paste Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Front", "PLANE", 0, 0, 0, True, 0, Nothing) Part.DeSelectByID "Front", "PLANE", 0, 0, 0 boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, True, 0, Nothing) Part.ChangeSketchPlane Part.EditRebuild boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, True, 0, Nothing) Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Top" boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, True, 0, Nothing) Part.ChangeSketchPlane Part.EditRebuild boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditDelete ' MSGBOX ' Some of the selected entities cannot be deleted. Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditCopy boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, False, 0, Nothing) Part.Paste Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, False, 0, Nothing) Part.Paste Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ShowNamedView2 "*Trimetric", 8 Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.02142889827926, 0.03171668814053, 0.08566381552512, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.04888418076789, 0.04135607375187, 0.06462718082862, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.2863491469359, -0.02860720891107, -0.01314782369358, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.2614851334393, -0.0429108133666, 0.009690235117698, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0.02142889827926, 0.03171668814053, 0.08566381552512, False, 4, Nothing) Part.SelectionManager.EnableContourSelection = 1 boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.02142889827926, 0.03171668814053, 0.08566381552512, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.04888418076789, 0.04135607375187, 0.06462718082862, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.2863491469359, -0.02860720891107, -0.01314782369358, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.2614851334393, -0.0429108133666, 0.009690235117698, True, 4, Nothing) Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.00635, 0.01, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1 Part.SelectionManager.EnableContourSelection = 0 boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCHREGION", 0.05598502345634, 0.02518678175866, 0.07186534126333, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCHREGION", 0.08551960949593, 0.01368170860964, 0.06409671963973, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCHREGION", 0.1215368080986, 0.009950333534285, 0.04762597597742, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCHREGION", 0.1548092693705, 0.002083116902654, 0.03541342250992, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCHREGION", 0.1863285963132, -0.005718136851953, 0.02408115992898, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCHREGION", 0.216937941113, -0.01638336257774, 0.0151748228114, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCHREGION", 0.2499440606845, -0.02328439098854, 0.002446400211595, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0.05598502345634, 0.02518678175866, 0.07186534126333, False, 4, Nothing) Part.SelectionManager.EnableContourSelection = 1 boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCHREGION", 0.05598502345634, 0.02518678175866, 0.07186534126333, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCHREGION", 0.08551960949593, 0.01368170860964, 0.06409671963973, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCHREGION", 0.1215368080986, 0.009950333534285, 0.04762597597742, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCHREGION", 0.1548092693705, 0.002083116902654, 0.03541342250992, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCHREGION", 0.1863285963132, -0.005718136851953, 0.02408115992898, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCHREGION", 0.216937941113, -0.01638336257774, 0.0151748228114, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCHREGION", 0.2499440606845, -0.02328439098854, 0.002446400211595, True, 4, Nothing) Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.0047625, 0.00635, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1 Part.SelectionManager.EnableContourSelection = 0 boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCHREGION", 0.03815403828636, 0.02965524637138, 0.07823870020685, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCHREGION", 0.07043400255992, 0.02335989434653, 0.06548197226322, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCHREGION", 0.1021913190383, 0.01726628727235, 0.05286397589587, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCHREGION", 0.1367954776967, 0.001404647135156, 0.04537999721, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCHREGION", 0.1677368255092, -0.004405218521701, 0.03299980665533, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCHREGION", 0.2040545359622, -0.01101991561472, 0.01832937341014, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCHREGION", 0.2450754573803, -0.01541929352379, -0.0003279353189263, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCHREGION", 0.2650946529578, -0.02816908612469, -0.002229771057278, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCH", 0.03815403828636, 0.02965524637138, 0.07823870020685, False, 4, Nothing) Part.SelectionManager.EnableContourSelection = 1 boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCHREGION", 0.03815403828636, 0.02965524637138, 0.07823870020685, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCHREGION", 0.07043400255992, 0.02335989434653, 0.06548197226322, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCHREGION", 0.1021913190383, 0.01726628727235, 0.05286397589587, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCHREGION", 0.1367954776967, 0.001404647135156, 0.04537999721, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCHREGION", 0.1677368255092, -0.004405218521701, 0.03299980665533, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCHREGION", 0.2040545359622, -0.01101991561472, 0.01832937341014, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCHREGION", 0.2450754573803, -0.01541929352379, -0.0003279353189263, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCHREGION", 0.2650946529578, -0.02816908612469, -0.002229771057278, True, 4, Nothing) Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.0015875, 0.0047625, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.31115, 0.003175, 0.0762, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.31115, 0.003175, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0.00396875, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1524, 0.00635, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.31115, 0.00635, 0.0381, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1524, 0.00635, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0.00635, 0.0381, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1524, 0.00635, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3048, 0.00635, 0.0381, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.31115, 0, 0.0381, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2872458166708, 0, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2485505041708, 0, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2098551916708, 0, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1711598791708, 0, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1336401208292, 0, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.09494480832921, 0, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05624949582921, 0, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01755418332921, 0, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0386953125, 0.003175, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0339328125, 0.0047625, 0.0381, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0363140625, 0.0047625, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0386953125, 0.0047625, 0.0381, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.077390625, 0.003175, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.072628125, 0.0047625, 0.0381, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.075009375, 0.0047625, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.077390625, 0.0047625, 0.0381, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1160859375, 0.003175, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1113234375, 0.0047625, 0.0381, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1137046875, 0.0047625, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1160859375, 0.0047625, 0.0381, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.15478125, 0.00238125, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.15001875, 0.0047625, 0.0381, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1524, 0.0047625, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.15478125, 0.0047625, 0.0381, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.15478125, 0, 0.03751222292079, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1934765625, 0.00238125, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1934765625, 0.0047625, 0.0381, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1887140625, 0.0047625, 0.0381, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1910953125, 0.0047625, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1934765625, 0, 0.03751222292079, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.232171875, 0.00238125, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.232171875, 0.0047625, 0.0381, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.227409375, 0.0047625, 0.0381, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.229790625, 0.0047625, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.232171875, 0, 0.03751222292079, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2708671875, 0.00238125, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2708671875, 0.0047625, 0.0381, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2661046875, 0.0047625, 0.0381, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2684859375, 0.0047625, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2708671875, 0, 0.03751222292079, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.001175554158411, 0.00079375, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0.0015875, 0.006937777079206, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0005877770792055, 0.0015875, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01755418332921, 0.0015875, 0.03751222292079, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01637862917079, 0.0015875, 0.03868777707921, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01755418332921, 0, 0.03751222292079, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.03987086665841, 0.00079375, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05507394167079, 0.0015875, 0.03868777707921, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0386953125, 0.0015875, 0.006937777079206, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.03928308957921, 0.0015875, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05624949582921, 0.0015875, 0.03751222292079, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05624949582921, 0, 0.03751222292079, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07856617915841, 0.00079375, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.09376925417079, 0.0015875, 0.03868777707921, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.077390625, 0.0015875, 0.006937777079206, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07797840207921, 0.0015875, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.09494480832921, 0.0015875, 0.03751222292079, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.09494480832921, 0, 0.03751222292079, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1172614916584, 0.00079375, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1324645666708, 0.0015875, 0.03868777707921, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1160859375, 0.0015875, 0.006937777079205, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1166737145792, 0.0015875, 0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1336401208292, 0.0015875, 0.03751222292079, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1336401208292, 0, 0.03751222292079, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolStatus = Part.Extension.ApplyTexture ( 99, 0, "\images\textures\wood\maple.jpg", 0) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", -0.003008870548172, 0.006349999999941, 0.02313914903823, False, 0, Nothing) Part.InsertSketch2 True Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle 0.00635, 0, 0, -0.31115, 0.0762, 0, 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.InsertSketch2 True Part.InsertSketch2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.000254, 0.0015875, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.01319618759879, 0.006604000000038, 0.04512617073772, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Extrude4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Extrude4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, True, 0, Nothing) Part.CreatePlaneAtOffset3 0.0063754, False, True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing) Part.InsertSketch2 True Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle 0.00635, 0, 0, -0.31115, 0.0762, 0, 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.InsertSketch2 True Part.InsertSketch2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch6", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.000254, 0.000254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.03033997979264, 0.006629400000008, 0.04668912773496, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.03001268032858, 0.006629400000008, 0.04686183920131, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.02650883999689, 0.006629399999952, 0.05846003441565, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Extrude5", "BODYFEATURE", 0.02650883999689, 0.006629399999952, 0.05846003441565, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.04567482771802, 0.006629400000008, 0.03372250427293, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude5", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude5", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude5", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing) Part.SaveAs2 "C:\Documents and Settings\jdecew\Desktop\Stuff\Glider MK I\Wing.SLDPRT", 0, FALSE, FALSE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.FeatEdit Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch1@Wing.SLDPRT", "DIMENSION", 0.1661319762406, 0.01810094659725, 0.01855630732103, False, 0, Nothing) ' MSGBOX ' Equation entered is invalid ' MSGBOX ' Equation entered is invalid Part.ClearSelection2 True Part.InsertSketch2 True ' MSGBOX ' The syntax of this equation is incorrect. Part.DeleteAllRelations Part.AddRelation """D2@Sketch1"" = ""D2@Sketch3""" Part.AddRelation """D2@Sketch1"" = ""D2@Sketch4""" Part.AddRelation """D2@Sketch1"" = 12.5" Part.DeleteAllRelations Part.AddRelation """D2@Sketch1"" = 12.5" Part.AddRelation """D2@Sketch3"" = ""D2@Sketch1""" Part.AddRelation """D2@Sketch4"" = ""D2@Sketch1""" Part.DeleteAllRelations Part.AddRelation """D2@Sketch1"" = 18.5" Part.AddRelation """D2@Sketch3"" = ""D2@Sketch1""" Part.AddRelation """D2@Sketch4"" = ""D2@Sketch1""" Part.EditRebuild Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch1@Wing.SLDPRT", "DIMENSION", 0.2312092832811, 0.003281949039893, -0.00571629242332, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditDelete ' MSGBOX ' None of the selected entities could be deleted. boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditDelete Part.DeleteAllRelations Part.AddRelation """D2@Sketch1"" = 18.5" boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.0725894342306, 0.0242945551035, 0.06370958562341, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.1236785600558, 0.01269584503639, 0.04463054266549, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.1716764919164, 6.092089898702e-005, 0.02788666917852, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.2179111000345, -0.0154158507705, 0.01400398686921, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.2641133464199, -0.02812475938203, -0.001742063906396, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.3149906023086, -0.03695743768448, -0.02258850714435, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.3617766182037, -0.05154890572005, -0.03736362204532, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0.0725894342306, 0.0242945551035, 0.06370958562341, False, 4, Nothing) Part.SelectionManager.EnableContourSelection = 1 boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.0725894342306, 0.0242945551035, 0.06370958562341, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.1236785600558, 0.01269584503639, 0.04463054266549, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.1716764919164, 6.092089898702e-005, 0.02788666917852, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.2179111000345, -0.0154158507705, 0.01400398686921, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.2641133464199, -0.02812475938203, -0.001742063906396, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.3149906023086, -0.03695743768448, -0.02258850714435, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.3617766182037, -0.05154890572005, -0.03736362204532, True, 4, Nothing) Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.0047625, 0.000254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1 Part.SelectionManager.EnableContourSelection = 0 boolstatus = Part.Extension.SelectByID("Extrude6", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ReorderFeature "Extrude6", "Extrude1" boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.04578427617657, 0.02712951457896, 0.07592827256926, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.09601986587738, 0.01272152324322, 0.05920821322384, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.1506363387546, -0.007885480040852, 0.04438793876249, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.1941459735842, -0.01277042999348, 0.02474726036523, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.224480490534, -0.02518300774198, 0.01717307133407, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.3122659839984, -0.02862746807463, -0.02681002160995, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.3354079245791, -0.04580960659103, -0.02734841692663, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.3655331980282, -0.06196210509781, -0.03227134404747, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0.04578427617657, 0.02712951457896, 0.07592827256926, False, 4, Nothing) Part.SelectionManager.EnableContourSelection = 1 boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.04578427617657, 0.02712951457896, 0.07592827256926, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.09601986587738, 0.01272152324322, 0.05920821322384, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.1506363387546, -0.007885480040852, 0.04438793876249, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.1941459735842, -0.01277042999348, 0.02474726036523, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.224480490534, -0.02518300774198, 0.01717307133407, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.3122659839984, -0.02862746807463, -0.02681002160995, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.3354079245791, -0.04580960659103, -0.02734841692663, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.3655331980282, -0.06196210509781, -0.03227134404747, True, 4, Nothing) Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.0015875, 0.0047625, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Extrude7", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ReorderFeature "Extrude7", "Extrude6" boolstatus = Part.Extension.SelectByID("Extrude5", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.SelectedFeatureProperties 12771070, 1, 1, 1, 0.31, 0, 0, 0, 0, "1/4 inch" boolstatus = Part.Extension.SelectByID("Extrude6", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude6", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "3/16 inch" boolstatus = Part.Extension.SelectByID("Extrude7", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude7", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "1/16 inch" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Extrude5", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude5", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.SelectedFeatureProperties 12632319, 1, 1, 1, 0.31, 0.68, 0, 0, 0, "clear covering" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.Save2 FALSE boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0.1722210934463, -0.0002414826833385, 0.02780473890439, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line87", "SKETCHSEGMENT", 0.2602370284531, -0.028702051849, 0.0006956202357324, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(0.211456, 0, -0.119648) Part.ClearSelection2 True Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "WingSketch" swApp.LoadFile2 "C:\Program Files\SolidWorks\data\templates\English Part.prtdot", "" Set Part = swApp.ActiveDoc swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\data\templates\English Part.prtdot", 0, 0.000000, 0.000000) Set Part = swApp.ActivateDoc ("Part2") Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw ' MSGBOX ' Equation entered is invalid ' MSGBOX ' Equation entered is invalid ' MSGBOX ' Equation entered is invalid boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, False, 0, Nothing) Part.WindowRedraw Part.InsertSketch2 True Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle 0, 0, 0, 0.05694685242518, -0.04152074303406, 0, 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.000144169246646, 0, 0.03402394220846, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.05694685242518, 0, 0.03114055727554, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(0.0249413, 0, -0.0631461) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part2.SLDPRT", "DIMENSION", 0.02407626418989, 0, -0.06401114551084, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D1@Sketch1").SystemValue = 0.0569469 Part.DeleteAllRelations Part.AddRelation """D1@Sketch1"" = ""inner frame width@WingSketch@Wing.SLDPRT""" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part2.SLDPRT", "DIMENSION", 0.04743168214654, 0, -0.06372280701754, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle -0.01196604747162, 0.007785139318885, 0, 0.1223996904025, -0.05334262125903, 0, 1 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", -0.01225438596491, 0, 0.01124520123839, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", -0.005045923632611, 0, -0.008073477812177, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.05521682146543, 0.007785139318885, 0, 0.0553640625, 0, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0.02609463364293, 0, -0.007496800825593, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", -0.01138937048504, 0, -0.004325077399381, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0.05435180598555, 0, -0.007785139318885, False, 0, Nothing) Part.WindowRedraw Part.SketchAddConstraints "sgVERTICAL" Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.0553640625, -0.04152074303406, 0, 0.0553640625, -0.05334262125903, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( -0.01169337888908, -0.01946284829721, 0, 0, -0.02076037151703, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.110728125, -0.02076037151703, 0, 0.1224215038891, -0.01946284829721, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", -0.005622600619195, 0, 0.02047203302374, False, 0, Nothing) Part.WindowRedraw Part.SketchAddConstraints "sgHORIZONTAL" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0.05579349845201, 0, -0.006343446852425, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0.05579349845201, 0, 0.04988255933953, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", 0.1177862745098, 0, 0.02104871001032, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.ClearSelection2 True Part.EditUndo 1 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part2.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", -0.007064293085655, 0, 0.02133704850361, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(-0.009371, 0, -0.0513243) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part2.SLDPRT", "DIMENSION", -0.01023601651187, 0, -0.05103591331269, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D2@Sketch1").SystemValue = 0.0047625 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0.0560818369453, 0, -0.00836181630547, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(-0.0356098, 0, -0.0106685) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part2.SLDPRT", "DIMENSION", -0.01023601651187, 0, -0.05103591331269, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D3@Sketch1@Part2.SLDPRT", "DIMENSION", -0.03618648090815, 0, -0.0109568627451, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D3@Sketch1").SystemValue = 0.00635 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Wing.SLDPRT") boolstatus = Part.Extension.SelectByID("WingSketch", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D3@WingSketch@Wing.SLDPRT", "DIMENSION", 0.004701745227245, 0.03658984211928, 0.0911797573217, False, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D3@WingSketch@Wing.SLDPRT", "DIMENSION", 0.004701745227245, 0.03658984211928, 0.0911797573217, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Part2") Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", -0.005334262125903, 0, 0.01038018575851, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(-0.0448366, 0, 0.0141286) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.DeleteAllRelations Part.AddRelation """D1@Sketch1"" = ""inner frame width@WingSketch@Wing.SLDPRT""" Part.AddRelation """D4@Sketch1"" = ""ext width@WingSketch@Wing.SLDPRT""" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D3@Sketch1@Part2.SLDPRT", "DIMENSION", -0.03676315789474, 0, -0.005766769865841, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part2.SLDPRT", "DIMENSION", -0.004180908152735, 0, -0.04123240454076, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part2.SLDPRT", "DIMENSION", -0.002739215686274, 0, -0.01124520123839, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0, 0, 0, -0.0047625, 0, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.0047625, -0.0635, 0, 0, -0.0635, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.110728125, -0.0635, 0, 0.115490625, -0.0635, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.115490625, -0.0635, 0, 0.120957997936, -0.001730030959752, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.120957997936, -0.001730030959752, 0, 0.115490625, 0, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.115490625, 0, 0, 0.110728125, 0, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line17", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0.1203813209494, 0, 0.005478431372549, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", -0.001874200206398, 0, 0.03171723426213, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ShowNamedView2 "*Trimetric", 8 Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.03520634808356, 0.01152831031562, 0.01524197990323, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.02387147543002, -0.01689876042785, 0.04053617003487, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0.03520634808356, 0.01152831031562, 0.01524197990323, False, 4, Nothing) Part.SelectionManager.EnableContourSelection = 1 boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.03520634808356, 0.01152831031562, 0.01524197990323, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.02387147543002, -0.01689876042785, 0.04053617003487, True, 4, Nothing) Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.00635, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1 Part.SelectionManager.EnableContourSelection = 0 boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", -0.001357867661271, 0.0009131383291326, 0.04174820939385, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.09875024461613, -0.01779835127416, 0.00163483281456, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", -0.001357867661271, 0.0009131383291326, 0.04174820939385, False, 4, Nothing) Part.SelectionManager.EnableContourSelection = 1 boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", -0.001357867661271, 0.0009131383291326, 0.04174820939385, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.09875024461613, -0.01779835127416, 0.00163483281456, True, 4, Nothing) Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.0047625, 0.00635, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1 Part.SelectionManager.EnableContourSelection = 0 boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, True, 0, Nothing) Part.CreatePlaneAtOffset3 0.0381, True, True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing) Part.WindowRedraw Part.ShowNamedView2 "*Top", 5 Part.InsertSketch2 True Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( -0.0553640625, 0, 0, -0.0553640625, 0.0635, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.EditDelete Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.05529509289789, 0.0031749875, 0.00858461369109, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( -0.0553640625, -0.00635, 0, -0.0553640625, 0.06985, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle -0.04578073780673, -0.02368146009632, 0, -0.06467155878483, 0.08263111635707, 0, 1 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( -0.05522614829578, -0.02368146009632, 0, -0.0553640625, -0.00635, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( -0.05522614829578, 0.08263111635707, 0, -0.0553640625, 0.06985, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", 0.05529509289789, 0.0031749875, 0.07546087773764, False, 0, Nothing) Part.WindowRedraw Part.SketchAddConstraints "sgVERTICAL" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0.05598453891899, 0.0031749875, -0.0144428834136, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.05212364120084, 0.0031749875, -0.02381934930054, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(0.0521236, -0.0381, -0.0268529) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch2@Part2.SLDPRT", "DIMENSION", 0.05212364120084, 0.0031749875, -0.02685291179337, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D1@Sketch2").SystemValue = 0.00635 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.05653609573587, 0.0031749875, -0.02368146009632, False, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.05377831165147, 0.0031749875, -0.02368146009632, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.06370633435529, 0.006349999999998, -0.006445309568857, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(0.0712902, -0.0381, -0.0151323) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch2@Part2.SLDPRT", "DIMENSION", 0.07156601899581, 0.0031749875, -0.01527021863892, False, 0, Nothing) Part.WindowRedraw ' MSGBOX ' Please enter a number greater than or equal to 0.00000394 and less than or equal to 393700.78740157 Part.Parameter("D2@Sketch2").SystemValue = 0.00254 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch2@Part2.SLDPRT", "DIMENSION", 0.07060079456628, 0.0031749875, -0.008099980019493, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D2@Sketch2").SystemValue = 0.00508 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch2@Part2.SLDPRT", "DIMENSION", 0.07156601899581, 0.0031749875, -0.009203093653251, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D2@Sketch2").SystemValue = 0.000254 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch2@Part2.SLDPRT", "DIMENSION", 0.07046290536206, 0.0031749875, -0.006583198773077, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D2@Sketch2").SystemValue = 0.0254 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch2@Part2.SLDPRT", "DIMENSION", 0.07063209186192, 0.0031749875, -0.01998502767702, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch2@Part2.SLDPRT", "DIMENSION", 0.07039948097677, 0.0031749875, -0.01440236643343, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch2@Part2.SLDPRT", "DIMENSION", 0.07016687009162, 0.0031749875, -0.01975241679187, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0.05458194078659, 0.0031749875, -0.02231113652851, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(0.0703995, -0.0381, -0.0209155) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch2@Part2.SLDPRT", "DIMENSION", 0.07063209186192, 0.0031749875, -0.02114808210277, False, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch2@Part2.SLDPRT", "DIMENSION", 0.07063209186192, 0.0031749875, -0.02114808210277, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.InsertSketch2 True Part.WindowRedraw Part.ShowNamedView2 "*Isometric", 7 Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.FeatureManager.FeatureExtrusion True, False, True, 0, 0, 0.00635, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0585390625, -0.041275, -0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0585390625, -0.041275, 0.09525, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0521890625, -0.041275, 0.09525, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0585390625, -0.04445, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0553640625, -0.04445, 0.09525, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0553640625, -0.0381, -0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0585390625, -0.0381, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0553640625, -0.0381, 0.09525, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0521890625, -0.0381, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115490625, 0.00555625, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115490625, 0.003175, -0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.00555625, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.00635, -0.003175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0553640625, 0.00635, -0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115490625, 0.00635, -0.003175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0553640625, 0.00635, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115490625, 0, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0553640625, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0.00238125, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.00238125, 0.0047625, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0.0047625, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.0047625, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.003175, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115490625, 0.003175, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115490625, 0.00555625, 0.0635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115490625, 0.00635, 0.066675, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0553640625, 0.00635, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.00635, 0.066675, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0553640625, 0.00635, 0.0635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0553640625, 0, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.110728125, 0.0047625, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.113109375, 0.0047625, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115490625, 0.0047625, 0.03175, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing) Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Bottom" boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Main Wing Bars" boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Wing Crossabrs" boolstatus = Part.Extension.SelectByID("Main Wing Bars", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Main Wing Bars", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Wing Main Bars" boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Plane Body" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05834919935921, -0.03791010599861, 0.0502020375327, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ActiveView().RotateAboutCenter -0.0272336, 0.00753122 Part.ActiveView().RotateAboutCenter -0.115743, 0.0602497 Part.ActiveView().RotateAboutCenter -0.149785, 0.0602497 Part.ActiveView().RotateAboutCenter -0.122551, 0.0527185 Part.ActiveView().RotateAboutCenter -0.0817009, 0.0451873 Part.ActiveView().RotateAboutCenter -0.0680841, 0.0225936 Part.ActiveView().RotateAboutCenter -0.0953177, 0.0451873 Part.ActiveView().RotateAboutCenter -0.115743, 0.0150624 Part.ActiveView().RotateAboutCenter -0.0817009, 0.00753122 Part.ActiveView().RotateAboutCenter -0.0612756, 0.00753122 Part.ActiveView().RotateAboutCenter -0.034042, 0 Part.ActiveView().RotateAboutCenter -0.0476588, 0 Part.ActiveView().RotateAboutCenter -0.0476588, 0 Part.ActiveView().RotateAboutCenter -0.0204252, 0 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.0204252, 0 Part.ActiveView().RotateAboutCenter -0.0272336, 0.00753122 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1104659631232, -0.000213504131807, 0.04495753098098, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05884892896029, -0.03784764534663, 0.0183889242328, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1106577949147, -5.727668718691e-005, 0.03441529174501, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05871040217158, -0.03796046129872, 0.05272951242347, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1104955409635, -0.0001894159950098, 0.04047563940355, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0586687309841, -0.03799439823422, 0.08045771905711, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Unknown", "POINTREF", 0.110728125, 0, 0.03175, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreatePlaneThruLineAndPt True Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05245932682925, -0.03830629728367, -0.01483166177138, False, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Unknown", "POINTREF", 0, 0, 0.03175, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreatePlaneThruLineAndPt True boolstatus = Part.Extension.SelectByID("Wing Main Bars", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Wing Main Bars", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Wing Main Bars", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Wing Main Bars", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Wing Main Bars", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Plane Body", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Plane Body", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.InsertFeatureShell 2.54e-005, False Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.05461221177515, -0.0381000000001, 0.02892826769448, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.0585390624999, -0.04193894210795, 0.03147889381796, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.05571332092322, -0.04059206143825, 0.09524999999991, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Plane Body", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.05461221177515, -0.0381000000001, 0.02892826769448, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.0585390624999, -0.04193894210795, 0.03147889381796, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.05571332092322, -0.04059206143825, 0.09524999999991, True, 1, Nothing) Part.InsertFeatureShell 2.54e-005, False Part.ClearSelection2 True Part.EditUndo 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.05672473344399, -0.0381000000001, 0.03308971954993, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.DeSelectByID "", "FACE", 0.05731892046651, -0.0381000000001, 0.03111963830077 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.05386744153347, -0.04280019104431, 0.09524999999996, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.05386744153347, -0.04280019104431, 0.09524999999996, False, 1, Nothing) Part.InsertFeatureShell 2.54e-005, False Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", -0.004762499999998, 0.001985907276321, 0.02203318992423, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.004762499999998, 0.001985907276321, 0.02203318992423, False, 1, Nothing) Part.InsertFeatureShell 2.54e-005, False Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewDisplayShadedWithEdges Part.WindowRedraw Part.ActiveView().RotateAboutCenter 0.0204252, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0885093, 0.0677809 Part.ActiveView().RotateAboutCenter 0.0476588, 0.0301249 Part.ActiveView().RotateAboutCenter 0.0748925, 0.0225936 Part.ActiveView().RotateAboutCenter 0.0612756, 0.0376561 Part.ActiveView().RotateAboutCenter 0.0476588, 0.0150624 Part.ActiveView().RotateAboutCenter 0.0408504, 0.0150624 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0301249 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.0451873 Part.ActiveView().RotateAboutCenter 0, 0.0376561 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.0301249 Part.ActiveView().RotateAboutCenter 0, 0.0527185 Part.ActiveView().RotateAboutCenter 0, 0.0376561 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.0451873 Part.ActiveView().RotateAboutCenter 0, 0.0376561 Part.ActiveView().RotateAboutCenter 0, 0.0376561 Part.ActiveView().RotateAboutCenter 0, 0.0301249 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.0376561 Part.ActiveView().RotateAboutCenter 0, 0.0451873 Part.ActiveView().RotateAboutCenter 0, 0.0150624 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0376561 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0451873 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0225936 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0301249 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0225936 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0225936 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0451873 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0376561 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.0301249 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter -0.0136168, 0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter -0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.0301249 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.0301249 Part.ActiveView().RotateAboutCenter 0, -0.0376561 Part.ActiveView().RotateAboutCenter 0, -0.0451873 Part.ActiveView().RotateAboutCenter 0, -0.0376561 Part.ActiveView().RotateAboutCenter 0, -0.0451873 Part.ActiveView().RotateAboutCenter 0, -0.0527185 Part.ActiveView().RotateAboutCenter 0, -0.0527185 Part.ActiveView().RotateAboutCenter 0, -0.0527185 Part.ActiveView().RotateAboutCenter 0, -0.0451873 Part.ActiveView().RotateAboutCenter 0, -0.0451873 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0602497 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0753122 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0527185 Part.ActiveView().RotateAboutCenter -0.034042, -0.0677809 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0602497 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0828434 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0828434 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0677809 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0828434 Part.ActiveView().RotateAboutCenter 0, -0.0979058 Part.ActiveView().RotateAboutCenter 0, -0.0753122 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0979058 Part.ActiveView().RotateAboutCenter -0.0272336, -0.120499 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0527185 Part.ActiveView().RotateAboutCenter -0.0476588, -0.105437 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0677809 Part.ActiveView().RotateAboutCenter -0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0301249 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0150624 Part.ActiveView().RotateAboutCenter -0.034042, -0.0301249 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0301249 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0376561 Part.ActiveView().RotateAboutCenter 0, -0.0451873 Part.ActiveView().RotateAboutCenter 0, -0.0451873 Part.ActiveView().RotateAboutCenter 0, -0.0677809 Part.ActiveView().RotateAboutCenter 0.0136168, -0.0602497 Part.ActiveView().RotateAboutCenter 0.0136168, -0.0451873 Part.ActiveView().RotateAboutCenter 0, -0.0376561 Part.ActiveView().RotateAboutCenter 0, -0.0301249 Part.ActiveView().RotateAboutCenter 0, -0.0527185 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.0301249 Part.ActiveView().RotateAboutCenter 0, -0.0301249 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0225936 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0225936 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0301249 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0150624 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0602497 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0527185 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0527185 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0979058 Part.ActiveView().RotateAboutCenter 0, 0.0376561 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Shell4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.1154906249999, 0.002731052883291, 0.05937727355911, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Shell3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Shell4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter 0.0748925, 0.0376561 Part.ActiveView().RotateAboutCenter 0.0612756, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0272336, -0.0150624 Part.ActiveView().RotateAboutCenter 0.0272336, -0.0527185 Part.ActiveView().RotateAboutCenter 0.0272336, -0.0301249 Part.ActiveView().RotateAboutCenter 0.034042, -0.0527185 Part.ActiveView().RotateAboutCenter 0.0136168, -0.0225936 Part.ActiveView().RotateAboutCenter 0.00680841, -0.0301249 Part.ActiveView().RotateAboutCenter 0, -0.0376561 Part.ActiveView().RotateAboutCenter 0, -0.0376561 Part.ActiveView().RotateAboutCenter 0, -0.0301249 Part.ActiveView().RotateAboutCenter 0, -0.0301249 Part.ActiveView().RotateAboutCenter 0, -0.0451873 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0301249 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0451873 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0677809 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0451873 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0376561 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0527185 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0451873 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0376561 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0136168, -0.00753122 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0225936 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0225936 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0301249 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0225936 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, 0.0225936 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter 0.0272336, 0 Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.0204252, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0150624 Part.ActiveView().RotateAboutCenter 0.0136168, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0150624 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0150624 Part.ActiveView().RotateAboutCenter 0.00680841, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0225936 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0150624 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0150624 Part.ActiveView().RotateAboutCenter 0.00680841, 0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.0136168, 0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, 0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, 0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0225936 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0225936 Part.ActiveView().RotateAboutCenter 0.0136168, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0136168, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0136168, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0150624 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0136168, 0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0150624 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.0150624 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.0204252, 0 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.0204252, 0 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.0204252, 0 Part.ActiveView().RotateAboutCenter -0.0136168, -0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.0136168, -0.00753122 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.0136168, -0.00753122 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.0136168, -0.00753122 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0204252, 0 Part.ActiveView().RotateAboutCenter -0.0136168, -0.00753122 Part.ActiveView().RotateAboutCenter -0.0204252, -0.00753122 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0150624 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, 0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.0150624 Part.ActiveView().RotateAboutCenter 0, 0.0376561 Part.ActiveView().RotateAboutCenter 0, 0.0376561 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0376561 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0225936 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0301249 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0376561 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0376561 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0301249 Part.ActiveView().RotateAboutCenter 0.0408504, 0.0753122 Part.ActiveView().RotateAboutCenter 0.034042, 0.0677809 Part.ActiveView().RotateAboutCenter 0.0612756, 0.135562 Part.ActiveView().RotateAboutCenter 0.0408504, 0.105437 Part.ActiveView().RotateAboutCenter 0.0612756, 0.135562 Part.ActiveView().RotateAboutCenter 0.0544672, 0.143093 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0828434 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0677809 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0602497 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0677809 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0828434 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0677809 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0677809 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0677809 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0903746 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0753122 Part.ActiveView().RotateAboutCenter 0, 0.0376561 Part.ActiveView().RotateAboutCenter 0, 0.0301249 Part.ActiveView().RotateAboutCenter 0, 0.0301249 Part.ActiveView().RotateAboutCenter 0, 0.0451873 Part.ActiveView().RotateAboutCenter 0, 0.0150624 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0225936 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0225936 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0376561 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0301249 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.0376561 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0301249 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0225936 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0301249 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0301249 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0301249 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0451873 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0376561 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0376561 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0677809 Part.ActiveView().RotateAboutCenter -0.034042, -0.0602497 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0527185 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0301249 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0677809 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0451873 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0301249 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0527185 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0376561 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0527185 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0451873 Part.ActiveView().RotateAboutCenter -0.034042, -0.0602497 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0376561 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0451873 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0451873 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0376561 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0602497 Part.ActiveView().RotateAboutCenter -0.034042, -0.0451873 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0301249 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0150624 Part.ActiveView().RotateAboutCenter -0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter -0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0225936 Part.ActiveView().RotateAboutCenter -0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.0272336, 0 Part.ActiveView().RotateAboutCenter 0.0408504, 0.0150624 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0150624 Part.ActiveView().RotateAboutCenter 0.034042, 0.0301249 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0150624 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0150624 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0301249 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0301249 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0376561 Part.ActiveView().RotateAboutCenter 0.034042, 0.0376561 Part.ActiveView().RotateAboutCenter 0.034042, 0.0225936 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0150624 Part.ActiveView().RotateAboutCenter 0.0136168, 0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter -0.0136168, -0.00753122 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0301249 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0301249 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0451873 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0225936 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0451873 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0376561 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0817009, -0.112968 Part.ActiveView().RotateAboutCenter -0.0476588, -0.0828434 Part.ActiveView().RotateAboutCenter -0.0408504, -0.0753122 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0753122 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0527185 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0301249 Part.ActiveView().RotateAboutCenter -0.034042, -0.0677809 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0677809 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0301249 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.0136168, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0451873 Part.ActiveView().RotateAboutCenter 0.034042, 0.0602497 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0150624 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0527185 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0376561 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.0150624 Part.ActiveView().RotateAboutCenter 0, 0.0301249 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0451873 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0376561 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0451873 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0301249 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0527185 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0451873 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0451873 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0527185 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0376561 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0301249 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0150624 Part.ActiveView().RotateAboutCenter 0.00680841, 0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0225936 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0301249 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0150624 Part.ActiveView().RotateAboutCenter 0.0136168, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0204252, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0150624 Part.ActiveView().RotateAboutCenter 0.0204252, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0451873 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0451873 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0376561 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0451873 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, 0.0225936 Part.ActiveView().RotateAboutCenter -0.0204252, 0 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.0204252, 0 Part.ActiveView().RotateAboutCenter -0.0204252, 0 Part.ActiveView().RotateAboutCenter -0.0204252, 0.00753122 Part.ActiveView().RotateAboutCenter -0.0204252, 0 Part.ActiveView().RotateAboutCenter -0.0204252, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.0136168, -0.00753122 Part.ActiveView().RotateAboutCenter -0.0136168, -0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter -0.0204252, -0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0301249 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0301249 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0408504, -0.0376561 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0451873 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0301249 Part.ActiveView().RotateAboutCenter -0.034042, -0.0376561 Part.ActiveView().RotateAboutCenter -0.034042, -0.0376561 Part.ActiveView().RotateAboutCenter -0.0476588, -0.0376561 Part.ActiveView().RotateAboutCenter -0.0408504, -0.0301249 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0225936 Part.ActiveView().RotateAboutCenter -0.034042, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0408504, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0408504, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0408504, 0 Part.ActiveView().RotateAboutCenter -0.034042, -0.00753122 Part.ActiveView().RotateAboutCenter -0.034042, 0 Part.ActiveView().RotateAboutCenter -0.0272336, 0 Part.ActiveView().RotateAboutCenter -0.0408504, 0 Part.ActiveView().RotateAboutCenter -0.0272336, 0 Part.ActiveView().RotateAboutCenter -0.0408504, 0 Part.ActiveView().RotateAboutCenter -0.034042, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.0476588, 0.0150624 Part.ActiveView().RotateAboutCenter 0.102126, 0.0602497 Part.ActiveView().RotateAboutCenter 0.122551, 0.0828434 Part.ActiveView().RotateAboutCenter 0.122551, 0.0903746 Part.ActiveView().RotateAboutCenter 0.12936, 0.0903746 Part.ActiveView().RotateAboutCenter 0.0885093, 0.0828434 Part.ActiveView().RotateAboutCenter 0.136168, 0.112968 Part.ActiveView().RotateAboutCenter 0.190635, 0.158156 Part.ActiveView().RotateAboutCenter 0.108934, 0.0903746 Part.ActiveView().RotateAboutCenter 0.0612756, 0.0527185 Part.ActiveView().RotateAboutCenter 0.0612756, 0.0451873 Part.ActiveView().RotateAboutCenter 0.0680841, 0.0527185 Part.ActiveView().RotateAboutCenter 0.0544672, 0.0376561 Part.ActiveView().RotateAboutCenter 0.0476588, 0.0301249 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.0301249 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.0602497 Part.ActiveView().RotateAboutCenter 0, 0.0451873 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.0150624 Part.ActiveView().RotateAboutCenter -0.00680841, 0.0451873 Part.ActiveView().RotateAboutCenter -0.00680841, 0.0451873 Part.ActiveView().RotateAboutCenter -0.0204252, 0.0527185 Part.ActiveView().RotateAboutCenter -0.0136168, 0.0376561 Part.ActiveView().RotateAboutCenter -0.00680841, 0.00753122 Part.ActiveView().RotateAboutCenter -0.0136168, 0.00753122 Part.ActiveView().RotateAboutCenter -0.0204252, 0.0150624 Part.ActiveView().RotateAboutCenter -0.00680841, 0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.0204252, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0204252, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0136168, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0204252, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0272336, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0272336, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.0272336, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0204252, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter 0.0272336, 0 Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter 0.0272336, 0 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.0204252, 0 Part.ActiveView().RotateAboutCenter -0.0272336, -0.00753122 Part.ActiveView().RotateAboutCenter -0.0136168, -0.00753122 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.0204252, 0 Part.ActiveView().RotateAboutCenter -0.0204252, 0 Part.ActiveView().RotateAboutCenter -0.0272336, 0 Part.ActiveView().RotateAboutCenter -0.0204252, 0 Part.ActiveView().RotateAboutCenter -0.0272336, 0 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter 0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.0408504, 0.00753122 Part.ActiveView().RotateAboutCenter -0.0476588, 0.0150624 Part.ActiveView().RotateAboutCenter -0.0476588, 0.0150624 Part.ActiveView().RotateAboutCenter -0.0817009, 0 Part.ActiveView().RotateAboutCenter -0.0476588, -0.00753122 Part.ActiveView().RotateAboutCenter -0.0476588, -0.0376561 Part.ActiveView().RotateAboutCenter -0.0885093, -0.0527185 Part.ActiveView().RotateAboutCenter -0.0885093, -0.0677809 Part.ActiveView().RotateAboutCenter -0.0612756, -0.0451873 Part.ActiveView().RotateAboutCenter -0.0544672, -0.0527185 Part.ActiveView().RotateAboutCenter -0.0476588, -0.0376561 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0301249 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0451873 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0753122 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0828434 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.0376561 Part.ActiveView().RotateAboutCenter 0, -0.0527185 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.0376561 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0225936 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0451873 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0301249 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0451873 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0225936 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0451873 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0376561 Part.ActiveView().RotateAboutCenter 0, -0.0301249 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.0301249 Part.ActiveView().RotateAboutCenter 0.0136168, -0.0451873 Part.ActiveView().RotateAboutCenter 0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter 0.0136168, -0.0301249 Part.ActiveView().RotateAboutCenter 0.0136168, -0.0225936 Part.ActiveView().RotateAboutCenter 0.00680841, -0.0301249 Part.ActiveView().RotateAboutCenter 0.0136168, -0.0150624 Part.ActiveView().RotateAboutCenter 0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter 0.0136168, -0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter 0.0204252, -0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0150624 Part.ActiveView().RotateAboutCenter 0.034042, 0.0451873 Part.ActiveView().RotateAboutCenter 0.0408504, 0.0602497 Part.ActiveView().RotateAboutCenter 0.0408504, 0.0602497 Part.ActiveView().RotateAboutCenter 0.0476588, 0.0677809 Part.ActiveView().RotateAboutCenter 0.0408504, 0.112968 Part.ActiveView().RotateAboutCenter 0.034042, 0.0828434 Part.ActiveView().RotateAboutCenter 0.0408504, 0.0903746 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0979058 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0602497 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0602497 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0979058 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0451873 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0376561 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0753122 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0903746 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0602497 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0677809 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0602497 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0677809 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0376561 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0527185 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0301249 Part.ActiveView().RotateAboutCenter 0, 0.0150624 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.0376561 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter -0.00680841, 0.0376561 Part.ActiveView().RotateAboutCenter -0.0136168, 0.0301249 Part.ActiveView().RotateAboutCenter -0.0272336, 0.0301249 Part.ActiveView().RotateAboutCenter -0.0204252, 0.0150624 Part.ActiveView().RotateAboutCenter -0.00680841, 0.0301249 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.0150624 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0225936 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0225936 Part.ActiveView().RotateAboutCenter 0.034042, 0.0301249 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0225936 Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter 0.034042, 0.00753122 Part.ActiveView().RotateAboutCenter 0.034042, 0.0301249 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0150624 Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter 0.0476588, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0544672, 0.0301249 Part.ActiveView().RotateAboutCenter 0.0544672, 0.0150624 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0150624 Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter 0.0272336, 0 Part.ActiveView().RotateAboutCenter 0.034042, 0 Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter 0.0136168, -0.0150624 Part.ActiveView().RotateAboutCenter 0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter 0.0136168, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.0376561 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.0301249 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.0301249 Part.ActiveView().RotateAboutCenter 0, -0.0301249 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0225936 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0225936 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0376561 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter -0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0225936 Part.ActiveView().RotateAboutCenter -0.034042, -0.0527185 Part.ActiveView().RotateAboutCenter -0.0612756, -0.0753122 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0301249 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0376561 Part.ActiveView().RotateAboutCenter -0.034042, -0.0376561 Part.ActiveView().RotateAboutCenter -0.034042, -0.0301249 Part.ActiveView().RotateAboutCenter -0.108934, -0.112968 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0748925, -0.112968 Part.ActiveView().RotateAboutCenter -0.0476588, -0.0677809 Part.ActiveView().RotateAboutCenter -0.034042, -0.0301249 Part.ActiveView().RotateAboutCenter -0.0544672, -0.0753122 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0225936 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0225936 Part.ActiveView().RotateAboutCenter -0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0136168, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.0136168, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0408504, 0.0753122 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0376561 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0150624 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.0150624 Part.ActiveView().RotateAboutCenter 0, 0.0150624 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0376561 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0301249 Part.ActiveView().RotateAboutCenter 0, 0.0301249 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.0150624 Part.ActiveView().RotateAboutCenter -0.0204252, -0.00753122 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0225936 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0225936 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0301249 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0451873 Part.ActiveView().RotateAboutCenter -0.034042, -0.112968 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0677809 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0828434 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0828434 Part.ActiveView().RotateAboutCenter 0, -0.0301249 Part.ActiveView().RotateAboutCenter 0, -0.0979058 Part.ActiveView().RotateAboutCenter 0, -0.0451873 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter 0.00680841, -0.0451873 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.0451873 Part.ActiveView().RotateAboutCenter 0, -0.0527185 Part.ActiveView().RotateAboutCenter 0, -0.0602497 Part.ActiveView().RotateAboutCenter 0.00680841, -0.0376561 Part.ActiveView().RotateAboutCenter 0.0136168, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.0376561 Part.ActiveView().RotateAboutCenter 0.00680841, -0.0225936 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0602497 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0753122 Part.ActiveView().RotateAboutCenter -0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0150624 Part.ActiveView().RotateAboutCenter 0.00680841, -0.00753122 Part.ActiveView().RotateAboutCenter 0.034042, 0.0301249 Part.ActiveView().RotateAboutCenter 0.142977, 0.180749 Part.ActiveView().RotateAboutCenter 0.149785, 0.218405 Part.ActiveView().RotateAboutCenter 0.0885093, 0.120499 Part.ActiveView().RotateAboutCenter 0.0817009, 0.143093 Part.ActiveView().RotateAboutCenter 0.0885093, 0.150624 Part.ActiveView().RotateAboutCenter 0.0544672, 0.0903746 Part.ActiveView().RotateAboutCenter 0.0408504, 0.0828434 Part.ActiveView().RotateAboutCenter 0, 0.0903746 Part.ActiveView().RotateAboutCenter 0.0136168, 0.0828434 Part.ActiveView().RotateAboutCenter 0.00680841, 0.0903746 Part.ActiveView().RotateAboutCenter 0, 0.0828434 Part.ActiveView().RotateAboutCenter 0, 0.0677809 Part.ActiveView().RotateAboutCenter 0, 0.0451873 Part.ActiveView().RotateAboutCenter -0.00680841, 0.0225936 Part.ActiveView().RotateAboutCenter -0.0204252, 0.00753122 Part.ActiveView().RotateAboutCenter -0.0204252, 0.00753122 Part.ActiveView().RotateAboutCenter -0.0272336, 0.00753122 Part.ActiveView().RotateAboutCenter -0.0272336, 0.00753122 Part.ActiveView().RotateAboutCenter -0.034042, 0 Part.ActiveView().RotateAboutCenter -0.0408504, 0 Part.ActiveView().RotateAboutCenter -0.0272336, 0 Part.ActiveView().RotateAboutCenter -0.0612756, 0 Part.ActiveView().RotateAboutCenter -0.0885093, 0 Part.ActiveView().RotateAboutCenter -0.0476588, 0 Part.ActiveView().RotateAboutCenter -0.0408504, 0 Part.ActiveView().RotateAboutCenter -0.0544672, 0.00753122 Part.ActiveView().RotateAboutCenter -0.0544672, 0.0150624 Part.ActiveView().RotateAboutCenter -0.0204252, 0.00753122 Part.ActiveView().RotateAboutCenter -0.034042, 0.0301249 Part.ActiveView().RotateAboutCenter -0.0272336, 0.0225936 Part.ActiveView().RotateAboutCenter -0.034042, 0.0451873 Part.ActiveView().RotateAboutCenter -0.0204252, 0.0451873 Part.ActiveView().RotateAboutCenter -0.0204252, 0.0301249 Part.ActiveView().RotateAboutCenter -0.00680841, 0.0150624 Part.ActiveView().RotateAboutCenter 0, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, 0.00753122 Part.ActiveView().RotateAboutCenter 0.034042, 0.0150624 Part.ActiveView().RotateAboutCenter 0.0204252, 0.00753122 Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter 0.0136168, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0, -0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.0301249 Part.ActiveView().RotateAboutCenter 0.00680841, -0.0225936 Part.ActiveView().RotateAboutCenter 0, -0.0451873 Part.ActiveView().RotateAboutCenter 0, -0.0602497 Part.ActiveView().RotateAboutCenter 0, -0.0828434 Part.ActiveView().RotateAboutCenter 0.00680841, -0.0828434 Part.ActiveView().RotateAboutCenter 0.00680841, -0.0828434 Part.ActiveView().RotateAboutCenter 0, -0.0677809 Part.ActiveView().RotateAboutCenter 0.00680841, -0.0903746 Part.ActiveView().RotateAboutCenter 0.00680841, -0.105437 Part.ActiveView().RotateAboutCenter 0.00680841, -0.105437 Part.ActiveView().RotateAboutCenter 0, -0.105437 Part.ActiveView().RotateAboutCenter 0.00680841, -0.0903746 Part.ActiveView().RotateAboutCenter 0, -0.0677809 Part.ActiveView().RotateAboutCenter -0.0136168, -0.120499 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0753122 Part.ActiveView().RotateAboutCenter 0, -0.0753122 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0828434 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0979058 Part.ActiveView().RotateAboutCenter 0, -0.105437 Part.ActiveView().RotateAboutCenter 0, -0.0979058 Part.ActiveView().RotateAboutCenter 0, -0.0602497 Part.ActiveView().RotateAboutCenter 0, -0.0677809 Part.ActiveView().RotateAboutCenter 0, -0.0753122 Part.ActiveView().RotateAboutCenter 0, -0.0451873 Part.ActiveView().RotateAboutCenter 0, -0.0301249 Part.ActiveView().RotateAboutCenter 0, -0.0451873 Part.ActiveView().RotateAboutCenter 0.00680841, -0.0376561 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter 0.00680841, -0.0301249 Part.ActiveView().RotateAboutCenter 0.00680841, -0.0376561 Part.ActiveView().RotateAboutCenter 0.0136168, -0.0376561 Part.ActiveView().RotateAboutCenter 0, -0.0301249 Part.ActiveView().RotateAboutCenter 0, -0.0376561 Part.ActiveView().RotateAboutCenter 0, -0.0225936 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0150624 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Shell3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0, 0, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Shell4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0, 0, True, 0, Nothing) Part.DeSelectByID "", "FACE", 0, 0, 0 Part.WindowRedraw Part.ShowNamedView2 "*Trimetric", 8 Part.WindowRedraw Part.ShowNamedView2 "*Dimetric", 9 boolstatus = Part.Extension.SelectByID("Shell3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ActiveView().RotateAboutCenter 0.279145, 0.143093 Part.ActiveView().RotateAboutCenter 0.0885093, 0.0225936 Part.ActiveView().RotateAboutCenter 0.0476588, 0 Part.ActiveView().RotateAboutCenter 0.0476588, 0 Part.ActiveView().RotateAboutCenter 0.0476588, 0 Part.ActiveView().RotateAboutCenter 0.0476588, 0 Part.ActiveView().RotateAboutCenter 0.0612756, -0.00753122 Part.ActiveView().RotateAboutCenter 0.0408504, -0.00753122 Part.ActiveView().RotateAboutCenter 0.0272336, -0.00753122 Part.ActiveView().RotateAboutCenter 0.0272336, -0.0150624 Part.ActiveView().RotateAboutCenter 0.0476588, -0.0301249 Part.ActiveView().RotateAboutCenter 0.0612756, -0.0301249 Part.ActiveView().RotateAboutCenter 0.0272336, -0.0376561 Part.ActiveView().RotateAboutCenter 0.00680841, -0.0376561 Part.ActiveView().RotateAboutCenter 0, -0.0677809 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.0544672, -0.00753122 Part.ActiveView().RotateAboutCenter -0.108934, 0.0225936 Part.ActiveView().RotateAboutCenter -0.0680841, 0.0376561 Part.ActiveView().RotateAboutCenter -0.0680841, 0.0602497 Part.ActiveView().RotateAboutCenter -0.0476588, 0.0376561 Part.ActiveView().RotateAboutCenter -0.0408504, 0.0451873 Part.ActiveView().RotateAboutCenter -0.0408504, 0.0527185 Part.ActiveView().RotateAboutCenter -0.034042, 0.0301249 Part.ActiveView().RotateAboutCenter -0.0204252, 0.0225936 Part.ActiveView().RotateAboutCenter 0, 0.00753122 Part.ActiveView().RotateAboutCenter 0, -0.0150624 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.DeSelectByID "", "FACE", 0.05403399944373, -0.04347943296142, 0.09525000000002 Part.WindowRedraw Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.0885093, -0.0225936 Part.ActiveView().RotateAboutCenter 0.108934, -0.0527185 Part.ActiveView().RotateAboutCenter 0.177019, -0.112968 Part.ActiveView().RotateAboutCenter 0.197444, -0.128031 Part.ActiveView().RotateAboutCenter 0.265528, -0.128031 Part.ActiveView().RotateAboutCenter 0.347229, -0.173218 Part.ActiveView().RotateAboutCenter 0.224677, -0.105437 Part.ActiveView().RotateAboutCenter 0.190635, -0.0979058 Part.ActiveView().RotateAboutCenter 0.12936, -0.0903746 Part.ActiveView().RotateAboutCenter 0.0612756, -0.0527185 Part.ActiveView().RotateAboutCenter 0.0612756, -0.0527185 Part.ActiveView().RotateAboutCenter 0.0136168, -0.00753122 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.05557245500255, -0.0420823349645, -0.03174999999993, True, 0, Nothing) Part.WindowRedraw Part.ShowNamedView2 "*Dimetric", 9 Part.WindowRedraw Part.ShowNamedView2 "*Trimetric", 8 Part.WindowRedraw Part.ShowNamedView2 "*Isometric", 7 Part.ViewDisplayShaded Part.ViewDisplayShadedWithEdges boolstatus = Part.Extension.SelectByID("Shell3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ReorderFeature "Shell3", "Plane Body" boolstatus = Part.Extension.SelectByID("Shell4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ReorderFeature "Shell4", "Wing Crossabrs" boolstatus = Part.Extension.SelectByID("Shell4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Hollow out wing" boolstatus = Part.Extension.SelectByID("Shell3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Shell3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Hollow out body" boolstatus = Part.Extension.SelectByID("Plane Body", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Wing Main Bars", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Wing Crossabrs", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane Body", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Hollow out body", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane2", "PLANE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane3", "PLANE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane2", "PLANE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane2", "PLANE", 0, 0, 0, False, 0, Nothing) Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Plane2" Part.InsertSketch2 True Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.02107126128191, 0.09525, 0, 0.08943204668321, 0.06985, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.0787284463702, -0.001993080644189, 0.07924104595399, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.InsertSketch2 True Part.WindowRedraw Part.ShowNamedView2 "*Trimetric", 8 Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.0585390625, -0.0381, 0.09525, False, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.110730665, 2.54e-006, 0.06350254, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.0585390625, -0.0381, 0.09525, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.110730665, 2.54e-006, 0.06350254, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.0585390625, -0.0381, 0.09525, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.0585390625, -0.0381, 0.09525, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.110730665, 2.54e-006, 0.06350254, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Hollow out body", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane Body", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Plane Body", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.FeatEdit Part.ClearSelection2 True Part.WindowRedraw Part.ShowNamedView2 "*Top", 5 Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch2@Part2.SLDPRT", "DIMENSION", 0.07140723372152, -0.01159923198176, -0.02102869962242, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.05662804689927, -0.01159923198176, -0.0317241637701, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0.05507234302325, -0.01159923198176, -0.01286125427328, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", 0.05429449108523, -0.01159923198176, 0.07561940367572, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.05565573197675, -0.01159923198176, -0.0317241637701, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.05585019496126, -0.01159923198176, -0.0317241637701, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point7", "SKETCHPOINT", -0.0553640625, -0.00635, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.05507234302325, -0.01159923198176, -0.0317241637701, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( -0.0553640625, -0.03175, 0, -0.0553640625, -0.04261409090228, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point19", "SKETCHPOINT", -0.0553640625, -0.03175, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point7", "SKETCHPOINT", -0.0553640625, -0.00635, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchAddConstraints "sgMERGEPOINTS" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0.05604465794576, -0.01159923198176, -0.03911375718122, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( -0.0553640625, 0.12065, 0, -0.0553640625, 0.1054852388758, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point21", "SKETCHPOINT", -0.0553640625, 0.12065, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point21", "SKETCHPOINT", -0.0553640625, 0.12065, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point8", "SKETCHPOINT", -0.0553640625, 0.06985, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchAddConstraints "sgMERGEPOINTS" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line14", "SKETCHSEGMENT", 0.05498711568402, -0.01159923198176, 0.1010343785158, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.InsertSketch2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ShowNamedView2 "*Trimetric", 8 boolstatus = Part.Extension.SelectByID("Plane2", "PLANE", 0, 0, 0, False, 0, Nothing) Part.InsertSketch2 True Part.WindowRedraw Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateplusy Part.ViewRotateplusy Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.02107126128191, 0.06985, 0, 0.0932785863255, 0.06985, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.0932785863255, 0.06985, 0, 0.0932785863255, 0.0635, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.0932785863255, 0.0635, 0, 0.02107126128191, 0.0635, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.02107126128191, 0.0635, 0, 0.02107126128191, 0.06985, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", 0.05873696366666, -0.04430552462367, 0.06584742045937, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(0.0287618, -0.0598385, 0.0708017) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle 0.02107126128191, -0.00635, 0, 0.0932785863255, 0, 0, 1 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", 0.05843562564218, -0.04452551283913, 0.06592228214134, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0.05857460794118, -0.04442405047644, -0.003424979011296, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch4@Part2.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Wing Crossabrs", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane3", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.InsertSketch2 True Part.InsertSketch2 True Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane2", "PLANE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane3", "PLANE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCH", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Plane2", "PLANE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane3", "PLANE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCH", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05843562564222, -0.04452551283923, 0.04122534679811, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Unknown", "POINTREF", 0.115488085, 2.54e-006, 0.03175, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreatePlaneThruLineAndPt True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05205848170414, -0.04454532894552, 0.02326281039245, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Unknown", "POINTREF", -0.0047625, 0, 0.03175, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.DeSelectByID "Plane4", "PLANE", 0, 0, 0 Part.CreatePlaneThruLineAndPt True Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Plane4", "PLANE", 0, 0, 0, False, 0, Nothing) Part.InsertSketch2 True Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ShowNamedView2 "*Bottom", 6 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle 0.01879497079777, 0.06985, 0, 0.09103957584535, 0.0635, 0, 1 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle 0.01879497079777, -0.00635, 0, 0.09103957584535, 0, 0, 1 Part.ClearSelection2 True Part.InsertSketch2 True Part.InsertSketch2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ShowNamedView2 "*Isometric", 7 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.05853906249985, -0.0381743289667, 0.05372960308949, True, 1, Nothing) Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.DeSelectByID "", "FACE", 0.05853906249985, -0.0381743289667, 0.05372960308949 boolstatus = Part.Extension.SelectByID("", "FACE", 0.04210470049702, 0, 0.06938137433076, True, 1, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.08157428861358, 0, 0.06887479643842, True, 1, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.0585390625, -0.0381, 0.06985, True, 1, Nothing) swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.FeatureManager.FeatureExtrusion True, False, True, 0, 0, 0.00635, 0.000254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.SaveAs2 "C:\Documents and Settings\jdecew\Desktop\Stuff\Glider MK I\Connector.SLDPRT", 0, FALSE, FALSE swApp.ActiveDoc.ActiveView.FrameState = 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.05880269512562, -0.0442442170152, 0.06643911608849, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(0.0327111, -0.0646105, 0.0681736) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.02361008632579, 0.0635, 0, 0.09103957584535, 0.004432321080313, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.09103957584535, 0.004432321080313, 0, 0.09103957584535, 0, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.08648410923621, 0, 0, 0.01879497079777, 0.0602239827893, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.01879497079777, 0.0602239827893, 0, 0.01879497079777, 0.0635, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", 0.06259904876036, -0.01340257489601, 0.04071135498953, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0.06727047335366, -0.009756214002091, 0.04302396272876, True, 0, Nothing) Part.SketchAddConstraints "sgPARALLEL" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0.0598645563155, -0.01553703005342, 0.0009634094714631, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.05786317803563, -0.04444999999998, -0.002505502137386, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.05880269512562, -0.0442442170152, 0.06586096415368, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.05455577207615, 0.03639183348598, 0, 0.05084136585017, 0.03215160396847, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line15", "SKETCHSEGMENT", 0.07205583513217, -0.006020917476616, 0.03492983564145, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.05857482075515, -0.04442208827834, 0.0667281920559, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.05786317803563, -0.04444999999998, -0.002650040121088, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.05853906250002, -0.03991312450495, 0.06369289439815, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line14", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line14", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0.1148456770503, 0, 0.001975175357378, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line14", "SKETCHSEGMENT", 0.05880269512562, -0.0442442170152, 0.06051305875671, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point15", "SKETCHPOINT", 0.08622131875834, 0, 0, False, 0, Nothing) Part.WindowRedraw ' MSGBOX ' A solution cannot be determined for this sketch. Consider: ' o Moving the sketch closer to the desired solution by dragging or changing dimension values. ' o Adding more dimensions or relations to further define the sketch. ' o Changing the dimensioning scheme. Part.ClearSelection2 True Part.EditUndo 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.09103957584535, 0, 0, 0.08622131875834, 0, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line15", "SKETCHSEGMENT", 0.07103040046534, -0.006821338160647, 0.03247268991851, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw 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("Line3", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line14", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line15", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. Part.InsertSketch2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. boolstatus = Part.Extension.SelectByID("Plane5", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. Part.InsertSketch2 True Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.09103957584535, 0.004500802504067, 0, 0.09103957584535, 0, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line17", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.05853906250002, -0.04226215248917, 0.06470466028407, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line14", "SKETCHSEGMENT", 0.05834694638475, -0.04459995954142, 0.06152482464262, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line17", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0.07934781498513, -0.0003290370568446, 0.02900377830966, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point14", "SKETCHPOINT", 0.09103957584535, 0.004500802504067, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line17", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.EditRebuild Part.ClearSelection2 True ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line17", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line17", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line17", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line14", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line14", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch has more than one open contour. Part.InsertSketch2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch has more than one open contour. Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.01879497079777, 0.05899919749593, 0, 0.01879497079777, 0.0635, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.09103957584535, 0.004500802504067, 0, 0.09103957584535, 0, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line18", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. Part.InsertSketch2 True Part.ClearSelection2 True ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line18", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. Part.InsertSketch2 True Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.09103957584535, 0.004500802504067, 0, 0.08653877334129, 0, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.02329577330184, 0.0635, 0, 0.01879497079777, 0.05899919749593, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch has intersecting contours. Part.InsertSketch2 True Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line21", "SKETCHSEGMENT", 0.05853906250007, -0.03967822170659, 0.06123574867522, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", 0.05393982268497, -0.02016168289449, 0.04938363401165, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line15", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line20", "SKETCHSEGMENT", 0.1128287453906, 0, 0.003131479226994, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.02389916229316, 0.0635, 0, 0.08850764100799, 0.007711127457213, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.08850764100799, 0.007711127457213, 0, 0.09103957584535, 0, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.08315973561105, 0, 0, 0.0199966367332, 0.05290142042793, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.0199966367332, 0.05290142042793, 0, 0.01879497079777, 0.0635, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", 0.05853906250002, -0.04296686088446, 0.05812471020144, False, 0, Nothing) Part.WindowRedraw Part.SketchAddConstraints "sgVERTICAL" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0.1130121028142, 0, 0.004161073069838, False, 0, Nothing) Part.WindowRedraw Part.SketchAddConstraints "sgVERTICAL" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", 0.05846088356986, -0.04451102390976, 0.0588868896956, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line24", "SKETCHSEGMENT", 0.08035606295587, -0.005379168119308, 0.01457760452548, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", 0.08480993751327, 0.0006600255863303, 0.02211670497771, True, 0, Nothing) Part.SketchAddConstraints "sgPARALLEL" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.06004652582982, 0.03346413113337, 0, 0.05417140996668, 0.02639358658319, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.08593538434996, 0, 0, 0.09103957584535, 0, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line27", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line27", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.DeSelectByID "Line9", "SKETCHSEGMENT", 0.09103957584535, -0.004708721273204, 0 Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line26", "SKETCHSEGMENT", 0.07536924543085, -0.00533283375291, 0.0261654811465, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.05891663231085, -0.04415528138372, 0.06696727320698, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. Part.InsertSketch2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", 0.05823300919945, -0.04468889517284, 0.06232853452445, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line26", "SKETCHSEGMENT", 0.07548202862507, -0.005007516922413, 0.02686354600319, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line27", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.01879497079777, 0.06985, 0, 0.01879497079777, 0.05899919749593, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.09103957584535, 0.004500802504067, 0, 0.09103957584535, -0.00635, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. 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("Line28", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. Part.InsertSketch2 True Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line29", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0.1141122473558, 0, -0.0004459195858999, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point9", "SKETCHPOINT", 0.09103957584535, 0, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0.1133788176614, 0, -0.0001179312297381, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point9", "SKETCHPOINT", 0.09103957584535, 0, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0.1001770831612, 0, -0.002444161062584, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.05968836520188, -0.007559515807619, 0.05562381809872, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw 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("Line4", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line24", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.09103957584535, 0.06985, 0, 0.01879497079777, 0.06985, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.01879497079777, 0.06985, 0, 0.01879497079777, 0.06412417530478, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.01879497079777, 0.06412417530478, 0, 0.08084712787178, 0.004269482628331, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.08084712787178, 0.004269482628331, 0, 0.01879497079777, 0.004269482628331, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.01879497079777, 0.004269482628331, 0, 0.01879497079777, -0.00635, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.01879497079777, -0.00635, 0, 0.09103957584535, -0.00635, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.09103957584535, -0.00635, 0, 0.09103957584535, 0.009057858042439, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.09103957584535, 0.009057858042439, 0, 0.03213782736424, 0.06083216720756, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.03213782736424, 0.06083216720756, 0, 0.09103957584535, 0.05993434681741, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.09103957584535, 0.05993434681741, 0, 0.09103957584535, 0.06985, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point31", "SKETCHPOINT", 0.01879497079777, 0.06412417530478, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line40", "SKETCHSEGMENT", 0.05989783730095, -0.008297680226777, 0.05297117164331, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line40", "SKETCHSEGMENT", 0.0668928880778, -0.002695203729695, 0.05339001055732, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line40", "SKETCHSEGMENT", 0.06946856085796, -0.0008270871758263, 0.05297117164331, False, 0, Nothing) Part.WindowRedraw Part.SketchAddConstraints "sgHORIZONTAL" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line34", "SKETCHSEGMENT", 0.04994614956644, -1.153068637905e-005, -0.006383922370986, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0.08482378540498, -0.002176548800924, 0.01373992669745, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line39", "SKETCHSEGMENT", 0.09023750189642, 0.004042389332359, 0.01960367149363, True, 0, Nothing) Part.SketchAddConstraints "sgPARALLEL" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line31", "SKETCHSEGMENT", 0.05857482075515, -0.04442208827828, 0.06606945281678, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line37", "SKETCHSEGMENT", 0.1153177326464, -0.0001349541033733, 0.004120801170814, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line40", "SKETCHSEGMENT", 0.06674445433189, -0.005088973123681, 0.04668858793312, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line41", "SKETCHSEGMENT", 0.1154316698315, -4.601847172125e-005, 0.06292803672545, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line35", "SKETCHSEGMENT", 0.05846088356992, -0.04451102390988, 0.000977474531112, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.05615517001231, 0.03302486267865, 0, 0.05368785242858, 0.03046696167856, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line42", "SKETCHSEGMENT", 0.07459354937869, -0.00574849108836, 0.02672393303185, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line35", "SKETCHSEGMENT", 0.05880269512556, -0.04424421701509, 0.001127111262775, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line41", "SKETCHSEGMENT", 0.1155456070168, 4.291715976024e-005, 0.06771641213959, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(0.120898, 0.0042257, 0.0680147) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch5@Connector.SLDPRT", "DIMENSION", 0.1027485432716, 0.02771282131422, 0.06051027209554, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D1@Sketch5").SystemValue = 0.00635 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line39", "SKETCHSEGMENT", 0.0827602221706, -0.001177196980668, 0.02141864012102, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point40", "SKETCHPOINT", 0.09103957584535, -0.0006241753047837, 0, False, 0, Nothing) Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point40", "SKETCHPOINT", 0.09103957584535, 0.004269482628303, 0, False, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point43", "SKETCHPOINT", 0.02355683447804, 0.0635, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05834351856862, -0.03825319254145, 0.06311474246335, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchAddConstraints "sgCOINCIDENT" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.InsertSketch2 True Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Plane5", "PLANE", 0, 0, 0, False, 0, Nothing) Part.InsertSketch2 True Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.003754353918848, 0.06985, 0, 0.0684902512167, 0.06985, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.0684902512167, 0.06985, 0, 0.0684902512167, 0.05964620156595, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.0684902512167, 0.05964620156595, 0, 0.005137629894115, 0.003275638816101, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.005137629894115, 0.003275638816101, 0, 0.0684902512167, 0.003275638816101, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.0684902512167, 0.003275638816101, 0, 0.0684902512167, -0.00635, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.0684902512167, -0.00635, 0, -0.003754353918848, -0.00635, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.003754353918848, -0.00635, 0, -0.003754353918848, 0.007900915759679, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.003754353918848, 0.007900915759679, 0, 0.05558205655999, 0.05964620156595, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.05558205655999, 0.05964620156595, 0, -0.003754353918848, 0.05964620156595, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.003754353918848, 0.05964620156595, 0, -0.003754353918848, 0.06985, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point17", "SKETCHPOINT", 0.05558205655999, 0.05964620156595, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point5", "SKETCHPOINT", 0.0684902512167, 0.05964620156595, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0.05371186272327, -0.01776048523523, 0.05964620156595, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0.04869836684905, -0.0138475128456, 0.05285282605507, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.05439552125157, -0.01829407237928, 0.04750484958906, True, 0, Nothing) Part.SketchAddConstraints "sgPARALLEL" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", 0.05181243448811, -0.0441560464298, -0.001349638127476, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", -0.004817280272846, 4.275533501641e-005, 0.06369331889158, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.05192637757625, -0.04424497762039, 0.06268153956017, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", -0.004931223360984, 0.000131686525549, 0.004287418147509, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.05234454566667, -0.01669331094715, 0.04143417360062, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.03283290864005, 0.03600631161877, 0, 0.03664794383406, 0.03163160403457, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0.03912714745282, -0.006377292829032, 0.03377355866282, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", -0.004589394096797, -0.0001351070463897, 0.001252080153286, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0.03958291980502, -0.006733017591726, 0.03333993894935, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0.03867137510062, -0.006021568066339, 0.03377355866282, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", 0.05215426375236, -0.0444228400018, -0.002795037172344, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", -0.004931223360984, 0.000131686525549, 0.06730681650375, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(-0.00515911, 0.000309549, 0.0800263) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch6@Connector.SLDPRT", "DIMENSION", 0.00710913971067, 0.01861237175021, 0.08017086800308, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D1@Sketch6").SystemValue = 0.00635 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point8", "SKETCHPOINT", 0.001196550487966, 0, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point14", "SKETCHPOINT", -0.003754353918848, 0.004099791782104, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point8", "SKETCHPOINT", 0.001196550487966, 0, 0, False, 0, Nothing) Part.WindowRedraw ' MSGBOX ' A solution cannot be determined for this sketch. Consider: ' o Moving the sketch closer to the desired solution by dragging or changing dimension values. ' o Adding more dimensions or relations to further define the sketch. ' o Changing the dimensioning scheme. Part.ClearSelection2 True Part.EditUndo 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point8", "SKETCHPOINT", 0.001196550487966, 0, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point17", "SKETCHPOINT", 0.06353934680989, 0.0635, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05227139909323, -0.03816482026798, 0.06325969917812, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchAddConstraints "sgCOINCIDENT" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.InsertSketch2 True Part.InsertSketch2 True Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch6", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.FeatureManager.FeatureExtrusion True, False, True, 0, 0, 0.00635, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx boolstatus = Part.Extension.SelectByID("Wing Main Bars", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Right", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0556528757498, -0.03817267939735, -0.006274496798824, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Unknown", "POINTREF", 0.05536397488603, -0.0381, -0.00635, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreatePlaneThruPtParallelToPlane True boolstatus = Part.Extension.SelectByID("Plane6", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Plane6", "PLANE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane6", "PLANE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane6", "PLANE", 0, 0, 0, False, 0, Nothing) Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Center" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Center", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateminusy Part.ViewRotateminusy Part.WindowRedraw Part.ShowNamedView2 "*Right", 4 Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateplusy Part.ViewRotateminusy Part.InsertSketch2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.05635416689555, -0.0381, 0.06985, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05632516581097, -0.03809999999993, 0.06367510434129, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.05510191159701, -0.03809999999993, 0.05689078675036, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch7", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch7", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Center", "PLANE", 0, 0, 0, False, 0, Nothing) Part.InsertSketch2 True Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.06985, -0.0381, 0, -0.06035121605267, -0.0381, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.06035121605267, -0.0381, 0, 0.00635, 0, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.00635, 0, 0, 0, 0, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0, 0, 0, 0, 0.002828737297956, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0, 0.002828737297956, 0, -0.06985, -0.0381, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.SetPickMode Part.EditUndo 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.EditUndo 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.EditUndo 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.EditUndo 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.EditUndo 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ShowNamedView2 "*Right", 4 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.00635, -0.0381, 0, -0.003658840729274, -0.0381, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.003658840729274, -0.0381, 0, -0.06985, 0, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.06985, 0, 0, -0.0635, 3.254043911782e-006, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.0635, 3.254043911782e-006, 0, -0.0635, 0.003230714254386, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.0635, 0.003230714254386, 0, 0.00635, -0.0381, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.115490625, 0.0008715811274514, 0.05914215686275, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.0553640375, -0.005856317049364, 0.06001590987272, True, 0, Nothing) Part.SketchAddConstraints "sgPARALLEL" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.0553640375, -0.002536055611455, 0.05564714482284, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.0553640375, -0.006293193554352, 0.05853052975576, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(0.055364, 0.0116187, 0.0379973) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch8@Connector.SLDPRT", "DIMENSION", 0.0553640375, 0.01161874315015, 0.03817208462332, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D1@Sketch8").SystemValue = 0.0047625 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch8@Connector.SLDPRT", "DIMENSION", 0.0553640375, 0.01074499014018, 0.0390458376333, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D1@Sketch8").SystemValue = 0.0047625 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch8@Connector.SLDPRT", "DIMENSION", 0.0553640375, 0.01100711604317, 0.03930796353629, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D1@Sketch8").SystemValue = 0.00635 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch8@Connector.SLDPRT", "DIMENSION", 0.0553640375, 0.01196824435415, 0.03852158582731, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.InsertSketch2 True Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch8", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.FeatureManager.FeatureExtrusion False, False, False, 0, 0, 0.003175, 0.003175, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ShowNamedView2 "*Dimetric", 9 Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Extrude6", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.FeatEdit Part.ClearSelection2 True Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateminusy Part.ViewRotateminusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", 0.09866278279611, -0.01313073931522, 0.06702818019122, False, 0, Nothing) Part.WindowRedraw ' MSGBOX ' The sketch is over defined. Consider deleting some over defining dimensions or relations. Part.SketchAddConstraints "sgHORIZONTAL" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point11", "SKETCHPOINT", -0.0635, 0.003604400755204, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point11", "SKETCHPOINT", -0.0635, 0.003604400755204, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point11", "SKETCHPOINT", -0.0635, 0.003604400755204, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", 0.09891555029049, -0.01293343729563, 0.06764382009584, False, 0, Nothing) Part.WindowRedraw ' MSGBOX ' The sketch is no longer over defined. Part.SketchConstraintsDel 0, "sgVERTICAL" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.InsertSketch2 True Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Wing Crossabrs", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Wing Crossabrs", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.FeatEdit Part.ClearSelection2 True Part.ViewRotateminusx Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle 0.049257685528, -0.0635, 0, 0.06317887256193, 0, 0, 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.049257685528, -0.0635, 0, 0.06317887256193, -0.0635, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0.05416228368395, -0.003125801008834, 0.0658915241569, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point12", "SKETCHPOINT", 0.0553640625, -0.0635, 0, True, 0, Nothing) Part.SketchAddConstraints "sgATINTERSECT" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point12", "SKETCHPOINT", 0.0553640625, -0.0635, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.05168800474553, -0.00180135665126, 0.06380511136685, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0.05323017378949, -0.002425031667294, 0.06622569820831, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0.05360843740448, -0.002505511858127, 0.06722178142067, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.05420013264315, -0.00351808153735, 0.06385865434651, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0.05371705652574, -0.002351286036781, 0.06849205676292, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.05089362855634, -0.001248115741079, 0.06384581475251, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point12", "SKETCHPOINT", 0.0553640625, -0.0635, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.049257685528, -0.03175, 0, 0.06317887256193, -0.03175, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.06317887256193, -0.03175, 0, 0.05621827904497, -0.03175, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.05621827904497, -0.03175, 0, 0.0553640625, 0, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line26", "SKETCHSEGMENT", 0.04993957410928, -0.00671987662968, 0.02983755854961, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line26", "SKETCHSEGMENT", 0.05039353564269, -0.007584917877545, 0.02676790214119, False, 0, Nothing) Part.WindowRedraw Part.SketchAddConstraints "sgVERTICAL" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line20", "SKETCHSEGMENT", 0.04712084791916, -0.003105448646543, 0.03914721308204, False, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line20", "SKETCHSEGMENT", 0.0467743843695, 0.0004854269606426, 0.05775579057715, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", 0.05852026745963, -0.007333728582735, 0.05915883106672, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(0.0503851, 0, 0.0874465) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D5@Sketch1<3>@Connector.SLDPRT", "DIMENSION", 0.05244721745683, 0.001849832636134, 0.08696568450704, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D5@Sketch1<3>").SystemValue = 0.0047625 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Wing Crossabrs", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Wing Main Bars[1]", "SOLIDBODY", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Wing Main Bars[2]", "SOLIDBODY", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCHREGION", 0.05367159432885, -0.00444008777043, 0.05672540463126, True, 4, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SelectionManager.EnableContourSelection = 0 Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.WindowRedraw Part.ShowNamedView2 "*Dimetric", 9 Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.WindowRedraw Part.ShowNamedView2 "*Isometric", 7 Part.WindowRedraw Part.ShowNamedView2 "*Trimetric", 8 Part.WindowRedraw Part.ShowNamedView2 "*Dimetric", 9 Part.ViewDisplayShaded Part.ViewDisplayShadedWithEdges Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.Save2 FALSE Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw swApp.LoadFile2 "C:\Program Files\SolidWorks\data\templates\English Assy.asmdot", "" Set Part = swApp.ActiveDoc swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditRebuild Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\data\templates\English Assy.asmdot", 0, 0.000000, 0.000000) Set Part = swApp.ActivateDoc ("Assem1") Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Wing.SLDPRT") Part.EditRebuild Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Assem1") Part.EditRebuild Part.WindowRedraw Part.AddComponent "C:\Documents and Settings\jdecew\Desktop\Stuff\Glider MK I\Wing.SLDPRT", 0.0008082215342277, 0, 0.03809999999999 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.AddComponent "C:\Documents and Settings\jdecew\Desktop\Stuff\Glider MK I\Connector.SLDPRT", 0.2261753353973, -0.05110554997133, 0.03492499999999 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2313391032553, -0.02721276006412, 0.07207615634962, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.2339602977204, -0.02872208974333, 0.07302499999992, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.2255046241218, 0.002240903608367, 0.07619999999991, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.2197033936665, -0.02907669348951, 0.07302499999992, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Feature = Part.AddMate2 (0, 0, False, 0.003175000000013, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.2285566103973, -0.0290678843109, 0.01973262744866, True, 1, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.23098125, 0.002774073616592, 0.04711576253726, True, 1, Nothing) Part.WindowRedraw Set Feature = Part.AddMate2 (0, 0, False, 0.002424639602683, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.2283217597325, -0.03205556247133, 0.019626602144, True, 1, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.2280402682949, 0, 0.0600647643621, True, 1, Nothing) Part.WindowRedraw Set Feature = Part.AddMate2 (0, 0, False, 0.03205556247133, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusy Part.ViewRotateminusy Part.WindowRedraw Part.ShowNamedView2 "*Isometric", 7 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Connector.SLDPRT") Part.EditRebuild boolstatus = Part.Extension.SelectByID("Hollow out body", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditDelete Part.EditUndo 1 boolstatus = Part.Extension.SelectByID("Hollow out body", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Hollow out body", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Hollow out body", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Hollow out body", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0, 0, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Hollow out body", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Hollow out body", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.EditDelete boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateplusy Part.ViewRotateminusy Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point43", "SKETCHPOINT", 0.02269862261989, 0.0635, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point43", "SKETCHPOINT", 0.02269862261989, 0.0635, 0, False, 0, Nothing) Part.WindowRedraw Part.SketchConstraintsDel 0, "sgCOINCIDENT" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.05853906250002, -0.0384569659368, 0.06266755793351, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point43", "SKETCHPOINT", 0.02269862261989, 0.0635, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05853913419998, -0.03809994403338, 0.06142238964406, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchAddConstraints "sgCOINCIDENT" Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point43", "SKETCHPOINT", 0.02269862261989, 0.0635, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05853913419998, -0.03809994403338, 0.06142238964406, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.SelectionManager.EnableContourSelection = 1 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCHREGION", 0.07136901659014, -0.01151227581723, 0.03544091772624, False, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCHCONTOUR", 0.06536597930153, 0.02698660809405, 0, False, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCHREGION", 0.07383353819724, -0.009588551045301, 0.03365438454258, False, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCHREGION", 0.08122710301855, -0.003817376729505, 0.02561498521609, False, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCHREGION", 0.06984336035717, -0.012703153057, 0.03722745090991, False, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCHREGION", 0.08005352130088, -0.004733436144711, 0.02650825180792, False, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.SelectionManager.EnableContourSelection = 0 boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line31", "SKETCHSEGMENT", 0.05866391306819, -0.04435254573957, 0.06432320419548, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point31", "SKETCHPOINT", 0.01879497079777, 0.05848589032169, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point43", "SKETCHPOINT", 0.02270218775164, 0.0635, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line30", "SKETCHSEGMENT", 0.02914306457433, 0, 0.06968280374647, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line41", "SKETCHSEGMENT", 0.1154674618637, -1.808038501849e-005, 0.06685412620567, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line40", "SKETCHSEGMENT", 0.1109206425096, 0, 0.06417432643017, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line42", "SKETCHSEGMENT", 0.07817579055261, -0.00619913120904, 0.02948580711403, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.1114872308094, 0, 0.01698007482838, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1107303960351, 1.772695384261e-006, 0.01698007482838, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.EditRebuild boolstatus = Part.Extension.SelectByID("Sketch6", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point17", "SKETCHPOINT", 0.06458684639496, 0.0635, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.SketchConstraintsDel 0, "sgCOINCIDENT" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05232922355248, -0.03820939399208, 0.06046577009483, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchAddConstraints "sgCOINCIDENT" Part.EditRebuild Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.BlankSketch Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.003175, -0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.00555625, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.00635, -0.003175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0, -0.0006678401395733, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0, 0.03425715986043, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115487727978, 0, -0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115490625, 0, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0814550690361, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02927048518825, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.0047625, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.00555625, 0.0635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.003175, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.00635, 0.066675, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02887356638127, 0, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08185190022911, 0, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115487727978, 0, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.110728125, 0.004552514575669, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0529828125, 0.00238125, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0529828125, 0.0047625, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0529828125, 0, 0.02873152487277, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0577453125, 0, 0.02873152487277, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.003175, -0.00634746, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.00555371, -2.540000000002e-006, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.00634746, -0.003175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0553627925, 0.00634746, -0.00634746, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 2.54e-006, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115488085, 2.54e-006, 0.03425724284938, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.002904954634146, 0.00475996, -2.54e-006, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.002904954634146, 0.00475996, 0.06350254, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.00475996, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.00555371, 0.06350254, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.003175, 0.06984746, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0553627925, 0.00634746, 0.06984746, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.00634746, 0.066675, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.00238125, 0, 0.006620871822765, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.00238125, 0, 0.0635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02371328125, -0.022225, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0521890625, -0.04445, 0.06416784013957, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02525324428142, -0.02342692236599, 0.02924284013957, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02525324428142, -0.02342692236599, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0521890625, -0.04445, -0.003175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02371328125, -0.022225, -0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02217331821858, -0.02102307763401, 0.03425715986043, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02217331821858, -0.02102307763401, 0.0635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0, 0.066675, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0521890625, -0.041275, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0521890625, -0.041275, 0.05681382118122, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0553640625, -0.04445, -0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0585390625, -0.04445, 0.06416794516084, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0585390625, -0.04445, 0.02924294516084, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0553640625, -0.04445, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0521890625, -0.04445, 0.02924284013957, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0521890625, -0.0381, 0.003018475127227, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0521890625, -0.0381, 0.03058945616888, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115488085, 3.254043911771e-006, 0.06667373, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115488085, 2.897021955895e-006, 0.005014297688532, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115488085, 3.25404391181e-006, -0.0006666751608438, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.113106477978, 0, 0.0635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115488085, 2.897021955891e-006, 0.0635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1154848309561, 0, -0.000665990695336, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1154848309561, 0, 0.066675, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1104548207048, 0.0001014678376449, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08242768956172, -0.01774786297677, 0.02830798431254, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08855194780699, -0.02102292564373, 0.0635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08855194780699, -0.02102292564373, 0.03425900930466, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08701194672804, -0.022225, -0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0585390625, -0.04445, -0.003175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08547374584088, -0.02342566918558, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08547374584088, -0.02342566918558, 0.02924294516084, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08701194672804, -0.022225, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05218897488603, -0.03724739200372, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05218901869301, -0.0381, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05536397488603, 0, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05218901869301, -0.0381, 0.006036950254454, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05218897488603, -0.0381, 0.003018475127227, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05218897488603, -0.01905, 0.03794347512723, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05218897488603, 3.254043911784e-006, 0.06048424994451, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05218897488603, -0.01819576498176, 0.02698726874976, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Wing Main Bars", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx boolstatus = Part.Extension.SelectByID("Wing Main Bars", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Wing Main Bars", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ViewRotateplusy Part.ViewRotateminusx Part.ViewRotateplusy Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateplusy boolstatus = Part.Extension.SelectByID("Hollow out wing", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Hollow out wing", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditSuppress Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Hollow out wing", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditUnsuppress Part.ClearSelection2 True Part.EditRebuild Part.EditRebuild boolstatus = Part.Extension.SelectByID("Plane4", "PLANE", 0, 0, 0, False, 0, Nothing) Part.EditUnsuppress Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Hollow out wing", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditSuppress Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Plane4", "PLANE", 0, 0, 0, False, 0, Nothing) Part.EditUnsuppress Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Extrude4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditUnsuppress Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Extrude5", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditUnsuppress Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Extrude6", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditUnsuppress Part.ClearSelection2 True Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1115190300665, 0.00475996, 0.005186904306114, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05635416689555, -0.0381, 0.06323298431254, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.001047409268293, 0.00475996, 0.002505889860427, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0007939750708929, 0.00475996, 0.005185303549737, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.002808023814583, 0.002504172612565, 0.06984746, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115490625, 0.00555625, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.003175, -0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.00555625, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.00635, -0.003175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0553640625, 0.00635, -0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115490625, 0.00635, -0.003175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0553640625, 0.00635, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0, -0.0006678401395733, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0, 0.03425715986043, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0814550690361, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02927048518825, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.002903963414634, 0.0047625, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0.0047625, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.00238125, 0.0047625, 0.0635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.0047625, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.00555625, 0.0635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.003175, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115490625, 0.003175, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115490625, 0.00635, 0.066675, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0553640625, 0.00635, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.00635, 0.066675, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0553640625, 0.00635, 0.0635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02887356638127, 0, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08185190022911, 0, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115487727978, 0, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.110728125, 0.004552514575669, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.110728125, 0.0047625, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1136318993147, 0.0047625, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1109971414534, 0.0047625, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115490625, 0.0047625, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.110728125, 0, 0.03586355664045, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0529828125, 0.00238125, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0529828125, 0.0047625, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0553640625, 0.0047625, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0577453125, 0.0047625, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0529828125, 0, 0.02873152487277, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115488085, 0.00555371, -2.540000000002e-006, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.003175, -0.00634746, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.00555371, -2.540000000002e-006, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.00634746, -0.003175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0553627925, 0.00634746, -0.00634746, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115488085, 0.00634746, -0.003175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 2.54e-006, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.004761508780488, 2.54e-006, -0.00634746, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08145542605805, 2.54e-006, -2.54e-006, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02927012800075, 2.54e-006, -2.54e-006, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -2.540000000007e-006, 0.00475996, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.002904954634146, 0.00475996, 0.06350254, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.00475996, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -2.540000000008e-006, 2.54e-006, 0.03586218639091, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.00555371, 0.06350254, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.003175, 0.06984746, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115488085, 0.003175357021956, 0.06984746, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115488085, 0.00634746, 0.066675, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0.00634746, 0.066675, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0553627925, 0.00634746, 0.06350254, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.004761508780488, 2.54e-006, 0.06984746, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05536149155881, 2.54e-006, 0.06984746, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.115488085, 0.00475996, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.110730665, 2.54e-006, 0.03586203104875, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0577427725, 0.00475996, 0.03175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0529853525, 2.54e-006, 0.02873238197443, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0009504784487297, 0.004884152612565, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.001045426829268, 0.0047625, 0.002507159860427, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.002808023814583, 0.002504172612565, -0.00634746, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.004760517560976, 2.54e-006, -0.0006665701395733, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0009514696682419, 0.004882882612565, -2.54e-006, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.00238125, 0, 0.006620871822765, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0.0021690372201, 0.007085274441161, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0007946110388807, 0.0047625, 0.005183536995495, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.002381528780488, 2.54e-006, 0.006619346251338, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -2.540000000002e-006, 0.002171298439612, 0.007082370095692, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.004760517560976, 2.54e-006, 0.06667373, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.000543795248493, 0.0047625, 0.002676377135068, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0009504784487297, 0.004884152612565, 0.005014319720853, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.002903963414634, 0.00238125, 0.005014319720853, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.002903963414634, 0.00238125, 0.0635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02996597037651, -0.01905, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0008555300681911, 0.00500580522513, 0.002507159860427, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.000699662658342, 0.004884152612565, 0.005183536995495, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02371328125, -0.022225, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0521890625, -0.04445, 0.06416784013957, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02525324428142, -0.02342692236599, 0.02924284013957, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02525324428142, -0.02342692236599, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0521890625, -0.04445, -0.003175, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02371328125, -0.022225, -0.00635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02217331821858, -0.02102307763401, 0.03425715986043, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02217331821858, -0.02102307763401, 0.0635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0047625, 0, 0.066675, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0521890625, -0.041275, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0553640625, -0.04445, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0521890625, -0.04445, 0.02924284013957, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05536397488603, -0.0381, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.110728125, 0.002171264575669, 0.007083710410641, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1115196657681, 0.0047625, 0.005185137850826, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.110730665, 0.002173525896034, 0.007080805981851, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1096146686139, 0.003473401598895, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.110728125, 0.004342529151337, 0.002970153770187, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1114236861463, 0.004885461379496, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1112661579068, 0.0047625, 0.002678083011669, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1079493723081, 0.002173525896034, -2.54e-006, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.110730665, 0.004344511792068, 0.002967504933099, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1083746470009, 0.002505481379496, 0.06984746, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1114220591243, 0.004884191379496, -2.54e-006, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1112629038629, 0.00475996, 0.002678579466958, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1116771940076, 0.004885461379496, 0.005014109678312, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08143833663811, -0.01852011943492, 0.0635, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1114236861463, 0.004885461379496, 0.005185137850826, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1109967844314, 0.004552235896034, 0.005648624400057, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08421998635201, -0.01634885485925, 0.03472015377019, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1115812143858, 0.005008422758992, 0.002507054839156, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08185190022911, -0.01819730525367, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08242768956172, -0.01774786297677, 0.02830798431254, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08075949623387, -0.01905, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08701194672804, -0.022225, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05536397488603, 0, 0.06985, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05853897488603, -0.01905, 0.03794347512723, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05218897488603, -0.01905, 0.03794347512723, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Extrude6", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Extrude5", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Center", "PLANE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude6", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Extrude6", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Extrude4", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude5", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Center", "PLANE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude6", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) Part.DeSelectByID "Center", "PLANE", 0, 0, 0 boolstatus = Part.Extension.SelectByID("Plane Body", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Hollow out wing", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Wing Crossabrs", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Wing Main Bars", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) Part.DeSelectByID "Hollow out wing", "BODYFEATURE", 0, 0, 0 boolstatus = Part.Extension.SelectByID("Wing Crossabrs", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusy Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Front", "PLANE", 0, 0, 0, True, 0, Nothing) Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Front", "PLANE", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.ViewRotateplusx Part.WindowRedraw Part.ShowNamedView2 "*Isometric", 7 Part.WindowRedraw Part.ShowNamedView2 "*Trimetric", 8 Part.WindowRedraw Part.ShowNamedView2 "*Dimetric", 9 Part.Save2 FALSE Part.ViewZoomtofit2 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Wing.SLDPRT") Part.WindowRedraw Part.ShowNamedView2 "*Dimetric", 9 Part.WindowRedraw Part.ShowNamedView2 "*Isometric", 7 Part.ViewZoomtofit2 Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Assem1") Part.EditRebuild swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Wing.SLDPRT") boolstatus = Part.Extension.SelectByID("Unknown", "BROWSERITEM", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Unknown", "BROWSERITEM", 0, 0, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewZoomtofit2 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Assem1") Part.EditRebuild Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Connector.SLDPRT") Part.EditRebuild boolstatus = Part.Extension.SelectByID("Wing Main Bars", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Wing Crossabrs", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane Body", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude4", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude5", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude6", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude6", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolStatus = Part.Extension.ApplyTexture ( 99, 0, "\images\textures\wood\maple.jpg", 0) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Assem1") Part.EditRebuild Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ShowNamedView2 "*Isometric", 7 Part.WindowRedraw Part.ShowNamedView2 "*Trimetric", 8 Part.WindowRedraw Part.ShowNamedView2 "*Isometric", 7 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ShowNamedView2 "*Back", 2 Part.WindowRedraw Part.ShowNamedView2 "*Front", 1 Part.WindowRedraw Part.ShowNamedView2 "*Isometric", 7 Part.WindowRedraw Part.ShowNamedView2 "*Trimetric", 8 Part.WindowRedraw Part.ShowNamedView2 "*Dimetric", 9 Part.WindowRedraw Part.ShowNamedView2 "*Trimetric", 8 Part.WindowRedraw Part.ShowNamedView2 "*Isometric", 7 Part.WindowRedraw Part.ActiveView().RotateAboutCenter 0, 0.140369 Part.ActiveView().RotateAboutCenter -0.142977, 0.124772 Part.ActiveView().RotateAboutCenter -0.122551, 0.0857811 Part.ActiveView().RotateAboutCenter -0.115743, 0.054588 Part.ActiveView().RotateAboutCenter -0.102126, 0.00779828 Part.ActiveView().RotateAboutCenter -0.0748925, 0 Part.ActiveView().RotateAboutCenter -0.0680841, -0.0233948 Part.ActiveView().RotateAboutCenter -0.0544672, -0.0155966 Part.ActiveView().RotateAboutCenter -0.0612756, -0.0311931 Part.ActiveView().RotateAboutCenter -0.0476588, -0.0311931 Part.ActiveView().RotateAboutCenter -0.0476588, -0.054588 Part.ActiveView().RotateAboutCenter -0.0476588, -0.0935794 Part.ActiveView().RotateAboutCenter -0.0136168, -0.0857811 Part.ActiveView().RotateAboutCenter 0.00680841, -0.109176 Part.ActiveView().RotateAboutCenter 0.0476588, -0.0857811 Part.ActiveView().RotateAboutCenter 0.0953177, -0.0857811 Part.ActiveView().RotateAboutCenter 0.102126, -0.0467897 Part.ActiveView().RotateAboutCenter 0.0817009, -0.0389914 Part.ActiveView().RotateAboutCenter 0.102126, -0.00779828 Part.ActiveView().RotateAboutCenter 0.108934, 0 Part.ActiveView().RotateAboutCenter 0.0817009, 0.00779828 Part.ActiveView().RotateAboutCenter 0.115743, 0.054588 Part.ActiveView().RotateAboutCenter 0.115743, 0.0935794 Part.ActiveView().RotateAboutCenter 0.0817009, 0.109176 Part.ActiveView().RotateAboutCenter 0.0612756, 0.124772 Part.ActiveView().RotateAboutCenter 0, 0.17936 Part.ActiveView().RotateAboutCenter -0.17021, 0.249545 Part.ActiveView().RotateAboutCenter -0.224677, 0.0311931 Part.ActiveView().RotateAboutCenter -0.17021, -0.101378 Part.ActiveView().RotateAboutCenter -0.0748925, -0.0701845 Part.ActiveView().RotateAboutCenter -0.0272336, -0.054588 Part.ActiveView().RotateAboutCenter -0.00680841, -0.0233948 Part.ActiveView().RotateAboutCenter 0.0272336, -0.0233948 Part.ActiveView().RotateAboutCenter 0.0953177, -0.0311931 Part.ActiveView().RotateAboutCenter 0.115743, -0.00779828 Part.ActiveView().RotateAboutCenter 0.122551, 0 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.0612756, 0 Part.ActiveView().RotateAboutCenter -0.115743, 0.054588 Part.ActiveView().RotateAboutCenter -0.0680841, 0.0311931 Part.ActiveView().RotateAboutCenter -0.00680841, 0.00779828 Part.ActiveView().RotateAboutCenter 0, -0.0155966 Part.ActiveView().RotateAboutCenter 0.034042, -0.101378 Part.ActiveView().RotateAboutCenter 0.0817009, -0.218352 Part.ActiveView().RotateAboutCenter 0.0544672, -0.163764 Part.ActiveView().RotateAboutCenter 0.0204252, -0.0389914 Part.ActiveView().RotateAboutCenter -0.00680841, 0.0155966 Part.ActiveView().RotateAboutCenter -0.0272336, 0.171562 Part.ActiveView().RotateAboutCenter -0.0204252, 0.124772 Part.ActiveView().RotateAboutCenter -0.0136168, -0.054588 Part.ActiveView().RotateAboutCenter -0.0136168, -0.218352 Part.ActiveView().RotateAboutCenter 0, -0.109176 Part.ActiveView().RotateAboutCenter 0, -0.00779828 Part.ActiveView().RotateAboutCenter -0.034042, 0.0233948 Part.ActiveView().RotateAboutCenter -0.0953177, 0.0467897 Part.ActiveView().RotateAboutCenter -0.102126, -0.101378 Part.ActiveView().RotateAboutCenter -0.00680841, -0.109176 Part.ActiveView().RotateAboutCenter 0.00680841, -0.140369 Part.ActiveView().RotateAboutCenter 0, -0.0155966 Part.ActiveView().RotateAboutCenter -0.00680841, 0.00779828 Part.ActiveView().RotateAboutCenter -0.0204252, 0.0311931 Part.ActiveView().RotateAboutCenter -0.0136168, -0.00779828 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0311931 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0233948 Part.ActiveView().RotateAboutCenter 0.0680841, 0.0233948 Part.ActiveView().RotateAboutCenter 0.136168, 0.249545 Part.ActiveView().RotateAboutCenter 0.0476588, 0.194957 Part.ActiveView().RotateAboutCenter -0.0612756, -0.0467897 Part.ActiveView().RotateAboutCenter -0.245103, -0.304133 Part.ActiveView().RotateAboutCenter -0.197444, -0.319729 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0467897 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.0544672, 0.0467897 Part.ActiveView().RotateAboutCenter 0.149785, 0.327528 Part.ActiveView().RotateAboutCenter 0.0544672, 0.27294 Part.ActiveView().RotateAboutCenter 0.0272336, 0.233948 Part.ActiveView().RotateAboutCenter -0.0204252, 0.0311931 Part.ActiveView().RotateAboutCenter -0.0748925, 0 Part.ActiveView().RotateAboutCenter -0.122551, 0 Part.ActiveView().RotateAboutCenter -0.0817009, 0 Part.ActiveView().RotateAboutCenter -0.0885093, -0.0155966 Part.ActiveView().RotateAboutCenter -0.0748925, -0.0155966 Part.ActiveView().RotateAboutCenter -0.0408504, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0.00779828 Part.ActiveView().RotateAboutCenter 0.0408504, 0.171562 Part.ActiveView().RotateAboutCenter 0.108934, 0.249545 Part.ActiveView().RotateAboutCenter 0.0817009, 0.233948 Part.ActiveView().RotateAboutCenter 0.0680841, 0.155966 Part.ActiveView().RotateAboutCenter 0.0885093, 0.140369 Part.ActiveView().RotateAboutCenter 0.0885093, 0.109176 Part.ActiveView().RotateAboutCenter 0.108934, 0.0857811 Part.ActiveView().RotateAboutCenter 0.0748925, 0.0623862 Part.ActiveView().RotateAboutCenter 0.0748925, 0.054588 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0155966 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0, 0.00779828 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.0272336, 0 Part.ActiveView().RotateAboutCenter 0.0953177, -0.0311931 Part.ActiveView().RotateAboutCenter 0.0885093, -0.0779828 Part.ActiveView().RotateAboutCenter 0.0544672, -0.0935794 Part.ActiveView().RotateAboutCenter 0.00680841, -0.0233948 Part.ActiveView().RotateAboutCenter 0, -0.0311931 Part.ActiveView().RotateAboutCenter -0.0612756, -0.0311931 Part.ActiveView().RotateAboutCenter -0.149785, -0.101378 Part.ActiveView().RotateAboutCenter -0.0885093, -0.0311931 Part.ActiveView().RotateAboutCenter -0.0476588, -0.00779828 Part.ActiveView().RotateAboutCenter -0.0204252, 0 Part.ActiveView().RotateAboutCenter -0.0476588, 0 Part.ActiveView().RotateAboutCenter -0.0408504, -0.0233948 Part.ActiveView().RotateAboutCenter -0.00680841, -0.00779828 Part.ActiveView().RotateAboutCenter 0.00680841, -0.0311931 Part.ActiveView().RotateAboutCenter 0.0408504, -0.124772 Part.ActiveView().RotateAboutCenter 0.0885093, -0.101378 Part.ActiveView().RotateAboutCenter 0.102126, -0.054588 Part.ActiveView().RotateAboutCenter 0.0885093, -0.0467897 Part.ActiveView().RotateAboutCenter 0.0748925, -0.0389914 Part.ActiveView().RotateAboutCenter 0.0544672, -0.00779828 Part.ActiveView().RotateAboutCenter -0.0408504, 0.0233948 Part.ActiveView().RotateAboutCenter -0.122551, 0.0701845 Part.ActiveView().RotateAboutCenter -0.0817009, 0.0467897 Part.ActiveView().RotateAboutCenter -0.0680841, 0.0233948 Part.ActiveView().RotateAboutCenter -0.034042, 0.0155966 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.00680841, -0.00779828 Part.ActiveView().RotateAboutCenter 0.0680841, -0.054588 Part.ActiveView().RotateAboutCenter 0.0953177, -0.0857811 Part.ActiveView().RotateAboutCenter 0.0885093, -0.054588 Part.ActiveView().RotateAboutCenter 0.0680841, -0.0311931 Part.ActiveView().RotateAboutCenter 0.0680841, -0.0389914 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.0612756, 0.0389914 Part.ActiveView().RotateAboutCenter -0.0885093, 0.0857811 Part.ActiveView().RotateAboutCenter -0.122551, 0.124772 Part.ActiveView().RotateAboutCenter -0.0476588, 0.0311931 Part.ActiveView().RotateAboutCenter -0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.00680841, -0.0155966 Part.ActiveView().RotateAboutCenter 0.0476588, -0.0389914 Part.ActiveView().RotateAboutCenter 0.0817009, -0.0701845 Part.ActiveView().RotateAboutCenter 0.0680841, -0.054588 Part.ActiveView().RotateAboutCenter 0.0680841, -0.0467897 Part.ActiveView().RotateAboutCenter 0.0272336, -0.0233948 Part.ActiveView().RotateAboutCenter 0, -0.0155966 Part.ActiveView().RotateAboutCenter 0, -0.0311931 Part.ActiveView().RotateAboutCenter 0.0272336, -0.0311931 Part.ActiveView().RotateAboutCenter 0.0204252, -0.0389914 Part.ActiveView().RotateAboutCenter 0, -0.00779828 Part.ActiveView().RotateAboutCenter -0.0272336, 0 Part.ActiveView().RotateAboutCenter -0.034042, 0.0233948 Part.ActiveView().RotateAboutCenter -0.0272336, 0.0155966 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0155966 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.0204252, 0.00779828 Part.ActiveView().RotateAboutCenter 0.0408504, 0 Part.ActiveView().RotateAboutCenter 0.034042, 0.00779828 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter -0.0408504, -0.0389914 Part.ActiveView().RotateAboutCenter -0.0748925, -0.101378 Part.ActiveView().RotateAboutCenter -0.0476588, -0.0467897 Part.ActiveView().RotateAboutCenter -0.0204252, -0.0155966 Part.ActiveView().RotateAboutCenter 0.00680841, 0 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0233948 Part.ActiveView().RotateAboutCenter 0.0680841, 0.054588 Part.ActiveView().RotateAboutCenter 0.0885093, 0.054588 Part.ActiveView().RotateAboutCenter 0.0408504, 0.0155966 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.0476588, -0.0311931 Part.ActiveView().RotateAboutCenter -0.12936, -0.0623862 Part.ActiveView().RotateAboutCenter -0.0748925, -0.0389914 Part.ActiveView().RotateAboutCenter -0.0544672, -0.0389914 Part.ActiveView().RotateAboutCenter -0.0136168, -0.00779828 Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter 0.0408504, 0.00779828 Part.ActiveView().RotateAboutCenter 0.108934, 0.054588 Part.ActiveView().RotateAboutCenter 0.0476588, 0.00779828 Part.ActiveView().RotateAboutCenter -0.0408504, -0.0233948 Part.ActiveView().RotateAboutCenter -0.12936, -0.0935794 Part.ActiveView().RotateAboutCenter -0.108934, -0.0467897 Part.ActiveView().RotateAboutCenter -0.0272336, -0.0233948 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.0680841, 0.0311931 Part.ActiveView().RotateAboutCenter 0.108934, 0.054588 Part.ActiveView().RotateAboutCenter 0.0817009, 0.054588 Part.ActiveView().RotateAboutCenter 0.0204252, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.0748925, -0.0467897 Part.ActiveView().RotateAboutCenter -0.102126, -0.0935794 Part.ActiveView().RotateAboutCenter -0.122551, -0.109176 Part.ActiveView().RotateAboutCenter -0.00680841, -0.00779828 Part.ActiveView().RotateAboutCenter 0.0136168, 0 Part.ActiveView().RotateAboutCenter 0.0476588, 0.0155966 Part.ActiveView().RotateAboutCenter 0.115743, 0.0623862 Part.ActiveView().RotateAboutCenter 0.0885093, 0.0623862 Part.ActiveView().RotateAboutCenter 0.0272336, 0.0155966 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.0953177, -0.054588 Part.ActiveView().RotateAboutCenter -0.156593, -0.0857811 Part.ActiveView().RotateAboutCenter -0.0408504, -0.0311931 Part.ActiveView().RotateAboutCenter 0.0544672, 0.00779828 Part.ActiveView().RotateAboutCenter 0.0476588, 0.0389914 Part.ActiveView().RotateAboutCenter 0.0476588, 0.0389914 Part.ActiveView().RotateAboutCenter 0.0408504, 0.0389914 Part.ActiveView().RotateAboutCenter 0.0408504, 0.0389914 Part.ActiveView().RotateAboutCenter 0.0408504, 0.0311931 Part.ActiveView().RotateAboutCenter 0.0204252, 0.0155966 Part.ActiveView().RotateAboutCenter 0.0272336, 0.00779828 Part.ActiveView().RotateAboutCenter 0.0136168, 0.00779828 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.ActiveView().RotateAboutCenter -0.00680841, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ShowNamedView2 "*Isometric", 7 Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.SaveAs2 "C:\Documents and Settings\jdecew\Desktop\Stuff\Glider MK I\Glider.SLDASM", 0, FALSE, FALSE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw swApp.LoadFile2 "C:\Program Files\SolidWorks\data\templates\English Part.prtdot", "" Set Part = swApp.ActiveDoc swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\data\templates\English Part.prtdot", 0, 0.000000, 0.000000) Set Part = swApp.ActivateDoc ("Part3") Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ShowNamedView2 "*Top", 5 boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, False, 0, Nothing) Part.InsertSketch2 True Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle 0, 0, 0, -0.1016393188854, -0.01903034055728, 0, 1 Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", -0.1025043343653, 0, 0.008073477812178, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(-0.1224, 0, -0.00201837) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part3.SLDPRT", "DIMENSION", -0.125859752322, 0, -0.002595046439628, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D1@Sketch1").SystemValue = 0.00635 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part3.SLDPRT", "DIMENSION", -0.125859752322, 0, -0.002595046439628, False, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -0.06098359133127, 0, 0.0002883384932921, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(-0.0569469, 0, -0.0164353) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part3.SLDPRT", "DIMENSION", -0.125859752322, 0, -0.002595046439628, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part3.SLDPRT", "DIMENSION", -0.05838854489164, 0, -0.01787698658411, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D2@Sketch1").SystemValue = 0.127 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewZoomtofit2 Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part3.SLDPRT", "DIMENSION", -0.07270637514941, 0, -0.01672127011488, False, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.InsertSketch2 True Part.WindowRedraw Part.ShowNamedView2 "*Trimetric", 8 Part.InsertSketch2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.00635, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1 Part.SelectionManager.EnableContourSelection = 0 boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Unknown", "BROWSERITEM", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolStatus = Part.Extension.ApplyTexture ( 99, 0, "\images\textures\wood\maple.jpg", 0) Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateplusx Part.ViewRotateplusx Part.WindowRedraw Part.ShowNamedView2 "*Isometric", 7 boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part3.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("Line3", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle 0, 0, 0, -0.006611001364848, -0.07045005301043, 0, 1 Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", -0.004553102107308, -0.0009105473434567, -3.299656032266e-005, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(-0.0141566, 0, -0.029701) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part3.SLDPRT", "DIMENSION", -0.01587154802378, -0.0009105473434569, -0.03004402739945, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D1@Sketch1").SystemValue = 0.00635 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewZoomtofit2 Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part3.SLDPRT", "DIMENSION", -0.01445349009594, -0.0004552736717288, -0.02958202277911, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D1@Sketch1").SystemValue = 0.00635 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle -0.00635, -0.07045005301043, 0, -0.06881649191326, -0.06296986461237, 0, 1 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle 0, -0.07045005301043, 0, 0.00786079990621, -0.06296986461237, 0, 1 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line14", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.DeSelectByID "Line7", "SKETCHSEGMENT", -0.002921944255903, -0.07045005301043, 0 Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", -0.06806769023534, -0.0004552736717281, 0.06626459199523, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0.00845984124855, -0.0004552736717281, 0.06671387300199, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", -0.003520985598243, -0.0004552736717281, 0.07000860038486, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", -0.002023382242394, -0.0004552736717281, 0.07090716239837, False, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", -0.006516192309941, -0.0004552736717284, 0.02313361534678, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(-0.00352099, 0, 0.0202882) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part3.SLDPRT", "DIMENSION", -0.003520985598243, -0.0004552736717284, 0.02043792930625, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D2@Sketch1").SystemValue = 0.127 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewZoomtofit2 Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0.008367771088751, -0.0002276368358639, 0.1237381345121, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0.008133907504808, -0.0002276368358639, 0.1232704073442, False, 0, Nothing) Part.WindowRedraw Part.ViewZoomtofit2 Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0.05516290338254, -0.0001138184179319, 0.1232750686666, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", -0.02868919201731, -0.000113818417932, 0.1204722131101, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line15", "SKETCHSEGMENT", 0.01802506725837, -0.000113818417932, 0.1197714992209, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point15", "SKETCHPOINT", 0.007411403141115, -0.12065, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", -0.0006606364518979, -0.000113818417932, 0.1204722131101, True, 0, Nothing) Part.SketchAddConstraints "sgCOINCIDENT" Part.ClearSelection2 True Part.EditUndo 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", -0.01047063089979, -0.000113818417932, 0.1200050705173, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", -0.006733490157736, -0.000113818417932, 0.1179029288499, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", -0.005799204972223, -0.000113818417932, 0.1158007871825, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point12", "SKETCHPOINT", -0.00635, -0.12065, 0, True, 0, Nothing) Part.SketchAddConstraints "sgCOINCIDENT" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point15", "SKETCHPOINT", 0.007411403141115, -0.12065, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", 0.0002736487336157, -0.000113818417932, 0.1197714992209, True, 0, Nothing) Part.SketchAddConstraints "sgCOINCIDENT" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0.06193647097751, -0.0001138184179319, 0.1249100677413, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle -0.05941076171513, -0.127, 0, -0.06676131332699, -0.08146580661489, 0, 1 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle -0.05941076171513, -0.08146580661489, 0, -0.00635, -0.08823937420986, 0, 1 Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line24", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line18", "SKETCHSEGMENT", -0.06022131702839, -0.0001138184179322, 0.08426866217143, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle 0.05306076171513, -0.127, 0, 0.061002185792, -0.08146580661489, 0, 1 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle 0.05306076171513, -0.08146580661489, 0, 0, -0.08823937420986, 0, 1 Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line26", "SKETCHSEGMENT", 0.05282719041876, -0.0001138184179321, 0.09734865476862, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.05941076171513, -0.08823937420986, 0, -0.05941076171513, -0.12065, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.05306076171513, -0.08823937420986, 0, 0.05306076171513, -0.12065, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line30", "SKETCHSEGMENT", 0.05306076171513, -0.0001138184179322, 0.08660437513521, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", -0.0590534605465, -0.0001138184179322, 0.08520294735694, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", -0.002762778119304, -0.0001138184179319, 0.1272457807051, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", -0.0623234586958, -0.0001138184179322, 0.08123223531851, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", -0.05952060313925, -0.0001138184179322, 0.08403509087505, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line27", "SKETCHSEGMENT", 0.0577321876427, -0.0001138184179322, 0.08263366309678, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line30", "SKETCHSEGMENT", 0.05212647652962, -0.0001138184179322, 0.08450223346781, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line20", "SKETCHSEGMENT", -0.06559345684509, -0.0001138184179322, 0.09267722884105, False, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line20", "SKETCHSEGMENT", -0.08030844851693, -0.0001138184179322, 0.09361151402656, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(-0.0964249, 0, 0.0936115) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D3@Sketch1@Part3.SLDPRT", "DIMENSION", -0.09642486796704, -0.0001138184179322, 0.09361151402656, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D3@Sketch1").SystemValue = 0.0508 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line29", "SKETCHSEGMENT", 0.01078435707064, -0.0001138184179322, 0.08099866402213, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line29", "SKETCHSEGMENT", 0.02549934874248, -0.0001138184179322, 0.08169937791126, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line21", "SKETCHSEGMENT", -0.01677705590201, -0.0001138184179323, 0.07609366679818, True, 0, Nothing) Part.SketchAddConstraints "sgCOLINEAR" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line20", "SKETCHSEGMENT", -0.08124273370245, -0.0001138184179322, 0.0910422297664, False, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line20", "SKETCHSEGMENT", -0.1060012911186, -0.000113818417932, 0.1172022149608, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line28", "SKETCHSEGMENT", 0.09862664912007, -0.0001138184179327, 0.1074265138846, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(-0.00578782, 0, -0.0544997) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D4@Sketch1@Part3.SLDPRT", "DIMENSION", -0.005229455644322, -0.0001138184179338, -0.05394130480848, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D4@Sketch1").SystemValue = 0.2032 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D3@Sketch1@Part3.SLDPRT", "DIMENSION", -0.121369615811, -0.0001138184179328, 0.09011716309052, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D3@Sketch1").SystemValue = 0.0508 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D4@Sketch1@Part3.SLDPRT", "DIMENSION", -0.005229455644322, -0.0001138184179338, -0.05449967096313, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. Part.InsertSketch2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", -0.01071151344637, -0.0001138184179325, 0.1267341618718, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", -0.02738253116333, -0.0001138184179325, 0.1277217819959, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0.01156459285857, -0.0001138184179325, 0.1255918611509, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.098425, -0.127, 0, -0.00635, -0.127, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0, -0.127, 0, 0.092075, -0.127, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line35", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. Part.InsertSketch2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line35", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point7", "SKETCHPOINT", -0.00635, -0.127, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line35", "SKETCHSEGMENT", -0.009126066778064, -0.0001138184179325, 0.1262004099638, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", -0.0024320298368, -0.0001138184179325, 0.1274175075895, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line35", "SKETCHSEGMENT", -0.01551582931291, -0.0001138184179325, 0.1262004099638, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", -0.002736304243221, -0.0001138184179325, 0.1274175075895, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", -0.09675709582734, -0.0001138184179326, 0.1103781408299, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", -0.09827846785945, -0.0001138184179328, 0.07903787696851, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", -0.09919129107871, -0.0001138184179328, 0.08968748119325, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", -0.09888701667229, -0.0001138184179328, 0.07873360256209, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", -0.09736564464019, -0.0001138184179326, 0.1100738664235, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", -0.09858274226587, -0.0001138184179327, 0.1033798294822, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", -0.09888701667229, -0.0001138184179328, 0.07934215137493, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", -0.09919129107871, -0.0001138184179325, 0.1225491170867, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line30", "SKETCHSEGMENT", 0.0912844873409, -0.0001138184179328, 0.07995070018777, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0.09189303615374, -0.0001138184179325, 0.1225491170867, False, 0, Nothing) Part.WindowRedraw Part.EditDelete ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line35", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. Part.InsertSketch2 True Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line35", "SKETCHSEGMENT", -0.09493144938882, -0.0001138184179325, 0.1262004099638, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line17", "SKETCHSEGMENT", -0.1025383095493, -0.0001138184179325, 0.1262004099638, True, 0, Nothing) Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line36", "SKETCHSEGMENT", 0.04199203350068, -0.0001138184179325, 0.1268089587766, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", 0.09432723140511, -0.0001138184179325, 0.1274175075895, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.104775, -0.127, 0, -0.00635, -0.127, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0, -0.127, 0, 0.098425, -0.127, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", -0.1007126631108, -0.0001138184179329, 0.07660368171714, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line27", "SKETCHSEGMENT", 0.09463150581153, -0.0001138184179329, 0.07569085849788, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point24", "SKETCHPOINT", 0.092075, -0.0762, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point23", "SKETCHPOINT", 0.098425, -0.0762, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchAddConstraints "sgMERGEPOINTS" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point18", "SKETCHPOINT", -0.098425, -0.0762, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point17", "SKETCHPOINT", -0.104775, -0.0762, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchAddConstraints "sgMERGEPOINTS" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line37", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. Part.InsertSketch2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line37", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point7", "SKETCHPOINT", -0.00635, -0.127, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", -0.003344853056063, -0.0001138184179325, 0.1277217819959, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point7", "SKETCHPOINT", -0.00635, -0.127, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line37", "SKETCHSEGMENT", -0.01855857337712, -0.0001138184179325, 0.1255918611509, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", -0.006387597120274, -0.0001138184179325, 0.1240704891188, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line37", "SKETCHSEGMENT", -0.02281841506701, -0.0001138184179325, 0.1277217819959, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line38", "SKETCHSEGMENT", 0.009738946420045, -0.0001138184179325, 0.1262004099638, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle -0.00635, -0.127, 0, -0.104775, -0.12065, 0, 1 Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line39", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line40", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line41", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line42", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line20", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line21", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line24", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line15", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line34", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line28", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line29", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line31", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line32", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle -0.00635, -0.127, 0, -0.1113622673356, -0.1204191962418, 0, 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle -0.00635, -0.08147207221988, 0, -0.1113622673356, -0.08938320678683, 0, 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle -0.1113622673356, -0.08147207221988, 0, -0.1220118715603, -0.127, 0, 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line43", "SKETCHSEGMENT", -0.1010169375172, -0.0001138184179325, 0.1274175075895, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line47", "SKETCHSEGMENT", -0.09158443091818, -0.0001138184179328, 0.08147207221988, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line46", "SKETCHSEGMENT", -0.111666541742, -0.0001138184179325, 0.1240704891188, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line52", "SKETCHSEGMENT", -0.1110579929291, -0.0001138184179327, 0.09699006694736, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line46", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line50", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line52", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.SketchAddConstraints "sgCOLINEAR" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line51", "SKETCHSEGMENT", -0.115317834619, -0.0001138184179328, 0.08208062103272, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line50", "SKETCHSEGMENT", -0.1104494441163, -0.0001138184179328, 0.08329771865841, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line46", "SKETCHSEGMENT", -0.1107537185227, -0.0001138184179325, 0.1228533914932, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line53", "SKETCHSEGMENT", -0.1168392066511, -0.0001138184179325, 0.1258961355574, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", -0.002736304243221, -0.0001138184179325, 0.1268089587766, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", -0.005474773901011, -0.0001138184179325, 0.123461940306, True, 0, Nothing) Part.WindowRedraw Part.DeSelectByID "Line8", "SKETCHSEGMENT", -0.00635, -0.123461940306, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line44", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line48", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line49", "SKETCHSEGMENT", -0.09706137023376, -0.0001138184179328, 0.08725328594188, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line54", "SKETCHSEGMENT", -0.1226204203731, -0.0001138184179327, 0.09668579254094, False, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line43", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. Part.InsertSketch2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line43", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line43", "SKETCHSEGMENT", -0.09493144938882, -0.0001138184179325, 0.1252875867445, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", -0.003344853056063, -0.0001138184179325, 0.1268089587766, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", -0.00517049949459, -0.0001138184179325, 0.1228533914932, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line43", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line44", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line45", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line46", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line47", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line48", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line49", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line50", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line51", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line52", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line53", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line54", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.EditUndo 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line43", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line44", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line45", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line46", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line47", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line48", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line49", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line50", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line51", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line52", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line53", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line54", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.InsertSketch2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle -0.00635, -0.127, 0, -0.08306474753839, -0.1198106474289, 0, 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line55", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. Part.InsertSketch2 True Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point7", "SKETCHPOINT", -0.00635, -0.127, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line55", "SKETCHSEGMENT", -0.01003888999733, -0.0001138184179325, 0.1265046843702, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line55", "SKETCHSEGMENT", -0.008213243558801, -0.0001138184179325, 0.1258961355574, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line55", "SKETCHSEGMENT", -0.01277735965512, -0.0001138184179325, 0.1268089587766, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", -0.006691871526695, -0.0001138184179325, 0.123461940306, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line56", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line55", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line56", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line57", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line58", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line56", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.ClearSelection2 True ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line55", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. Part.InsertSketch2 True Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line55", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line57", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line58", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line56", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle -0.00635, -0.1201149218354, 0, -0.06450400874671, -0.1045969271079, 0, 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle 0, -0.1045969271079, 0, 0.03560227096584, -0.1201149218354, 0, 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line59", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch has intersecting contours. Part.InsertSketch2 True Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line60", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line59", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch has both open and closed contours. Part.InsertSketch2 True Part.ClearSelection2 True Part.EditUndo 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", -0.007300420339537, -0.0001138184179326, 0.1091610432042, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line60", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", -0.006691871526695, -0.0001138184179328, 0.08238489543914, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.DeSelectByID "Line8", "SKETCHSEGMENT", -0.00635, -0.1112909640491, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line60", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", -0.006083322713853, -0.0001138184179327, 0.1018584574501, True, 0, Nothing) Part.SketchAddConstraints "sgCOLINEAR" Part.ClearSelection2 True ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line59", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch has intersecting contours. Part.InsertSketch2 True Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point44", "SKETCHPOINT", -0.00635, -0.1045969271079, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", -0.006083322713853, -0.0001138184179326, 0.1076396711721, True, 0, Nothing) Part.SketchAddConstraints "sgCOINCIDENT" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point42", "SKETCHPOINT", -0.00635, -0.1201149218354, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", -0.007300420339537, -0.0001138184179326, 0.1164636289583, True, 0, Nothing) Part.SketchAddConstraints "sgCOINCIDENT" Part.ClearSelection2 True ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line59", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch has intersecting contours. Part.InsertSketch2 True Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line60", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line59", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch has both open and closed contours. Part.InsertSketch2 True Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line59", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line61", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line62", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.00635, -0.08968748119325, 0, -0.05537577655407, -0.1012499086373, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.05537577655407, -0.1012499086373, 0, -0.03498939132386, -0.1146379825198, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.03498939132386, -0.1146379825198, 0, -0.03133809844681, -0.1146379825198, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point53", "SKETCHPOINT", -0.03133809844681, -0.1146379825198, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", -0.005779048307432, -0.0001138184179326, 0.1146379825198, True, 0, Nothing) Part.SketchAddConstraints "sgCOINCIDENT" Part.ClearSelection2 True ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line67", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch has both open and closed contours. Part.InsertSketch2 True Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line67", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line68", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line69", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part3.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.EditUndo 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point8", "SKETCHPOINT", 0, -0.127, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.00635, -0.07629940731072, 0, 0, -0.07629940731072, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line70", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch has both open and closed contours. Part.InsertSketch2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", -0.007300420339537, -0.0001138184179328, 0.09090457881893, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line70", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part3.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle 0, 0, 0, -0.05460340640081, -0.3718368054, 0, 1 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line72", "SKETCHSEGMENT", 0.00218150042312, -0.000113818417933, 0.06065551600484, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(-0.023561, 0, 0.0614126) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line71", "SKETCHSEGMENT", -0.03567510412617, -0.0001138184179334, -0.00142931545599, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(-0.0364322, 0, -0.0506429) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part3.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part3.SLDPRT", "DIMENSION", -0.04021789667208, -0.0001138184179338, -0.05215716555204, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D2@Sketch1").SystemValue = 0.00635 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part3.SLDPRT", "DIMENSION", -0.02431812276138, -0.000113818417933, 0.05686985554991, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D1@Sketch1").SystemValue = 0.1524 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part3.SLDPRT", "DIMENSION", -0.02496198391544, -0.0001138184179327, 0.02406936707228, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part3.SLDPRT", "DIMENSION", -0.005139613129508, -0.0001138184179332, -0.05078227186563, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle -0.00635, -0.1524, 0, -0.0540003665923, -0.1322183286001, 0, 1 Part.ClearSelection2 True ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line75", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line76", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line77", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line78", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line74", "SKETCHSEGMENT", -0.007147382605099, -0.0001138184179319, 0.1478359899292, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line73", "SKETCHSEGMENT", -0.002432616920852, -0.0001138184179318, 0.1531401013239, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle -0.00635, -0.1524, 0, -0.01539822255253, -0.1554974841661, 0, 1 Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle -0.01539822255253, -0.1554974841661, 0, -0.03573064956584, -0.1652216883898, 0, 1 Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point64", "SKETCHPOINT", -0.01539822255253, -0.1554974841661, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line80", "SKETCHSEGMENT", -0.005968691184037, -0.0001138184179318, 0.1566761755871, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle 0, -0.1524, 0, 0.0167211186714, -0.1610962684161, 0, 1 Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line89", "SKETCHSEGMENT", 0.006702241592376, -0.0001138184179318, 0.1625696326924, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line81", "SKETCHSEGMENT", -0.02011298823678, -0.0001138184179317, 0.1696417812188, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line88", "SKETCHSEGMENT", 0.001103457342333, -0.0001138184179318, 0.1557921570213, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line81", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line89", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.SketchAddConstraints "sgCOLINEAR" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line87", "SKETCHSEGMENT", 0.008470278723969, -0.0001138184179318, 0.1510773913371, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line79", "SKETCHSEGMENT", -0.03042653817107, -0.0001138184179318, 0.1510773913371, True, 0, Nothing) Part.SketchAddConstraints "sgCOLINEAR" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line90", "SKETCHSEGMENT", 0.0167211186714, -0.0001138184179318, 0.1584442127187, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.00635, -0.1693471083635, 0, 0, -0.1693471083635, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line91", "SKETCHSEGMENT", -0.002137944065586, -0.0001138184179317, 0.1693471083635, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line82", "SKETCHSEGMENT", -0.05576840372389, -0.0001138184179318, 0.1605069227056, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line71", "SKETCHSEGMENT", -0.002727289776117, -0.0001138184179329, -0.0006791291246052, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line90", "SKETCHSEGMENT", 0.04854578704007, -0.0001138184179318, 0.1549081384555, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line87", "SKETCHSEGMENT", 0.007291587302907, -0.0001138184179318, 0.1534347741792, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line79", "SKETCHSEGMENT", -0.01657691397359, -0.0001138184179318, 0.1513720641924, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchRectangle -0.05665242228969, -0.15875, 0, 0.05030242228969, -0.1702311269293, 0, 1 Part.ClearSelection2 True ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line92", "SKETCHSEGMENT", -0.003021962631383, -0.0001138184179318, 0.158738885574, False, 0, Nothing) Part.WindowRedraw Part.EditDelete ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line81", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line82", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line93", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. Part.InsertSketch2 True Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line95", "SKETCHSEGMENT", 0.0491351327506, -0.0001138184179318, 0.1640429969688, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.05665242228969, -0.1524, 0, -0.06608195365818, -0.1524, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.06608195365818, -0.1524, 0, -0.06608195365818, -0.1702311269293, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.06608195365818, -0.1702311269293, 0, -0.05665242228969, -0.1702311269293, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.05665242228969, -0.15875, 0, -0.05665242228969, -0.1702311269293, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.00635, -0.15875, 0, 0, -0.15875, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.05030242228969, -0.1524, 0, 0.05768064555329, -0.1524, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.05768064555329, -0.1524, 0, 0.05768064555329, -0.1702311269293, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.05768064555329, -0.1702311269293, 0, 0.05030242228969, -0.1702311269293, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.05030242228969, -0.15875, 0, 0.05030242228969, -0.1702311269293, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line96", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line79", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line82", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch cannot be used for a feature because an endpoint is wrongly shared by multiple entities. Part.InsertSketch2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line82", "SKETCHSEGMENT", -0.05724176800022, -0.0001138184179318, 0.1563815027319, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line90", "SKETCHSEGMENT", 0.04942980560586, -0.0001138184179318, 0.1552028113108, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point64", "SKETCHPOINT", -0.05665242228969, -0.15875, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line99", "SKETCHSEGMENT", -0.05783111371075, -0.0001138184179318, 0.1625696326924, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line98", "SKETCHSEGMENT", -0.06313522510553, -0.0001138184179317, 0.1705257997846, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line103", "SKETCHSEGMENT", 0.05326055272431, -0.0001138184179317, 0.1693471083635, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.06608195365818, -0.1702311269293, 0, -0.05665242228969, -0.1784819668768, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.05665242228969, -0.1784819668768, 0, 0.05030242228969, -0.1784819668768, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.05030242228969, -0.1784819668768, 0, 0.05768064555329, -0.1784819668768, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.05768064555329, -0.1784819668768, 0, 0.05768064555329, -0.1702311269293, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line108", "SKETCHSEGMENT", 0.05768064555329, -0.0001138184179317, 0.173177855482, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point78", "SKETCHPOINT", 0.05768064555329, -0.1702311269293, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point78", "SKETCHPOINT", 0.05768064555329, -0.1702311269293, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point76", "SKETCHPOINT", -0.06608195365818, -0.1702311269293, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line101", "SKETCHSEGMENT", 0.05443924414537, -0.0001138184179318, 0.1522560827581, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line107", "SKETCHSEGMENT", 0.05355522557958, -0.0001138184179317, 0.1790713125873, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line105", "SKETCHSEGMENT", -0.06284055225026, -0.0001138184179317, 0.1784819668768, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line96", "SKETCHSEGMENT", -0.06077784226341, -0.0001138184179318, 0.1516667370476, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.05030242228969, -0.1524, 0, 0.05030242228969, -0.15875, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.05030242228969, -0.1702311269293, 0, 0.05030242228969, -0.1784819668768, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( -0.05665242228969, -0.1784819668768, 0, -0.05665242228969, -0.1702311269293, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( -0.05665242228969, -0.15875, 0, -0.05665242228969, -0.1524, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line112", "SKETCHSEGMENT", -0.05635774943442, -0.0001138184179318, 0.1549081384555, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line111", "SKETCHSEGMENT", -0.05753644085549, -0.0001138184179317, 0.1740618740478, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line109", "SKETCHSEGMENT", 0.04942980560586, -0.0001138184179318, 0.1563815027319, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line110", "SKETCHSEGMENT", 0.05031382417166, -0.0001138184179317, 0.1743565469031, True, 0, Nothing) Part.SketchAddConstraints "sgVERTICAL" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line89", "SKETCHSEGMENT", 0.047367095619, -0.0001138184179318, 0.1593282312845, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line104", "SKETCHSEGMENT", 0.04972447846113, -0.0001138184179318, 0.163158978403, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line100", "SKETCHSEGMENT", -0.004200654052444, -0.0001138184179318, 0.1590335584293, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point65", "SKETCHPOINT", -0.00635, -0.1599175769951, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( -0.00635, -0.1524, 0, -0.01186214828935, -0.1575601941529, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0, -0.1575601941529, 0, 0, -0.1524, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line100", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line113", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line114", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.DeSelectByID "Line100", "SKETCHSEGMENT", -0.007442055460364, -0.1575601941529, 0 Part.SketchAddConstraints "sgVERTICAL" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line96", "SKETCHSEGMENT", -0.0616618608292, -0.0001138184179318, 0.1531401013239, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point59", "SKETCHPOINT", -0.00635, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.DeSelectByID "Point59", "SKETCHPOINT", -0.00635, 0, 0 Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line71", "SKETCHSEGMENT", -0.003021962631383, -0.0001138184179329, -8.978341407434e-005, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line112", "SKETCHSEGMENT", -0.05959915084234, -0.0001138184179318, 0.1557921570213, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line96", "SKETCHSEGMENT", -0.06225120653973, -0.0001138184179318, 0.1534347741792, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line111", "SKETCHSEGMENT", -0.06018849655287, -0.0001138184179317, 0.1743565469031, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line112", "SKETCHSEGMENT", -0.05989382369761, -0.0001138184179318, 0.1563815027319, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line110", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line109", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line89", "SKETCHSEGMENT", 0.006996914447642, -0.0001138184179318, 0.1605069227056, True, 0, Nothing) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.EditUndo 1 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.DeSelectByID "Line89", "SKETCHSEGMENT", 0.006996914447642, -0.15875, 0 Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line114", "SKETCHSEGMENT", -7.523407872839e-005, -0.0001138184179318, 0.1546134656003, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line113", "SKETCHSEGMENT", -0.006558036894568, -0.0001138184179318, 0.1549081384555, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line94", "SKETCHSEGMENT", -0.04162410667115, -0.0001138184179317, 0.1722938369162, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.05943728080292, -0.1622965210828, 0, -0.04676325679101, -0.1767139297452, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.04676325679101, -0.1767139297452, 0, -0.04075121058758, -0.1767139297452, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.04075121058758, -0.1767139297452, 0, -0.04676325679101, -0.15875, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line116", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID("Line115", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch has more than one open contour. Part.InsertSketch2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line115", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch has more than one open contour. Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line117", "SKETCHSEGMENT", -0.04583832660587, -0.0001138184179326, 0.1641463814531, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line97", "SKETCHSEGMENT", -0.0650306279476, -0.0001138184179326, 0.1604466607125, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line97", "SKETCHSEGMENT", -0.06549309304017, -0.0001138184179326, 0.1657650092771, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(-0.0809857, 0, 0.164378) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D3@Sketch1@Part3.SLDPRT", "DIMENSION", -0.08029197600247, -0.0001138184179326, 0.1646088465457, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D3@Sketch1").SystemValue = 0.0508 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line106", "SKETCHSEGMENT", -0.04329476859672, -0.0001138184179323, 0.2039183794143, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(-0.0439885, 0, 0.225885) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D3@Sketch1@Part3.SLDPRT", "DIMENSION", -0.08029197600247, -0.0001138184179326, 0.1646088465457, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D4@Sketch1@Part3.SLDPRT", "DIMENSION", -0.04398846623558, -0.0001138184179322, 0.2258854713114, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D4@Sketch1").SystemValue = 0.2032 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line100", "SKETCHSEGMENT", -0.004787343374828, -0.0001138184179325, 0.1587412566129, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.InsertSketch2 True Part.InsertSketch2 True Part.SaveAs2 "C:\Documents and Settings\jdecew\Desktop\Stuff\Glider MK I\rear.SLDPRT", 0, FALSE, FALSE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Glider.SLDASM") Part.EditRebuild Part.WindowRedraw Part.AddComponent "C:\Documents and Settings\jdecew\Desktop\Stuff\Glider MK I\rear.SLDPRT", 0.191721296066, -0.08715485406333, 0.1543246672391 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.1948962960661, -0.08769087609041, 0.1261901843816, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.2317749999999, -0.04165928285488, 0.02468097408547, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Feature = Part.AddMate2 (0, 0, False, 0, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.2296048975262, -0.09032985406327, 0.204105872185, True, 1, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.2284676708835, -0.04444999999998, 0.04203790365491, True, 1, Nothing) Part.WindowRedraw Set Feature = Part.AddMate2 (0, 0, False, 0.04587985406333, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True Part.WindowRedraw Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2479575416073, -0.04427598302834, 0.2562727577523, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2157307805949, -0.03679772103908, 0.07626523765259, True, 1, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.226936956771, -0.0402704136477, 0.07619999999997, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateplusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", 0.2291734302386, -0.0402780416066, 0.117886421868, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Feature = Part.AddMate2 (0, 1, False, 0.0416864218681, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewRotateminusx Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ViewZoomtofit2 Part.WindowRedraw Part.Save2 FALSE Part.SaveAs2 "C:\Documents and Settings\jdecew\Desktop\Stuff\Glider MK I\GliderMK1.JPG", 0, TRUE, FALSE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("rear.SLDPRT") Part.EditRebuild Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditCopy Part.Paste Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Front", "PLANE", 0, 0, 0, True, 0, Nothing) Part.DeSelectByID "Front", "PLANE", 0, 0, 0 boolstatus = Part.Extension.SelectByID("Right", "PLANE", 0, 0, 0, True, 0, Nothing) Part.DeSelectByID "Right", "PLANE", 0, 0, 0 boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, True, 0, Nothing) Part.ChangeSketchPlane Part.EditRebuild boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditDelete ' MSGBOX ' Some of the selected entities cannot be deleted. Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditCopy boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, False, 0, Nothing) Part.Paste Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line96", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line79", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line87", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line81", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line105", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line97", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line89", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line106", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line107", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line94", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line99", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line100", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line101", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line102", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line104", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line109", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line110", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line111", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line112", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line113", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line114", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.00635, -0.1524, 0, 0, -0.1524, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch3@rear.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch3@rear.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line71", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line72", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line74", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point57", "SKETCHPOINT", -0.00635, -0.1524, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line96", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line79", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line87", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line81", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line105", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line97", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line89", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line106", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line107", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line94", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line99", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line100", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line101", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line102", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line104", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line109", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line110", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line111", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line112", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line113", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line114", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line106", "SKETCHSEGMENT", 0.08017569783526, -0.0001138184179317, 0.2032514440657, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point58", "SKETCHPOINT", -0.0003792836303505, -0.1638299529762, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point57", "SKETCHPOINT", -0.01673750985077, -0.1638059465092, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line100", "SKETCHSEGMENT", -0.00781810440605, -0.000113818417932, 0.1687366337038, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line79", "SKETCHSEGMENT", -0.02261016598972, -0.000113818417932, 0.1638059465092, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line97", "SKETCHSEGMENT", -0.110603968231, -0.0001138184179319, 0.1823908443964, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point57", "SKETCHPOINT", -0.01350759737605, -0.1725294700073, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "VERTEX", -0.00635, 0.00635, 0.1524, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchAddConstraints "sgCOINCIDENT" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point58", "SKETCHPOINT", 0.01754510722683, -0.1524, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "VERTEX", 0, 0.00635, 0.1524, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchAddConstraints "sgCOINCIDENT" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line81", "SKETCHSEGMENT", -0.0480221692232, -0.0001138184179321, 0.1573581247933, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line112", "SKETCHSEGMENT", -0.1052939974061, -0.0001138184179321, 0.1554617066415, False, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line112", "SKETCHSEGMENT", -0.1052939974061, -0.0001138184179321, 0.1550824230112, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(-0.142085, 0, 0.127015) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch3@rear.SLDPRT", "DIMENSION", -0.1454980622233, -0.0001138184179323, 0.1258775834742, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D1@Sketch3").SystemValue = 0.0047625 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point57", "SKETCHPOINT", -0.00635, -0.1524, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw ' MSGBOX ' A dimension could not be created from the selected items. Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point57", "SKETCHPOINT", -0.00635, -0.1524, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw ' MSGBOX ' The selected entity could not be converted into a line or a circular arc. Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point58", "SKETCHPOINT", 0, -0.1524, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point57", "SKETCHPOINT", -0.00635, -0.1524, 0, False, 0, Nothing) Part.WindowRedraw Part.SketchConstraintsDel 0, "sgCOINCIDENT" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point58", "SKETCHPOINT", 0, -0.1524, 0, False, 0, Nothing) Part.WindowRedraw Part.SketchConstraintsDel 0, "sgCOINCIDENT" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line87", "SKETCHSEGMENT", 0.008870375329371, -0.0001138184179321, 0.1531860048594, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", -0.004025268102545, 0.006349999999998, 0.1520481539684, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line94", "SKETCHSEGMENT", -0.004025268102545, -0.0001138184179321, 0.1547031393808, True, 0, Nothing) Part.SketchAddConstraints "sgCOLINEAR" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line100", "SKETCHSEGMENT", -0.002887417211494, 0.006349999999998, 0.1114648055209, False, 0, Nothing) Part.WindowRedraw Part.EditDelete Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line113", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line114", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line113", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", -0.004404551732896, 0.006349999999998, 0.08984563859089, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line114", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Point57", "SKETCHPOINT", -0.00635, -0.1063625, 0, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", -0.003266700841845, 0.006349999999998, 0.1034998492835, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line113", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", -0.006680253514999, 0.006349999999884, 0.1190504781279, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchAddConstraints "sgCOLINEAR" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line114", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "FACE", -0.002508133581144, 0.006349999999998, 0.1179126272368, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line114", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0002324317990407, 0.006349999999884, 0.1209468962796, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SketchAddConstraints "sgCOLINEAR" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D1@Sketch3@rear.SLDPRT", "DIMENSION", -0.1447394949626, -0.0001138184179325, 0.08756993680878, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.00635, -0.111125, 0, -0.1011244023676, -0.1524, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.1011244023676, -0.1524, 0, -0.104775, -0.1524, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 -0.01105731831087, -0.111125, 0, -0.104775, -0.1524, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.004004066982896, -0.111125, 0, 0.098425, -0.1524, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2 0.0919625570985, -0.1524, 0, 0, -0.111125, 0 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line124", "SKETCHSEGMENT", 0.04466980727607, -0.0001138184179323, 0.1278467754188, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line125", "SKETCHSEGMENT", 0.04406735186432, -0.0001138184179323, 0.1305578247717, True, 0, Nothing) Part.SketchAddConstraints "sgPARALLEL" Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line123", "SKETCHSEGMENT", -0.06768812701544, -0.0001138184179323, 0.1353774680657, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line121", "SKETCHSEGMENT", -0.06347093913319, -0.0001138184179323, 0.1374860620069, True, 0, Nothing) Part.SketchAddConstraints "sgPARALLEL" Part.WindowRedraw Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( -0.06100027167003, -0.1333357604302, 0, -0.06041826151403, -0.1346721544873, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.CreateLine2( 0.0393289960876, -0.126566877158, 0, 0.03868661254821, -0.1280363975249, 0 ).ConstructionGeometry = TRUE Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.SetPickMode Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line127", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line126", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("Line126", "SKETCHSEGMENT", -0.06049554687781, -0.0001138184179324, 0.1340021262173, False, 0, Nothing) Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Set Annotation = Part.AddDimension2(-0.0633205, 0, 0.0985722) Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw boolstatus = Part.Extension.SelectByID("D2@Sketch3@rear.SLDPRT", "DIMENSION", -0.06273198895145, -0.0001138184179327, 0.0986898829493, False, 0, Nothing) Part.WindowRedraw Part.Parameter("D2@Sketch3").SystemValue = 0.0015875 Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.ClearSelection2 True Part.InsertSketch2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Glider.SLDASM") Part.EditRebuild swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("rear.SLDPRT") Part.EditRebuild boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw Part.WindowRedraw