' ******************************************************************************
' swxJRNL.swj - journal recorded on 11/04/04 by jaha
' *****************************************************************************
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\jaha\My Documents\638jaha\SWfiles\DigiScanner\PMThousing\PMT-BCB.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("PMT-BCB.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = Nothing
swApp.CloseDoc "PMT-BCB.SLDPRT"
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\SolidWorks2004\data\templates\j04.prtdot", 0, 0.000000, 0.000000)
Set Part = swApp.ActivateDoc ("Part1")
boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.SketchRectangle -0.02397715264188, 0.01352015655577, 0, 0.03791981409002, -0.01795645792564, 0, 1
Part.ClearSelection2 True
Part.CreateLine2( -0.02397715264188, 0.01352015655577, 0, 0.03791981409002, -0.01795645792564, 0 ).ConstructionGeometry = TRUE
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgATMIDDLE"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.006865704500978, 0, -0.01309765166341, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.00116189, 0, -0.0232378)
Part.ClearSelection2 True
Part.Parameter("D1@Sketch1").SystemValue = 0.0762
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.0381310665362, 0, 0.000211252446184, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0499612, 0, -0.00274628)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part1.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D2@Sketch1").SystemValue = 0.00635
boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT", "DIMENSION", 0.0499612035225, 0, -0.0002112524461839, False, 0, Nothing)
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Front", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.ShowNamedView2 "*Front", 1
Part.ClearSelection2 True
Part.CreateCircle 0.04228249718318, 0, 0, -0.0001600397319575, -6.401589278301e-005, 0
Part.ShowNamedView2 "*Front", 1
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.00854768680679, 0.02586587652263, 0, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0299824, 0.0164882, 0)
Part.ClearSelection2 True
Part.Parameter("D1@Sketch2").SystemValue = 0.3048
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.1099849522623, 0.0006627527723418, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgCOINCIDENT"
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.1524, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line3@Sketch1", "EXTSKETCHSEGMENT", 0.006990912056003, -0.003175, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgCOINCIDENT"
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing)
Part.ShowNamedView2 "*Trimetric", 8
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 4, Nothing)
Dim SweepFeature As Object
Set SweepFeature = Part.FeatureManager.InsertProtrusionSwept2(False, False, 0, False, False, 0, 0, True, 0.045974, 0.000254, 3, 0, 1, 1, 1)
boolstatus = Part.Extension.SelectByID("Sweep-Thin1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 4, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, True, 1, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sweep-Thin1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing)
Part.DeSelectByID "Sketch2", "SKETCH", 0.2041583208859, 0.1433416764904, 0
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0.1388194668444, 0.1517937057958, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0.0381, 0, -0.003175, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0.1388194668444, 0.1517937057958, 0, True, 4098, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0.0381, 0, -0.003175, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0.1388194668444, 0.1517937057958, 0, True, 4098, Nothing)
Part.DeSelectByID "Sketch1", "SKETCH", -0.01157161632477, 0.003175, 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 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.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 4, Nothing)
Set SweepFeature = Part.FeatureManager.InsertProtrusionSwept2(False, False, 0, False, False, 0, 0, False, 0, 0, 0, 0, 1, 1, 1)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sweep1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
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, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ShowNamedView2 "*Front", 1
Part.ShowNamedView2 "*Top", 5
boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0.002424544193975, 0.1147732686253, -1.331214164408e-005, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point1", "SKETCHPOINT", -0.0381, 0.003175, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgCOINCIDENT"
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing)
Part.ShowNamedView2 "*Trimetric", 8
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0.0762, 0, 0, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 2, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0.0762, 0, 0, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 2, Nothing)
Part.ShowNamedView2 "*Front", 1
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0.0762, 0, 0, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 2, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0.0762, 0, 0, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 2, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing)
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.InsertSketch2 True
Part.ShowNamedView2 "*Front", 1
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.003446314416177, -0.02584735812133, 0.1936577083549, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.0001325505544684, -0.005633398564905, 0.1936577083549, False, 0, Nothing)
Part.ClearSelection2 True
Part.SketchRectangle -0.009477364644488, -0.006627527723419, 0, 0.008748336594912, -0.01623744292238, 0, 1
Part.ClearSelection2 True
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 1, 0.0007953033268102, -0.01126679712981
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 1, 0.001458056099152, -0.007621656881932
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 1, -0.003512589693412, -0.00695890410959
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 0, -0.01014011741683, -0.008615786040445
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 0, -0.007820482713633, -0.01656881930855
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 0, 0.003446314416177, -0.01723157208089
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 1, 0.00808558382257, -0.01192954990215
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Point10", "SKETCHPOINT", 0.0001441762155703, -0.006627527723419, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point11", "SKETCHPOINT", 0.0008674772619997, -0.01623744292238, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing)
Part.ShowNamedView2 "*Isometric", 7
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Front", "PLANE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point11@Sketch2", "EXTSKETCHPOINT", 0.0002246709775884, -0.00827219662005, 0, True, 0, Nothing)
Part.CreatePlaneThruPtParallelToPlane True
boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 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.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point11@Sketch2", "EXTSKETCHPOINT", 0.0002246709775884, -0.00827219662005, 0, True, 0, Nothing)
Part.CreatePlaneThruPtParallelToPlane True
Part.InsertSketch2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line3@Sketch1", "EXTSKETCHSEGMENT", 0.04902744048746, -0.00635, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2@Sketch1", "EXTSKETCHSEGMENT", 0, -0.0028095274115, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1@Sketch1", "EXTSKETCHSEGMENT", 0.0195253634642, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line4@Sketch1", "EXTSKETCHSEGMENT", 0.0762, -0.002765268711642, 0, True, 0, Nothing)
boolstatus = Part.SketchUseEdge2(False)
Part.ClearSelection2 True
Part.InsertSketch2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ShowNamedView2 "*Front", 1
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing)
' MSGBOX
' Select one or two elements and then the desired text location.

Set Annotation = Part.AddDimension2(0.283769, 0.145806, -1.01816e-015)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line3@Sketch1", "EXTSKETCHSEGMENT", 0.01270277234181, -0.00635, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point11", "SKETCHPOINT", 0.0002246709775884, -0.00827219662005, 0, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.0386606, 0.0185571, 0)
Part.ClearSelection2 True
Part.Parameter("D2@Sketch2").SystemValue = 0.00254
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "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("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Plane2", "PLANE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, True, 0, Nothing)
Part.DeSelectByID "Plane2", "PLANE", 0, 0, 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0.0762, 0, 0, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 2, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, -0.00254, 0, True, 1, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0.0762, 0, 0, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 2, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, -0.00254, 0, True, 1, Nothing)
Part.FeatureManager.InsertProtrusionBlend 0, 1, 0, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1
Part.ClearSelection2 True
Part.ViewDisplayShadedWithEdges
boolstatus = Part.Extension.SelectByID("Loft8", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, -0.00254, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, -0.00254, 0, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 4098, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1341716611886, 0.02739840698359, 0.006349999999827, False, 0, Nothing)
Part.ClearSelection2 True
Part.ViewDisplayHiddenremoved
Part.ViewDisplayShaded
Part.ViewDisplayShadedWithEdges
Part.ActiveView.AddPerspective
Part.ActiveView.RemovePerspective
Part.ViewDisplayShadedWithEdges
boolstatus = Part.Extension.SelectByID("Loft8", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, -0.00254, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing)
Part.DeSelectByID "Sketch3", "SKETCH", -0.0762, 0.0003888098566449, 0
Part.SelectionManager.EnableContourSelection = 1
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCHREGION", 0.1777088947873, -0.039461850822, 0.09384623144527, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 4098, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0.1777088947873, -0.039461850822, 0.09384623144527, True, 1, Nothing)
Part.SelectionManager.EnableContourSelection = 1
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCHREGION", 0.0762, -0.00254, 0, True, 1, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 4098, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0.1777088947873, -0.039461850822, 0.09384623144527, True, 1, Nothing)
Part.SelectionManager.EnableContourSelection = 1
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCHREGION", 0.0762, -0.00254, 0, True, 1, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 4098, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0.1777088947873, -0.039461850822, 0.09384623144527, True, 1, Nothing)
Part.SelectionManager.EnableContourSelection = 1
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCHREGION", 0.0762, -0.00254, 0, True, 1, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 4098, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0.1777088947873, -0.039461850822, 0.09384623144527, True, 1, Nothing)
Part.SelectionManager.EnableContourSelection = 1
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCHREGION", 0.0762, -0.00254, 0, True, 1, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 4098, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0.1777088947873, -0.039461850822, 0.09384623144527, True, 1, Nothing)
Part.SelectionManager.EnableContourSelection = 1
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCHREGION", 0.0762, -0.00254, 0, True, 1, Nothing)
Part.ClearSelection2 True
Part.ClearSelection2 True
' MSGBOX
' Save changes to Part1?

Set Part = Nothing
swApp.CloseDoc "Part1"
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\SolidWorks2004\data\templates\j04.prtdot", 0, 0.000000, 0.000000)
Set Part = swApp.ActivateDoc ("Part2")
' MSGBOX
' Save changes to Part2?

Set Part = Nothing
swApp.CloseDoc "Part2"
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\SolidWorks2004\data\templates\j04.prtdot", 0, 0.000000, 0.000000)
Set Part = swApp.ActivateDoc ("Part3")
boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
Part.SketchRectangle -0.02123087084149, 0.0158439334638, 0, 0.02165337573386, -0.02028023483366, 0, 1
Part.ClearSelection2 True
Part.CreateLine2( -0.02123087084149, -0.02028023483366, 0, 0.02165337573386, 0.0158439334638, 0 ).ConstructionGeometry = TRUE
Part.EditDelete
Part.CreateLine2( -0.02123087084149, -0.02028023483366, 0, 0.02165337573386, 0.0158439334638, 0 ).ConstructionGeometry = TRUE
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.02186462818004, 0, 0.004436301369863, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0421449, 0, 0.00147877)
Part.ClearSelection2 True
Part.Parameter("D1@Sketch1").SystemValue = 0.0254
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", 0.0009506360078278, 0, 0.007816340508806, True, 0, Nothing)
Part.SketchAddConstraints "sgATMIDDLE"
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.0007393835616439, 0, -0.01204138943249, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", -0.02123087084149, 0, -0.0008450097847358, True, 0, Nothing)
Part.SketchAddConstraints "sgSAMELENGTH"
Part.ClearSelection2 True
Part.InsertSketch2 True
Part.ShowNamedView2 "*Front", 1
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Front", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
Part.CreateLine2 0, 0, 0, 0, 0.00962372254838, 0
Part.ClearSelection2 True
Part.InsertSketch2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line1@Sketch2", "EXTSKETCHSEGMENT", 0, 0.005932139397893, 0, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.00747919, 0.00548403, -3.82948e-017)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("RD1@Annotations@Part3.moPart_c", "DIMENSION", 0.007415174247366, 0.004886546482437, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("RD1@Annotations@Part3.moPart_c", "DIMENSION", 0.005494697463876, 0.005804107612327, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("RD1@Annotations@Part3.moPart_c", "DIMENSION", 0.005708083773152, 0.004417096602028, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Line1@Sketch2", "EXTSKETCHSEGMENT", 0, 0.004225048923679, 0, False, 0, Nothing)
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -1.066931546384e-005, 0.004054339876258, 0, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.00784195, 0.00514261, 0)
Part.ClearSelection2 True
Part.Parameter("D1@Sketch2").SystemValue = 0.0254
Part.ClearSelection2 True
Part.InsertSketch2 True
Part.ShowNamedView2 "*Dimetric", 9
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
Part.EditUndo 1
boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point2@Sketch2", "EXTSKETCHPOINT", 0, 0.0254, 0, True, 0, Nothing)
Part.CreatePlaneThruPtParallelToPlane True
Part.InsertSketch2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line2@Sketch1", "EXTSKETCHSEGMENT", -0.0127, 0.00445761336249, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line3@Sketch1", "EXTSKETCHSEGMENT", -0.001587274155838, -0.0127, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1@Sketch1", "EXTSKETCHSEGMENT", -0.004699579951932, 0.0127, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line4@Sketch1", "EXTSKETCHSEGMENT", 0.0127, -0.001399665256827, 0, True, 0, Nothing)
boolstatus = Part.SketchUseEdge2(False)
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0.0127, 0, -0.0127, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 4, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", -0.0127, 0.0254, -0.0127, True, 1, Nothing)
Part.FeatureManager.InsertProtrusionBlend 0, 0, 0, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Loft1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0.0127, 0, -0.0127, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", -0.0127, 0.0254, -0.0127, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0.0127, 0, -0.0127, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", -0.0127, 0.0254, -0.0127, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 4, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0.0127, 0, -0.0127, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", -0.0127, 0.0254, -0.0127, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 4, Nothing)
Part.ClearSelection2 True
boolstatus = Part.SetUserPreferenceToggle(5, False)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.00914592869924, 0.01838220646616, -0.003627225640912, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.005764809131591, 0.01346315902692, -0.006912107453275, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.00914592869924, 0.01838220646616, -0.003627225640912, False, 0, Nothing)
Part.ClearSelection2 True
swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\DigiScanner\PMThousing\165jahaPMTflowcell.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\DigiScanner\PMThousing\165jahaPMTflowcell.SLDDRW", 3, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("165jahaPMTflowcell - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("RD1@Drawing View38", "DIMENSION", 0.09431622616408, 0.02006937915743, 0, False, 0, Nothing)
Part.ClearSelection2 True
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2529824992614, 0.2127265007386, 0.02271377307989, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\DigiScanner\PMThousing\PMTmaze.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\DigiScanner\PMThousing\PMTmaze.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("PMTmaze.SLDPRT")
Part.ClearSelection2 True
' MSGBOX
' C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\DigiScanner\PMThousing\PMTmaze.SLDPRT is being referenced by other open documents.  "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references.  

Set Part = Nothing
swApp.CloseDoc "PMTmaze.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("165jahaPMTflowcell - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
' MSGBOX
' Save changes to 165jahaPMTflowcell - Sheet1?

Set Part = Nothing
swApp.CloseDoc "165jahaPMTflowcell - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Part3")
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01286257359521, 0.02520541102103, 0.002037202063264, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.0127, 0.0254, -0.0127, True, 0, Nothing)
Part.ClearSelection2 True
Part.ShowNamedView2 "*Front", 1
Part.ViewRotateplusy
Part.ViewRotateplusy
Part.ViewRotateplusy
Part.ViewRotateplusy
Part.ViewRotateminusx
Part.ViewRotateplusx
Part.ViewRotateplusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateplusx
Part.ViewRotateplusx
Part.ViewRotateplusx
Part.ViewRotateplusx
Part.ViewRotateplusx
Part.ViewRotateplusx
Part.ViewRotateplusx
Part.ViewRotateplusy
Part.ViewRotateplusy
Part.ViewRotateplusy
Part.ViewRotateplusy
Part.ViewRotateplusy
Part.ViewRotateplusy
Part.ViewRotateplusy
Part.ViewRotateplusy
Part.ViewRotateplusy
Part.ViewRotateplusy
Part.ShowNamedView2 "*Front", 1
Part.ShowNamedView2 "*Back", 2
Part.ShowNamedView2 "*Left", 3
Part.ShowNamedView2 "*Right", 4
Part.ShowNamedView2 "*Top", 5
Part.ShowNamedView2 "*Bottom", 6
Part.ShowNamedView2 "*Isometric", 7
Part.ViewRotateplusx
Part.ViewRotateplusx
Part.ViewRotateplusx
Part.ViewRotateminusx
Part.ShowNamedView2 "*Front", 1
Part.ViewRotateplusy
Part.ViewRotateplusy
Part.ViewRotateplusy
Part.ViewRotateplusy
Part.ViewRotateplusy
Part.ViewRotateplusy
Part.ShowNamedView2 "*Isometric", 7
Part.ShowNamedView2 "*Trimetric", 8
Part.ShowNamedView2 "*Dimetric", 9
' MSGBOX
' Save changes to Part3?

boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
swApp.LoadFile2 "C:\Program Files\SolidWorks2004\data\templates\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\SolidWorks2004\data\templates\Part.prtdot", 0, 0.000000, 0.000000)
Set Part = swApp.ActivateDoc ("Part4")
boolstatus = Part.Extension.SelectByID("Front Plane", "PLANE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Top Plane", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.ShowNamedView2 "*Top", 5
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Top Plane", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
Part.CreateCircle 0, 0, 0, 0.02263933463796, 0.005998456186127, 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.01857586431833, 0, -0.01431889541205, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0348297, 0, -0.0282508)
Part.ClearSelection2 True
Part.Parameter("D1@Sketch1").SystemValue = 0.0254
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part4.SLDPRT", "DIMENSION", 0.02534831485105, 0, -0.02302633181126, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part4.SLDPRT", "DIMENSION", 0.03599073711676, 0, -0.02283283322461, False, 0, Nothing)
Part.Parameter("D1@Sketch1").SystemValue = 0.0508
boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part4.SLDPRT", "DIMENSION", 0.04315018482279, 0, -0.02999228093064, False, 0, Nothing)
Part.ClearSelection2 True
Part.ShowNamedView2 "*Front", 1
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Front Plane", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
Part.CreateLine2 0, 0, 0, 0, 0.02820834642851, 0
Part.ClearSelection2 True
Part.CreateTangentArc2 0, 0, 0, 0.02548068009603, 0.02548068009603, 0, 3
Part.ShowNamedView2 "*Front", 1
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -0.0001733851594512, 0.01756652157518, 0, False, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.0142792, 0.0148736, 0)
Part.ClearSelection2 True
Part.Parameter("D1@Sketch2").SystemValue = 0.0508
Part.ShowNamedView2 "*Front", 1
Part.ClearSelection2 True
Part.CreateTangentArc2 0, 0.0508, 0, 0.01456567164184, 0.05323561643836, 0, 4
Part.EditDelete
Part.CreateTangentArc2 0, 0.0508, 0, 0.001903907730089, 0.04889609226991, 0, 1
boolstatus = Part.Extension.SelectByID("Point8", "SKETCHPOINT", 0.001903907730089, 0.04889609226991, 0, True, 0, Nothing)
Part.DeSelectByID "Arc3", "SKETCHSEGMENT", 0.003588033559198, 0.04991197700682, 0
boolstatus = Part.Extension.SelectByID("Point4", "SKETCHPOINT", 0.02548068009603, 0.02548068009603, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgMERGEPOINTS"
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.001807680774258, 0.04809928245271, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0.002967498125856, 0.04898295281583, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgSAMELENGTH"
Part.SketchAddConstraints "sgTANGENT"
Part.ShowNamedView2 "*Front", 1
Part.SketchConstraintsDel 0, "sgSAMELENGTH"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point8", "SKETCHPOINT", 0.0254, 0.0254, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.InsertSketch2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
' MSGBOX
' C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\KleinBottle.SLDPRT has not been rebuilt successfully since the last feature change or an externally referenced model has changed.
' 	It is safest to rebuild before saving.
' 		Rebuild now?

Part.SaveAs2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\KleinBottle.SLDPRT", 0, FALSE, FALSE
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ViewRotateminusx
boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0.02364241221542, 0.06649524592802, -0.008538667995212, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0.01950040568391, 0.06649524592802, -0.008538667995212, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0379422, 0.0732755, 0)
Part.ClearSelection2 True
Part.Parameter("D2@Sketch2").SystemValue = 0.127
boolstatus = Part.Extension.SelectByID("D1@Sketch2@KleinBottle.SLDPRT", "DIMENSION", -0.01481907700571, 0.02677231161943, 0.002105060173768, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch2@KleinBottle.SLDPRT", "DIMENSION", -0.01472045780258, 0.02677231161943, 0.002105060173768, False, 0, Nothing)
Part.Parameter("D1@Sketch2").SystemValue = 0.1524
Part.ShowNamedView2 "*Front", 1
boolstatus = Part.Extension.SelectByID("D2@Sketch2@KleinBottle.SLDPRT", "DIMENSION", 0.2190977821265, 0.2557369645575, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D2@Sketch2@KleinBottle.SLDPRT", "DIMENSION", 0.2227429223744, 0.2694062404871, 0, False, 0, Nothing)
Part.Parameter("D2@Sketch2").SystemValue = 0.1016
boolstatus = Part.Extension.SelectByID("Point8", "SKETCHPOINT", 0.073152, 0.054864, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point8", "SKETCHPOINT", 0.073152, 0.054864, 0, True, 0, Nothing)
' MSGBOX
' A dimension could not be created from the selected items.

Part.ClearSelection2 True
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Point8", "SKETCHPOINT", 0.073152, 0.054864, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.04959876060013, 0.05646929767341, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D2@Sketch2@KleinBottle.SLDPRT", "DIMENSION", 0.1793050010872, 0.249661730811, 0, False, 0, Nothing)
Part.Parameter("D2@Sketch2").SystemValue = 0.0508
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 4, Nothing)
Set SweepFeature = Part.FeatureManager.InsertProtrusionSwept2(False, False, 0, False, False, 0, 0, False, 0, 0, 0, 0, 1, 1, 1)
Part.ClearSelection2 True
Part.Save2 FALSE
Part.ViewRotateplusx
Part.ViewRotateplusx
Part.ViewRotateplusx
Part.ViewRotateplusx
Part.ViewRotateminusx
Part.ViewRotateminusx
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.009394444555966, 0.05269750618868, 0.02359882224775, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.01273371907698, 0.04114656912839, -0.01659269144528, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.007060918817501, 0.02722237825338, -0.02331571983433, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.01092917754281, 0.01279663769839, 0.02292843383742, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.0007200722616574, 0.02318387099468, 0.02538979117543, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.01183776020677, 0.03396726700077, 0.02459234754991, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.0122242572905, 0.1017952173973, 0.02226493956181, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.0419807919962, 0.08221566872963, -0.02494166013935, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.0774910853774, 0.1754283072373, -0.02008545833235, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.02374842932693, 0.008053923883511, 0.009900644196762, False, 0, Nothing)
Part.ClearSelection2 True
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "KleinBottle.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Part3")
' MSGBOX
' Save changes to Part3?

Set Part = Nothing
swApp.CloseDoc "Part3"
swApp.ExitApp
End Sub