' ******************************************************************************
' swxJRNL.swj - journal recorded on 03/27/03 by hamilton
' *****************************************************************************
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\hamilton\My Documents\MyDorado\MultiBeam MidBodies\MidBody Fairings\Fairing Assembly.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\hamilton\My Documents\MyDorado\MultiBeam MidBodies\MidBody Fairings\1 PARALLEL SHELL BASE PART.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\hamilton\My Documents\MyDorado\MultiBeam MidBodies\MidBody Fairings\0 PARALLEL SHELL MOLD.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 2
Set Part = swApp.ActivateDoc ("1 PARALLEL SHELL BASE PART")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 2
swApp.LoadFile2 "C:\Documents and Settings\hamilton\My Documents\MyDorado\MultiBeam MidBodies\MidBody Fairings\1 PARALLEL SHELL FLANGE BASE PART.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\hamilton\My Documents\MyDorado\MultiBeam MidBodies\MidBody Fairings\1 PARALLEL SHELL FLANGE BASE PART.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("1 PARALLEL SHELL FLANGE BASE PART")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 2
Set Part = swApp.ActivateDoc ("Fairing Assembly")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("", "FACE", 0.05164513213316, -0.2587064137716, -0.02920811485539, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "C:\Documents and Settings\hamilton\My Documents\MyDorado\MultiBeam MidBodies\MidBody Fairings\TOP PARALLEL SHELL.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\hamilton\My Documents\MyDorado\MultiBeam MidBodies\MidBody Fairings\TOP PARALLEL SHELL.SLDPRT", 1, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("TOP PARALLEL SHELL")
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Bottom Fairing", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowNamedView2 "*Top", 5
Part.InsertSketch2 True
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("TOP", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection
Part.CreateCircle 0.7550315500686, 0.02587037037037, 0, 0.7799437585734, -0.0009581618655684, 0
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.7881839473401, 0.03968386923349, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.7694269973895, 0.05877424996104, 0, False, 0, Nothing)
Part.AddDimension 0.80294, 0, -0.388056
Part.ClearSelection
Part.Parameter("D1@Sketch3").SystemValue = 0.01905
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.7550315500686, 0.02587037037037, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.001916323731139, -0.2603482368403, -0.0009581618655683, True, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.7550315500686, 0.02587037037037, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.7550315500686, 0.02587037037037, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0, -0.2603059174241, -0.004790809327845, True, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.ViewZoomTo2 -0.0766529, 0.138933, -0.13335, 0.827852, -0.131268, -0.13335
boolstatus = Part.Extension.SelectByID("", "FACE", 0.00058357183582, -0.2603497581406, 0.0003548747650265, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.7550315500686, 0.02587037037037, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.7476705828818, 0.01982539004985, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.7618002646683, 0.019168868474, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.7550315500686, 0.02587037037037, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
Part.ViewZoomTo2 -0.0403611, 0.059201, -0.13335, 0.149473, -0.0440912, -0.13335
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.1001535447961, 0.0005756857299315, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.001629016342499, -0.2603499975481, -3.573087483161e-005, True, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.1001535447961, 0.0005756857299315, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.0001287090368625, -0.2603498974908, -0.0002310336947607, True, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("", "FACE", -0.0001287090368625, -0.2603499510981, 0.0001595719450975, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter 0.0135748, -0.0159549
Part.ActiveView().RotateAboutCenter 0.00678739, 0
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter 0.00678739, 0
Part.ActiveView().RotateAboutCenter 0.0135748, -0.00797744
Part.ActiveView().RotateAboutCenter 0.00678739, -0.0159549
Part.ActiveView().RotateAboutCenter 0, 0.00797744
Part.ActiveView().RotateAboutCenter -0.0135748, 0.0239323
Part.ActiveView().RotateAboutCenter -0.0203622, 0.0398872
Part.ActiveView().RotateAboutCenter -0.00678739, 0.0239323
Part.ActiveView().RotateAboutCenter -0.00678739, 0.0319098
Part.ActiveView().RotateAboutCenter 0, 0.0159549
Part.ActiveView().RotateAboutCenter -0.00678739, 0.0239323
Part.ActiveView().RotateAboutCenter 0, 0.0159549
Part.CreateLine2( -0.6994581618656, 0.0005756857299315, 0, 0.6132235939643, 0.0005756857299315, 0 ).ConstructionGeometry = TRUE
Part.SetPickMode
Part.ClearSelection
Part.ViewZoomTo2 -0.00191632, 0.139279, -0.13335, 0.337273, -0.12709, -0.13335
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.1059318289832, 0.008147809398582, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.1086640275783, 0.00485322097992, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.1053439764386, 0.008562239703034, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.1067498839501, 0.007446925411805, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.07450595691714, 0.0005756857299315, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.09217396078129, 0.005776826369257, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.1001535447961, 0.0005756857299315, 0, False, 0, Nothing)
Part.ShowNamedView2 "*Isometric", 7
Part.ClearSelection
Part.CreateLine2( -0.7895253772291, 0, 0, 0.871927297668, 0, 0 ).ConstructionGeometry = TRUE
Part.SetPickMode
Part.ClearSelection
Part.ViewZoomTo2 0.0804856, 0.0843278, -0.13335, 0.185883, -0.0421495, -0.13335
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.1289437458721, 0.03558183593289, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.1289437458721, 0.03558183593289, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.1518425872018, 0, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgCOINCIDENT"
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.1460310516302, 0, 0, False, 0, Nothing)
Part.ShowNamedView2 "*Isometric", 7
Part.ViewZoomTo2 -0.0456924, 0.0978572, -0.13335, 0.0500966, -0.0741721, -0.13335
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.001994047593009, 0.007095585754916, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.001994047593009, 0.007095585754916, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -8.611282223446e-005, -0.2603498298424, -0.0002976592522063, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.001994047593009, 0.007095585754916, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgHORIZONTAL"
Part.SketchAddConstraints "sgHORIZONTAL"
' MSGBOX
' The sketch is over defined.  Consider deleting some over defining dimensions or relations.

Part.SketchAddConstraints "sgVERTICAL"
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.01572310633362, 0.007095585754916, 0, False, 0, Nothing)
Part.EditDelete
' MSGBOX
' The sketch is no longer over defined.

Part.SetPickMode
Part.EditUndo 1
' MSGBOX
' The sketch is no longer over defined.

Part.SketchConstraintsDel 0, "sgHORIZONTAL"
Part.SketchConstraintsDel 0, "sgVERTICAL"
Part.ShowNamedView2 "*Isometric", 7
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", -0.7895253772291, 0.8225961174498, 0, False, 0, Nothing)
Part.SketchAddConstraints "sgHORIZONTAL"
Part.SetPickMode
Part.ClearSelection
Part.ViewZoomTo2 -0.0252383, 0.075387, -0.162004, 0.112179, -0.079208, -0.162004
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("", "FACE", -8.520033521867e-005, -0.2603499651829, 0.0001346450736859, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.002531885439461, 0.007095585754916, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgHORIZONTAL"
Part.SketchAddConstraints "sgHORIZONTAL"
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", -0.01803093136159, 0.007095585754916, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgCOINCIDENT"
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.1662609321396, 0.000105090333898, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.1567365118937, 0, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
Part.ViewZoomTo2 0.613101, 0.0647364, -0.13335, 0.951295, -0.130751, -0.13335
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.7965983709699, -0.0004823362025241, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.7870855913137, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.8375202376851, 0, 0, True, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.8375202376851, -0.2588339728262, -0.0280552492594, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.7870855913137, 0, 0, True, 0, Nothing)
Part.AddDimension 0.886927, 0, -0.0343181
Part.ClearSelection
Part.Parameter("D2@Sketch3").SystemValue = 0.1016
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.7270881859946, -0.0005010182895187, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.7288893430416, -0.00559208317808, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.7284651073085, -0.004954709466528, 0, False, 0, Nothing)
Part.ClearSelection
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Point13", "SKETCHPOINT", 0.6816260946718, 0.01356950827722, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.6781654994552, 0, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgCOINCIDENT"
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Point13", "SKETCHPOINT", 0.6816260946718, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.8375202376851, -0.2594068774119, -0.02214033539497, True, 0, Nothing)
Part.AddDimension 0.762366, 0, 0.0300501
Part.ClearSelection
Part.Parameter("D3@Sketch3").SystemValue = 0.4191
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.4227333624636, 0.008804788595313, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.4225051330909, 0.008895543470377, 0, False, 0, Nothing)
Part.AddDimension 0.474971, 0, -0.0148337
Part.ClearSelection
Part.Parameter("D4@Sketch3").SystemValue = 0.01905
Part.ClearSelection
Part.CreateLine2( 0, 0.1466138147759, 0, 0, -0.1907661979485, 0 ).ConstructionGeometry = TRUE
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.7926055554824, -0.1231504307228, 0.2293819825374, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D4@Sketch3@TOP PARALLEL SHELL.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D3@Sketch3@TOP PARALLEL SHELL.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
Part.SketchMirror
Part.ClearSelection
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Point19", "SKETCHPOINT", -0.4191, 0, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", -0.02317802911548, -0.02410860130148, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", -0.02317802911548, 0.04499332901557, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgCOINCIDENT"
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0.00678739, 0
Part.ActiveView().RotateAboutCenter 0.0203622, -0.0319098
Part.ActiveView().RotateAboutCenter 0.033937, -0.0398872
Part.ActiveView().RotateAboutCenter 0.0135748, -0.0319098
Part.ActiveView().RotateAboutCenter 0.0407243, -0.111684
Part.ActiveView().RotateAboutCenter 0.033937, -0.0877519
Part.ActiveView().RotateAboutCenter 0.0407243, -0.0398872
Part.ActiveView().RotateAboutCenter 0.0135748, -0.00797744
Part.ActiveView().RotateAboutCenter 0.033937, -0.0239323
Part.ActiveView().RotateAboutCenter 0.0271496, -0.0239323
Part.ActiveView().RotateAboutCenter 0.0407243, -0.0319098
Part.ActiveView().RotateAboutCenter 0.0271496, -0.0159549
Part.ActiveView().RotateAboutCenter 0.0610865, -0.0478647
Part.ActiveView().RotateAboutCenter 0.0542991, -0.0319098
Part.ActiveView().RotateAboutCenter 0.033937, -0.0239323
Part.ActiveView().RotateAboutCenter 0.0271496, -0.00797744
Part.ActiveView().RotateAboutCenter 0.0542991, -0.0239323
Part.ActiveView().RotateAboutCenter 0.0678739, -0.0239323
Part.ActiveView().RotateAboutCenter 0.0407243, -0.0239323
Part.ActiveView().RotateAboutCenter 0.0678739, -0.0398872
Part.ActiveView().RotateAboutCenter 0.0542991, -0.0398872
Part.ActiveView().RotateAboutCenter 0.0475117, -0.0319098
Part.ActiveView().RotateAboutCenter 0.0407243, -0.0319098
Part.ActiveView().RotateAboutCenter 0.0814487, -0.0398872
Part.ActiveView().RotateAboutCenter 0.0407243, -0.0159549
Part.ActiveView().RotateAboutCenter 0.0475117, -0.0239323
Part.ActiveView().RotateAboutCenter 0.0271496, -0.0159549
Part.ActiveView().RotateAboutCenter 0.0271496, -0.00797744
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ClearSelection 
Part.FeatureManager.FeatureCut True, False, False, 1, 0, 0.00254, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ActiveView().RotateAboutCenter 0.00678739, -0.00797744
Part.ActiveView().RotateAboutCenter 0.033937, -0.0159549
Part.ActiveView().RotateAboutCenter 0.0746613, -0.071797
Part.ActiveView().RotateAboutCenter 0.0610865, -0.159549
Part.ActiveView().RotateAboutCenter 0.033937, -0.071797
Part.ActiveView().RotateAboutCenter 0.0203622, -0.0638195
Part.ActiveView().RotateAboutCenter 0.0271496, -0.0558421
Part.ActiveView().RotateAboutCenter 0.0203622, -0.0558421
Part.ActiveView().RotateAboutCenter 0.0203622, -0.0478647
Part.ActiveView().RotateAboutCenter 0.033937, -0.071797
Part.ActiveView().RotateAboutCenter 0.0271496, -0.071797
Part.ActiveView().RotateAboutCenter 0.00678739, -0.0239323
Part.ActiveView().RotateAboutCenter 0.0135748, -0.0478647
Part.ActiveView().RotateAboutCenter 0.00678739, -0.0398872
Part.ActiveView().RotateAboutCenter 0.0135748, -0.0319098
Part.ActiveView().RotateAboutCenter 0.00678739, -0.0239323
Part.ActiveView().RotateAboutCenter 0.0135748, -0.0319098
Part.ActiveView().RotateAboutCenter 0.0203622, -0.0398872
Part.ActiveView().RotateAboutCenter 0.0135748, -0.0398872
Part.ActiveView().RotateAboutCenter 0.0203622, -0.0398872
Part.ActiveView().RotateAboutCenter 0.0135748, -0.0478647
Part.ActiveView().RotateAboutCenter 0.0135748, -0.0638195
Part.ActiveView().RotateAboutCenter 0.00678739, -0.0638195
Part.ActiveView().RotateAboutCenter 0.00678739, -0.0558421
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter 0.00678739, -0.0239323
Part.ActiveView().RotateAboutCenter 0.00678739, -0.0398872
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter 0.00678739, -0.0159549
Part.ActiveView().RotateAboutCenter 0.00678739, -0.0319098
Part.ActiveView().RotateAboutCenter 0.00678739, -0.0239323
Part.ActiveView().RotateAboutCenter 0, -0.0159549
Part.ActiveView().RotateAboutCenter 0, -0.0398872
Part.ActiveView().RotateAboutCenter 0, -0.0319098
Part.ActiveView().RotateAboutCenter 0, 0.00797744
Part.ActiveView().RotateAboutCenter -0.00678739, 0.0239323
Part.ActiveView().RotateAboutCenter -0.0135748, 0.0398872
Part.ActiveView().RotateAboutCenter -0.0203622, 0.0319098
Part.ActiveView().RotateAboutCenter -0.0203622, 0.0319098
Part.ActiveView().RotateAboutCenter -0.0271496, 0.0398872
Part.ActiveView().RotateAboutCenter -0.0203622, 0.0398872
Part.ActiveView().RotateAboutCenter -0.0203622, 0.0239323
Part.ActiveView().RotateAboutCenter -0.0407243, 0.0239323
Part.ActiveView().RotateAboutCenter -0.0407243, 0.0638195
Part.ActiveView().RotateAboutCenter -0.0542991, 0.0797744
Part.ActiveView().RotateAboutCenter -0.0542991, 0.0877519
Part.ActiveView().RotateAboutCenter -0.033937, 0.0638195
Part.ActiveView().RotateAboutCenter -0.0542991, 0.0957293
Part.ActiveView().RotateAboutCenter -0.0475117, 0.0877519
Part.ActiveView().RotateAboutCenter -0.0475117, 0.0877519
Part.ActiveView().RotateAboutCenter -0.0475117, 0.0877519
Part.ActiveView().RotateAboutCenter -0.0610865, 0.0877519
Part.ActiveView().RotateAboutCenter -0.0610865, 0.0797744
Part.ActiveView().RotateAboutCenter -0.0542991, 0.0558421
Part.ActiveView().RotateAboutCenter -0.0678739, 0.0638195
Part.ActiveView().RotateAboutCenter -0.0746613, 0.0638195
Part.ActiveView().RotateAboutCenter -0.12896, 0.071797
Part.ActiveView().RotateAboutCenter -0.0678739, 0.0797744
Part.ActiveView().RotateAboutCenter -0.0746613, 0.0797744
Part.ActiveView().RotateAboutCenter -0.0746613, 0.0638195
Part.ActiveView().RotateAboutCenter -0.0407243, 0.0398872
Part.ActiveView().RotateAboutCenter -0.0610865, 0.0398872
Part.ActiveView().RotateAboutCenter -0.0475117, 0.0319098
Part.ActiveView().RotateAboutCenter -0.033937, 0.0239323
Part.ActiveView().RotateAboutCenter -0.033937, 0.0239323
Part.ActiveView().RotateAboutCenter -0.033937, 0.0239323
Part.ActiveView().RotateAboutCenter -0.0271496, 0.0239323
Part.ActiveView().RotateAboutCenter -0.0203622, 0.0239323
Part.ActiveView().RotateAboutCenter -0.0271496, 0.0239323
Part.ActiveView().RotateAboutCenter -0.0203622, 0.0239323
Part.ActiveView().RotateAboutCenter -0.0203622, 0.0159549
Part.ActiveView().RotateAboutCenter -0.0135748, 0.0239323
Part.ActiveView().RotateAboutCenter -0.0203622, 0.0239323
Part.ActiveView().RotateAboutCenter -0.0135748, 0.0239323
Part.ActiveView().RotateAboutCenter -0.0203622, 0.0159549
Part.ActiveView().RotateAboutCenter -0.0203622, 0.0319098
Part.ActiveView().RotateAboutCenter -0.0135748, 0.0239323
Part.ActiveView().RotateAboutCenter -0.0135748, 0.0239323
Part.ActiveView().RotateAboutCenter -0.00678739, 0.0159549
Part.ActiveView().RotateAboutCenter -0.00678739, 0.0239323
Part.ActiveView().RotateAboutCenter -0.0135748, 0.0239323
Part.ActiveView().RotateAboutCenter -0.00678739, 0.0159549
Part.ActiveView().RotateAboutCenter -0.0135748, 0.0159549
Part.ActiveView().RotateAboutCenter -0.00678739, 0.00797744
Part.ActiveView().RotateAboutCenter 0, 0.00797744
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D3@Sketch3@TOP PARALLEL SHELL.SLDPRT", "DIMENSION", 0.6584057626332, -0.05762778859713, 0.03994251181011, False, 0, Nothing)
Part.Parameter("D3@Sketch3").SystemValue = 0.5588
' MSGBOX
' Saving a part while editing a feature's sketch will require a full rebuild when the part is opened. You can avoid this rebuild by exiting the sketcher now. We highly recommend that you exit the sketcher.
'  Do you want to exit the sketcher before saving?

Part.ClearSelection
Part.InsertSketch2 True
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "TOP PARALLEL SHELL"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Fairing Assembly")
boolstatus = Part.Extension.SelectByID("Top Fairing", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.ShowConfiguration "Top Fairing"
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Fairing Assembly"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("1 PARALLEL SHELL FLANGE BASE PART")
Set Part = Nothing
swApp.CloseDoc "1 PARALLEL SHELL FLANGE BASE PART"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("1 PARALLEL SHELL BASE PART")
Set Part = Nothing
swApp.CloseDoc "1 PARALLEL SHELL BASE PART"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD")
Set Part = Nothing
swApp.CloseDoc "0 PARALLEL SHELL MOLD"
swApp.ExitApp
End Sub