' ******************************************************************************
' swxJRNL.swj - journal recorded on 12/12/03 by USER
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\USER\Desktop\ElkhornMoorinV2\Instruments\Pump.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Pump")
swApp.ActiveDoc.ActiveView.FrameWidth = 1507
swApp.ActiveDoc.ActiveView.FrameHeight = 1045
Set Part = Nothing
swApp.CloseDoc "Pump"
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\USER\Desktop\ElkhornMoorinV2\Instruments\OxySensor.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("OxySensor")
swApp.ActiveDoc.ActiveView.FrameWidth = 1507
swApp.ActiveDoc.ActiveView.FrameHeight = 1045
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ShowNamedView2 "*Front", 1
boolstatus = Part.Extension.SelectByID("D1@Extrude1@OxySensor.SLDPRT", "DIMENSION", 0.01764030878245, 0.1095814160215, 0.03287682366092, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Extrude1@OxySensor.SLDPRT", "DIMENSION", 0.06459683981562, 0.1037546931926, 0.03287682366092, False, 0, Nothing)
Part.Parameter("D1@Extrude1").SystemValue = 0.2286
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -0.01320704737073, 0.0190958379722, 0.01787524894223, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
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
Part.ShowNamedView2 "*Bottom", 6
boolstatus = Part.Extension.SelectByID("", "FACE", 0.002877662866697, 0, 0.005275715255612, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection
Part.CreateCircle 0.024638, 0, 0, 0.02585536484775, -0.002136446673759, 0
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.02467813912955, 0.15875, 0.002310850483863, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.007455762881897, 0, -0.01805079434564, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0132111, 0, -0.0190536)
Part.ClearSelection
Part.Parameter("D1@Sketch3").SystemValue = 0.03302
Part.ShowNamedView2 "*Bottom", 6
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.03307236863668, 0.15875, 0.002597322172577, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.017494, 0, 0.018081)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D1@Sketch3@OxySensor.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D2@Sketch3").SystemValue = 0.0127
Part.SetPickMode
Part.ClearSelection
Part.ViewZoomtofit2
Part.SketchRectangle 0.01524, -0.01524, 0, 0.043688, 0.01524, 0, 1
Part.ViewZoomtofit2
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.01517010077519, 0, 0.005153650165698, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.04360628682171, 0.15875, 0.001340368511951, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D1@Sketch3@OxySensor.SLDPRT", "DIMENSION", 0.01996394056848, 0.15875, -0.01968715603585, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.04562187855297, 0.15875, 0.009893014506783, False, 0, Nothing)
Part.ClearSelection
Part.InsertSketch2 True
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.04567635400517, 0.15875, 0.01038329357655, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0468203, 0, 0.000523237)
Part.ClearSelection
Part.Parameter("D3@Sketch3").SystemValue = 0.03048
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID("D3@Sketch3@OxySensor.SLDPRT", "DIMENSION", 0.0476797101286, 0.15875, 0.0006729068509927, False, 0, Nothing)
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.0160470465843, 0.15875, 0.01540378476493, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0210268, 0, 0.0294182)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D3@Sketch3@OxySensor.SLDPRT", "DIMENSION", 0.0476797101286, 0.15875, 0.0006729068509927, False, 0, Nothing)
Part.Parameter("D4@Sketch3").SystemValue = 0.04572
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01590476867587, 0, 0.01113544751207, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.01697185298909, 0.15875, 0.01519036790229, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0526836, 0, 0.00786306)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D4@Sketch3@OxySensor.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D5@Sketch3").SystemValue = 0.01524
boolstatus = Part.Extension.SelectByID("D3@Sketch3@OxySensor.SLDPRT", "DIMENSION", 0.05631169466965, 0.15875, -0.0001756462080194, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D5@Sketch3@OxySensor.SLDPRT", "DIMENSION", 0.05289702486736, 0.15875, 0.007009388167634, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", -0.0001014960223638, 0.15875, 0.01070861378678, True, 0, Nothing)
' MSGBOX
' The sketch is over defined.  Consider deleting some over defining dimensions or relations.

Part.SketchAddConstraints "sgATMIDDLE"
Part.EditDelete
boolstatus = Part.Extension.SelectByID("D5@Sketch3@OxySensor.SLDPRT", "DIMENSION", 0.05666738944072, 0.15875, 0.006511415488133, False, 0, Nothing)
Part.EditDelete
' MSGBOX
' Some of the selected entities cannot be deleted.

' MSGBOX
' The sketch is no longer over defined.

Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D1@Sketch3@OxySensor.SLDPRT", "DIMENSION", 0.01490882331687, 0.15875, -0.02350922319034, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -0.0006706076560789, 0, 0.009143556794067, False, 0, Nothing)
Part.ClearSelection
Part.CreateLine2 0, 0.01524, 0, 0, -0.01524, 0
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgATMIDDLE"
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.03302, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgHORIZPOINTS"
Part.ClearSelection
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ShowNamedView2 "*Isometric", 7
Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.FeatureManager.FeatureExtrusion True, False, True, 0, 0, 0.0508, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.03155560822694, 0.05079999999992, -0.01102811361017, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.02445921687985, 0, 0.0008975135276614, False, 0, Nothing)
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.03151146335961, -1.758052286505e-005, -0.006214259045777, False, 0, Nothing)
Part.SketchUseEdge
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.03037253258739, 0.0003281927901639, -0.005002990202428, False, 0, Nothing)
Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.03037253258739, 0.0003281927901639, -0.005002990202428, False, 1, Nothing)
boolstatus = Part.SketchOffset2 (-0.00127, 0, 1)
Part.ClearSelection
Part.ClearSelection 
Part.FeatureManager.FeatureExtrusion False, False, False, 0, 0, 0.01905, 0.06985, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection
Part.ShowNamedView2 "*Isometric", 7
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.SelectedFeatureProperties 32896, 1, 1, 1, 0.3125, 0, 0, 0, 0, ""
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Extrude4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.SelectedFeatureProperties 8421504, 1, 1, 1, 0.3125, 0, 0, 0, 0, ""
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.SelectedFeatureProperties 16777215, 1, 1, 1, 0.3125, 0, 0, 0, 0, ""
Part.ClearSelection
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "OxySensor"
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\USER\Desktop\ElkhornMoorinV2\Instruments\Copy of Pump.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Copy of Pump")
swApp.ActiveDoc.ActiveView.FrameWidth = 1507
swApp.ActiveDoc.ActiveView.FrameHeight = 1045
Set Part = Nothing
swApp.CloseDoc "Copy of Pump"
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\USER\Desktop\ElkhornMoorinV2\Instruments\WetStar.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("WetStar")
swApp.ActiveDoc.ActiveView.FrameWidth = 1507
swApp.ActiveDoc.ActiveView.FrameHeight = 1045
boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Extrude1@WetStar.SLDPRT", "DIMENSION", 0.02446393545339, 0.1170295154301, 0.01090080088508, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Extrude1@WetStar.SLDPRT", "DIMENSION", 0.05965321596816, 0.1063270071839, -0.0135877107007, False, 0, Nothing)
Part.Parameter("D1@Extrude1").SystemValue = 0.2032
boolstatus = Part.Extension.SelectByID("D1@Sketch1@WetStar.SLDPRT", "DIMENSION", 0.08105904000913, 0.0499430613013, 0.02138124790858, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch1@WetStar.SLDPRT", "DIMENSION", -0.005194519652987, 0.06873770992884, 0.08884321335395, False, 0, Nothing)
Part.Parameter("D1@Sketch1").SystemValue = 0.06096
Part.EditRebuild
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.SelectedFeatureProperties 0, 1, 1, 1, 0.3125, 0, 0, 0, 0, ""
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.SelectedFeatureProperties 8421376, 1, 1, 1, 0.3125, 0, 0, 0, 0, ""
Part.ClearSelection
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.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Sketch3@WetStar.SLDPRT", "DIMENSION", 0.04829119575631, 0.02981955331183, 0.07426932978063, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch3@WetStar.SLDPRT", "DIMENSION", 0.09799666127822, 0.03835363504329, 0.01603116944286, False, 0, Nothing)
Part.ClearSelection
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.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Sketch3@WetStar.SLDPRT", "DIMENSION", 0.09557065020408, 0.05619762411815, 0.0006160913565558, False, 0, Nothing)
Part.Parameter("D1@Sketch3").SystemValue = 0.0127
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing)
Part.SketchConstraintsDel 0, "sgCOINCIDENT"
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.012446, 0.02159, 0, False, 0, Nothing)
Part.DeSelectByID "Point2", "SKETCHPOINT", 0.012446, 0.02159, 0
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.012446, 0.02159, 0, True, 0, Nothing)
Part.ShowNamedView2 "*Top", 5
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgHORIZPOINTS"
Part.ViewZoomtofit2
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.004890669319815, 0.2032, -0.02997967741617, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.008639769178146, 0.1016, -0.008740035587972, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0121279, 0.2032, -0.0378462)
Part.ClearSelection
Part.Parameter("D2@Sketch2").SystemValue = 0.01524
boolstatus = Part.Extension.SelectByID("D1@Sketch2@WetStar.SLDPRT", "DIMENSION", -0.02657546672195, 0.1016, -0.03808220744692, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D1@Sketch2@WetStar.SLDPRT", "DIMENSION", -0.03326202063083, 0.1016, -0.03611557394431, False, 0, Nothing)
Part.Parameter("D1@Sketch2").SystemValue = 0.01905
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D2@Sketch2@WetStar.SLDPRT", "DIMENSION", 0.01417317945214, 0.1016, -0.03674489666515, False, 0, Nothing)
Part.Parameter("D2@Sketch2").SystemValue = 0.01651
Part.ClearSelection
Part.ShowNamedView2 "*Isometric", 7
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ShowNamedView2 "*Top", 5
Part.InsertSketch2 True
Part.ClearSelection
Part.CreateCircle 0, 0, 0, 0.002785930992552, 0.002242334701321, 0
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.001630788873689, 0.14605, -0.003261577747378, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0294901, 0, -0.0260926)
Part.ClearSelection
Part.Parameter("D2@Sketch1").SystemValue = 0.009525
Part.ClearSelection
Part.InsertSketch2 True
Part.ShowNamedView2 "*Isometric", 7
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.004699963977657, 0.2026181927883, 0.0006100584763544, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.001304960259688, 0.2031999999999, -0.01687239752385, False, 0, Nothing)
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.004219638425354, 0.2031521853866, 0.0005841668686344, False, 0, Nothing)
Part.SketchUseEdge
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.003820519217868, 0.2037065410624, -0.0002693862834349, True, 0, Nothing)
Part.ClearSelection
Part.ShowNamedView2 "*Front", 1
Part.ClearSelection 
Part.FeatureManager.FeatureExtrusion False, False, False, 0, 0, 0.0381, 0.2286, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.SelectedFeatureProperties 0, 1, 1, 1, 0.3125, 0, 0, 0, 0, ""
Part.ClearSelection
Part.ShowNamedView2 "*Isometric", 7
Part.ViewRotateminusx
Part.ViewRotateminusx
Part.ViewRotateminusx
Part.ShowNamedView2 "*Isometric", 7
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Extrude1@WetStar.SLDPRT", "DIMENSION", 0.06360172229139, 0.09284874873168, -0.02310705308059, False, 0, Nothing)
Part.Parameter("D1@Extrude1").SystemValue = 0.17018
boolstatus = Part.Extension.SelectByID("D1@Sketch1@WetStar.SLDPRT", "DIMENSION", -0.01736522822991, 0.06528539717407, 0.0854187695425, False, 0, Nothing)
Part.Parameter("D1@Sketch1").SystemValue = 0.06858
Part.EditRebuild
Part.ClearSelection
Part.ViewRotateminusy
Part.ViewRotateplusy
Part.ShowNamedView2 "*Top", 5
boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D2@Sketch2@WetStar.SLDPRT", "DIMENSION", 0.0155179753762, 0.10033, -0.03845094391245, False, 0, Nothing)
Part.Parameter("D2@Sketch2").SystemValue = 0.01905
Part.EditRebuild
Part.ClearSelection
Part.ShowNamedView2 "*Isometric", 7
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "WetStar"
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\USER\Desktop\ElkhornMoorinV2\Pie_ISUS-60.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Pie_ISUS-60")
swApp.ActiveDoc.ActiveView.FrameWidth = 1507
swApp.ActiveDoc.ActiveView.FrameHeight = 1045
Set Part = Nothing
swApp.CloseDoc "Pie_ISUS-60"
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\USER\Desktop\ElkhornMoorinV2\Pie_CTD-60.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Pie_CTD-60")
swApp.ActiveDoc.ActiveView.FrameWidth = 1507
swApp.ActiveDoc.ActiveView.FrameHeight = 1045
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ShowNamedView2 "*Front", 1
Part.ShowNamedView2 "*Right", 4
Part.ViewRotateminusx
Part.ViewRotateminusy
Part.ViewZoomTo2 -0.121178, -0.099785, 0.0748406, 0.0115927, -0.234905, 0.0748406
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ShowNamedView2 "*Isometric", 7
Set Part = Nothing
swApp.CloseDoc "Pie_CTD-60"
swApp.ExitApp
End Sub