' ******************************************************************************
' swxJRNL.swj - journal recorded on 10/20/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\ElkhornMooring\ShallowMoor\HalfFloat-RetPlt.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("HalfFloat-RetPlt.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Default", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("HalfFloat-RetPlt.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.AddConfiguration "Aluminum","","",1,0,0,1,256
boolstatus = Part.Extension.SelectByID("Default@HalfFloat-RetPlt.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Default"
boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ClearSelection2 True
swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ElkMoorV2\TopPlate.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ElkMoorV2\TopPlate.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("TopPlate.SLDPRT")
boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D3@Sketch4@TopPlate.SLDPRT", "DIMENSION", -0.1715895428514, 0.05011252858942, 0.1278341263257, False, 0, Nothing)
Part.ClearSelection2 True
' MSGBOX
' Save changes to TopPlate.SLDPRT?

Set Part = Nothing
swApp.CloseDoc "TopPlate.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("HalfFloat-RetPlt.SLDPRT")
boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D5@Sketch2@HalfFloat-RetPlt.SLDPRT", "DIMENSION", -0.3181101882195, 0.0673705588096, -0.1216080757185, False, 0, Nothing)
Part.Parameter("D5@Sketch2").SystemValue = 0.022225
Part.EditRebuild
Part.ClearSelection2 True
Part.ShowNamedView2 "*Dimetric", 9
boolstatus = Part.Extension.SelectByID("Default", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Extrude1@HalfFloat-RetPlt.SLDPRT", "DIMENSION", 0.134042481259, -0.1045576186074, -0.2594918130725, False, 0, Nothing)
Part.Parameter("D1@Extrude1").SystemValue = 0.0127
Part.EditRebuild
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Default", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Aluminum@HalfFloat-RetPlt.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Aluminum"
boolstatus = Part.Extension.SelectByID("Default@HalfFloat-RetPlt.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Default"
boolstatus = Part.Extension.SelectByID("Aluminum@HalfFloat-RetPlt.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Aluminum"
boolstatus = Part.Extension.SelectByID("Default@HalfFloat-RetPlt.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Default"
boolstatus = Part.Extension.SelectByID("Default", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D5@Sketch2@HalfFloat-RetPlt.SLDPRT", "DIMENSION", -0.1958144948662, 0.06351679075295, 0.004268291839716, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D5@Sketch2@HalfFloat-RetPlt.SLDPRT", "DIMENSION", -0.2431336858849, 0.1288382860939, 0.02589917919923, False, 0, Nothing)
Part.Parameter("D5@Sketch2").SystemValue = 0.0127
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Extrude1@HalfFloat-RetPlt.SLDPRT", "DIMENSION", 0.1315605659209, -0.1001539222923, -0.2587416934867, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Extrude1@HalfFloat-RetPlt.SLDPRT", "DIMENSION", 0.2161237178914, -0.1302458471123, -0.3314709078165, False, 0, Nothing)
Part.Parameter("D1@Extrude1").SystemValue = 0.00635
Part.EditRebuild
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Default", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Aluminum@HalfFloat-RetPlt.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Aluminum"
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Extrude1@HalfFloat-RetPlt.SLDPRT", "DIMENSION", 0.2146520167421, -0.1309797964981, -0.3297105740418, False, 0, Nothing)
Part.Parameter("D1@Extrude1").SystemValue = 0.0127
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D5@Sketch2@HalfFloat-RetPlt.SLDPRT", "DIMENSION", -0.2522139326426, 0.122966691007, 0.03728848696003, False, 0, Nothing)
Part.Parameter("D5@Sketch2").SystemValue = 0.022225
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.3826101020881, 0.00518907692279, 0.05125654411893, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.3826101020881, 0.00518907692279, 0.05125654411893, False, 1, Nothing)
Part.FeatureFillet5 195, 0.00635, 0, 0, 0, 0, 0
Part.EditRebuild
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Aluminum", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Default@HalfFloat-RetPlt.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Default"
boolstatus = Part.Extension.SelectByID("Aluminum@HalfFloat-RetPlt.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Aluminum"
Part.Save2 FALSE
swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ElkMoorV2\SleeveFloat.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ElkMoorV2\SleeveFloat.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("SleeveFloat.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "SleeveFloat.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("HalfFloat-RetPlt.SLDPRT")
swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\SleeveFloat.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\SleeveFloat.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("SleeveFloat.SLDPRT")
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "SleeveFloat.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("HalfFloat-RetPlt.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "HalfFloat-RetPlt.SLDPRT"
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ElkMoorV2\ElkhornSurface2.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("ElkhornSurface2.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.LoadFile2 "C:\Program Files\SolidWorks2004\data\templates\j04.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\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.CreateCircle 0, 0, 0, 0.006231947162427, -0.008661350293542, 0
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Arc1@Sketch1", "EXTSKETCHSEGMENT", 0.002030921816259, 0.01047528094702, 0, False, 0, Nothing)
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.007076956947162, 0, -0.007605088062622, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0362298, 0, -0.0204915)
Part.ClearSelection2 True
Part.Parameter("D1@Sketch1").SystemValue = 0.0127
Part.ShowNamedView2 "*Trimetric", 8
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part1.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.5334, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ShowNamedView2 "*Dimetric", 9
Part.ClearSelection2 True
Part.ShowNamedView2 "*Top", 5
boolstatus = Part.Extension.SelectByID("", "FACE", -0.0005453903022396, 0.5334, -0.00207110241357, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
Part.SketchPolygon 0, 0, -0.005958953909712, -0.01012689076431, 6, True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.004747171738986, 0.5401034520024, -0.00895887075385, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0152103, 0.5334, -0.0127988)
Part.ClearSelection2 True
Part.Parameter("D1@Sketch2").SystemValue = 0.022225
boolstatus = Part.Extension.SelectByID("Front", "PLANE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -0.002992905344901, 0.5400883358032, -0.01124968788107, True, 0, Nothing)
Part.SketchAddConstraints "sgPARALLEL"
Part.ClearSelection2 True
Part.ShowNamedView2 "*Top", 5
Part.ShowNamedView2 "*Isometric", 7
Part.ClearSelection2 True
Part.FeatureManager.FeatureExtrusion True, False, True, 0, 0, 0.0122555, 0.5334, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection2 True
Part.SaveAs2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ElkMoorV2\FloatRod.SLDPRT", 0, FALSE, 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 ("ElkhornSurface2.SLDASM")
Part.AddComponent "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ElkMoorV2\FloatRod.SLDPRT", -0.5171713199069, 0.628338728316, -0.2721908425227
boolstatus = Part.Extension.SelectByID("", "FACE", -0.523416410034, 0.7313461925029, -0.2710413429337, False, 0, Nothing)
Part.EditCopy
Part.ClearSelection2 True
Part.Paste
' MSGBOX
' The item on the clipboard cannot be pasted here.

boolstatus = Part.Extension.SelectByID("FloatRod-1@ElkhornSurface2", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditCopy
Part.ClearSelection2 True
Part.Paste
Part.Paste
Part.Paste
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("", "FACE", -0.004065173310507, 0.04792733194331, 0.004878203148246, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.000714927463437, 0.03572764446406, 0.006309625878135, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.0007931334886404, 0.03481293321338, 0.006300272951961, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.1612169021478, 0.6954867834395, -0.01078012024212, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.3865839699077, 0.6458431106932, -0.3346084781166, True, 1, Nothing)
Set Feature = Part.AddMate2 (0, 1, False, 0.04964367274625, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.3850997301313, 0.6954867834395, -0.3369785373446, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.5241882971296, 0.882783228316, -0.278929247001, True, 1, Nothing)
Set Feature = Part.AddMate2 (0, 0, False, 0.1872964448765, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.3856054334835, 0.6954867834395, -0.336855444357, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.489258600197, 0.6668366992086, -0.4073029031619, True, 1, Nothing)
Set Feature = Part.AddMate2 (0, 0, False, 0.02865008423086, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.3856054334835, 0.6954867834395, -0.336855444357, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.51650816008, 0.7332569233894, -0.4807072408585, True, 1, Nothing)
Set Feature = Part.AddMate2 (0, 0, False, 0.0377701399499, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.5314614960317, 0.6355763742788, -0.4830065245348, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.006925754704662, 0.6923648049659, -0.1533078252976, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 0, False, 0.6203364065497, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
Part.RotateComponent
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.01286299118669, 0.7000219532148, -0.1528589613025, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.1455919861726, 0.6929315818834, 0.001562425270508, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.4896249269861, 0.6585776329692, -0.4208845250378, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 0, False, 0.000635, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.3842897418498, 0.6731990953575, -0.3371363851883, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1589366239959, 0.6920252418466, -0.002462269631158, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 0, False, 0.6279249130256, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.005562162121697, 0.6914615779079, 0.1481747689374, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.5219643790066, 0.5874581985944, -0.2760796415936, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 0, False, 0.673226652541, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
' 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.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 ("FloatRod.SLDPRT")
boolstatus = Part.Extension.SelectByID("", "FACE", 0.004405675816372, 0.3319741847208, 0.00457302094901, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Extrude1@FloatRod.SLDPRT", "DIMENSION", -0.00451361634007, 0.2616488812176, -0.002159191093553, False, 0, Nothing)
Part.FontPoints 26
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ClearSelection2 True
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "FloatRod.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("ElkhornSurface2.SLDASM")
Set Part = Nothing
swApp.CloseDoc "ElkhornSurface2.SLDASM"
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\SFrame.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("SFrame.SLDASM")
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 "SFrame.SLDASM"
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\SMoor.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("SMoor.SLDASM")
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.005725218105937, 0.2425181578668, 0.2866093278997, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("SMoor.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.AddConfiguration "Al float retainer","","",1,0,0,1,256
boolstatus = Part.Extension.SelectByID("HalfFloat-Retainer-1@SMoor", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("HalfFloat-Retainer-1@SMoor", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection2 True
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("", "FACE", -0.02991193221734, 0.2418582581774, 0.658583545316, False, 0, Nothing)
Part.ClearSelection2 True
Part.AddComponent "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\HalfFloat-RetPlt.SLDPRT", 0.204597442001, 0.245597424728, 0.3563346392511
boolstatus = Part.Extension.SelectByID("", "FACE", 0.02372647787684, 0.2888451861857, 0.6474127937087, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.04401514793617, 0.239247424728, 0.3661373887144, True, 1, Nothing)
Set Feature = Part.AddMate2 (0, 1, False, 0.04959776145772, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.2154517982003, 0.2927508489629, 0.3878556141368, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.003842517146708, 0.2923739536618, 0.6403350957995, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 1, False, 0.3772325636265, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.4610832618327, 0.2980162494552, 0.6834136182195, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.008912596951292, 0.2357101501115, 0.22494740933, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 1, False, 0.6463988605466, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\FloatRod.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\FloatRod.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("FloatRod.SLDPRT")
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Extrude1@FloatRod.SLDPRT", "DIMENSION", 0.0269207770545, 0.2549140561743, -0.02685985395441, False, 0, Nothing)
Part.Parameter("D1@Extrude1").SystemValue = 0.2794
Part.EditRebuild
Part.ClearSelection2 True
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 ("SMoor.SLDASM")
boolstatus = Part.Extension.SelectByID("Default@SMoor.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Default"
boolstatus = Part.Extension.SelectByID("HalfFloat-RetPlt-1@SMoor", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Al float retainer@SMoor.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Al float retainer"
boolstatus = Part.Extension.SelectByID("", "FACE", -0.007175018471356, 0.287112027828, 0.6356338886016, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D6@Sketch1@SleeveMast-1@SMoor", "DIMENSION", 0.1439728174318, 0.3318502237031, 0.7677444339069, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.005580894529594, 0.2871538418355, 0.6353742237367, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\SleeveMast.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\SleeveMast.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("SleeveMast.SLDPRT")
Part.ClearSelection2 True
Part.ShowNamedView2 "*Front", 1
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Default", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("SleeveMast.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.AddConfiguration "For Aluminum Plt","","",1,0,0,1,256
boolstatus = Part.Extension.SelectByID("Revolve6", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D8@Sketch1@SleeveMast.SLDPRT", "DIMENSION", 0.02329161774299, 0.04092498369211, 0, False, 0, Nothing)
Part.Parameter("D8@Sketch1").SystemValue = 0.01524
Part.EditRebuild
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Default@SleeveMast.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Default"
boolstatus = Part.Extension.SelectByID("For Aluminum Plt@SleeveMast.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "For Aluminum Plt"
boolstatus = Part.Extension.SelectByID("For Aluminum Plt", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Default@SleeveMast.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Default"
boolstatus = Part.Extension.SelectByID("For Aluminum Plt@SleeveMast.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "For Aluminum Plt"
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)
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("D8@Sketch1@SleeveMast.SLDPRT", "DIMENSION", 0.02801373124592, 0.04084213959556, 0, False, 0, Nothing)
Part.Parameter("D8@Sketch1").SystemValue = 0.00762
boolstatus = Part.Extension.SelectByID("D9@Sketch1@SleeveMast.SLDPRT", "DIMENSION", 0.006767534246575, 0.04437792563601, 0, False, 0, Nothing)
Part.Parameter("D9@Sketch1").SystemValue = 0.01905
boolstatus = Part.Extension.SelectByID("D8@Sketch1@SleeveMast.SLDPRT", "DIMENSION", 0.02024792563601, 0.04115694716243, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D8@Sketch1@SleeveMast.SLDPRT", "DIMENSION", 0.0240653816047, 0.04115694716243, 0, False, 0, Nothing)
Part.Parameter("D8@Sketch1").SystemValue = 0.01524
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Default@SleeveMast.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Default"
boolstatus = Part.Extension.SelectByID("For Aluminum Plt@SleeveMast.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "For Aluminum Plt"
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "SleeveMast.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("SMoor.SLDASM")
boolstatus = Part.Extension.SelectByID("RadioTop-1@SMoor", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("HalfFloat-Retainer-1@SMoor", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SleeveMast-1@SMoor", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SleeveMast-1@SMoor", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.CompConfigProperties3 2, 0, True, True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("SleeveFloat-1@SMoor", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditCopy
Part.ClearSelection2 True
Part.Paste
Part.Paste
Part.Paste
Part.Paste
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("", "FACE", 0.007600614292411, -0.005031077456865, -0.009837106313495, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01380806008819, 0.001622441362942, -0.01221599495867, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01311387678555, 0.005562906410143, -0.01006876717081, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01380806008819, 0.001622441362942, -0.01221599495867, False, 0, Nothing)
Part.RotateComponent
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.300899753181, 0.466302549452, 0.5125052731231, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.3807293587821, 0.5234962134786, 0.6184543011413, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.379745950347, 0.5232310329932, 0.6174720910165, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.3811433581799, 0.5236872070246, 0.6140433476297, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("", "FACE", -0.1255688800917, 0.4086364753399, 0.2980421681317, False, 0, Nothing)
Part.EditDelete
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.002264395945008, 0.3885208673345, 0.1491077575097, False, 0, Nothing)
Part.RotateComponent
Part.DeSelectByID "", "EDGE", -0.01610554864454, 0.4380515088126, 0.1873816552645
boolstatus = Part.Extension.SelectByID("", "FACE", -0.02969130522916, 0.4205893864134, 0.1869929724638, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.009056965429046, 0.2988590548955, 0.2223389394591, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 1, False, 0.1058608205288, 0, 0, 1, 1, 0.7497611782895, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.0222040508961, 0.3015451861857, 0.2699113284548, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.009146292694443, 0.4274568215078, 0.2270422005287, True, 1, Nothing)
Set Feature = Part.AddMate2 (0, 1, False, 0.1259116353221, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
Part.AddComponent "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\FloatRod.SLDPRT", 0.1890305611826, 0.2959686159325, 0.2844275778518
boolstatus = Part.Extension.SelectByID("", "FACE", 0.006238566957027, 0.3019157859324, 0.2190417363547, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1830957381015, 0.3724920943773, 0.2821691768696, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 0, False, 0.2010686002021, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.01495533578077, 0.3047201861857, 0.2111271121729, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.004807959524324, 0.4234131159325, 0.2081444240286, True, 1, Nothing)
Set Feature = Part.AddMate2 (0, 1, False, 0.1186929297468, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.007052001299474, 0.0127, 0.2913312170403, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.01951300228023, 0.2888451861857, 0.2482563754725, True, 1, Nothing)
Set Feature = Part.AddMate2 (5, 0, False, 0.22225, 0.22225, 0.22225, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("SleeveFloat-6@SMoor", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("FloatRod-1@SMoor", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.04355917575965, 0.2488408881863, 0.268564034491, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("SleeveFloat-6@SMoor", "COMPONENT", 0, 0, 0, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("FloatRod-1@SMoor", "COMPONENT", 0, 0, 0, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.04355917575965, 0.2488408881863, 0.268564034491, True, 2, Nothing)
Part.FeatureManager.FeatureLinearPattern 4, 0.3048, 1, 0.05, False, False, "NULL", "NULL", False
Part.ClearSelection2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.01526977436629, 0.24765, 0.3339343801989, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\HalfFloat-RetPlt.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\HalfFloat-RetPlt.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("HalfFloat-RetPlt.SLDPRT")
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Default@HalfFloat-RetPlt.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ShowNamedView2 "*Top", 5
boolstatus = Part.Extension.SelectByID("D1@Sketch2@HalfFloat-RetPlt.SLDPRT", "DIMENSION", -0.2990898304537, 0.008647653124323, 0.09897375156908, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D2@Sketch2@HalfFloat-RetPlt.SLDPRT", "DIMENSION", -0.2176347462166, 0.008647653124323, 0.133883073385, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D3@Sketch2@HalfFloat-RetPlt.SLDPRT", "DIMENSION", -0.137969883611, 0.008647653124323, 0.1616315086746, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D4@Sketch2@HalfFloat-RetPlt.SLDPRT", "DIMENSION", 0.005247846915764, 0.008647653124324, 0.1974359413063, False, 0, Nothing)
Part.ClearSelection2 True
' MSGBOX
' Save changes to HalfFloat-RetPlt.SLDPRT?

Set Part = Nothing
swApp.CloseDoc "HalfFloat-RetPlt.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("SMoor.SLDASM")
boolstatus = Part.Extension.SelectByID("LocalLPattern1", "COMPPATTERN", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("FloatRod-1@SMoor", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("SleeveFloat-6@SMoor", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.04444293758597, 0.24765, 0.2031753075192, True, 0, Nothing)
Part.ClearSelection2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Default@SMoor.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Default"
boolstatus = Part.Extension.SelectByID("SleeveFloat-6@SMoor", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("FloatRod-1@SMoor", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("FloatRod-1@SMoor", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Al float retainer@SMoor.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Al float retainer"
Part.ShowNamedView2 "*Isometric", 7
' 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.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "SMoor.SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("FloatRod.SLDPRT")
' MSGBOX
' One or more documents are being closed as a result of this operation.   If you do not save them, your changes will be lost.
' Click "Yes" to close and save them.
' Click "No" to close them without the changes.

Set Part = Nothing
swApp.CloseDoc "FloatRod.SLDPRT"
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\SMoorLoaded.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("SMoorLoaded.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("SMoor-1@SMoorLoaded", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.CompConfigProperties3 2, 0, True, True
Part.ClearSelection2 True
' 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.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "SMoorLoaded.SLDASM"
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\Drawing.drwdot", 2, 0.279400, 0.431800)
Set Part = swApp.ActivateDoc ("Draw1 - Sheet1")
' MSGBOX
' You have selected a drawing document.
' Only parts and assemblies can be inserted in drawings.

boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1460827377778, 0.16465804, 0, False, 0, Nothing)
' MSGBOX
' Save changes to Draw1 - Sheet1?

Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "Draw1 - Sheet1"
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\143jahaSmoor-C.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("143jahaSmoor-C - Sheet5")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.1322791014064, 0.04535315088647, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.SaveAs2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\143jahaSmoor-CrevA.SLDDRW", 0, FALSE, FALSE
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1766161080681, 0.06067549877692, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View43", "DRAWINGVIEW", 0.1749860710585, 0.07273777264813, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View30", "DRAWINGVIEW", 0.08533403552924, 0.1868403633217, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1700959600296, 0.1460894380811, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View40", "DRAWINGVIEW", 0.2323633737972, 0.2207451331219, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View40", "DRAWINGVIEW", 0.2313853515914, 0.2207451331219, 0, False, 0, Nothing)
Part.ViewPropertySheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1508615233161, 0.07306378005005, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View42", "DRAWINGVIEW", 0.2512718031088, 0.2399795698354, 0, False, 0, Nothing)
Part.ViewPropertySheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1756380858623, 0.09490627597899, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1860703227239, 0.1141407126925, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Extrude1@HalfFloat-RetPlt-4@Drawing View42", "DIMENSION", 0.2233206988603, 0.2158841697769, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D2@Sketch1@HalfFloat-RetPlt-1@Drawing View40", "DIMENSION", 0.2257894911447, 0.2149436774781, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Extrude1@HalfFloat-RetPlt-4@Drawing View42", "DIMENSION", 0.2364875910437, 0.2140031851792, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View36", "DRAWINGVIEW", 0.2577662293045, 0.2262295850639, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View42", "DRAWINGVIEW", 0.2484788678537, 0.2397491618594, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.InsertModelAnnotations2(0, False, 32776, False, True, False)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Fillet1@HalfFloat-RetPlt-4@Drawing View42", "DIMENSION", 0.2468330063307, 0.2218798081818, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Extrude1@HalfFloat-RetPlt-4@Drawing View42", "DIMENSION", 0.2353119756702, 0.2138856236419, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Fillet1@HalfFloat-RetPlt-4@Drawing View42", "DIMENSION", 0.22955146034, 0.2178827159119, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"R", "", 1,"", "", 0
boolstatus = Part.Extension.SelectByID("D1@Fillet1@HalfFloat-RetPlt-4@Drawing View42", "DIMENSION", 0.2291987757279, 0.2177651543745, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Extrude1@HalfFloat-RetPlt-4@Drawing View42", "DIMENSION", 0.2617633215745, 0.2135329390298, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Fillet1@HalfFloat-RetPlt-4@Drawing View42", "DIMENSION", 0.2541218216466, 0.2038928929669, 0, False, 0, Nothing)
Part.EditSketch
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"R", "", 1,"", "a", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"R", "", 1,"", "al", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"R", "", 1,"", "all", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"R", "", 1,"", "all ", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"R", "", 1,"", "all a", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"R", "", 1,"", "all ar", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"R", "", 1,"", "all aro", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"R", "", 1,"", "all arou", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"R", "", 1,"", "all aroun", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"R", "", 1,"", "all around", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"R", "", 1,"", "all around", 0
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2099186836022, 0.1693298009854, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2042757298093, 0.1709756625083, 0, False, 0, Nothing)
Part.ViewZoomtofit2
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1632498045892, 0.104980211695, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1766161080681, 0.1163904707624, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1309750717987, 0.02383666235945, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2467076994819, 0.1405473122484, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2467076994819, 0.1405473122484, 0, False, 0, Nothing)
Part.ViewPropertySheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1309750717987, 0.0244886771633, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View30", "DRAWINGVIEW", 0.08631205773501, 0.07694357512953, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View31", "DRAWINGVIEW", 0.08500802812731, 0.02543440562546, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View36", "DRAWINGVIEW", 0.2568139289415, 0.1868080695781, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2564879215396, 0.1506212479645, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditUndo 1
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1655318564027, 0.1189985299778, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View41", "DRAWINGVIEW", 0.2636600843819, 0.1359509148779, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2604000103627, 0.1731157586973, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem745@Drawing View35", "NOTE", 0, 0, 0, True, 0, Nothing)
Part.EditSketch
Part.EditDelete
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View34", "DRAWINGVIEW", 0.3461399570688, 0.1454051295337, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View35", "DRAWINGVIEW", 0.3777626750555, 0.1385589740933, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View33", "DRAWINGVIEW", 0.3099531354552, 0.1574674034049, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View32", "DRAWINGVIEW", 0.2789824322724, 0.1639875514434, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1743340562546, 0.1075882709104, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1436893604737, 0.1150864411547, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View42", "DRAWINGVIEW", 0.250293780903, 0.2402732834937, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2131289370836, 0.1548593441895, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.181180211695, 0.1434490851221, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1792241672835, 0.1434490851221, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View83", "DRAWINGVIEW", 0.1133706720947, 0.08936415014628, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View83", "DRAWINGVIEW", 0.1133706720947, 0.08936415014628, 0, False, 0, Nothing)
Part.ViewPropertySheet
Part.EditSketch
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View74", "DRAWINGVIEW", 0.1896564041451, 0.07012971343273, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View74", "DRAWINGVIEW", 0.1896564041451, 0.07012971343273, 0, False, 0, Nothing)
Part.ViewPropertySheet
Part.ClearSelection2 True
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View78", "DRAWINGVIEW", 0.2170410259067, 0.07534583186352, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Drawing View78", "DRAWINGVIEW", 0.2170410259067, 0.07534583186352, 0, False, 0, Nothing)
Part.ViewPropertySheet
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet7", "SHEET", 0.2372534848261, 0.04535315088647, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D8@Sketch1@SleeveMast-1@Drawing View78", "DIMENSION", 0.1850923005181, 0.07730187627507, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D9@Sketch1@SleeveMast-1@Drawing View78", "DIMENSION", 0.189982411547, 0.08382202431356, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 2, 0, 1, 11, 11,"", "", 1,"", "", 0
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet7", "SHEET", 0.2219311369356, 0.01373043289979, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D8@Sketch1@SleeveMast-1@Drawing View78", "DIMENSION", 0.198784611399, 0.07534583186352, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 2, 0, 1, 11, 11,"", "", 1,"", "", 0
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet7", "SHEET", 0.2238871813472, 0.01405644030172, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
boolstatus = Part.Extension.SelectByID("RD1@Drawing View59", "DIMENSION", 0.06479556920799, 0.1043604906348, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet6", "SHEET", 0.03969299925981, 0.08414803171549, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet6", "SHEET", 0.03349885862324, 0.08708209833281, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2095428556625, 0.2621480731663, 0, False, 0, Nothing)
Part.EditTemplate
Part.EditSketch
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.220301099926, 0.1989026371929, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem1@Sheet Format1", "NOTE", 0.333023222454, 0.2614373039345, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3300259498583, 0.259439122204, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem831@Sheet Format1", "NOTE", 0.3315800912042, 0.2585510414349, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem831@Sheet Format1", "NOTE", 0.3361315051459, 0.2584400313387, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem831@Sheet Format1", "NOTE", 0.3400168585107, 0.2578849808581, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem831@Sheet Format1", "NOTE", 0.3341333234154, 0.2581070010503, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem831@Sheet Format1", "NOTE", 0.3316911013004, 0.2582180111465, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem831@Sheet Format1", "NOTE", 0.3346883738961, 0.258662051531, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3776492811015, 0.2480050823018, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem832@Sheet Format1", "NOTE", 0.3803135234089, 0.2471170015327, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem832@Sheet Format1", "NOTE", 0.3815346344664, 0.2463399308597, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem832@Sheet Format1", "NOTE", 0.3883062503308, 0.2485601327825, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem832@Sheet Format1", "NOTE", 0.3952998863875, 0.2487821529747, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem832@Sheet Format1", "NOTE", 0.3873071594656, 0.2485601327825, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem832@Sheet Format1", "NOTE", 0.3988522094639, 0.2585510414349, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line94", "SKETCHSEGMENT", 0.4018494820596, 0.2628804351843, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem78@Sheet Format1", "NOTE", 0.406955946482, 0.2662107380684, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.4002953407137, 0.2390132645146, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem1@Sheet Format1", "NOTE", 0.3401821769529, 0.261619686799, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3441217016369, 0.2456046625402, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.372983002039, 0.00546494050027, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem833@Sheet Format1", "NOTE", 0.3771794522458, 0.004009029204022, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3720409417885, 0.004009029204022, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem833@Sheet Format1", "NOTE", 0.3735824949257, 0.004009029204022, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem833@Sheet Format1", "NOTE", 0.3738394204486, 0.00426595472689, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem833@Sheet Format1", "NOTE", 0.4027863626916, 0.01522811036923, 0, False, 0, Nothing)
Part.FontBold 1
Part.FontPoints 10
Part.FontPoints 12
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.4223127024295, 0.007777270206076, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem833@Sheet Format1", "NOTE", 0.4123782488787, 0.01505682668732, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.4208567911333, 0.01522811036923, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line136", "SKETCHSEGMENT", 0.2992281666801, 0.1001985968502, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line149", "SKETCHSEGMENT", 0.3186234219676, 0.09453574859109, 0, False, 0, Nothing)
Part.CreateLine2 0.2533979309328, 0.09991545443725, 0, 0.4159567907574, 0.09991545443725, 0
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line136", "SKETCHSEGMENT", 0.3054572997651, 0.1058614451093, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.2894597534331, 0.1160545719757, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem498@Sheet Format1", "NOTE", 0.3123942888826, 0.06650464970846, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem493@Sheet Format1", "NOTE", 0.3602453566721, 0.06650464970846, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem493@Sheet Format1", "NOTE", 0.3586880734008, 0.06622150729551, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem493@Sheet Format1", "NOTE", 0.3619442111498, 0.06622150729551, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem493@Sheet Format1", "NOTE", 0.3782248998948, 0.06508893764368, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("DetailItem505@Sheet Format1", "NOTE", 0.370580054745, 0.06126651506878, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3639262080405, 0.06607993608903, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem834@Sheet Format1", "NOTE", 0.3666160609636, 0.06508893764368, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("DetailItem835@Sheet Format1", "NOTE", 0.367323916996, 0.06494736643721, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.2874777565424, 0.1198769945506, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.2501029580323, 0.1021805937409, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem490@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem492@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem494@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem495@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem496@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem497@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem499@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem500@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem502@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem503@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem621@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem622@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem623@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem624@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem625@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem660@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem661@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem662@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem663@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem810@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem811@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem813@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem814@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem815@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem811@Sheet Format1", "NOTE", 0.2574646607691, 0.09779188634008, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.2675162164291, 0.1171871416276, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem504@Sheet Format1", "NOTE", 0.2574646607691, 0.06551365126312, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.2499613868258, 0.07117649952223, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem498@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem501@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem504@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem835@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.2498198156193, 0.07400792365179, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem836@Sheet Format1", "NOTE", 0.2881856125748, 0.0745742084777, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem836@Sheet Format1", "NOTE", 0.3603869278786, 0.0707517859028, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem836@Sheet Format1", "NOTE", 0.361094783911, 0.0707517859028, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem836@Sheet Format1", "NOTE", 0.3585465021944, 0.07046864348984, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem498@Sheet Format1", "NOTE", 0.2976708834089, 0.06551365126312, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.2975293122024, 0.07131807072871, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem840@Sheet Format1", "NOTE", 0.2990865954736, 0.07089335710928, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("DetailItem841@Sheet Format1", "NOTE", 0.2995113090931, 0.07018550107689, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem841@Sheet Format1", "NOTE", 0.2980955970283, 0.07131807072871, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem841@Sheet Format1", "NOTE", 0.2980955970283, 0.07131807072871, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem841@Sheet Format1", "NOTE", 0.3189065643805, 0.0707517859028, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem839@Sheet Format1", "NOTE", 0.2314155587772, 0.07499892209714, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("DetailItem838@Sheet Format1", "NOTE", 0.1951733299189, 0.07372478123884, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem838@Sheet Format1", "NOTE", 0.2672330740161, 0.07061021469632, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem837@Sheet Format1", "NOTE", 0.184838631846, 0.07358321003236, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem837@Sheet Format1", "NOTE", 0.2577478031821, 0.07089335710928, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem837@Sheet Format1", "NOTE", 0.258030945595, 0.07174278434815, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.2315571299837, 0.06622150729551, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem492@Sheet Format1", "NOTE", 0.268082501255, 0.09184589566801, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.2600129424857, 0.1236994171255, 0, False, 0, Nothing)
Part.EditSheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.ViewZoomtofit2
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.3790667046632, 0.1728220450389, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.4025392376018, 0.1773861486659, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem653@Drawing View1", "NOTE", 0.2864806025167, 0.2210711405238, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2669201584012, 0.1702139858236, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem842@Drawing View1", "NOTE", 0.2669201584012, 0.1685839488139, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem842@Drawing View1", "NOTE", 0.2884366469282, 0.1604337637658, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditBalloonProperties 1, 0, 0, "2", 2, "1" 
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem842@Drawing View1", "NOTE", 0.2695282176166, 0.1705399932255, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2584439659511, 0.1653238747947, 0, False, 0, Nothing)
Part.Paste
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.2584439659511, 0.1747780894505, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem843@Drawing View1", "NOTE", 0.2588438177886, 0.1640224971269, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem843@Drawing View1", "NOTE", 0.2769908991229, 0.1518519994656, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem843@Drawing View1", "NOTE", 0.2566705146347, 0.1670651215423, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem843@Drawing View1", "NOTE", 0.2568878449501, 0.1682604382769, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2740569398653, 0.1909714562342, 0, False, 0, Nothing)
Part.EditSketch
Part.ViewZoomtofit2
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.02665270318283, 0.1229429125445, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem843@Drawing View1", "NOTE", 0.255653954214, 0.1665042859171, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem843@Drawing View1", "NOTE", 0.277386321069, 0.1567139622349, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.2777090789926, 0.1567139622035, -4498.757116297, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem843@Drawing View1", "NOTE", 0.3379572247293, 0.1972738746327, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.2780318369162, 0.1567139622035, -4498.757116297, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem843@Drawing View1", "NOTE", 0.3360206771878, 0.1966283587855, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.2776014930181, 0.156821548178, -4498.757116297, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem843@Drawing View1", "NOTE", 0.2801835564068, 0.1591884396491, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.2779242509417, 0.1570367201271, -4498.757116297, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem843@Drawing View1", "NOTE", 0.3298882766396, 0.1977042185308, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.3436592813794, 0.1993180081487, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem844@Drawing View1", "NOTE", 0.3434441094303, 0.1974890465817, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem844@Drawing View1", "NOTE", 0.2907269819107, 0.155315344566, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem844@Drawing View1", "NOTE", 0.3426910076086, 0.1978118045053, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem843@Drawing View1", "NOTE", 0.3301034485886, 0.1995331800978, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("DetailItem844@Drawing View1", "NOTE", 0.3382799826529, 0.194691811244, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem664@Drawing View1", "NOTE", 0.2853476831842, 0.1825345961221, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.3498992679021, 0.1958752569638, 0, False, 0, Nothing)
Part.Paste
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem845@Drawing View1", "NOTE", 0.3486082362077, 0.1944766392949, 0, False, 0, Nothing)
Part.EditSketch
Part.EditBalloonProperties 1, 0, 0, "6", 2, "?" 
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem845@Drawing View1", "NOTE", 0.3500068538766, 0.1952297411166, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem845@Drawing View1", "NOTE", 0.3718468067062, 0.1759718516758, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem845@Drawing View1", "NOTE", 0.3528040892144, 0.1959828429383, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.347855134386, 0.1880214808231, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem845@Drawing View1", "NOTE", 0.3384951546019, 0.1873759649759, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem844@Drawing View1", "NOTE", 0.3398937722708, 0.1950145691675, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.349684095953, 0.1974890465817, 0, False, 0, Nothing)
Part.ViewZoomtofit2
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.01980654774241, 0.1535876083254, 0, False, 0, Nothing)
Part.EditSketch
' 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.Save2 FALSE
Part.SaveTemplate
Part.ClearSelection2 True
Part.EditSketch
Set Part = swApp.NewDrawing2 (13, """", 12, 0.279400, 0.431800)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1104366054774, 0.03720296583836, 0, False, 0, Nothing)
Part.ClearSelection2 True
' MSGBOX
' The current sheet format has notes and sketch data.
' Do you want to delete these items?

Part.SetupSheet4 "Sheet2", 12, 12, 1, 4, False, "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\ElkmoorCrevA.slddrt", 0.4318, 0.2794, "Default", True
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View9", "DRAWINGVIEW", 0.3686344678016, 0.1431553714638, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.3859128601036, 0.14250335666, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View9", "DRAWINGVIEW", 0.3683084603997, 0.1398952974446, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.384282823094, 0.133701156808, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View9", "DRAWINGVIEW", 0.3686344678016, 0.133701156808, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View9", "DRAWINGVIEW", 0.3702645048113, 0.138265260435, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.388520919319, 0.1402213048465, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View6", "DRAWINGVIEW", 0.1955245373797, 0.2132469628776, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem725@Drawing View9", "CENTERMARKSYM", 0.3008249282013, 0.2223751701315, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem827@Drawing View86", "NOTE", 0.3053890318283, 0.2240052071411, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.3256014907476, 0.2187890887103, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1179347757217, 0.03035681039794, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1179347757217, 0.03035681039794, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2447516550703, 0.1151187348983, 0, False, 0, Nothing)
Part.ClearSelection2 True
' MSGBOX
' The current sheet format has notes and sketch data.
' Do you want to delete these items?

Part.SetupSheet4 "Sheet3", 12, 12, 1, 8, False, "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\ElkmoorCrevA.slddrt", 0.4318, 0.2794, "Default", True
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1459714122872, 0.1206285669874, 0, False, 0, Nothing)
Part.ClearSelection2 True
' MSGBOX
' The current sheet format has notes and sketch data.
' Do you want to delete these items?

Part.SetupSheet4 "Sheet4", 12, 12, 1, 8, False, "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\ElkmoorCrevA.slddrt", 0.4318, 0.2794, "Default", True
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1691179378238, 0.118020507772, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.1345611532198, 0.05806743956153, 0, False, 0, Nothing)
Part.ClearSelection2 True
' MSGBOX
' The current sheet format has notes and sketch data.
' Do you want to delete these items?

Part.SetupSheet4 "Sheet5", 12, 12, 1, 12, False, "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\ElkmoorCrevA.slddrt", 0.4318, 0.2794, "Default", True
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem752@Drawing View46", "NOTE", 0.3536381273131, 0.112184668281, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View46", "DRAWINGVIEW", 0.3735245788305, 0.1470674602869, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem752@Drawing View46", "NOTE", 0.384282823094, 0.1203348533291, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem751@Drawing View46", "NOTE", 0.3976491265729, 0.2566059473335, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.3898249489267, 0.2315033773854, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Base-Pipe@Pole-1@Drawing View44", "DIMENSION", 0.3350557054034, 0.1604337637658, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "See" & Chr(13) & Chr(10) & _
	"Note 7", 0
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.2134549444856, 0.05871945436537, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet6", "SHEET", 0.2692022102147, 0.129463060583, 0, False, 0, Nothing)
Part.ClearSelection2 True
' MSGBOX
' The current sheet format has notes and sketch data.
' Do you want to delete these items?

Part.SetupSheet4 "Sheet6", 12, 12, 1, 4, False, "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\ElkmoorCrevA.slddrt", 0.4318, 0.2794, "Default", True
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet6", "SHEET", 0.2708322472243, 0.1245729495541, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet7", "SHEET", 0.1850923005181, 0.1007744092136, 0, False, 0, Nothing)
Part.ClearSelection2 True
' MSGBOX
' The current sheet format has notes and sketch data.
' Do you want to delete these items?

Part.SetupSheet4 "Sheet7", 12, 12, 1, 4, False, "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\ElkmoorC.slddrt", 0.4318, 0.2794, "Default", True
Part.SetupSheet4 "Sheet7", 12, 12, 1, 4, False, "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\ElkmoorCrevA.slddrt", 0.4318, 0.2794, "Default", True
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet7", "SHEET", 0.1564036491488, 0.01764252172289, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet7", "SHEET", 0.142385330866, 0.0244886771633, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View74", "DRAWINGVIEW", 0.1571715549654, 0.04083918582275, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet7", "SHEET", 0.1249172124884, 0.02506008302825, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.ViewZoomtofit2
Part.EditSketch
Part.ViewZoomtofit2
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View75", "DRAWINGVIEW", 0.04131898144767, 0.2045390679859, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.ViewZoomtofit2
Part.ViewZoomTo2 -0.00388928, 0.282463, -2.05285e-015, 0.434138, -0.00202467, -6.62883e-017
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1019604130274, 0.05184100518135, 0, False, 0, Nothing)
Part.Create3rdAngleViews "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\FloatRod.SLDPRT"
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View88", "DRAWINGVIEW", 0.1635758119911, 0.2526615647668, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View89", "DRAWINGVIEW", 0.1935684929682, 0.1649655736491, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View87", "DRAWINGVIEW", 0.1661838712065, 0.1659435958549, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.InsertModelAnnotations2(0, False, 32776, False, True, False)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Extrude2@FloatRod-1@Drawing View87", "DIMENSION", 0.05436333234641, 0.165617588453, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Extrude1@FloatRod-1@Drawing View87", "DIMENSION", 0.09772231680237, 0.09585200444115, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Extrude1@FloatRod-1@Drawing View87", "DIMENSION", 0.0967442945966, 0.0978080488527, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch1@FloatRod-1@Drawing View87", "DIMENSION", 0.04849519911177, 0.009460042931162, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.03545490303479, 0.06488130125833, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View87", "DRAWINGVIEW", 0.0781618726869, 0.1408410259067, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch2@FloatRod-1@Drawing View87", "DIMENSION", 0.07392377646188, 0.182895980755, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("D1@Extrude2@FloatRod-1@Drawing View87", "DIMENSION", 0.07457579126573, 0.1431230777202, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Drawing View87", "DRAWINGVIEW", 0.1091325758697, 0.1291047594375, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch1@FloatRod-1@Drawing View87", "DIMENSION", 0.04816919170984, 0.01761022797927, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch1@FloatRod-1@Drawing View87", "DIMENSION", 0.0449091176906, 0.06748936047372, 0, False, 0, Nothing)
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-1", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-13", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-13 ", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-13 A", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-13 Al", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-13 All", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-13 Allt", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-13 Allth", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-13 Allthr", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-13 Allthre", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-13 Allthrea", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-13 Allthread", "", 0,"", "", 0
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Sketch1@FloatRod-1@Drawing View87", "DIMENSION", 0.04523512509252, 0.07074943449297, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View87", "DRAWINGVIEW", 0.07783586528497, 0.1196505447816, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1541215973353, 0.1167164781643, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View87", "DRAWINGVIEW", 0.09804832420429, 0.1692036698742, 0, False, 0, Nothing)
Part.CreateUnfoldedViewAt2 0.08964395016736, 0.1793098993338, 0, 0
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View87", "DRAWINGVIEW", 0.09641828719467, 0.1773538549223, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View90", "DRAWINGVIEW", 0.0967442945966, 0.1815919511473, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1730300266469, 0.07987764174685, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View87", "DRAWINGVIEW", 0.09739630940044, 0.01500216876388, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View87", "DRAWINGVIEW", 0.09739630940044, 0.01500216876388, 0, False, 0, Nothing)
Part.CreateUnfoldedViewAt2 0.08964395016736, 0.0009838504811251, 0, 0
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View91", "DRAWINGVIEW", 0.0967442945966, 0.006525976313842, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View91", "DRAWINGVIEW", 0.0967442945966, 0.004895939304219, 0, False, 0, Nothing)
Dim DrawView As Object
Set DrawView = Part.SelectionManager.GetSelectedObject5(1)
boolstatus = DrawView.AlignWithView(0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View91", "DRAWINGVIEW", 0.0967442945966, 0.005221946706144, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch

Dim Note As Object
Dim Annotation As Object
Dim TextFormat As Object
Set Note = Part.InsertNote("1/2-13" & Chr(13) & Chr(10) & _
	"SS-316" & Chr(13) & Chr(10) & _
	"nut")
If Not Note is Nothing Then
   Note.Angle = 0
   boolstatus = Note.SetBalloon(0, 0)
   Set Annotation = Note.GetAnnotation()
   If Not Annotation is Nothing Then
      longstatus = Annotation.SetLeader2(True, 0, True, True, False, False)
      boolstatus = Annotation.SetPosition(0.03806296225019, 0.1467091591414, 0)
      boolstatus = Annotation.SetTextFormat(0, True, TextFormat)
   End If
End If
Part.ClearSelection2 True
Part.WindowRedraw

Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem847@Drawing View87", "NOTE", 0.04523512509252, 0.1414930407106, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem847@Drawing View87", "NOTE", 0.047517176906, 0.1356249074759, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem847@Drawing View87", "NOTE", 0.03838896965211, 0.1463831517395, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem847@Drawing View87", "NOTE", 0.04132303626943, 0.1251926706144, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch1@FloatRod-1@Drawing View87", "DIMENSION", 0.05175527313101, 0.09389596002961, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1358651828275, 0.09096189341229, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View91", "DRAWINGVIEW", 0.1433633530718, 0.1291047594375, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.151187530718, 0.09291793782383, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem847@Drawing View87", "NOTE", 0.0487137433982, 0.144589979227, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1519740484504, 0.1406452035248, -500.0174445, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.InsertWeldSymbol2 "","<AWLD-GSQ>","",0,0,0,0,1,0,""

Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem848@Drawing View91", "WELD", 0.1698415619089, 0.1478386180376, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem848@Drawing View91", "WELD", 0.1517420028211, 0.1406452035283, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem848@Drawing View91", "WELD", 0.1712338356849, 0.1520154393655, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1805156608581, 0.1299711045791, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem848@Drawing View91", "WELD", 0.1788913414528, 0.1492308918136, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2099854557831, 0.1213854162939, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem848@Drawing View91", "WELD", 0.1770349764182, 0.1471424811496, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.188869303514, 0.1232417813285, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1730902007195, 0.08727470878224, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.05451488413147, 0.0817056136783, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch1@FloatRod-1@Drawing View87", "DIMENSION", 0.05219442783817, 0.1179047318539, 0, False, 0, Nothing)
Part.Parameter("D1@Sketch1@FloatRod.Part").SystemValue = 0.0127
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-13 ", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-13 S", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-13 SS", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-13 SS-", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-13 SS-3", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-13 SS-31", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-13 SS-316", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-13 SS-316", "", 0,"", "Allthread", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-13 SS-316", "", 0,"", "Allthread", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"1/2-13 SS-316", "", 0,"", "Allthread", 0
boolstatus = Part.Extension.SelectByID("DetailItem847@Drawing View87", "NOTE", 0.05057010843285, 0.1448220248563, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem847@Drawing View87", "NOTE", 0.04221646577694, 0.1441258879683, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch1@FloatRod-1@Drawing View87", "DIMENSION", 0.04894578902753, 0.1174406405952, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.05637124916612, 0.09771676210212, 0, False, 0, Nothing)
Part.EditSketch
Part.ViewZoomtofit2
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.207260803849, 0.0831377157661, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Fillet1@HalfFloat-RetPlt-4@Drawing View42", "DIMENSION", 0.2535538549223, 0.2076725433013, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2594219881569, 0.2415773131014, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View40", "DRAWINGVIEW", 0.1991106188009, 0.2194088097705, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View42", "DRAWINGVIEW", 0.2545318771281, 0.2350571650629, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2799604544782, 0.2135406765359, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View40", "DRAWINGVIEW", 0.2838725433013, 0.2148447061436, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D3@Sketch1@HalfFloat-RetPlt-1@Drawing View40", "DIMENSION", 0.02991277720207, 0.2529875721688, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch1@HalfFloat-RetPlt-1@Drawing View40", "DIMENSION", 0.03806296225019, 0.2282110096225, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View40", "DRAWINGVIEW", 0.2551838919319, 0.2102806025167, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View42", "DRAWINGVIEW", 0.3604842827535, 0.2353831724648, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.3953670747594, 0.195936276832, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View42", "DRAWINGVIEW", 0.3604842827535, 0.2353831724648, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2095428556625, 0.1124783819393, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View40", "DRAWINGVIEW", 0.04784318430792, 0.2125626543301, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.03349885862324, 0.1542073293856, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Sketch1@HalfFloat-RetPlt-1@Drawing View40", "DIMENSION", 0.04099702886751, 0.2272329874167, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.01752449592894, 0.17865788453, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D2@Sketch2@HalfFloat-RetPlt-1@Drawing View40", "DIMENSION", 0.1332571236121, 0.1972403064397, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D3@Sketch2@HalfFloat-RetPlt-1@Drawing View40", "DIMENSION", 0.1531435751295, 0.1864820621762, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D4@Sketch2@HalfFloat-RetPlt-1@Drawing View40", "DIMENSION", 0.1870483449297, 0.1763758327165, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D2@Sketch1@HalfFloat-RetPlt-1@Drawing View40", "DIMENSION", 0.1896564041451, 0.1685516550703, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2274732627683, 0.1532293071799, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Fillet1@HalfFloat-RetPlt-4@Drawing View42", "DIMENSION", 0.35820223094, 0.1522512849741, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View42", "DRAWINGVIEW", 0.3608102901554, 0.2422293279053, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Extrude1@HalfFloat-RetPlt-4@Drawing View42", "DIMENSION", 0.3921070007402, 0.2037604544782, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Fillet1@HalfFloat-RetPlt-4@Drawing View42", "DIMENSION", 0.3321216387861, 0.1939802324204, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.3526601051073, 0.1815919511473, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2388835218357, 0.1408410259067, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem848@Drawing View91", "WELD", 0.1782461450777, 0.1463831517395, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1880263671355, 0.1154124485566, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1831362561066, 0.1154124485566, 0, False, 0, Nothing)
Part.EditSketch
' 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?

' MSGBOX
' C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\FloatRod.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.Save2 FALSE
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1665098786084, 0.07466152331606, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1860703227239, 0.0524930199852, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1877003597335, 0.0524930199852, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2134549444856, 0.09324394522576, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
' 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.Save2 FALSE
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.03447688082902, 0.1679319340101, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.PrintDirect
swApp.PageSetup
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "143jahaSmoor-CrevA - Sheet1"
' MSGBOX
' Save changes to HalfFloat-Retainer.SLDASM?

Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\143jahaSmoor-CrevA.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("143jahaSmoor-CrevA - Sheet1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View40", "DRAWINGVIEW", 0.2509457957069, 0.211616925868, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View40", "DRAWINGVIEW", 0.2512718031088, 0.211616925868, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2271472553664, 0.1327231346022, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2277992701702, 0.1330491420042, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View40", "DRAWINGVIEW", 0.2000886410067, 0.2129209554757, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2535538549223, 0.1385912678369, 0, False, 0, Nothing)
Part.Paste
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1736820414508, 0.06426158019809, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View92", "DRAWINGVIEW", 0.2075868112509, 0.1535876083254, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
' MSGBOX
' The view orientation of this drawing view has been changed.
' All existing dimensions will be deleted. Do you still want to
' change the name of the drawing view's orientation?

Part.EditSketch
boolstatus = Part.Extension.SelectByID("D2@Sketch1@HalfFloat-RetPlt-1@Drawing View40", "DIMENSION", 0.1241289163583, 0.1718440228332, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch1@HalfFloat-RetPlt-5@Drawing View92", "DIMENSION", 0.1218468645448, 0.1685839488139, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("D5@Sketch2@HalfFloat-RetPlt-5@Drawing View92", "DIMENSION", 0.2150849814952, 0.1653238747947, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("D4@Sketch2@HalfFloat-RetPlt-1@Drawing View40", "DIMENSION", 0.1309750717987, 0.1822762596948, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D3@Sketch1@HalfFloat-RetPlt-5@Drawing View92", "DIMENSION", 0.1303230569948, 0.1868403633217, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("D3@Sketch2@HalfFloat-RetPlt-5@Drawing View92", "DIMENSION", 0.1345611532198, 0.1519575713158, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D3@Sketch2@HalfFloat-RetPlt-5@Drawing View92", "DIMENSION", 0.1994366262028, 0.1330491420042, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("D1@Sketch2@HalfFloat-RetPlt-5@Drawing View92", "DIMENSION", 0.1730300266469, 0.1496755195023, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("D2@Sketch2@HalfFloat-RetPlt-5@Drawing View92", "DIMENSION", 0.1847662931162, 0.14250335666, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("D4@Sketch2@HalfFloat-RetPlt-5@Drawing View92", "DIMENSION", 0.2248652035529, 0.1219648903387, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("D2@Sketch1@HalfFloat-RetPlt-5@Drawing View92", "DIMENSION", 0.2281252775722, 0.1128366830848, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("D4@Sketch1@HalfFloat-RetPlt-5@Drawing View92", "DIMENSION", 0.3093011206514, 0.1346791790138, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.203022707624, 0.1389172752388, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("DetailItem746@Drawing View92", "NOTE", 0.3490740236862, 0.138265260435, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Drawing View92", "DRAWINGVIEW", 0.2206271073279, 0.09425426117515, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View92", "DRAWINGVIEW", 0.2098688630644, 0.1160967571041, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2056307668394, 0.1216388829368, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View91", "DRAWINGVIEW", 0.1414073086603, 0.1307670901907, 0, False, 0, Nothing)
Part.EditCopy
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1991106188009, 0.1118586608791, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem848@Drawing View93", "WELD", 0.2167150185048, 0.1245729495541, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Drawing View93", "DRAWINGVIEW", 0.2046527446336, 0.1050125054387, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1720520044412, 0.09066817975398, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View93", "DRAWINGVIEW", 0.1948725225759, 0.1050125054387, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View87", "DRAWINGVIEW", 0.09739630940044, 0.1131626904868, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.172704019245, 0.08349601691164, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
' MSGBOX
' You have selected a drawing document.
' Only parts and assemblies can be inserted in drawings.

Part.CreateDrawViewFromModelView "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ShallowMoor\FloatRod.SLDPRT", "*Trimetric", 0.2186710629164, 0.09686232039054, 0
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View94", "DRAWINGVIEW", 0.2281252775722, 0.1232689199464, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View92", "DRAWINGVIEW", 0.2714842620281, 0.1457634306792, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View94", "DRAWINGVIEW", 0.2304073293856, 0.1460894380811, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View94", "DRAWINGVIEW", 0.2229091591414, 0.1059905276444, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View94", "DRAWINGVIEW", 0.2163890111029, 0.1196828385253, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View91", "DRAWINGVIEW", 0.1550996195411, 0.1317451123965, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View94", "DRAWINGVIEW", 0.220301099926, 0.1340271642099, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch

Set Note = Part.InsertNote("Top view")
If Not Note is Nothing Then
   Note.Angle = 0
   boolstatus = Note.SetBalloon(0, 0)
   Set Annotation = Note.GetAnnotation()
   If Not Annotation is Nothing Then
      longstatus = Annotation.SetLeader2(False, 0, True, True, False, False)
      boolstatus = Annotation.SetPosition(0.1430373456699, 0.04013703245568, 0)
      boolstatus = Annotation.SetTextFormat(0, True, TextFormat)
   End If
End If
Part.ClearSelection2 True
Part.WindowRedraw

Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View91", "DRAWINGVIEW", 0.1593377157661, 0.04926523970956, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View91", "DRAWINGVIEW", 0.16846592302, 0.06132751358077, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem848@Drawing View91", "WELD", 0.1841142783124, 0.0750198244616, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem849@Drawing View91", "NOTE", 0.1550996195411, 0.04470113608262, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.FontPoints 14
Part.FontPoints 22
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem849@Drawing View91", "NOTE", 0.1583596935603, 0.04078904725953, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1629237971873, 0.02905278079025, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1922644633605, 0.04828721750379, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.ClearSelection2 True
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("DetailItem741@Drawing View38", "NOTE", 0.3477699940785, 0.2399795698354, 0, False, 0, Nothing)
Part.EditCopy
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1635758119911, 0.1288110457791, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem850@Drawing View94", "NOTE", 0.1609677527757, 0.1271810087695, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem850@Drawing View94", "NOTE", 0.1361911902295, 0.1072945572521, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem850@Drawing View94", "NOTE", 0.1795501746854, 0.1395692900427, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditBalloonProperties 1, 0, 0, "2", 2, "1" 
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2066087890452, 0.1363092160234, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem850@Drawing View94", "NOTE", 0.1828102487047, 0.1411993270523, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditBalloonProperties 1, 0, 0, "2a", 2, "1" 
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2845245581051, 0.1014264240175, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem850@Drawing View94", "NOTE", 0.1802021894893, 0.1434813788657, 0, False, 0, Nothing)
Part.EditCopy
Part.EditSketch
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3304916017765, 0.1434813788413, -3499.222628596, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem851@Drawing View92", "NOTE", 0.3546161495189, 0.1588037267562, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditBalloonProperties 1, 0, 0, "2", 2, "1" 
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2147589740933, 0.1200088459272, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.220301099926, 0.1043604906348, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2147589740933, 0.02742274378062, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2176930407106, 0.1105546312714, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.03056479200592, 0.02220662534983, 0, False, 0, Nothing)
' 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.Save2 FALSE
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
' 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.Save2 FALSE
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "143jahaSmoor-CrevA - Sheet1"
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ElkMoorV2\Instruments\BatteryHsg.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("BatteryHsg.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 "BatteryHsg.SLDPRT"
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ElkMoorV2\Impulse-VSG-BCL-4-HP-SS.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Impulse-VSG-BCL-4-HP-SS.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 "Impulse-VSG-BCL-4-HP-SS.SLDPRT"
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ElkMoorV2\Impulse-K-FLS-S.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Impulse-K-FLS-S.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 "Impulse-K-FLS-S.SLDPRT"
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Compass Housing\CompassTiltSensor.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("CompassTiltSensor.SLDPRT")
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 "*Top", 5
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ShowNamedView2 "*Top", 5
Part.ViewRotateplusx
Part.ViewRotateplusx
Part.ViewRotateplusx
Part.ViewRotateplusx
Part.ViewRotateplusx
Part.ViewRotateplusx
Part.ViewRotateminusx
Part.ViewRotateminusx
Part.ShowNamedView2 "*Front", 1
Part.ShowNamedView2 "*Top", 5
Part.ClearSelection2 True
swApp.LoadFile2 "C:\Program Files\SolidWorks2004\data\templates\j04.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\j04.prtdot", 0, 0.000000, 0.000000)
Set Part = swApp.ActivateDoc ("Part2")
boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
Part.CreateCircle 0, 0, 0, 0.03390601761252, -0.02070273972603, 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.03369476516634, 0, 0.02197025440313, False, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.0643264, 0, 0.0395042)
Part.ClearSelection2 True
Part.Parameter("D1@Sketch1").SystemValue = 0.0794537
boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part2.SLDPRT", "DIMENSION", -0.06538263209393, 0, 0.04013796477495, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.02270963796477, 0, 0.03253287671233, False, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.0736215, 0, 0.0597844)
Part.ClearSelection2 True
Part.Parameter("D1@Sketch1").SystemValue = 0.060325
boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part2.SLDPRT", "DIMENSION", -0.06094633072407, 0, 0.05386937377691, False, 0, Nothing)
Part.ClearSelection2 True
Part.CreateLine2 0, 0.0301625, 0, 0.09707049902153, 0.0301625, 0
Part.CreateLine2 0, -0.0301625, 0, 0.09707049902153, -0.0301625, 0
Part.CreateLine2 0.09707049902153, 0.0301625, 0, 0.09707049902153, -0.0301625, 0
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.01383703522505, 0, -0.02725156555773, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.02841345401174, 0, -0.02999784735812, True, 0, Nothing)
Part.DeSelectByID "Line3", "SKETCHSEGMENT", 0.09707049902153, -0.01352015655577, 0
Part.SketchAddConstraints "sgTANGENT"
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.02672343444227, 0, 0.03063160469667, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.01911834637965, 0, 0.02302651663405, True, 0, Nothing)
Part.SketchAddConstraints "sgTANGENT"
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.01531580234834, 0.02619530332681
Part.SketchRectangle 0.04003233855186, 0.02049148727984, 0, 0.08481785714286, -0.018378962818, 0, 1
Part.ClearSelection2 True
Part.CreateLine2( 0.04003233855186, -0.018378962818, 0, 0.08481785714286, 0.02049148727984, 0 ).ConstructionGeometry = TRUE
Part.CreateLine2( 0, 0, 0, 0.06242509784736, 0.00105626223092, 0 ).ConstructionGeometry = TRUE
Part.SketchAddConstraints "sgHORIZONTAL"
Part.SketchRectangle 0.04446863992172, 0.01415391389432, 0, 0.08017030332681, -0.01394266144814, 0, 1
Part.ClearSelection2 True
Part.CreateLine2( 0.04446863992172, 0.01415391389432, 0, 0.08017030332681, -0.01394266144814, 0 ).ConstructionGeometry = TRUE
boolstatus = Part.Extension.SelectByID("Point12", "SKETCHPOINT", 0.06243403343652, 0, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgATMIDDLE"
boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0.05693253424658, 0, -0.01309765166341, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0.04383488258317, 0, -0.006337573385519, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", 0.06369261252446, 0, 0.01415391389432, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0.08017030332681, 0, 0.003802544031311, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", 0.06073507827789, 0, 0.01457641878669, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0636926, 0, 0.0530244)
Part.ClearSelection2 True
Part.Parameter("D2@Sketch1").SystemValue = 0.0700024
boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.1025630626223, 0, 0.00105626223092, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.127491, 0, -0.00147877)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part2.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D3@Sketch1").SystemValue = 0.0350012
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.1006617906067, 0, -0.001478767123288, False, 0, Nothing)
Part.EditDelete
Part.EditUndo 1
boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0.1139706947162, 0, -0.001267514677104, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0.1141819471624, 0, -0.004858806262231, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.134673, 0, -0.00147877)
Part.ClearSelection2 True
Part.Parameter("D3@Sketch1").SystemValue = 0.0350012
boolstatus = Part.Extension.SelectByID("D3@Sketch1@Part2.SLDPRT", "DIMENSION", 0.1350959393346, 0, -0.0006337573385519, False, 0, Nothing)
Part.ShowNamedView2 "*Front", 1
Part.ShowNamedView2 "*Top", 5
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.100736851031, 0, 2.101861854724e-005, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.155852, 0, 0.000366569)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D3@Sketch1@Part2.SLDPRT", "DIMENSION", 0.1350959393346, 0, -0.0006337573385519, False, 0, Nothing)
Part.Parameter("D4@Sketch1").SystemValue = 0.0508
boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", 0.07326556004944, 0, 0.02576455545029, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0800038, 0, 0.0703406)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D4@Sketch1@Part2.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D5@Sketch1").SystemValue = 0.0762
boolstatus = Part.Extension.SelectByID("D5@Sketch1@Part2.SLDPRT", "DIMENSION", 0.0806949028935, 0, 0.067576205875, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part2.SLDPRT", "DIMENSION", 0.0822498816283, 0, 0.05565470224151, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D5@Sketch1@Part2.SLDPRT", "DIMENSION", 0.07948547498865, 0, 0.06429347299041, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D3@Sketch1@Part2.SLDPRT", "DIMENSION", 0.1415118489658, 0, 2.101861854724e-005, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D4@Sketch1@Part2.SLDPRT", "DIMENSION", 0.1695014661923, 0, 0.0005393448634816, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0.03525496875425, 0, 2.101861854724e-005, False, 0, Nothing)
Part.ClearSelection2 True
Part.InsertSketch2 True
Part.InsertSketch2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.02678897342032, 0, 0.01401582723178, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0.04112933286351, 0, 0.01297917474191, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0186685, 0, 0.0582463)
Part.ClearSelection2 True
Part.Parameter("D6@Sketch1").SystemValue = 0.0381
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.09693579190145, 0, 0.002439874428241, False, 0, Nothing)
Part.ClearSelection2 True
Part.InsertSketch2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.09710856731642, 0, -0.002916163436081, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point5", "SKETCHPOINT", 0.1273442649376, 0.0301625, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point19", "SKETCHPOINT", 0.1273442649376, 0.0301625, 0, False, 1, Nothing)
Part.SketchFillet2 0.0127, 2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point7", "SKETCHPOINT", 0.1273442649376, -0.0301625, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point22", "SKETCHPOINT", 0.1273442649376, -0.0301625, 0, False, 1, Nothing)
Part.SketchFillet2 0.0127, 2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D7@Sketch1@Part2.SLDPRT", "DIMENSION", 0.1327003028019, 0, -0.03505239062201, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D4@Sketch1@Part2.SLDPRT", "DIMENSION", 0.1577527379737, 0, -0.001015633871322, False, 0, Nothing)
Part.Parameter("D4@Sketch1").SystemValue = 0.0381
boolstatus = Part.Extension.SelectByID("D4@Sketch1@Part2.SLDPRT", "DIMENSION", 0.1574071871438, 0, -0.0011884092863, False, 0, Nothing)
Part.Parameter("D4@Sketch1").SystemValue = 0.04064
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point8", "SKETCHPOINT", 0.0381, 0.02032, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point25", "SKETCHPOINT", 0.0381, 0.02032, 0, False, 1, Nothing)
Part.SketchFillet2 0.003175, 2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point11", "SKETCHPOINT", 0.1143, 0.02032, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point11", "SKETCHPOINT", 0.1143, 0.02032, 0, False, 1, Nothing)
Part.SketchFillet2 0.003175, 1
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point9", "SKETCHPOINT", 0.1143, -0.02032, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point32", "SKETCHPOINT", 0.1143, -0.02032, 0, False, 1, Nothing)
Part.SketchFillet2 0.003175, 1
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point10", "SKETCHPOINT", 0.0381, -0.02032, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point10", "SKETCHPOINT", 0.0381, -0.02032, 0, False, 1, Nothing)
Part.SketchFillet2 0.003175, 1
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D8@Sketch1@Part2.SLDPRT", "DIMENSION", 0.03577329499919, 0, -0.02071203117883, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D4@Sketch1@Part2.SLDPRT", "DIMENSION", 0.1586166150486, 0, 2.101861854724e-005, False, 0, Nothing)
Part.Parameter("D4@Sketch1").SystemValue = 0.0381
boolstatus = Part.Extension.SelectByID("D3@Sketch1@Part2.SLDPRT", "DIMENSION", 0.1390929931561, 0, -0.001015633871322, False, 0, Nothing)
Part.Parameter("D3@Sketch1").SystemValue = 0.0350012
boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part2.SLDPRT", "DIMENSION", 0.07499331419922, 0, 0.04822535939745, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D5@Sketch1@Part2.SLDPRT", "DIMENSION", 0.07447498795429, 0, 0.0525447447719, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.02592509634543, 0, 0.01626190762649, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.1264803878627, 0, 0.006068158142782, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0642812, 0, 0.0686129)
Part.ClearSelection2 True
Part.Parameter("D9@Sketch1").SystemValue = 0.127
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D7@Sketch1@Part2.SLDPRT", "DIMENSION", 0.1544700050892, 0, -0.04248173346607, False, 0, Nothing)
Part.Parameter("D7@Sketch1").SystemValue = 0.0254
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ShowNamedView2 "*Trimetric", 8
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.01905, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.03243223431264, 0.01904999999994, -0.02081854458095, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.02929079300696, 0.01904999999994, -0.02019716756786, False, 0, Nothing)
Part.ClearSelection2 True
Part.SaveAs2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Compass Housing\Housing-Top.SLDPRT", 0, FALSE, FALSE
boolstatus = Part.Extension.SelectByID("", "FACE", 0.02685176728266, 0.01904999999999, -0.0227963222427, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.02859534919139, 0.01904999999994, -0.02682534289841, False, 0, Nothing)
boolstatus = Part.SketchUseEdge2(False)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.03792858820594, 0.01918313752202, -0.005850941493577, False, 0, Nothing)
Part.EditDelete
' MSGBOX
' Entities which do not belong to the active sketch cannot be deleted.

Part.ClearSelection2 True
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.ShowNamedView2 "*Top", 5
Part.ShowNamedView2 "*Isometric", 7
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.00635, 0.01905, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.05361905792313, 0.02539999999993, -0.01043174548772, False, 0, Nothing)
Part.ShowNamedView2 "*Top", 5
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.04306826088675, 0.02539999999999, -0.01856460890707, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02407687936113, 0.02539999999999, -0.0183512225978, False, 0, Nothing)
boolstatus = Part.SketchUseEdge2(False)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0284512987013, 0.02539999999999, -0.03030085591729, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1189270938346, 0.02539999999999, -0.0233658008658, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1269290804325, 0.02539999999999, -0.002240556247406, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.12618222835, 0.02539999999999, 0.01045592915456, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.09865539445334, 0.02539999999999, 0.03040754907193, True, 0, Nothing)
boolstatus = Part.SketchOffsetEntities2(0.0127, False, False)
Part.ClearSelection2 True
' MSGBOX
' The sketch is over defined.  Consider deleting some over defining dimensions or relations.

Part.CreateTangentArc2 0, -0.0428625, 0, 0, -0.0301625, 0, 1
' MSGBOX
' Please select an endpoint of a sketch segment.

Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc13", "SKETCHSEGMENT", -0.004303499772678, 0.0127, -0.04097017138113, False, 0, Nothing)
Part.EditDelete
' MSGBOX
' The sketch is no longer over defined.

Part.CreateLine2 0, -0.0301625, 0, 0, -0.0428625, 0
Part.CreateLine2 0, 0.0301625, 0, 0, 0.0428625, 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point47", "SKETCHPOINT", 0, -0.0428625, 0, True, 0, Nothing)
' MSGBOX
' The fillet could not be added because the specified radius would eliminate one of the elements.

Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0.00039099903141, 0.0127, -0.03563551364921, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Line17", "SKETCHSEGMENT", -3.577358714345e-005, 0.0127, 0.03350165055645, False, 0, Nothing)
Part.EditDelete
Part.CreateArcVB -0.01074023503133, -0.0301625, 0, 0, -0.0301625, 0, -0.01074023503133, -0.04090273503133, 0, -1
Part.ClearSelection2 True
Part.CreateArcVB -0.01500796121687, 0.0301625, 0, 0, 0.0301625, 0, -0.01500796121687, 0.04517046121687, 0, 1
boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0.02461034513432, 0.0127, 0.0431040344739, True, 0, Nothing)
Part.SketchAddConstraints "sgTANGENT"
boolstatus = Part.Extension.SelectByID("Line15", "SKETCHSEGMENT", 0.01906230109312, 0.0127, -0.04289064816462, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc14", "SKETCHSEGMENT", 0.007005974618988, 0.0127, -0.03990323983475, True, 0, Nothing)
Part.SketchAddConstraints "sgTANGENT"
Part.ClearSelection2 True
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Line15", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 1, -0.001991396350985, -0.04289064816462
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 0, -0.001244544268517, 0.04278395500998
Part.InsertSketch2 True
Part.ShowNamedView2 "*Trimetric", 8
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.00635, 0.00635, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.002106793702751, 0.03177830620706, 0.03635434467469, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.002106793702751, 0.03177830620706, 0.03635434467469, False, 1, Nothing)
Part.FeatureFillet5 195, 0.00635, 0, 0, 0, 0, 0
Part.ClearSelection2 True
Part.Save2 FALSE
boolstatus = Part.Extension.SelectByID("", "FACE", 0.05068042744057, 0.01905000000005, 0.003608046036859, False, 0, Nothing)
Part.ShowNamedView2 "*Bottom", 6
Part.ClearSelection2 True
Part.CreateCircle 0.0544194674049, 0, 0, 0.05818531528033, -0.003530482383212, 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.05312495719773, 0.01606561697423, -0.004942675336496, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.029, 0.01905, -0.0245957)
Part.ClearSelection2 True
Part.Parameter("D1@Sketch4").SystemValue = 0.0508
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.05324263994383, 0.01606561697423, 0.004471944352068, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.103846, 0.01905, 0.051192)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D1@Sketch4@Housing-Top.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D2@Sketch4").SystemValue = 0.0115062
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.0508, 0, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgHORIZPOINTS"
Part.ClearSelection2 True
Part.ClearSelection2 True
Part.FeatureManager.FeatureCut True, False, False, 0, 0, 0.0127, 0.00635, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection2 True
Part.ShowNamedView2 "*Top", 5
boolstatus = Part.Extension.SelectByID("", "FACE", 0.03994448963374, 0.03174999999999, -0.01482802600949, False, 0, Nothing)
Part.ClearSelection2 True
Part.CreateCircle -0.05006520579894, 0, 0, -0.06230421139408, -0.002824385906569, 0
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05088898502169, 0.03174999999999, -0.005648771813139, True, 0, Nothing)
Part.DeSelectByID "Arc1", "SKETCHSEGMENT", -0.05115857400015, -0.01251299163604, 0
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.05018288854505, 0.01606561697423, -0.01235668834124, True, 0, Nothing)
Part.SketchAddConstraints "sgCONCENTRIC"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.06112738393301, 0.01606561697423, -0.007531695750852, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0826633, 0.03175, -0.0183585)
Part.ClearSelection2 True
Part.Parameter("D1@Sketch5").SystemValue = 0.028575
boolstatus = Part.Extension.SelectByID("D1@Sketch5@Housing-Top.SLDPRT", "DIMENSION", 0.08183954724785, 0.01606561697423, -0.01859387388491, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D1@Sketch5@Housing-Top.SLDPRT", "DIMENSION", 0.08183954724785, 0.01606561697423, -0.01859387388491, False, 0, Nothing)
Part.FeatureManager.FeatureCut True, False, False, 0, 0, 0.000127, 0.0127, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection2 True
Part.ShowNamedView2 "*Bottom", 6
boolstatus = Part.Extension.SelectByID("", "FACE", 0.05124203326001, 0, 0.0250664249208, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
Part.SketchRectangle 0.03300120761342, 0.02424264569805, 0, 0.118321198541, -0.02541947315912, 0, 1
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point1", "SKETCHPOINT", 0.03300120761342, 0.02424264569805, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point7", "SKETCHPOINT", 0.03300120761342, 0.02424264569805, 0, False, 1, Nothing)
Part.SketchFillet2 0.0127, 2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.EditUndo 1
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point1", "SKETCHPOINT", 0.03300120761342, 0.02424264569805, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point7", "SKETCHPOINT", 0.03300120761342, 0.02424264569805, 0, False, 1, Nothing)
Part.SketchFillet2 0.003175, 2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point4", "SKETCHPOINT", 0.118321198541, 0.02424264569805, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point10", "SKETCHPOINT", 0.118321198541, 0.02424264569805, 0, False, 1, Nothing)
Part.SketchFillet2 0.003175, 2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.118321198541, -0.02541947315912, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point13", "SKETCHPOINT", 0.118321198541, -0.02541947315912, 0, False, 1, Nothing)
Part.SketchFillet2 0.003175, 2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point3", "SKETCHPOINT", 0.03300120761342, -0.02541947315912, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point16", "SKETCHPOINT", 0.03300120761342, -0.02541947315912, 0, False, 1, Nothing)
Part.SketchFillet2 0.003175, 2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D1@Sketch6@Housing-Top.SLDPRT", "DIMENSION", 0.02523414637035, 0.01606561697423, 0.02647861787409, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch6@Housing-Top.SLDPRT", "DIMENSION", 0.007699417200403, 0.01606561697423, 0.04107127839136, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch6@Housing-Top.SLDPRT", "DIMENSION", 0.003227472848335, 0.01606561697423, 0.04766151217336, False, 0, Nothing)
Part.Parameter("D1@Sketch6").SystemValue = 0.00635
Part.ClearSelection2 True
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("Arc1", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc4", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0, 0, 0, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0, 0, 0, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0, 0, 0, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0, 0, 0, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0, 0, 0, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0, 0, 0, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0, 0, 0, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Arc4", "SKETCHSEGMENT", 0, 0, 0, True, 1, Nothing)
boolstatus = Part.SketchOffset2 (0.0021336, 0, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D2@Sketch6@Housing-Top.SLDPRT", "DIMENSION", 0.07560236170417, 0.02955124569805, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D2@Sketch6@Housing-Top.SLDPRT", "DIMENSION", 0.09290172538191, 0.01606561697423, 0.05389869771703, False, 0, Nothing)
Part.EditDimensionProperties2 3, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0
Part.EditDimensionProperties2 3, 0.000127, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0
Part.ClearSelection2 True
Part.CreateLine2( 0.03935120761342, -0.02224447315912, 0, 0.118321198541, 0.02106764569805, 0 ).ConstructionGeometry = TRUE
Part.CreateLine2( 0.07883620307723, -0.0005884137305351, 0, 0, 0, 0 ).ConstructionGeometry = TRUE
Part.SketchAddConstraints "sgHORIZONTAL"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point26", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.03300120761342, 0.01606561697423, -0.003530482383212, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0174671, 0, -0.048956)
Part.ClearSelection2 True
Part.Parameter("D3@Sketch6").SystemValue = 0.03556
boolstatus = Part.Extension.SelectByID("Point26", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.1217339981781, 0.01606561697423, 0.0004707309844282, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0630103, 0, -0.0556639)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D3@Sketch6@Housing-Top.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D4@Sketch6").SystemValue = 0.1143
boolstatus = Part.Extension.SelectByID("D4@Sketch6@Housing-Top.SLDPRT", "DIMENSION", 0.05818531528033, 0.01606561697423, -0.05436942870146, False, 0, Nothing)
Part.Parameter("D4@Sketch6").SystemValue = 0.11684
boolstatus = Part.Extension.SelectByID("D4@Sketch6@Housing-Top.SLDPRT", "DIMENSION", 0.05971519097972, 0.01606561697423, -0.05589930440085, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point26", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.05171276424444, 0.01606561697423, 0.02824385906569, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.00887624, 0, 0.0140042)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D4@Sketch6@Housing-Top.SLDPRT", "DIMENSION", 0.05971519097972, 0.01606561697423, -0.05589930440085, False, 0, Nothing)
Part.Parameter("D5@Sketch6").SystemValue = 0.0254
boolstatus = Part.Extension.SelectByID("D5@Sketch6@Housing-Top.SLDPRT", "DIMENSION", 0.01017075486865, 0.01606561697423, 0.01365119854842, False, 0, Nothing)
Part.Parameter("D5@Sketch6").SystemValue = 0.02286
boolstatus = Part.Extension.SelectByID("D5@Sketch6@Housing-Top.SLDPRT", "DIMENSION", 0.009111610153687, 0.01606561697423, 0.01117986088017, False, 0, Nothing)
Part.Parameter("D5@Sketch6").SystemValue = 0.02159
Part.ClearSelection2 True
Part.ClearSelection2 True
Part.FeatureManager.FeatureCut True, False, False, 0, 0, 0.00127, 0.000127, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ViewRotateplusx
Part.ViewRotateplusx
Part.ViewRotateplusy
Part.ViewRotateminusy
Part.ViewRotateplusx
Part.ViewRotateplusx
Part.ViewRotateminusx
Part.ViewRotateminusx
Part.ClearSelection2 True
Part.ShowNamedView2 "*Top", 5
boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("D1@Sketch3@Housing-Top.SLDPRT", "DIMENSION", 0.03982680688763, 0.01606561697423, 0.05589930440085, False, 0, Nothing)
Part.EditDelete
' MSGBOX
' Deleting the offset dimension will remove the offset relations from the sketch geometry.  Do you want to continue?

boolstatus = Part.Extension.SelectByID("", "EDGE", 0.04147436533313, 0.02539999999999, -0.0300091002573, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line15", "SKETCHSEGMENT", 0.04112131709481, 0.01606561697423, -0.04307188507518, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0417097, 0.0254, -0.0518981)
Part.ClearSelection2 True
Part.Parameter("D1@Sketch3").SystemValue = 0.0127
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.04994752305284, 0.02539999999999, 0.03036214849562, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0.05030057129116, 0.01606561697423, 0.04271883683686, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0444164, 0.0254, 0.0520158)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D1@Sketch3@Housing-Top.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D2@Sketch3").SystemValue = 0.0127
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1272650872452, 0.02539999999999, -0.0008237792227494, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line14", "SKETCHSEGMENT", 0.1393864100942, 0.01606561697423, -0.0009414619688564, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.134326, 0.0254, -0.0442487)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D2@Sketch3@Housing-Top.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D3@Sketch3").SystemValue = 0.0254
Part.ShowNamedView2 "*Front", 1
Part.ShowNamedView2 "*Top", 5
boolstatus = Part.Extension.SelectByID("Arc12", "SKETCHSEGMENT", 0.1129282585352, 0.01407691661144, -0.04477100179023, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line15", "SKETCHSEGMENT", 0.09243461594625, 0.01407691661144, -0.04259355226516, True, 0, Nothing)
Part.SketchAddConstraints "sgTANGENT"
boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0.09192227488152, 0.01407691661144, 0.04258314974509, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc11", "SKETCHSEGMENT", 0.1067801657585, 0.01407691661144, 0.04412017293926, True, 0, Nothing)
Part.SketchAddConstraints "sgTANGENT"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D3@Sketch3@Housing-Top.SLDPRT", "DIMENSION", 0.1425159550229, 0.01407691661144, -0.04400249019315, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc12", "SKETCHSEGMENT", 0.1468708540731, 0.01407691661144, -0.02530204133075, False, 0, Nothing)
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc12", "SKETCHSEGMENT", 0.1450776603466, 0.01407691661144, -0.02799183192055, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.15699, 0.0254, -0.0393914)
Part.ClearSelection2 True
Part.Parameter("D4@Sketch3").SystemValue = 0.0381
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc12", "SKETCHSEGMENT", 0.141875528692, 0.01407691661144, -0.0302973667118, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc11", "SKETCHSEGMENT", 0.1463585130084, 0.01407691661144, 0.0258039798754, True, 0, Nothing)
Part.SketchAddConstraints "sgSAMELENGTH"
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc12", "SKETCHSEGMENT", 0.141875528692, 0.01407691661144, -0.03119396357507, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line14", "SKETCHSEGMENT", 0.1518661794541, 0.01407691661144, 0.002236290898128, True, 0, Nothing)
Part.SketchAddConstraints "sgTANGENT"
boolstatus = Part.Extension.SelectByID("Arc11", "SKETCHSEGMENT", 0.1502010709938, 0.01407691661144, 0.01581332911329, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line14", "SKETCHSEGMENT", 0.1526346910512, 0.01407691661144, 0.002236290898128, True, 0, Nothing)
Part.SketchAddConstraints "sgTANGENT"
Part.ClearSelection2 True
Part.InsertSketch2 True
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.ViewRotateminusx
boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID("D9@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.06542449452675, 0.01606561697423, 0.06801920345019, False, 0, Nothing)
Part.Parameter("D9@Sketch1").SystemValue = 0.13335
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID("D9@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.06460179679234, 0.01606561697423, 0.06704340452882, False, 0, Nothing)
Part.Parameter("D9@Sketch1").SystemValue = 0.1524
Part.EditRebuild
Part.ClearSelection2 True
Part.EditRebuild
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D9@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.07310658008961, 0.01606561697423, 0.06912235155704, False, 0, Nothing)
Part.Parameter("D9@Sketch1").SystemValue = 0.1397
Part.EditRebuild
Part.ClearSelection2 True
Part.EditRebuild
Part.ViewRotateminusx
Part.ViewRotateminusx
Part.ViewRotateplusx
Part.ViewRotateplusx
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)
Part.InsertSketch2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D4@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.1577764226936, 0.01606561697423, 0.0005170996256839, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D3@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.1397, 0.001183857033771, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D3@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.1522955623465, 0.01606561697423, -0.001750842586923, False, 0, Nothing)
Part.Parameter("D3@Sketch1").SystemValue = 0.0700024
boolstatus = Part.Extension.SelectByID("D2@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.07518552711783, 0.01606561697423, 0.05532570309702, False, 0, Nothing)
Part.Parameter("D2@Sketch1").SystemValue = 0.0350012
boolstatus = Part.Extension.SelectByID("D5@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.0755635174866, 0.01606561697423, 0.04606493906221, False, 0, Nothing)
Part.Parameter("D5@Sketch1").SystemValue = 0.0381
boolstatus = Part.Extension.SelectByID("D4@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.1326400631705, 0.01606561697423, -0.0004278762962356, False, 0, Nothing)
Part.Parameter("D4@Sketch1").SystemValue = 0.0762
boolstatus = Part.Extension.SelectByID("D2@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.05817596052328, 0.01606561697423, 0.05627067901894, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D5@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.05666399904821, 0.01606561697423, 0.0649644575006, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.01621902959006, 0.01606561697423, 0.03056733394273, False, 0, Nothing)
Part.EditDelete
Part.CreateLine2 0, -0.0301625, 0, 0.02850371657501, -0.04228503537453, 0
Part.CreateLine2 0.02850371657501, -0.04228503537453, 0, 0.09106112260608, -0.04228503537453, 0
Part.CreateLine2 0, 0.0301625, 0, 0.02850371657501, 0.04257380241385, 0
Part.CreateLine2 0.02850371657501, 0.04257380241385, 0, 0.09691997332198, 0.04257380241385, 0
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.1035348047754, 0.01606561697423, -0.03047811061328, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Point20", "SKETCHPOINT", 0.1143, -0.0301625, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point17", "SKETCHPOINT", 0.1143, 0.0301625, 0, False, 0, Nothing)
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0.08595825262772, 0.01606561697423, 0.04190704500576, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0.09465203110938, 0.01606561697423, 0.0485218764592, True, 0, Nothing)
Part.SketchAddConstraints "sgTANGENT"
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.1020228433003, 0.01606561697423, -0.04710968683906, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line18", "SKETCHSEGMENT", 0.09011614668416, 0.01606561697423, -0.04351877833577, True, 0, Nothing)
Part.SketchAddConstraints "sgTANGENT"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0.03549653839721, 0.01606561697423, 0.04171804982138, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.0128862, 0, 0.0543807)
Part.ClearSelection2 True
Part.Parameter("D10@Sketch1").SystemValue = 0.04445
boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0.004690323342637, 0.01606561697423, -4.988592746781e-005, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line18", "SKETCHSEGMENT", 0.04759223019778, 0.01606561697423, -0.04238480722946, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.0130752, 0, -0.0204614)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D10@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D11@Sketch1").SystemValue = 0.04445
boolstatus = Part.Extension.SelectByID("D10@Sketch1@Housing-Top.SLDPRT", "DIMENSION", -0.02819483874016, 0.01606561697423, 0.05759364530962, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch1@Housing-Top.SLDPRT", "DIMENSION", -0.051252251235, 0.01606561697423, 0.02962235802081, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D10@Sketch1@Housing-Top.SLDPRT", "DIMENSION", -0.0172331180459, 0.01606561697423, 0.03529221355232, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0.01659701995882, 0.01606561697423, -0.0004278762962356, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0.005257308895789, 0.01606561697423, 0.0003281044413, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line15", "SKETCHSEGMENT", 0.01659701995882, 0.01606561697423, 0.03869412687123, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0.03247261544707, 0.01606561697423, 0.04436398240275, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line15", "SKETCHSEGMENT", 0.02169988993719, 0.01606561697423, 0.04171804982138, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.00286948, 0, 0.0371822)
Part.ClearSelection2 True
Part.Parameter("D12@Sketch1").SystemValue = 0.349066
boolstatus = Part.Extension.SelectByID("D12@Sketch1@Housing-Top.SLDPRT", "DIMENSION", -0.004948431060942, 0.01606561697423, 0.03774915094931, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D12@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.009037212583467, 0.01606561697423, 0.04984484274988, False, 0, Nothing)
Part.Parameter("D12@Sketch1").SystemValue = 0.392699
boolstatus = Part.Extension.SelectByID("D12@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.009037212583467, 0.01606561697423, 0.04984484274988, False, 0, Nothing)
Part.Parameter("D12@Sketch1").SystemValue = 0.436332
boolstatus = Part.Extension.SelectByID("Line18", "SKETCHSEGMENT", 0.03738649024105, 0.01606561697423, -0.04446375425769, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line17", "SKETCHSEGMENT", 0.01697501032759, 0.01606561697423, -0.03898289391055, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.000154439, 0, -0.0384159)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D12@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.009037212583467, 0.01606561697423, 0.04984484274988, False, 0, Nothing)
Part.Parameter("D13@Sketch1").SystemValue = 0.436332
boolstatus = Part.Extension.SelectByID("D13@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.0005324292861914, 0.01606561697423, -0.0384159083574, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D11@Sketch1@Housing-Top.SLDPRT", "DIMENSION", -0.01061828659246, 0.01606561697423, -0.02121734657847, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D10@Sketch1@Housing-Top.SLDPRT", "DIMENSION", -0.0125082384363, 0.01606561697423, 0.03359125689287, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D12@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.008092236661548, 0.01606561697423, 0.0496558475655, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D13@Sketch1@Housing-Top.SLDPRT", "DIMENSION", -0.02913981466208, 0.01606561697423, -0.03085610098204, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point6", "SKETCHPOINT", 0, -0.0301625, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point4", "SKETCHPOINT", 0, 0.0301625, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgVERTPOINTS"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D9@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.06781471492686, 0.01606561697423, 0.06817737563512, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D9@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.0638458160548, 0.01606561697423, 0.06931134674143, False, 0, Nothing)
Part.Parameter("D9@Sketch1").SystemValue = 0.1016
boolstatus = Part.Extension.SelectByID("D9@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.04891519648847, 0.01606561697423, 0.06798838045074, False, 0, Nothing)
Part.Parameter("D9@Sketch1").SystemValue = 0.0889
boolstatus = Part.Extension.SelectByID("D7@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.1150635110228, 0.01606561697423, -0.04994461460482, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D7@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.1112836073352, 0.01606561697423, -0.05126758089551, False, 0, Nothing)
Part.Parameter("D7@Sketch1").SystemValue = 0.01905
boolstatus = Part.Extension.SelectByID("D7@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.1124175784415, 0.01606561697423, -0.05353552310811, False, 0, Nothing)
Part.Parameter("D7@Sketch1").SystemValue = 0.0127
boolstatus = Part.Extension.SelectByID("D7@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.1109056169664, 0.01606561697423, -0.0559924605051, False, 0, Nothing)
Part.Parameter("D7@Sketch1").SystemValue = 0.01905
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D10@Sketch1@Housing-Top.SLDPRT", "DIMENSION", -0.02932880984647, 0.01606561697423, 0.05532570309702, False, 0, Nothing)
Part.Parameter("D10@Sketch1").SystemValue = 0.04572
boolstatus = Part.Extension.SelectByID("D11@Sketch1@Housing-Top.SLDPRT", "DIMENSION", -0.02346995913056, 0.01606561697423, -0.05088959052674, False, 0, Nothing)
Part.Parameter("D11@Sketch1").SystemValue = 0.04572
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D2@Sketch3@Housing-Top.SLDPRT", "DIMENSION", 0.05553002794191, 0.01606561697423, 0.05022283311865, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("D1@Sketch3@Housing-Top.SLDPRT", "DIMENSION", 0.05609701349506, 0.01606561697423, -0.05391351347688, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0.04097739874435, 0, 0.04285202092768, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line15", "SKETCHSEGMENT", 0.03984342763804, 0, -0.04257380241385, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05458505201999, 0, 0.04587594387782, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0.05364007609807, 0.01606561697423, 0.0543807271751, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0532621, 0.0254, 0.0700673)
Part.ClearSelection2 True
Part.Parameter("D1@Sketch3").SystemValue = 0.0127
boolstatus = Part.Extension.SelectByID("D1@Sketch3@Housing-Top.SLDPRT", "DIMENSION", 0.04116639392873, 0.01606561697423, 0.07838311559185, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.04910419167286, 0, -0.04616471091714, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line15", "SKETCHSEGMENT", 0.052128114623, 0.01606561697423, -0.05504748458318, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.056853, 0.0254, -0.0682771)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D1@Sketch3@Housing-Top.SLDPRT", "DIMENSION", 0.04116639392873, 0.01606561697423, 0.07838311559185, False, 0, Nothing)
Part.Parameter("D2@Sketch3").SystemValue = 0.0127
boolstatus = Part.Extension.SelectByID("D2@Sketch3@Housing-Top.SLDPRT", "DIMENSION", 0.04645825909148, 0.01606561697423, -0.07621494523418, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc15", "SKETCHSEGMENT", 0.009793193321003, 0.01606561697423, 0.05116780904057, False, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.020257, 0.0254, 0.0662874)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D2@Sketch3@Housing-Top.SLDPRT", "DIMENSION", 0.04645825909148, 0.01606561697423, -0.07621494523418, False, 0, Nothing)
' MSGBOX
' The sketch is no longer over defined.

boolstatus = Part.Extension.SelectByID("Arc15", "SKETCHSEGMENT", 0.002989366683182, 0.01606561697423, 0.04398599203398, False, 0, Nothing)
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc15", "SKETCHSEGMENT", 0.004690323342637, 0.01606561697423, 0.04644292943097, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Arc14", "SKETCHSEGMENT", 0.005257308895789, 0.01606561697423, -0.04748767720783, False, 0, Nothing)
Part.EditDelete
Part.CreateLine2 0, 0.0301625, 0, 0, 0.05842, 0
Part.CreateLine2 0, -0.0301625, 0, 0, -0.05842, 0
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point53", "SKETCHPOINT", -0.0282575, 0.05842, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point49", "SKETCHPOINT", -0.0282575, -0.05842, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point75", "SKETCHPOINT", 0, 0.05842, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point79", "SKETCHPOINT", 0, 0.05842, 0, False, 1, Nothing)
Part.SketchFillet2 0.003175, 2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point76", "SKETCHPOINT", 0, -0.05842, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point82", "SKETCHPOINT", 0, -0.05842, 0, False, 1, Nothing)
Part.SketchFillet2 0.003175, 2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D5@Sketch3@Housing-Top.SLDPRT", "DIMENSION", -0.002113503295183, 0.01606561697423, 0.05891661160031, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("D4@Sketch3@Housing-Top.SLDPRT", "DIMENSION", 0.1226233183982, 0.01606561697423, -0.0559924605051, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Arc18", "SKETCHSEGMENT", 0.001099414839343, 0.01606561697423, 0.05721565494086, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc11", "SKETCHSEGMENT", 0.08992715149978, 0.01606561697423, 0.05494771272825, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc12", "SKETCHSEGMENT", 0.1059917421724, 0.01606561697423, -0.04389676870453, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc19", "SKETCHSEGMENT", 0.001288410023727, 0.01606561697423, -0.05788241234894, True, 0, Nothing)
Part.SketchAddConstraints "sgSAMELENGTH"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc11", "SKETCHSEGMENT", 0.09540801184691, 0.01606561697423, 0.05381374162195, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.131128, 0.0254, 0.0594836)
Part.ClearSelection2 True
Part.Parameter("D4@Sketch3").SystemValue = 0.0254
boolstatus = Part.Extension.SelectByID("D4@Sketch3@Housing-Top.SLDPRT", "DIMENSION", 0.1347190101988, 0.01606561697423, 0.0649644575006, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch3@Housing-Top.SLDPRT", "DIMENSION", 0.04248936021942, 0.01606561697423, 0.07176828413842, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("D2@Sketch3@Housing-Top.SLDPRT", "DIMENSION", 0.04664725427586, 0.01606561697423, -0.07111207525582, False, 0, Nothing)
Part.EditDelete
Part.CreateLine2( -0.0254, -0.05842, 0, -0.0889, 0.05842, 0 ).ConstructionGeometry = TRUE
Part.CreateLine2( -0.05715, 0, 0, 0, 0, 0 ).ConstructionGeometry = TRUE
Part.DeSelectByID "Line29", "SKETCHSEGMENT", -0.01130515479607, 0, 0
boolstatus = Part.Extension.SelectByID("Line29", "SKETCHSEGMENT", 0.01414008256183, 0.01606561697423, 0.0001391092569161, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0.04419031687887, 0.01606561697423, 0.05872761641593, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line15", "SKETCHSEGMENT", 0.05458505201999, 0.01606561697423, -0.05807140753333, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.0285728, 0.0254, 0.00108409)
Part.ClearSelection2 True
Part.Parameter("D1@Sketch3").SystemValue = 0.1143
boolstatus = Part.Extension.SelectByID("D3@Sketch3@Housing-Top.SLDPRT", "DIMENSION", 0.09880992516582, 0.01606561697423, -0.0002388811118517, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Point3", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line14", "SKETCHSEGMENT", 0.1143075302853, 0.01606561697423, 0.002974037022675, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0623339, 0.0254, -0.075648)
Part.ClearSelection2 True
Part.Parameter("D2@Sketch3").SystemValue = 0.1143
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line14", "SKETCHSEGMENT", 0.1146855206541, 0.01606561697423, 0.001462075547603, False, 0, Nothing)
Part.DeSelectByID "Line14", "SKETCHSEGMENT", -0.1145286724959, 0.0016684780715, 0
boolstatus = Part.Extension.SelectByID("Line14", "SKETCHSEGMENT", 0.1148745158385, 0.01606561697423, 0.001651070731987, True, 0, Nothing)
Part.SketchAddConstraints "sgVERTICAL"
boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0.06762571974248, 0.01606561697423, 0.05740465012524, True, 0, Nothing)
Part.SketchAddConstraints "sgHORIZONTAL"
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Fillet1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fillet1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
' MSGBOX
' Fillet1 is missing 1 edge.

boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01173647267126, 0.03152150823405, 0.05341058566398, True, 1, Nothing)
Part.ClearSelection2 True
Part.ShowNamedView2 "*Bottom", 6
boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch6", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D4@Sketch6@Housing-Top.SLDPRT", "DIMENSION", 0.0606915851272, 0.015875, -0.05616829745597, False, 0, Nothing)
Part.Parameter("D4@Sketch6").SystemValue = 0.0762
boolstatus = Part.Extension.SelectByID("D4@Sketch6@Housing-Top.SLDPRT", "DIMENSION", 0.03546555772994, 0.015875, -0.05405577299413, False, 0, Nothing)
Part.Parameter("D4@Sketch6").SystemValue = 0.07874
boolstatus = Part.Extension.SelectByID("D5@Sketch6@Housing-Top.SLDPRT", "DIMENSION", 0.008748336594912, 0.015875, 0.01043835616438, False, 0, Nothing)
Part.Parameter("D5@Sketch6").SystemValue = 0.0381
boolstatus = Part.Extension.SelectByID("D5@Sketch6@Housing-Top.SLDPRT", "DIMENSION", 0.009990998043053, 0.015875, 0.01727299412916, False, 0, Nothing)
Part.Parameter("D5@Sketch6").SystemValue = 0.04064
Part.ClearSelection2 True
Part.InsertSketch2 True
Part.Save2 FALSE
Part.ViewRotateplusx
Part.ViewRotateminusx
Part.ViewRotateminusx
Part.ViewRotateplusx
Part.ViewRotateplusy
Part.ShowNamedView2 "*Bottom", 6
boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D1@Sketch3@Housing-Top.SLDPRT", "DIMENSION", -0.03086978885256, -0.1788705232561, -0.0004059493221098, False, 0, Nothing)
Part.Parameter("D1@Sketch3").SystemValue = 0.10795
Part.ClearSelection2 True
Part.EditUndo 1
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.03526121760362, -0.0001223954204193, 0.02568930890996, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.03649187203092, -0.0001313382439321, 0.03800549769076, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.04410354925923, 5.359462301158e-005, 0.0405232080777, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07640747115141, -1.062090456116e-005, 0.0393380336659, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07889125533151, 6.196134785341e-005, 0.02554742483704, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "POINTREF", 0.07688012806053, 0, -0.03878012806053, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07803057043242, -0.0001016240464082, -0.0367863403329, True, 0, Nothing)
Part.DeSelectByID "Unknown", "POINTREF", 0.07688012806053, 0, -0.03878012806053
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.06849332039675, -3.862787025355e-005, -0.04055582321152, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "POINTREF", 0.03741987193947, 0.00127, -0.03878012806053, True, 0, Nothing)
Part.DeSelectByID "Unknown", "POINTREF", 0.03741987193947, 0.00127, -0.03878012806053
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.03684632459755, 2.373527411237e-005, -0.03764696212113, True, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Cut-Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Cut-Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch6", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("D4@Sketch6@Housing-Top.SLDPRT", "DIMENSION", 0.02147475963367, 0.04703284367282, -0.03265965734344, False, 0, Nothing)
Part.ShowNamedView2 "*Front", 1
Part.ShowNamedView2 "*Bottom", 6
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "U", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "Us", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "Use", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "Use ", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "Use -", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "Use -0", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "Use -04", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "Use -041", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "Use -041 ", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "Use -041 O", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "Use -041 O-", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "Use -041 O-r", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "Use -041 O-ri", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "Use -041 O-rin", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "Use -041 O-ring", 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D4@Sketch6@Housing-Top.SLDPRT", "DIMENSION", 0.03511797412791, 0.01305748127803, -0.06698072842581, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Arc18", "SKETCHSEGMENT", 0.005067873144752, 0.01305748127803, 0.0464619972953, False, 0, Nothing)
Part.SketchConstraintsDel 2, "sgSAMELENGTH"
Part.SketchConstraintsDel 2, "sgSAMELENGTH"
boolstatus = Part.Extension.SelectByID("Arc19", "SKETCHSEGMENT", 0.002048485007689, 0.01305748127803, -0.04253806255434, False, 0, Nothing)
Part.SketchConstraintsDel 2, "sgSAMELENGTH"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc18", "SKETCHSEGMENT", 0.008949943606692, 0.01305748127803, 0.05163809124455, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc19", "SKETCHSEGMENT", 0.005355433919711, 0.01305748127803, -0.04728281534116, True, 0, Nothing)
Part.SketchAddConstraints "sgSAMELENGTH"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc18", "SKETCHSEGMENT", 0.005642994694669, 0.01305748127803, 0.04789980117009, False, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.0180808, 0.0254, 0.0668788)
Part.ClearSelection2 True
Part.Parameter("D3@Sketch3").SystemValue = 0.01905
boolstatus = Part.Extension.SelectByID("D3@Sketch3@Housing-Top.SLDPRT", "DIMENSION", -0.01779320846444, 0.01305748127803, 0.06874795735458, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch3@Housing-Top.SLDPRT", "DIMENSION", -0.03490307457447, 0.01305748127803, 0.00174629678926, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch3@Housing-Top.SLDPRT", "DIMENSION", -0.02900807868782, 0.01305748127803, 0.0007398340769052, False, 0, Nothing)
Part.Parameter("D1@Sketch3").SystemValue = 0.10795
boolstatus = Part.Extension.SelectByID("D3@Sketch3@Housing-Top.SLDPRT", "DIMENSION", -0.02038125543907, 0.01305748127803, 0.06429076534272, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D3@Sketch3@Housing-Top.SLDPRT", "DIMENSION", -0.0187996711768, 0.01305748127803, 0.06500966728012, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D4@Sketch3@Housing-Top.SLDPRT", "DIMENSION", 0.1277125436645, 0.01305748127803, 0.05077540891967, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D4@Sketch3@Housing-Top.SLDPRT", "DIMENSION", 0.1282876652144, 0.01305748127803, 0.0526445539569, False, 0, Nothing)
Part.Parameter("D4@Sketch3").SystemValue = 0.0381
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D4@Sketch3@Housing-Top.SLDPRT", "DIMENSION", 0.1294379083143, 0.01305748127803, 0.04631821690782, False, 0, Nothing)
Part.Parameter("D4@Sketch3").SystemValue = 0.0508
Part.EditRebuild
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
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.ActivateSelectedFeature
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ClearSelection2 True
Part.ShowNamedView2 "*Isometric", 7
Part.ShowNamedView2 "*Bottom", 6
boolstatus = Part.Extension.SelectByID("", "FACE", 0.02704652641879, 0, 0.03520874103066, False, 0, Nothing)
Part.ClearSelection2 True
Part.CreateCircle 0.02845487606001, 0.03708654055229, 0, 0.02939377582083, 0.03556082844097, 0
Part.ClearSelection2 True
Part.CreateCircle 0.08443677429876, 0.0322746792781, 0, 0.08537567405958, 0.03063160469667, 0
Part.ClearSelection2 True
Part.CreateCircle 0.08443677429876, -0.02981006740596, 0, 0.08561039899978, -0.03110105457708, 0
Part.ClearSelection2 True
Part.CreateCircle 0.03138893781257, -0.02981006740596, 0, 0.02974586323114, -0.03051424222657, 0
Part.ClearSelection2 True
Part.SketchRectangle 0.03232783757339, 0.04060741465536, 0, 0.08244161230702, -0.03673445314199, 0, 1
Part.ClearSelection2 True
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.03197575016308, 0, 0.03544346597086, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.03432299956512, 0, 0.04072477712546, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.08220688736682, 0, 0.01326195912155, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.06026010545771, 0.01904999999999, -0.03649972820178, True, 0, Nothing)
Part.ClearSelection2 True
Part.CreateLine2( 0.03232783757339, 0.04060741465536, 0, 0.08244161230702, -0.03673445314199, 0 ).ConstructionGeometry = TRUE
Part.CreateLine2( 0.0573847249402, 0.001936480756686, 0, 0, 0, 0 ).ConstructionGeometry = TRUE
Part.SketchAddConstraints "sgHORIZONTAL"
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.02845487606001, 0.03708654055229, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point4", "SKETCHPOINT", 0.08443677429876, 0.0322746792781, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point6", "SKETCHPOINT", 0.08443677429876, -0.02981006740596, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point8", "SKETCHPOINT", 0.03138893781257, -0.02981006740596, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.08255897477713, 0.015875, 0.03849489019352, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.109787, 0, 0.0472971)
Part.ClearSelection2 True
Part.Parameter("D1@Sketch7").SystemValue = 0.0032512
boolstatus = Part.Extension.SelectByID("D1@Sketch7@Housing-Top.SLDPRT", "DIMENSION", 0.1049752065666, 0.015875, 0.04659290063057, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.08220688736682, 0.015875, 0.03896434007393, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.03244520004349, 0.015875, 0.03849489019352, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc4", "SKETCHSEGMENT", 0.03267992498369, 0.015875, -0.04119422700587, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0.08009436290498, 0.015875, -0.04131158947597, True, 0, Nothing)
Part.SketchAddConstraints "sgSAMELENGTH"
Part.SketchAddConstraints "sgSAMELENGTH"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.0813853500761, 0.015875, 0.00856746031746, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.120819, 0, -0.000117362)
Part.ClearSelection2 True
Part.Parameter("D2@Sketch7").SystemValue = 0.0762
boolstatus = Part.Extension.SelectByID("Point14", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.03549662426614, 0, -0.00375559904327, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0140193, 0, -0.00715911)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D2@Sketch7@Housing-Top.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D3@Sketch7").SystemValue = 0.03048
boolstatus = Part.Extension.SelectByID("D3@Sketch7@Housing-Top.SLDPRT", "DIMENSION", 0.01425401717765, 0.015875, -0.007980647966949, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point14", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.07657348880191, 0, 0.003520874103066, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.046294, 0, -0.0190127)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D3@Sketch7@Housing-Top.SLDPRT", "DIMENSION", 0.01425401717765, 0.015875, -0.007980647966949, False, 0, Nothing)
Part.Parameter("D4@Sketch7").SystemValue = 0.07874
boolstatus = Part.Extension.SelectByID("D4@Sketch7@Housing-Top.SLDPRT", "DIMENSION", 0.05004957055882, 0.015875, -0.01948217003696, False, 0, Nothing)
Part.Parameter("D4@Sketch7").SystemValue = 0.08382
boolstatus = Part.Extension.SelectByID("D2@Sketch7@Housing-Top.SLDPRT", "DIMENSION", 0.1198802402696, 0.015875, -0.0002347249402044, False, 0, Nothing)
Part.Parameter("D2@Sketch7").SystemValue = 0.07112
boolstatus = Part.Extension.SelectByID("D2@Sketch7@Housing-Top.SLDPRT", "DIMENSION", 0.1201149652098, 0.015875, -0.0001173624701022, False, 0, Nothing)
Part.Parameter("D2@Sketch7").SystemValue = 0.0635
boolstatus = Part.Extension.SelectByID("D3@Sketch7@Housing-Top.SLDPRT", "DIMENSION", 0.01202413024571, 0.015875, -0.006572298325723, False, 0, Nothing)
Part.Parameter("D3@Sketch7").SystemValue = 0.0254
Part.ClearSelection2 True
Part.EditUndo 1
boolstatus = Part.Extension.SelectByID("D1@Sketch7@Housing-Top.SLDPRT", "DIMENSION", 0.1171809034573, 0.015875, 0.03990323983475, False, 0, Nothing)
Part.Parameter("D1@Sketch7").SystemValue = 0.0040386
boolstatus = Part.Extension.SelectByID("D1@Sketch7@Housing-Top.SLDPRT", "DIMENSION", 0.1126037671233, 0.015875, 0.04095950206567, False, 0, Nothing)
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4<MOD-DIAM>", "", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4@<MOD-DIAM>", "", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4<MOD-DIAM>", "", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X<MOD-DIAM>", "", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.7", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "t", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "ta", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "tap", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "tap ", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "tap 1", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "tap 10", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "tap 10-", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "tap 10-3", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "tap 10-32", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "tap 10-32 ", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "tap 10-32 U", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "tap 10-32 UN", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "tap 10-32 UNF", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "tap 10-32 UNF-", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "tap 10-32 UNF-2", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "tap 10-32 UNF-2B", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "tap 10-32 UNF-2B<HOLE-DEPTH>", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "tap 10-32 UNF-2B<HOLE-DEPTH>", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "tap 10-32 UNF-2B<HOLE-DEPTH>.", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "tap 10-32 UNF-2B<HOLE-DEPTH>.5", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "<HOLE-DEPTH>.75", 1,"", "tap 10-32 UNF-2B<HOLE-DEPTH>.50", 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D1@Sketch7@Housing-Top.SLDPRT", "DIMENSION", 0.1089655305501, 0.015875, 0.04166367688628, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D4@Sketch7@Housing-Top.SLDPRT", "DIMENSION", 0.05274890737117, 0.015875, -0.01959953250707, False, 0, Nothing)
Part.Parameter("D4@Sketch7").SystemValue = 0.08509
boolstatus = Part.Extension.SelectByID("D3@Sketch7@Housing-Top.SLDPRT", "DIMENSION", 0.0063907316808, 0.015875, -0.006220210915416, False, 0, Nothing)
Part.Parameter("D3@Sketch7").SystemValue = 0.02921
boolstatus = Part.Extension.SelectByID("D3@Sketch7@Housing-Top.SLDPRT", "DIMENSION", 0.01096786801479, 0.015875, -0.007628560556643, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D2@Sketch7@Housing-Top.SLDPRT", "DIMENSION", 0.121405952381, 0.015875, -0.0003520874103066, False, 0, Nothing)
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " ", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " O", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " O.", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " O.C", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " O.Cp", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " O.Cpo", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " O.Cp", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " O.C", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " O.", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " O", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " ", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " C", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " ", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " O", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " OC", 1,"", "", 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D2@Sketch7@Housing-Top.SLDPRT", "DIMENSION", 0.1209365025005, 0.015875, 0.0002347249402044, False, 0, Nothing)
Part.ClearSelection2 True
Part.ClearSelection2 True
Part.FeatureManager.FeatureCut True, False, False, 0, 0, 0.01905, 0.00127, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ShowNamedView2 "*Front", 1
Part.ShowNamedView2 "*Bottom", 6
boolstatus = Part.Extension.SelectByID("D9@Sketch1@Housing-Top.SLDPRT", "DIMENSION", 0.0398560701853, 0.01446682972204, 0.0690745663891, False, 0, Nothing)
Part.Parameter("D9@Sketch1").SystemValue = 0.09144
Part.EditRebuild
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D4@Sketch3@Housing-Top.SLDPRT", "DIMENSION", 0.1257684735343, 0.01446682972204, 0.0408793761008, False, 0, Nothing)
Part.Parameter("D4@Sketch3").SystemValue = 0.0381
Part.EditRebuild
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.05727074653983, 0.01904999999999, 0.01998176447536, False, 0, Nothing)
Part.ClearSelection2 True
Part.SketchRectangle 0.04118290266945, 0.03341594337743, 0, 0.07302688228917, -0.03408665925395, 0, 1
Part.SetPickMode
Part.ClearSelection2 True
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.ClearSelection2 True
Part.CreateCircle 0.04118290266945, 0.03341594337743, 0, 0.04367071357724, 0.03275252713536, 0
Part.ClearSelection2 True
Part.CreateCircle 0.07302688228917, 0.03341594337743, 0, 0.07369029853125, 0.03159154871172, 0
Part.ClearSelection2 True
Part.CreateCircle 0.07302688228917, -0.03408665925395, 0, 0.06871467671567, -0.03143299428564, 0
Part.ClearSelection2 True
Part.CreateCircle 0.04118290266945, -0.03408665925395, 0, 0.04582681636399, -0.0319305564672, 0
Part.ClearSelection2 True
Part.CreateLine2( 0.04118290266945, 0.03341594337743, 0, 0.07302688228917, -0.03408665925395, 0 ).ConstructionGeometry = TRUE
Part.CreateLine2( 0.05710489247931, -0.0003353579382575, 0, 0, 0, 0 ).ConstructionGeometry = TRUE
Part.EditDelete
Part.CreateLine2( 0.07553088276897, 0.03687466062385, 0, 0.04748535696919, -0.02612566434902, 0 ).ConstructionGeometry = TRUE
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.03919265394322, 0.01446682972204, 0.0322549649538, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.07418786071281, 0.01446682972204, 0.03540619210367, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0.07468542289436, 0.01446682972204, -0.02877932931733, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc4", "SKETCHSEGMENT", 0.0449975460614, 0.01446682972204, -0.03060372398304, True, 0, Nothing)
Part.SketchAddConstraints "sgSAMELENGTH"
Part.ClearSelection2 True
Part.CreateLine2( 0.05710489247931, -0.0003353579382575, 0, 0, 0, 0 ).ConstructionGeometry = TRUE
Part.SketchAddConstraints "sgHORIZONTAL"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.07767079598371, 0.01446682972204, 0.03159154871172, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.109681, 0.01905, 0.054977)
Part.ClearSelection2 True
' MSGBOX
' Please enter a number between 0.00000394 and 393700.78740157

Part.Parameter("D1@Sketch8").SystemValue = 0.0022606
boolstatus = Part.Extension.SelectByID("D1@Sketch8@Housing-Top.SLDPRT", "DIMENSION", 0.1048708619089, 0.01446682972204, 0.05215745221612, False, 0, Nothing)
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-SINK>", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-SINK>", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-SINK>.", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-SINK>", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-SINK", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-SIN", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-SI", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-S", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOL", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HO", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<H", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.0", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.3", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "t", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "ta", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "tap", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "tap ", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "tap 4", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "tap 4-", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "tap 4-4", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "tap 4-40", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "tap 4-40 ", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "tap 4-40 U", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "tap 4-40 UN", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "tap 4-40 UNC", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "tap 4-40 UNC-", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "tap 4-40 UNC-2", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "tap 4-40 UNC-2B", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "tap 4-40 UNC-2B ", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "tap 4-40 UNC-2B <HOLE-DEPTH>", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "tap 4-40 UNC-2B <HOLE-DEPTH>", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "tap 4-40 UNC-2B <HOLE-DEPTH>.", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "tap 4-40 UNC-2B <HOLE-DEPTH>.2", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "tap 4-40 UNC-2B <HOLE-DEPTH>.25", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "tap 4-40 UNC-2B <HOLE-DEPTH>.25", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X<MOD-DIAM>", "<HOLE-DEPTH>.35", 1,"", "tap 4-40 UNC-2B <HOLE-DEPTH>.25", 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D1@Sketch8@Housing-Top.SLDPRT", "DIMENSION", 0.09890011573019, 0.01446682972204, 0.05248916033716, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D1@Sketch8@Housing-Top.SLDPRT", "DIMENSION", 0.09890011573019, 0.01446682972204, 0.05248916033716, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.07302688228917, 0.01446682972204, 0.002235379999793, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.128256, 0.01905, -0.000252431)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D1@Sketch8@Housing-Top.SLDPRT", "DIMENSION", 0.09890011573019, 0.01446682972204, 0.05248916033716, False, 0, Nothing)
Part.Parameter("D2@Sketch8").SystemValue = 0.0635
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.06158295211333, 0.01446682972204, -0.03226226458823, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0595927, 0.01905, -0.0639404)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D2@Sketch8@Housing-Top.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D3@Sketch8").SystemValue = 0.0254
Part.ClearSelection2 True
Part.CreateLine2( 0.04531834234074, -0.01020367453916, 0, 0.07071834234074, -0.01020367453916, 0 ).ConstructionGeometry = TRUE
boolstatus = Part.Extension.SelectByID("Point17", "SKETCHPOINT", 0.05801834234074, 0, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgATMIDDLE"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D3@Sketch8@Housing-Top.SLDPRT", "DIMENSION", 0.05627562217671, 0.01446682972204, -0.06460380638951, False, 0, Nothing)
Part.Parameter("D3@Sketch8").SystemValue = 0.03048
boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0.06722199017099, 0.01904999999999, 7.92772130409e-005, False, 0, Nothing)
Part.EditDelete
Part.CreateLine2( 0.0381, -0.00755000957085, 0, 0.0762, -0.00755000957085, 0 ).ConstructionGeometry = TRUE
boolstatus = Part.Extension.SelectByID("Point17", "SKETCHPOINT", 0.05801834234074, 0, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgATMIDDLE"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D3@Sketch8@Housing-Top.SLDPRT", "DIMENSION", 0.05693903841879, 0.01446682972204, -0.06559893075263, False, 0, Nothing)
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " ", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " ?", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " ??", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " ???", 1,"", "", 0
boolstatus = Part.Extension.SelectByID("D2@Sketch8@Housing-Top.SLDPRT", "DIMENSION", 0.1280904303816, 0.01446682972204, -0.0007499930895559, False, 0, Nothing)
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " ", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " ?", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " ??", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " ???", 1,"", "", 0
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Sketch8", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch8", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.FeatureManager.FeatureCut True, False, False, 0, 0, 0.00889, 0.01905, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection2 True
Part.Save2 FALSE
Part.ShowNamedView2 "*Bottom", 6
boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ViewZoomtofit2
Part.ClearSelection2 True
Part.Save2 FALSE
swApp.LoadFile2 "C:\Program Files\SolidWorks2004\data\templates\j04.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\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.CreateCircle 0, 0, 0, 0.01468204500978, 0.009717612524462, 0
Part.ClearSelection2 True
Part.SketchRectangle 0, 0.03126536203523, 0, 0.09770425636008, -0.03929295499022, 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.01341453033268, 0.01225264187867
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 0, -0.0009506360078278, 0.01077387475538
Part.CreateLine2( 0, 0.03126536203523, 0, 0.09770425636008, -0.03929295499022, 0 ).ConstructionGeometry = TRUE
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.01193576320939, 0, -0.03147661448141, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.02925846379648, 0, 0.03887045009785, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.0613688, 0, 0.00380254)
Part.ClearSelection2 True
Part.Parameter("D1@Sketch1").SystemValue = 0.10795
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.04320112524462, 0, 0.03865919765166, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0480599, 0, 0.0811209)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part3.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D2@Sketch1").SystemValue = 0.1143
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.01721707436399, 0, 0.004647553816047, False, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.0389761, 0, -0.0259841)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part3.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D3@Sketch1").SystemValue = 0.0301625
boolstatus = Part.Extension.SelectByID("D3@Sketch1@Part3.SLDPRT", "DIMENSION", -0.04763742661448, 0, -0.03337788649706, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point4", "SKETCHPOINT", 0, 0.05610120394454, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point12", "SKETCHPOINT", 0, 0.05610120394454, 0, False, 1, Nothing)
Part.SketchFillet2 0.01905, 2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point6", "SKETCHPOINT", 0, -0.05184879605546, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point16", "SKETCHPOINT", 0, -0.05184879605546, 0, False, 1, Nothing)
Part.SketchFillet2 0.01905, 1
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point7", "SKETCHPOINT", 0.1143, 0.05610120394454, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point19", "SKETCHPOINT", 0.1143, 0.05610120394454, 0, False, 1, Nothing)
Part.SketchFillet2 0.0381, 2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point5", "SKETCHPOINT", 0.1143, -0.05184879605546, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point23", "SKETCHPOINT", 0.1143, -0.05184879605546, 0, False, 1, Nothing)
Part.SketchFillet2 0.0381, 1
Part.ClearSelection2 True
Part.CreateLine2( 0.1143, 0.002126203944544, 0, 0, 0, 0 ).ConstructionGeometry = TRUE
Part.SketchAddConstraints "sgHORIZONTAL"
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.000105626223092, 0, -0.03253287671233, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0, 0, 0, True, 0, Nothing)
Part.DeSelectByID "Line7", "SKETCHSEGMENT", 0.04721492172211, 0, 0
boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0.000105626223092, 0, 0.03358913894325, True, 0, Nothing)
Part.DeSelectByID "Line5", "SKETCHSEGMENT", 0, -0.03189911937378, 0
Part.SketchAddConstraints "sgCOINCIDENT"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D3@Sketch1@Part3.SLDPRT", "DIMENSION", -0.04087734833659, 0, -0.02028023483366, False, 0, Nothing)
Part.ShowNamedView2 "*Trimetric", 8
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D3@Sketch1@Part3.SLDPRT", "DIMENSION", -0.04087734833659, 0, -0.02028023483366, False, 0, Nothing)
Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.03175, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.05511469889706, 0.03174999999993, 0.01016933553024, False, 0, Nothing)
Part.ShowNamedView2 "*Top", 5
boolstatus = Part.Extension.SelectByID("", "FACE", 0.0331493748641, 0.03174999999999, -0.02992742987606, False, 0, Nothing)
Part.InsertSketch2 True
boolstatus = Part.SketchUseEdge2(False)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", -0.0001815666449228, 0.03174999999999, -0.03321357903892, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc17", "SKETCHSEGMENT", 0.01484082952816, 0.03174999999999, -0.02593710589259, True, 0, Nothing)
Part.DeSelectByID "Arc17", "SKETCHSEGMENT", -0.002773240026411, -0.03003473898681, 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", -0.0001815666449228, 0.03174999999999, -0.03321357903892, False, 1, Nothing)
boolstatus = Part.SketchOffset2 (-0.00635, 0, 1)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D2@Sketch2@Part3.SLDPRT", "DIMENSION", 0.04711550880626, 0.015875, -0.05140476190476, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc24", "SKETCHSEGMENT", 0.01425401717765, 0.03174999999999, -0.03344830397913, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Point63", "SKETCHPOINT", -0.00639133065148, -0.03594876282647, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 5.315829528159e-005, 0.03174999999999, -0.03333094150902, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Arc16", "SKETCHSEGMENT", 0.001109420526201, 0.03174999999999, -0.04095950206567, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Line20", "SKETCHSEGMENT", 0.02364301478582, 0.03174999999999, -0.05422146118721, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Arc20", "SKETCHSEGMENT", 0.08197216242661, 0.03174999999999, -0.0532825614264, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", 0.1144815666449, 0.03174999999999, 0.004107686453577, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Arc19", "SKETCHSEGMENT", 0.1102565177212, 0.03174999999999, 0.03262676668841, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Line18", "SKETCHSEGMENT", 0.05814758099587, 0.03174999999999, 0.05375201130681, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Arc18", "SKETCHSEGMENT", 0.01214149271581, 0.03174999999999, 0.05234366166558, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Line17", "SKETCHSEGMENT", 5.315829528159e-005, 0.03174999999999, 0.03262676668841, False, 0, Nothing)
Part.EditDelete
Part.CreateLine2 -0.006356370648484, -0.03532721124591, 0, 0.005580240269624, -0.03532721124591, 0
Part.CreateLine2 0.005580240269624, -0.03532721124591, 0, 0.005580240269624, 0.03594876282647, 0
Part.CreateLine2 0.005580240269624, 0.03594876282647, 0, -0.00639133065148, 0.03594876282647, 0
boolstatus = Part.Extension.SelectByID("Arc23", "SKETCHSEGMENT", 0.0063907316808, 0.015875, 0.03837752772342, True, 0, Nothing)
Part.DeSelectByID "Line26", "SKETCHSEGMENT", 0.002294091106762, 0.03594876282647, 0
boolstatus = Part.Extension.SelectByID("Line26", "SKETCHSEGMENT", -0.002294091106762, 0.015875, 0.03579555338117, True, 0, Nothing)
Part.DeSelectByID "Arc23", "SKETCHSEGMENT", -0.008071170779979, 0.04130898848351, 0
boolstatus = Part.Extension.SelectByID("Point53", "SKETCHPOINT", -0.01905, 0.034925, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgCOINCIDENT"
boolstatus = Part.Extension.SelectByID("Point51", "SKETCHPOINT", -0.01905, -0.034925, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc25", "SKETCHSEGMENT", 0.00744699391172, 0.015875, -0.03908170254403, True, 0, Nothing)
Part.DeSelectByID "Arc25", "SKETCHSEGMENT", -0.007132961058844, -0.0391942028003, 0
boolstatus = Part.Extension.SelectByID("Line24", "SKETCHSEGMENT", 0.001696232876712, 0.015875, -0.03473929115025, True, 0, Nothing)
Part.SketchAddConstraints "sgCOINCIDENT"
boolstatus = Part.Extension.SelectByID("Point52", "SKETCHPOINT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", -0.005697602739726, 0.015875, 0.0004694498804088, True, 0, Nothing)
Part.SketchAddConstraints "sgCOINCIDENT"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", 0.1075571809089, 0.015875, 0.003403511632964, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1141294792346, 0.03174999999999, 0.001408349641226, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.124809, 0.03175, 0.00117362)
Part.ClearSelection2 True
Part.Parameter("D2@Sketch2").SystemValue = 0.00635
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line21", "SKETCHSEGMENT", 0.07246580234834, 0.015875, -0.0478838878017, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line21", "SKETCHSEGMENT", 0.0332667373342, 0.03174999999999, -0.04764916286149, False, 0, Nothing)
Part.DeSelectByID "Line21", "SKETCHSEGMENT", -0.05650450641444, -0.04753180039139, 0
boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", 0.1077919058491, 0.015875, -0.01208833442053, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc21", "SKETCHSEGMENT", 0.1068530060883, 0.015875, -0.02218150684932, True, 0, Nothing)
Part.SketchAddConstraints "sgTANGENT"
boolstatus = Part.Extension.SelectByID("Line21", "SKETCHSEGMENT", 0.0653066916721, 0.015875, -0.04741443792129, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc21", "SKETCHSEGMENT", 0.08220688736682, 0.015875, -0.04694498804088, True, 0, Nothing)
Part.SketchAddConstraints "sgTANGENT"
boolstatus = Part.Extension.SelectByID("Arc25", "SKETCHSEGMENT", 0.0117894053055, 0.015875, -0.04459773863883, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line21", "SKETCHSEGMENT", 0.02352565231572, 0.015875, -0.04729707545119, True, 0, Nothing)
Part.SketchAddConstraints "sgTANGENT"
boolstatus = Part.Extension.SelectByID("Arc23", "SKETCHSEGMENT", 0.00850325614264, 0.015875, 0.04189840182648, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0.03936958577952, 0.015875, 0.0480012502718, True, 0, Nothing)
Part.SketchAddConstraints "sgTANGENT"
boolstatus = Part.Extension.SelectByID("Arc22", "SKETCHSEGMENT", 0.08361523700805, 0.015875, 0.04729707545119, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0.07176162752772, 0.015875, 0.0480012502718, True, 0, Nothing)
Part.SketchAddConstraints "sgTANGENT"
boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", 0.1080266307893, 0.015875, 0.01021053489889, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc22", "SKETCHSEGMENT", 0.107674543379, 0.015875, 0.02206414437921, True, 0, Nothing)
Part.SketchAddConstraints "sgTANGENT"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc22", "SKETCHSEGMENT", 0.07974227549467, 0.03174999999999, 0.04753180039139, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0.0705880028267, 0.03174999999999, 0.0478838878017, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc22", "SKETCHSEGMENT", 0.0811506251359, 0.015875, 0.04717971298108, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", 0.1080266307893, 0.015875, 0.0106799847793, True, 0, Nothing)
Part.DeSelectByID "Line23", "SKETCHSEGMENT", -0.07176162752772, 0.047625, 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.06835811589476, 0.03174999999999, -0.0483533376821, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line21", "SKETCHSEGMENT", 0.06812339095456, 0.03174999999999, -0.0478838878017, False, 0, Nothing)
Part.SketchAddConstraints "sgHORIZONTAL"
boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0.0386654109589, 0.015875, 0.04729707545119, True, 0, Nothing)
Part.SketchAddConstraints "sgHORIZONTAL"
Part.ClearSelection2 True
' MSGBOX
' The sketch has both open and closed contours.
' Pick a sketch entity to define an open or closed contour. To define a region, pick inside an area bounded by sketch geometry.

Part.ShowNamedView2 "*Isometric", 7
' MSGBOX
' The sketch has both open and closed contours.
' Pick a sketch entity to define an open or closed contour. To define a region, pick inside an area bounded by sketch geometry.

Part.ClearSelection2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc17", "SKETCHSEGMENT", 0.02827830482363, 0.0318866711736, 0.01018213505176, False, 0, Nothing)
Part.EditDelete
Part.ShowNamedView2 "*Bottom", 6
Part.ShowNamedView2 "*Top", 5
boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", 0.1080798050263, 0.03174999999999, -0.009271635138074, False, 0, Nothing)
Part.ClearSelection2 True
Part.EditUndo 1
Part.ClearSelection2 True
Part.EditUndo 1
Part.ClearSelection2 True
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 0, -0.0003410574725051, -0.01936480756686
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 0, -0.04177000941858, 0.04764916286149
Part.EditUndo 1
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0.03789704790521, 0.03174999999999, 0.0478838878017, False, 0, Nothing)
Part.SketchAddConstraints "sgHORIZONTAL"
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("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.FeatureManager.FeatureCut True, False, False, 0, 0, 0.01905, 0.03175, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection2 True
Part.ViewRotateplusx
Part.ViewRotateplusx
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.005763468782746, -2.479303429936e-005, 0.04841546024313, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.005763468782746, -2.479303429936e-005, 0.04841546024313, False, 1, Nothing)
Part.FeatureFillet5 195, 0.00635, 0, 0, 0, 0, 0
Part.ClearSelection2 True
Part.ShowNamedView2 "*Top", 5
boolstatus = Part.Extension.SelectByID("", "FACE", 0.07029175102119, 0.0127, 0.001175823107792, False, 0, Nothing)
Part.ClearSelection2 True
Part.SketchRectangle -0.04116082784207, -0.02857490694748, 0, -0.07803933697309, 0.02472848440155, 0, 1
Part.ClearSelection2 True
Part.SetPickMode
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.ClearSelection2 True
Part.CreateCircle -0.04116082784207, -0.02857490694748, 0, -0.04487966909898, -0.02485606569057, 0
Part.ClearSelection2 True
Part.CreateCircle -0.07803933697309, -0.02857490694748, 0, -0.08082846791577, -0.0245461622525, 0
Part.ClearSelection2 True
Part.CreateCircle -0.07803933697309, 0.02472848440155, 0, -0.08144827479192, 0.02844732565846, 0
Part.ClearSelection2 True
Part.CreateCircle -0.04116082784207, 0.02472848440155, 0, -0.03775189002324, 0.02906713253461, 0
Part.ClearSelection2 True
Part.CreateLine2( -0.04116082784207, -0.02857490694748, 0, -0.07803933697309, 0.02472848440155, 0 ).ConstructionGeometry = TRUE
Part.CreateLine2( -0.05960008240758, -0.001923211272966, 0, 0, 0, 0 ).ConstructionGeometry = TRUE
Part.SketchAddConstraints "sgHORIZONTAL"
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.03961131065169, 0.3671190059655, -0.02206693474789, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.08206808166807, 0.3671190059655, -0.0233065485002, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0.08082846791577, 0.3671190059655, 0.02317896721117, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc4", "SKETCHSEGMENT", 0.04364005534668, 0.3671190059655, 0.03340578066767, True, 0, Nothing)
Part.SketchAddConstraints "sgSAMELENGTH"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.08175817823, 0.3671190059655, -0.03136403789017, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.14064, 0.0127, -0.0719614)
Part.ClearSelection2 True
Part.Parameter("D1@Sketch3").SystemValue = 0.0049784
boolstatus = Part.Extension.SelectByID("D1@Sketch3@Part3.SLDPRT", "DIMENSION", 0.1434289624071, 0.3671190059655, -0.07072177452579, False, 0, Nothing)
Part.Parameter("D1@Sketch3").SystemValue = 0.0051054
boolstatus = Part.Extension.SelectByID("D1@Sketch3@Part3.SLDPRT", "DIMENSION", 0.1381606039598, 0.3671190059655, -0.07103167796386, False, 0, Nothing)
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4<MOD-DIAM>", "", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X<MOD-DIAM>", "", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", "", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", " ", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", " t", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", " th", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", " thr", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"4X <MOD-DIAM>", " thru", 1,"", "", 0
Part.ClearSelection2 True
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Housing-Top.SLDPRT")
boolstatus = Part.Extension.SelectByID("Cut-Extrude5", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Cut-Extrude4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Part3")
boolstatus = Part.Extension.SelectByID("Point10", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.040850924404, 0.3671190059655, 0.008613505621608, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0203973, 0.0127, 0.0699744)
Part.ClearSelection2 True
Part.Parameter("D2@Sketch3").SystemValue = 0.02921
boolstatus = Part.Extension.SelectByID("Point10", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.08950576418189, 0.3671190059655, 0.0138818640689, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0451896, 0.0127, 0.0814408)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D2@Sketch3@Part3.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D3@Sketch3").SystemValue = 0.08509
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.08578692292498, 0.3671190059655, 0.0008659196697137, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.135681, 0.0127, -6.37906e-005)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D3@Sketch3@Part3.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D4@Sketch3").SystemValue = 0.05715
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Housing-Top.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Part3")
boolstatus = Part.Extension.SelectByID("D4@Sketch3@Part3.SLDPRT", "DIMENSION", 0.1363011833313, 0.3671190059655, -6.379064451356e-005, False, 0, Nothing)
Part.Parameter("D4@Sketch3").SystemValue = 0.0635
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.FeatureManager.FeatureCut True, False, False, 1, 0, 0.01905, 0.01905, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.03104880317213, -8.460795265819e-005, 0.02939112027602, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08348786103183, -6.700480491872e-005, 0.03085187300035, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08554628040059, -3.852113229641e-005, -0.03454540649853, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02933883164994, -4.789716081177e-005, -0.03470201441952, True, 0, Nothing)
Part.FeatureChamferType 1, 0.00254, 0.7155849933177, False, 0, 0, 0, 0
Part.ClearSelection2 True
Part.ShowNamedView2 "*Isometric", 7
Part.SaveAs2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Compass Housing\Housing-Bot.SLDPRT", 0, FALSE, FALSE
swApp.LoadFile2 "C:\Program Files\SolidWorks2004\data\templates\Assembly.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
Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks2004\data\templates\Assembly.asmdot", 0, 0.000000, 0.000000)
Set Part = swApp.ActivateDoc ("Assem1")
Part.AddComponent "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Compass Housing\Housing-Top.SLDPRT", 0.01232957627229, 0.01609497435476, 0.02350167940614
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("CompassTiltSensor.SLDPRT")
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ClearSelection2 True
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Housing-Top.SLDPRT")
boolstatus = Part.Extension.SelectByID("Cut-Extrude5", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D3@Sketch8@Housing-Top.SLDPRT", "DIMENSION", 0.05068897909346, 0.015875, -0.0636343895605, False, 0, Nothing)
Part.Parameter("D3@Sketch8").SystemValue = 0.029972
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " ", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "", 0
boolstatus = Part.Extension.SelectByID("D2@Sketch8@Housing-Top.SLDPRT", "DIMENSION", 0.1248078213388, 0.015875, -0.0002849517439962, False, 0, Nothing)
Part.Parameter("D2@Sketch8").SystemValue = 0.065024
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " ??", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " ?", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " ", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "", 0
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.AddComponent "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Compass Housing\Impulse-VSG-BCL-4-HP-SS.SLDPRT", 0.05562780051309, 0.06450590640225, -0.03055829979792
boolstatus = Part.Extension.SelectByID("", "FACE", 0.05218803701325, 0.04595855847566, -0.02522064796739, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.05176638159816, 0.02996601007717, -0.005671354883873, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 0, False, 0.03093731314018, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.06115584617544, 0.03162299999988, 8.823808059333e-006, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.04838031822601, 0.05250440640219, -0.01042898668595, True, 1, Nothing)
Set Feature = Part.AddMate2 (0, 1, False, 0.02088140640225, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
Part.AddComponent "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Compass Housing\Impulse-K-FLS-S.SLDPRT", 0.01102282420943, 0.09892798819467, -0.02959370400873
boolstatus = Part.Extension.SelectByID("Impulse-K-FLS-S-1@Assem1", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
' 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\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Compass Housing\CompassHousing.SLDASM", 0, FALSE, FALSE
Set Part = Nothing
swApp.CloseDoc "CompassHousing.SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Housing-Top.SLDPRT")
swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Compass Housing\Impulse-G-FLS-S.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Compass Housing\Impulse-G-FLS-S.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Impulse-G-FLS-S.SLDPRT")
swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Compass Housing\CompassHousing.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Compass Housing\CompassHousing.SLDASM", 2, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("CompassHousing.SLDASM")
Part.AddComponent "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Compass Housing\Impulse-G-FLS-S.SLDPRT", 0.111334606922, 0.09757988727955, -0.01570448245002
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1023724207041, 0.08037970660006, -0.006706192712898, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.04084412888551, 0.03616284017301, 0.007884835467223, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 0, False, 0.06253854334909, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.05530014260631, 0.06011488727952, 0.01150227890079, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.04849899268169, 0.04737100000003, -0.01189757876932, True, 1, Nothing)
Set Feature = Part.AddMate2 (0, 1, False, 0.01274388727955, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.SetUserPreferenceToggle(198, 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 ("Housing-Top.SLDPRT")
boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Sketch4@Housing-Top.SLDPRT", "DIMENSION", 0.02519083037232, 0.015875, -0.02467448530335, False, 0, Nothing)
Part.Parameter("D1@Sketch4").SystemValue = 0.04445
Part.EditRebuild
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Sketch4@Housing-Top.SLDPRT", "DIMENSION", 0.02656740815596, -0.01073861519736, -0.01896372311403, False, 0, Nothing)
Part.Parameter("D1@Sketch4").SystemValue = 0.04572
Part.EditRebuild
Part.ClearSelection2 True
Part.Save2 FALSE
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Impulse-G-FLS-S.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Impulse-G-FLS-S.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Housing-Top.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("CompassHousing.SLDASM")
Part.ShowNamedView2 "*Top", 5
Part.AddComponent "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Compass Housing\CompassTiltSensor.SLDPRT", -0.01923326166531, 0.02454111941194, -0.008365158250172
boolstatus = Part.Extension.SelectByID("", "FACE", 0.001490730894659, 0.02000086941183, -0.004850774927107, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.06137822093552, 0.01905000000011, 0.008150321004974, True, 1, Nothing)
Part.ShowNamedView2 "*Front", 1
Set Feature = Part.AddMate2 (5, 1, True, 0.0127, 0.0127, 0.0127, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("", "FACE", -0.01186979781456, 0.004762500000197, -0.009060911368829, False, 0, Nothing)
Part.DeSelectByID "", "FACE", 0.01400088785883, 0.004762500000027, 0.0002386436239732
boolstatus = Part.Extension.SelectByID("", "FACE", 0.02306621664536, 0.005700268767782, 0.01093058753335, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.0731225124963, 0.02164389866959, -0.03196030154541, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 1, False, 0.06580281435715, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.008244268673252, 0.005565397934447, -0.06166572336468, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.04227248244288, 0.0210824552085, 0.03363708206345, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 1, False, 0.101256519395, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
Part.ViewDisplayHiddengreyed
Part.ViewDisplayWireframe
Part.ViewDisplayShadedWithEdges
Part.AddComponent "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Compass Housing\Housing-Bot.SLDPRT", 0.006913548431328, -0.05906920731235, -0.06274411343065
boolstatus = Part.Extension.SelectByID("", "FACE", -0.02052144006205, -0.07012407201384, -0.06792045358733, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.028765323247, 0.01610816068043, -0.009073730475862, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.02088287703106, -0.06689026923885, -0.06968270609258, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 0, False, 0.06897315826989, 0, 0, 1, 1, 0.5235987755983, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.08473065806234, 0.001932598847588, 0.02976293033294, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.08469083514134, -0.06979599334795, 0.02922870178168, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 1, False, 0.0005334, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.0974579853893, 0.02539999999999, 0.004637387339017, True, 1, Nothing)
Part.DeSelectByID "", "FACE", 0.09839978126848, 0.0254000000001, 0.014033426845
boolstatus = Part.Extension.SelectByID("", "FACE", 0.08499522053438, 0, 0.01997560567725, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.0491914784896, -0.06224420731235, -0.01069504256036, True, 1, Nothing)
Set Feature = Part.AddMate2 (0, 1, False, 0.06224420731235, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", 5.000361596785e-005, 0.01658840872658, -0.0302713899834, True, 0, Nothing)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("CompassTiltSensor.SLDPRT")
Part.ShowNamedView2 "*Front", 1
boolstatus = Part.Extension.SelectByID("", "FACE", 0.01656392694064, 0.01165563155528, 0.03474599999998, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.01679915594299, 0.01359627082469, 0.03474599999998, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ClearSelection2 True
Part.Save2 FALSE
boolstatus = Part.Extension.SelectByID("", "FACE", 0.01925004345458, 0.0173355, 0.03159885812659, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.01960888059697, -0.005079999999964, 0.01557112899872, True, 0, Nothing)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Housing-Top.SLDPRT")
Part.ShowNamedView2 "*Front", 1
boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Extrude1@Housing-Top.SLDPRT", "DIMENSION", 0.06516799057107, 0.009633450453656, 0, False, 0, Nothing)
Part.Parameter("D1@Extrude1").SystemValue = 0.0254
Part.EditRebuild
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Extrude3@Housing-Top.SLDPRT", "DIMENSION", -0.0002242439067782, 0.03469567247821, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Extrude2@Housing-Top.SLDPRT", "DIMENSION", -0.001088458459349, 0.02893424212774, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Extrude2@Housing-Top.SLDPRT", "DIMENSION", 0.02666243106209, 0.04785093844512, 0, False, 0, Nothing)
' MSGBOX
' Please enter a number between 0 and 393700.787

Part.Parameter("D1@Extrude2").SystemValue = 0.003175
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Extrude3@Housing-Top.SLDPRT", "DIMENSION", 0.02743062177548, 0.05073165362035, 0, False, 0, Nothing)
Part.Parameter("D1@Extrude3").SystemValue = 0.009525
Part.ClearSelection2 True
Part.EditRebuild
Part.ShowNamedView2 "*Trimetric", 8
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Housing-Bot.SLDPRT")
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Extrude1@Housing-Bot.SLDPRT", "DIMENSION", 0.08506198032909, 0.009622330163533, -0.02166032664475, False, 0, Nothing)
Part.Parameter("D1@Extrude1").SystemValue = 0.0381
Part.ClearSelection2 True
Part.ShowNamedView2 "*Front", 1
Part.ShowNamedView2 "*Left", 3
Part.EditRebuild
boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Cut-Extrude1@Housing-Bot.SLDPRT", "DIMENSION", 0.05715, 0.02866217458341, 0.02752416656783, False, 0, Nothing)
Part.Parameter("D1@Cut-Extrude1").SystemValue = 0.028575
Part.EditRebuild
Part.ClearSelection2 True
Part.ShowNamedView2 "*Trimetric", 8
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("CompassHousing.SLDASM")
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Housing-Bot-1@CompassHousing", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Distance1", "MATE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Distance1", "MATE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Distance1@CompassHousing.SLDASM", "DIMENSION", 0.07189535530973, 0.01251359334821, 0.04004973095314, False, 0, Nothing)
Part.Parameter("D1@Distance1").SystemValue = 0.01905
Part.EditRebuild
Part.ClearSelection2 True
Part.ShowNamedView2 "*Front", 1
boolstatus = Part.Extension.SelectByID("Distance1", "MATE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Distance1@CompassHousing.SLDASM", "DIMENSION", 0.07460659735812, 0.01663432827789, 0, False, 0, Nothing)
Part.Parameter("D1@Distance1").SystemValue = 0.015875
Part.EditRebuild
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Front Plane", "PLANE", 0, 0, 0, True, 0, Nothing)
Part.ShowNamedView2 "*Left", 3
Part.ShowNamedView2 "*Right", 4
Part.ShowNamedView2 "*Front", 1
Part.ShowNamedView2 "*Back", 2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Distance1", "MATE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Distance1@CompassHousing.SLDASM", "DIMENSION", 0.07470269654943, 0.01694187422283, 0.08393307573904, False, 0, Nothing)
Part.Parameter("D1@Distance1").SystemValue = 0.01778
Part.EditRebuild
Part.ClearSelection2 True
Part.ShowNamedView2 "*Dimetric", 9
boolstatus = Part.Extension.SelectByID("Housing-Bot-1@CompassHousing", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.ShowNamedView2 "*Dimetric", 9
Part.ShowNamedView2 "*Trimetric", 8
' 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.Save2 FALSE
Part.PrintDirect
boolstatus = Part.Extension.SelectByID("Housing-Bot-1@CompassHousing", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Coincident4", "MATE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Coincident4", "MATE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("CompassHousing.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.AddConfiguration "Open","","",1,0,0,1,256
boolstatus = Part.Extension.SelectByID("Coincident4", "MATE", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection2 True
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("", "FACE", 0.02176072632793, -0.006391289228134, 0.05310021539304, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.0846267188146, 0, -0.00413146357721, True, 1, Nothing)
Set Feature = Part.AddMate2 (5, 1, True, 0.1016, 0.1016, 0.1016, 1, 1, 0.5235987755983, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Default@CompassHousing.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Default"
boolstatus = Part.Extension.SelectByID("Open@CompassHousing.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Open"
Part.PrintDirect
Part.PrintDirect
boolstatus = Part.Extension.SelectByID("Open", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Default@CompassHousing.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Default"
Part.ShowNamedView2 "*Front", 1
Part.ShowNamedView2 "*Back", 2
Part.ClearSelection2 True
Part.ShowNamedView2 "*Back", 2
Part.Save2 FALSE
Part.ShowNamedView2 "*Trimetric", 8
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "CompassHousing.SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Housing-Bot.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Housing-Bot.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Housing-Top.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Housing-Top.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("CompassTiltSensor.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "CompassTiltSensor.SLDPRT"
swApp.ExitApp
End Sub