' ******************************************************************************
' swxJRNL.swj - journal recorded on 06/14/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\Chemilum\TubeEqilibrator\TubePlate.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("TubePlate.SLDPRT")
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\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\Chemilum\TubeEqilibrator\TubePlate.SLDPRT", -0.001663565738966, -0.001955079588299, -0.003037325835237
Part.AddComponent "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\CoverPlate.SLDPRT", 0.06710865576787, -0.02624756381852, -0.02282353455553
Part.AddComponent "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\RetainingPlate.SLDPRT", -0.0004833251488208, -0.0572024903571, 0.0338741527886
boolstatus = Part.Extension.SelectByID("", "FACE", -0.04000705253884, -0.04236588473043, 0.03470023327844, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.07812283021309, -0.06911535847814, 0.004765383292408, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 0, False, 0.1209241840638, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.002007041498075, -0.02345094635808, 0.004559993309897, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1542096071608, -0.1147513223999, 0.03439667094233, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 0, False, 0.1777274137549, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1037657838858, -0.05076447936909, -0.02165424040243, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.07812227824832, -0.06911497551863, 0.004133258205172, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 0, False, 0, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.002793105487484, -0.0237536554697, -0.02188014595725, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.001890306977828, -0.02337236142486, 0.004558149958598, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 0, False, 0, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.08091224004443, -0.01607723458912, 0, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.07874418882142, -0.02802378306623, -0.01964853455559, True, 1, Nothing)
Set Feature = Part.AddMate2 (0, 1, False, 0.01964853455553, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.0811405739164, -0.01807271398806, 0.0306991527886, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.08086112979339, -0.02894536310978, 0.006349999999998, True, 1, Nothing)
Set Feature = Part.AddMate2 (0, 1, False, 0.0243491527886, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
Part.SaveAs2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\TubeEquil+Retainer.SLDASM", 0, FALSE, FALSE
boolstatus = Part.Extension.SelectByID("RetainingPlate-1@TubeEquil+Retainer", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditPart
Part.ClearSelection2 True
Part.EditAssembly
swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\142TubeEquilibrator.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\142TubeEquilibrator.SLDDRW", 3, 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 ("142TubeEquilibrator - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2292564171598, 0.1157561789941, 0, False, 0, Nothing)
Part.EditSketch
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("TubeEquil+Retainer.SLDASM")
boolstatus = Part.Extension.SelectByID("", "FACE", 0.01829517605745, -0.03680393187284, 0.01269999999988, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\RetainingPlate.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\RetainingPlate.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 ("RetainingPlate.SLDPRT")
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D1@Sketch2@RetainingPlate.SLDPRT", "DIMENSION", 0.03088008305997, -0.03172173607875, 0.008564405248104, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch2@RetainingPlate.SLDPRT", "DIMENSION", 0.05311430308199, 0.001415640681741, -0.02670140555808, False, 0, Nothing)
Part.Parameter("D1@Sketch2").SystemValue = 0.0027178
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-3", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-32", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-32 ", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-32 U", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-32 UN", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-32 UNC", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-32 UNC-", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-32 UNC-2", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-32 UNC-2B", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-32 UNC-2B ", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-32 UNC-2B T", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-32 UNC-2B TR", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-32 UNC-2B TRh", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-32 UNC-2B TRhr", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-32 UNC-2B TRhru", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-32 UNC-2B TRhr", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-32 UNC-2B TRh", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-32 UNC-2B TR", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-32 UNC-2B T", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-32 UNC-2B Th", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-32 UNC-2B Thr", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6-32 UNC-2B Thru", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"^6-32 UNC-2B Thru", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"^X6-32 UNC-2B Thru", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"^X 6-32 UNC-2B Thru", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"6X 6-32 UNC-2B Thru", "", 0,"", "", 0
Part.ClearSelection2 True
Part.InsertSketch2 True
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "RetainingPlate.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 ("TubeEquil+Retainer.SLDASM")
' 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.

Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "TubeEquil+Retainer.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 ("142TubeEquilibrator - Sheet1")
swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\RetainingPlate.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\RetainingPlate.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 ("RetainingPlate.SLDPRT")
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ShowNamedView2 "*Isometric", 7
Part.ClearSelection2 True
swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\CoverPlate.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\CoverPlate.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("CoverPlate.SLDPRT")
boolstatus = Part.Extension.SelectByID("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 ("TubePlate.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("RetainingPlate.SLDPRT")
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D2@Sketch1@RetainingPlate.SLDPRT", "DIMENSION", 0.009112416625611, -0.01113674507841, 0.02676256642771, False, 0, Nothing)
Part.Parameter("D2@Sketch1").SystemValue = 0.0889
Part.EditRebuild
Part.ClearSelection2 True
Part.ShowNamedView2 "*Front", 1
boolstatus = Part.Extension.SelectByID("", "FACE", 0.03189025795274, -0.02400114101282, 0.006349999999998, False, 0, Nothing)
Part.ClearSelection2 True
Part.SketchRectangle 0.0381, 0, 0, 0.04445, -0.0127, 0, 1
Part.ClearSelection2 True
Part.CreateTangentArc2 0.0381, -0.0127, 0, 0.04445, -0.0127, 0, 1
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.04038591917447, -0.01264066379772, 0.006349999999998, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.04364588220141, -0.01560426654948, 0.003175, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.04196650730875, 4.041276479698e-006, 0.006349999999998, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0564882, -0.00671346, 0.00635)
Part.ClearSelection2 True
Part.Parameter("D1@Sketch3").SystemValue = 0.0127
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.03821261048984, -0.004935296643129, 0.003175, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.04394224247659, -0.005923164227051, 0.003175, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0257655, -0.00602195, 0.00635)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D1@Sketch3@RetainingPlate.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D2@Sketch3").SystemValue = 0.00635
boolstatus = Part.Extension.SelectByID("Point7", "SKETCHPOINT", 0.041275, -0.0127, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.04147257351678, -0.02034603095231, 0.006349999999998, True, 0, Nothing)
Part.DeSelectByID "", "EDGE", 0.04147257351678, -0.02034603095231, 0.006349999999998
Part.CreatePoint2 0.0381, -0.0254, 0
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0399907721409, -0.02202540584498, 0.006349999999998, True, 0, Nothing)
Part.SketchAddConstraints "sgCONCENTRIC"
Part.DeSelectByID "Point10", "SKETCHPOINT", 0.041275, -0.02159, 0
Part.DeSelectByID "", "EDGE", 0.04087985296643, -0.01995088391874, 0.006349999999998
boolstatus = Part.Extension.SelectByID("Point10", "SKETCHPOINT", 0.041275, -0.02159, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point7", "SKETCHPOINT", 0.041275, -0.0127, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgVERTPOINTS"
Part.ClearSelection2 True
Part.ClearSelection2 True
Part.FeatureManager.FeatureCut True, False, False, 1, 0, 0.00254, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection2 True
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "RetainingPlate.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("TubePlate.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "TubePlate.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("CoverPlate.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "CoverPlate.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 ("142TubeEquilibrator - Sheet1")
swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\TubeEquil+Retainer.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\TubeEquil+Retainer.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 ("TubeEquil+Retainer.SLDASM")
boolstatus = Part.Extension.SelectByID("Concentric1", "MATE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Concentric2", "MATE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Concentric3", "MATE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Concentric4", "MATE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Coincident1", "MATE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Coincident2", "MATE", 0, 0, 0, True, 0, Nothing)
Part.EditDelete
Part.ClearSelection2 True
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("", "FACE", 0.05852522139207, -0.04119183123623, 0.01269999999988, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0561965649789, -0.04076242621068, 0.006400110011668, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.08254999999991, -0.02942163220715, -0.004529277691688, False, 0, Nothing)
Part.ClearSelection2 True
' 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 "TubeEquil+Retainer.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 ("142TubeEquilibrator - Sheet1")
swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\TubeEquil+Retainer.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\TubeEquil+Retainer.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 ("TubeEquil+Retainer.SLDASM")
boolstatus = Part.Extension.SelectByID("Concentric1", "MATE", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Concentric2", "MATE", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
Part.RotateComponent
boolstatus = Part.Extension.SelectByID("", "FACE", 0.07295218449588, -0.004353998422062, 0.01269999999994, False, 0, Nothing)
Part.DeSelectByID "", "FACE", 0.1096801338127, -0.03610772659081, 0.01269999999994
boolstatus = Part.Extension.SelectByID("", "FACE", 0.09787664168869, -0.01726623843712, 0.01153611161652, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.001082863117233, -0.02226097814687, 0.003508037211304, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 0, False, 0.09608078971834, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.03779033375139, -0.1039225017901, 0.01137245241199, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.07738555783942, -0.06824239921687, 0.004688499691099, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 0, False, 0.05404680470686, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "TubeEquil+Retainer.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 ("142TubeEquilibrator - Sheet1")
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2465220295858, 0.03952687130178, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("RD11@Drawing View16", "DIMENSION", 0.3136298816568, 0.1440978446746, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("RD4@Drawing View22", "DIMENSION", 0.3093949201183, 0.1427947795858, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("RD11@Drawing View16", "DIMENSION", 0.3155844792899, 0.1460524423077, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.276166760355, 0.1265064659763, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.NewSheet3 "Sheet3", 12, 12, 1, 1, False, "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\142.slddrt", 0.4318, 0.2794, "Default", True
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View28", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View27", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View27", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View26", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View23", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View22", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View21", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View20", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View19", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View19", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View14", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View10", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format2", "SHEET", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem509@Sheet2", "NOTE", 0.2748636952663, 0.2519264807692, 0, False, 0, Nothing)
Part.EditCut
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2501054585799, 0.2004554097633, 0, False, 0, Nothing)
Part.EditCopy
' MSGBOX
' This item cannot be copied to the clipboard.

Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View31", "DRAWINGVIEW", 0.2875685798817, 0.1897051227811, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2374005739645, 0.16722725, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View31", "DRAWINGVIEW", 0.2875685798817, 0.2128345281065, 0, False, 0, Nothing)
Part.Paste
Part.ClearSelection2 True
Part.EditUndo 1
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1813687751479, 0.1252034008876, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2924550739645, 0.0968617352071, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.3048341923077, 0.09751326775148, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View26", "DRAWINGVIEW", 0.2018920502959, 0.2437823239645, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View23", "DRAWINGVIEW", 0.2253472218935, 0.1616892233728, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("RD1@Drawing View23", "DIMENSION", 0.295061204142, 0.251600714497, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("RD2@Drawing View23", "DIMENSION", 0.295061204142, 0.2424792588757, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.3152587130178, 0.2320547381657, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View22", "DRAWINGVIEW", 0.2204607278107, 0.1046801257396, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem588@Drawing View23", "NOTE", 0.2592269142012, 0.1903566553254, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem508@Drawing View22", "NOTE", 0.2585753816568, 0.1235745695266, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View23", "DRAWINGVIEW", 0.234794443787, 0.196546214497, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View22", "DRAWINGVIEW", 0.2312110147929, 0.1278095310651, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View23", "DRAWINGVIEW", 0.3247059349112, 0.07405809615385, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View21", "DRAWINGVIEW", 0.2250214556213, 0.04864832692308, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2390294053254, 0.1183623091742, 374.96195, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem454@Drawing View21", "CENTERMARKSYM", 0.2357717426036, 0.1196653742604, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem454@Drawing View21", "CENTERMARKSYM", 0.246847795858, 0.1151046464497, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem455@Drawing View21", "CENTERMARKSYM", 0.2478250946746, 0.1151046464497, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem454@Drawing View21", "CENTERMARKSYM", 0.2458704970414, 0.1151046464497, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection2 True
Part.SetPickMode
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View22", "DRAWINGVIEW", 0.1628000976331, 0.1359536878698, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1924448284024, 0.05874708136095, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1924448284024, 0.05874708136095, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Detail Circle3", "DETAILCIRCLE", 0.04975920118343, 0.2369412322485, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem516@Drawing View23", "CENTERMARKSYM", 0.03053899112426, 0.2512749482249, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem616@Drawing View23", "NOTE", 0.2663937721893, 0.1874247588757, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2696514349112, 0.1831897973373, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2689999023669, 0.1818867322485, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem616@Drawing View23", "NOTE", 0.2647649408284, 0.1789548357988, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem615@Drawing View23", "NOTE", 0.2699772011834, 0.180909433432, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2631361094675, 0.1577800281065, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2396809378698, 0.0541863535503, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem614@Drawing View30", "NOTE", 0.2869170473373, 0.08741451331361, 0, False, 0, Nothing)
Part.EditCopy
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1862552692308, 0.05874708136095, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1898386982249, 0.05190598964497, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem630@Drawing View22", "NOTE", 0.1979828550296, 0.04408759911243, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2048239467456, 0.03920110502959, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem630@Drawing View22", "NOTE", 0.1823460739645, 0.06135321153846, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View21", "DRAWINGVIEW", 0.3058114911243, 0.09002064349112, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View22", "DRAWINGVIEW", 0.1807172426036, 0.08741451331361, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View22", "DRAWINGVIEW", 0.1650804615385, 0.08676298076923, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1875583343195, 0.05190598964497, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1895129319527, 0.05255752218935, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.190164464497, 0.05288328846154, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View26", "DRAWINGVIEW", 0.3716162781065, 0.1874247588757, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View21", "DRAWINGVIEW", 0.3110237514793, 0.08936911094675, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem479@Drawing View22", "CENTERMARKSYM", 0.1771338136095, 0.08741451331361, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem417@Drawing View21", "CENTERMARKSYM", 0.1823460739645, 0.08806604585799, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1953767248521, 0.1023997618369, 374.96195, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem474@Drawing View22", "CENTERMARKSYM", 0.167686591716, 0.1209684393491, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem474@Drawing View22", "CENTERMARKSYM", 0.1628000976331, 0.1164077115385, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem474@Drawing View22", "CENTERMARKSYM", 0.1621485650888, 0.1134758150888, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem415@Drawing View21", "CENTERMARKSYM", 0.1657319940828, 0.08676298076923, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem478@Drawing View22", "CENTERMARKSYM", 0.1702927218935, 0.08741451331361, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem421@Drawing View21", "CENTERMARKSYM", 0.2315367810651, 0.08708874704142, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2406582366864, 0.02975388313609, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View20", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View21", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View26", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View28", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.ViewZoomtofit2
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Drawing View28", "DRAWINGVIEW", 0.1465117840237, -0.02101178946285, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2152484674556, 0.05261138805194, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem479@Drawing View22", "CENTERMARKSYM", 0.1764822810651, 0.08714261290401, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem479@Drawing View22", "CENTERMARKSYM", 0.1761565147929, 0.08616531408744, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View22", "DRAWINGVIEW", 0.2465220295858, 0.08681684663182, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2497796923077, 0.04642182888034, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View26", "DRAWINGVIEW", 0.3194936745562, 0.1350302549158, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.227953352071, 0.02980774899868, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem626@Sheet2", "ANNOTATIONTABLES", 0.08363889349112, 0.02817891763774, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem626@Sheet2", "ANNOTATIONTABLES", 0.06767634615385, 0.03404271053715, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem626@Sheet2", "ANNOTATIONTABLES", 0.06735057988166, 0.03371694426496, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem626@Sheet2", "ANNOTATIONTABLES", 0.1331553668639, 0.03404271053715, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.08559349112426, 0.05554328450164, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2149227011834, 0.02785315136555, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View31", "DRAWINGVIEW", 0.2888716449704, 0.1427947795858, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View30", "DRAWINGVIEW", 0.2963642692308, 0.106960489645, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View30", "DRAWINGVIEW", 0.06930517751479, 0.08936911094675, 0, False, 0, Nothing)
Dim DrawView As Object
Set DrawView = Part.SelectionManager.GetSelectedObject5(1)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View31", "DRAWINGVIEW", 0.1667092928994, 0.1330217914201, 0, False, 0, Nothing)
Dim BaseView As Object
Set BaseView = Part.SelectionManager.GetSelectedObject5(1)
Part.ClearSelection2 True
boolstatus = DrawView.AlignWithView(5, BaseView)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2240441568047, 0.1339990902367, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1976570887574, 0.1460524423077, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View29", "DRAWINGVIEW", 0.2282791183432, 0.2200013860947, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View29", "DRAWINGVIEW", 0.2116650384615, 0.1763487056213, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View29", "DRAWINGVIEW", 0.3442519112426, 0.1167334778107, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.265742239645, 0.1421432470414, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.03412242011834, 0.1177107766272, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2592269142012, 0.1235745695266, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View31", "DRAWINGVIEW", 0.07972969822485, 0.2401988949704, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View31", "DRAWINGVIEW", 0.0722370739645, 0.2401988949704, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.166057760355, 0.04734526183432, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1644289289941, 0.04767102810651, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem614@Drawing View30", "NOTE", 0.07386590532544, 0.07047466715976, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View29", "DRAWINGVIEW", 0.3722678106509, 0.119013841716, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View29", "DRAWINGVIEW", 0.3615175236686, 0.1525677677515, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2992961656805, 0.1375825192308, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2530373550296, 0.1988265784024, 0, False, 0, Nothing)
Part.EditSketch
Part.SaveAs2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\142TubeEquilibratorR2.SLDDRW", 0, FALSE, FALSE
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2458704970414, 0.1639695872781, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2338171449704, 0.1779775369822, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2188318964497, 0.1916597204142, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2012405177515, 0.1743941079882, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2237183905325, 0.2092510991124, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2084073757396, 0.1887278239645, 0, False, 0, Nothing)
Part.CreateDrawViewFromModelView "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\RetainingPlate.SLDPRT", "*Trimetric", 0.3413200147929, 0.1128242825444, 0
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View33", "DRAWINGVIEW", 0.3224255710059, 0.1281352973373, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View33", "DRAWINGVIEW", 0.3533733668639, 0.1017482292899, 0, False, 0, Nothing)
Part.EditCopy
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2390294053254, 0.1727652766272, 0, False, 0, Nothing)
Part.Paste
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View34", "DRAWINGVIEW", 0.2504312248521, 0.1392113505917, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View34", "DRAWINGVIEW", 0.2188318964497, 0.1206426730769, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View34", "DRAWINGVIEW", 0.2266502869822, 0.1252034008876, 0, False, 0, Nothing)
Set DrawView = Part.SelectionManager.GetSelectedObject5(1)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View31", "DRAWINGVIEW", 0.1426025887574, 0.1278095310651, 0, False, 0, Nothing)
Set BaseView = Part.SelectionManager.GetSelectedObject5(1)
Part.ClearSelection2 True
boolstatus = DrawView.AlignWithView(4, BaseView)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View34", "DRAWINGVIEW", 0.2217637928994, 0.1274837647929, 0, False, 0, Nothing)
Part.CreateUnfoldedViewAt2 0.2474993284024, 0.09588443639053, 0, 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2145969349112, 0.0753611612426, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View35", "DRAWINGVIEW", 0.2012405177515, 0.09230100739645, 0, False, 0, Nothing)
Set DrawView = Part.SelectionManager.GetSelectedObject5(1)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View30", "DRAWINGVIEW", 0.1412995236686, 0.08904334467456, 0, False, 0, Nothing)
Set BaseView = Part.SelectionManager.GetSelectedObject5(1)
Part.ClearSelection2 True
boolstatus = DrawView.AlignWithView(4, BaseView)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2116650384615, 0.06070167899408, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1683381242604, 0.08252801923077, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View34", "DRAWINGVIEW", 0.2119908047337, 0.1268322322485, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.InsertModelAnnotations2(0, False, 32776, False, True, False)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D2@Sketch2@RetainingPlate-2@Drawing View34", "DIMENSION", 0.1823460739645, 0.2151148920118, 0, False, 0, Nothing)
Part.EditSketch
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 1, 1, 11, 11,"3", "", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 1, 1, 11, 11,"3X", "", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 1, 1, 11, 11,"3X ", "", 1,"", "", 0
Part.ClearSelection2 True
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D2@Sketch2@RetainingPlate-2@Drawing View34", "DIMENSION", 0.1888613994083, 0.217069489645, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.2273018195266, 0.1910081878698, 0.003174999999999, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1816945414201, 0.08643721449704, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D4@Sketch2@RetainingPlate-2@Drawing View34", "DIMENSION", 0.3165617781065, 0.1815609659763, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1937478934911, 0.1235745695266, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch1@RetainingPlate-2@Drawing View34", "DIMENSION", 0.2891974112426, 0.2294486079882, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.3106979852071, 0.1291125961538, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D2@Sketch1@RetainingPlate-2@Drawing View34", "DIMENSION", 0.1654062278107, 0.1799321346154, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.3217740384615, 0.1336733239645, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Sketch3@RetainingPlate-2@Drawing View34", "DIMENSION", 0.313955647929, 0.2186983210059, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch2@RetainingPlate-2@Drawing View34", "DIMENSION", 0.2888716449704, 0.2301001405325, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1787626449704, 0.1304156612426, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch2@RetainingPlate-2@Drawing View34", "DIMENSION", 0.1843006715976, 0.1454009097633, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 1, 1, 11, 11,"6X 6-32 UNC-2B Thru", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"6X 6-32 UNC-2B Thru", "", 0,"", "", 0
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1325038343195, 0.06102744526627, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Sketch2@RetainingPlate-2@Drawing View34", "DIMENSION", 0.1748534497041, 0.1457266760355, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D5@Sketch2@RetainingPlate-2@Drawing View34", "DIMENSION", 0.2263245207101, 0.2597448713018, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D6@Sketch2@RetainingPlate-2@Drawing View34", "DIMENSION", 0.265742239645, 0.258441806213, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Sketch1@RetainingPlate-2@Drawing View34", "DIMENSION", 0.2442416656805, 0.1167334778107, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.3220998047337, 0.09490713757396, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D3@Sketch2@RetainingPlate-2@Drawing View34", "DIMENSION", 0.2246956893491, 0.2698436257396, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Sketch1@RetainingPlate-2@Drawing View34", "DIMENSION", 0.2435901331361, 0.117385010355, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
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
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("RD9@Drawing View31", "DIMENSION", 0.08266159467456, 0.1203169068047, 0, 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,"", " OC", 1,"", "", 0
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.09927567455621, 0.05451211982249, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View35", "DRAWINGVIEW", 0.198634387574, 0.09295253994083, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.ViewDisplayHiddenGreyed
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2364232751479, 0.06428510798817, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1983086213018, 0.08252801923077, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D2@Sketch3@RetainingPlate-2@Drawing View34", "DIMENSION", 0.2556434852071, 0.246388454142, 0, False, 0, Nothing)
Part.EditSketch
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D2@Sketch3@RetainingPlate-2@Drawing View34", "DIMENSION", 0.2605299792899, 0.2388958298817, 0, False, 0, Nothing)
Part.EditSketch
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", " ", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", " O", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", " OC", 1,"", "", 0
Part.ClearSelection2 True
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D3@Sketch2@RetainingPlate-2@Drawing View34", "DIMENSION", 0.2253472218935, 0.2698436257396, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1647546952663, 0.05320905473373, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View35", "DRAWINGVIEW", 0.1989601538462, 0.09327830621302, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.InsertModelAnnotations2(0, False, 32776, False, True, False)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Extrude1@RetainingPlate-3@Drawing View35", "DIMENSION", 0.313955647929, 0.09653596893491, 0, False, 0, Nothing)
Part.EditSketch
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2719317988166, 0.06135321153846, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.ClearSelection2 True
Part.CreateLine2( 0, -0.009046086746851, 0, 0, 0.1378745020105, 0 ).ConstructionGeometry = TRUE
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.SetPickMode
Part.ClearSelection2 True
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem629@Drawing View30", "NOTE", 0.09732107692308, 0.08383108431953, 0, False, 0, Nothing)
Part.EditCopy
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2474993284024, 0.08285378550296, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem638@Drawing View35", "NOTE", 0.2491281597633, 0.08057342159763, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2406582366864, 0.07405809615385, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Sketch2@RetainingPlate-2@Drawing View34", "DIMENSION", 0.1807172426036, 0.239547362426, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"6X 6-32 UNC-2B Thru", "", 0,"^", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"6X 6-32 UNC-2B Thru", "", 0,"^X", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"6X 6-32 UNC-2B Thru", "", 0,"^X ", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"6X 6-32 UNC-2B Thru", "", 0,"^X t", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"6X 6-32 UNC-2B Thru", "", 0,"^X th", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"6X 6-32 UNC-2B Thru", "", 0,"^X thr", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"6X 6-32 UNC-2B Thru", "", 0,"^X thru", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"6-32 UNC-2B Thru", "", 0,"^X thru", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"6-32 UNC-2B Thr", "", 0,"^X thru", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"6-32 UNC-2B Th", "", 0,"^X thru", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"6-32 UNC-2B T", "", 0,"^X thru", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"6-32 UNC-2B ", "", 0,"^X thru", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"6-32 UNC-2B", "", 0,"^X thru", "", 0
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1168670532544, 0.04571643047337, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Sketch2@RetainingPlate-2@Drawing View34", "DIMENSION", 0.1803914763314, 0.2379185310651, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch2@RetainingPlate-2@Drawing View34", "DIMENSION", 0.1803914763314, 0.2379185310651, 0, False, 0, Nothing)
Part.EditSketch
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"6-32 UNC-2B", "", 0,"6X thru", "", 0
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.0722370739645, 0.03724650739645, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Sketch3@RetainingPlate-2@Drawing View34", "DIMENSION", 0.307114556213, 0.2375927647929, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1312007692308, 0.03496614349112, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Sketch3@RetainingPlate-2@Drawing View34", "DIMENSION", 0.3116752840237, 0.2369412322485, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.3282893639053, 0.2255394127219, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Sketch3@RetainingPlate-2@Drawing View34", "DIMENSION", 0.3093949201183, 0.2375927647929, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.3224255710059, 0.2186983210059, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch3@RetainingPlate-2@Drawing View34", "DIMENSION", 0.3035311272189, 0.2388958298817, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.3106979852071, 0.1926370192308, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("RD9@Drawing View31", "DIMENSION", 0.07191130769231, 0.1186880754438, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("RD9@Drawing View31", "DIMENSION", 0.08689655621302, 0.1186880754438, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2100362071006, 0.03203424704142, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1820203076923, 0.04539066420118, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.3523960680473, 0.05842131508876, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem613@Drawing View29", "NOTE", 0.3957229822485, 0.2327062707101, 0, False, 0, Nothing)
Part.EditCopy
Part.EditSketch
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3791089023669, 0.1294383624225, -499.8567658868, False, 0, Nothing)
Part.Paste
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem639@Drawing View33", "NOTE", 0.3970260473373, 0.1405144156805, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditBalloonProperties 1, 0, 0, "5", 2, "1" 
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1083971301775, 0.05581518491124, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1041621686391, 0.04604219674556, 0, False, 0, Nothing)
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
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.03509971893491, 0.02617045414201, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem640@Sheet3", "ANNOTATIONTABLES", 0.0478046035503, 0.05158022337278, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem640@Sheet3", "ANNOTATIONTABLES", 0.04259234319527, 0.0509286908284, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2123165710059, 0.1151046464497, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2237183905325, 0.04343606656805, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2051497130178, 0.05939861390533, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem591@Sheet1", "ANNOTATIONTABLES", 0.04682730473373, 0.03692074112426, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem591@Sheet1", "ANNOTATIONTABLES", 0.0478046035503, 0.03985263757396, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2458704970414, 0.0694973683432, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2582496153846, 0.1385598180473, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3696616804734, 0.1278095310651, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3696616804734, 0.1281352973373, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2387036390533, 0.1089150872781, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2390294053254, 0.07959612278107, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem591@Sheet1", "ANNOTATIONTABLES", 0.04975920118343, 0.03985263757396, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2165515325444, 0.06852006952663, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem591@Sheet1", "ANNOTATIONTABLES", 0.0660475147929, 0.04082993639053, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2139454023669, 0.0662397056213, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("", "FACE", 0.2947354378698, 0.1708106789906, -499.8560787626, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2341429112426, 0.1307414275148, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.2800759556213, 0.1499616375705, -499.9009747748, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Toaster+TubeEquilib-1@Drawing View1", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Toaster+TubeEquilib-1@Drawing View1", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\Toaster+TubeEquilib.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\Toaster+TubeEquilib.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 ("Toaster+TubeEquilib.SLDASM")
Part.ClearSelection2 True
Part.AddComponent "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\RetainingPlate.SLDPRT", 0.01054234687788, 0.07381581720897, -0.08297002043893
boolstatus = Part.Extension.SelectByID("", "FACE", 0.09113239148571, 0.06877986490326, -0.04660233897672, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.02355421961998, 0.08680949106994, -0.08614502043893, True, 1, Nothing)
Part.RotateComponent
boolstatus = Part.Extension.SelectByID("", "FACE", 0.07539802752249, 0.06324559566851, -0.04660233897672, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.0217894122242, 0.05695375873096, 0.004166056991033, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.03279669688033, 0.08062281294888, -0.08614502043893, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.08220013080079, 0.06731925569963, -0.04660233897672, True, 1, Nothing)
Set Feature = Part.AddMate2 (0, 0, False, 0.03954268146222, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("", "FACE", -0.02192416823591, 0.08044783226515, -0.04660233897672, False, 0, Nothing)
Part.ClearSelection2 True
Part.ShowNamedView2 "*Trimetric", 8
' MSGBOX
' C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\Toaster+TubeEquilib.SLDASM 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?

' 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 "Toaster+TubeEquilib.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 ("142TubeEquilibratorR2 - Sheet1")
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.222741091716, 0.1131500488166, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.222741091716, 0.1131500488166, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem591@Sheet1", "ANNOTATIONTABLES", 0.1452087189349, 0.03757227366864, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem591@Sheet1", "ANNOTATIONTABLES", 0.1448829526627, 0.0388753387574, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2028693491124, 0.06167897781065, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem591@Sheet1", "ANNOTATIONTABLES", 0.105791, 0.01248827071006, 0, False, 0, Nothing)
' MSGBOX
' This cell value is parametrically linked to a part or assembly document. 
' Manually overriding the value will sever this link.  
' (To restore the link in the future, delete the user-defined text from the cell.) 
' Continue editing the cell?

Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2237183905325, 0.0724292647929, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2237183905325, 0.0724292647929, 0, False, 0, Nothing)
Part.Save2 FALSE
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem626@Sheet2", "ANNOTATIONTABLES", 0.08103276331361, 0.02915621645431, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem626@Sheet2", "ANNOTATIONTABLES", 0.08103276331361, 0.02915621645431, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem626@Sheet2", "ANNOTATIONTABLES", 0.06539598224852, 0.02785315136555, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1325038343195, 0.04251263361407, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem640@Sheet3", "ANNOTATIONTABLES", 0.07386590532544, 0.04539066420118, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem640@Sheet3", "ANNOTATIONTABLES", 0.07582050295858, 0.05190598964497, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2647649408284, 0.1401886494083, 0, False, 0, Nothing)
Part.EditCopy
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1312007692308, 0.2581160399408, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Drawing View36", "DRAWINGVIEW", 0.1852779704142, 0.2884123032544, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View36", "DRAWINGVIEW", 0.1895129319527, 0.2985110576923, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem640@Sheet3", "ANNOTATIONTABLES", 0.1083971301775, 0.05223175591716, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem640@Sheet3", "ANNOTATIONTABLES", 0.1113290266272, 0.05255752218935, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.111003260355, 0.05190598964497, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View36", "DRAWINGVIEW", 0.1097001952663, 0.2939503298817, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.03216782248521, 0.0633078091716, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem641@Sheet3", "ANNOTATIONTABLES", 0.08168429585799, 0.0633078091716, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem641@Sheet3", "ANNOTATIONTABLES", 0.1136093905325, 0.06167897781065, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.0722370739645, 0.04376183284024, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem641@Sheet3", "ANNOTATIONTABLES", 0.1305492366864, 0.01835206360947, 0, False, 0, Nothing)
' MSGBOX
' This cell value is parametrically linked to a part or assembly document. 
' Manually overriding the value will sever this link.  
' (To restore the link in the future, delete the user-defined text from the cell.) 
' Continue editing the cell?

boolstatus = Part.Extension.SelectByID("DetailItem641@Sheet3", "ANNOTATIONTABLES", 0.1240339112426, 0.01216250443787, 0, False, 0, Nothing)
' MSGBOX
' This cell value is parametrically linked to a part or assembly document. 
' Manually overriding the value will sever this link.  
' (To restore the link in the future, delete the user-defined text from the cell.) 
' Continue editing the cell?

Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1504209792899, 0.05939861390533, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Drawing View36", "DRAWINGVIEW", 0.2175288313609, 0.2919957322485, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.EditSketch
Part.Save2 FALSE
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View36", "DRAWINGVIEW", 0.2172030650888, 0.2981852914201, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1357614970414, 0.04962562573965, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2051497130178, 0.05776978254438, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2051497130178, 0.05776978254438, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1217535473373, 0.03105694822485, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem641@Sheet3", "ANNOTATIONTABLES", 0.1207762485207, 0.02812505177515, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem641@Sheet3", "ANNOTATIONTABLES", 0.1211020147929, 0.02942811686391, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1295719378698, 0.04962562573965, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1331553668639, 0.05255752218935, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2172030650888, 0.05809554881657, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3450333768275, 0.06687129694902, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.4132374969857, 0.01205803807848, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3694940167795, 0.064728759143, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3680656582422, 0.06633566249751, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3286072536481, 0.06901383475503, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3286072536481, 0.06901383475503, 0, False, 0, Nothing)
Part.EditTemplate
Part.EditSketch
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("DetailItem20@Sheet Format1", "NOTE", 0.4134160418028, 0.01152240362698, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem20@Sheet Format1", "NOTE", 0.4134160418028, 0.01313365853659, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3555675210404, 0.06847820030353, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3532464384173, 0.06954946920653, 0, False, 0, Nothing)

Dim Note As Object
Dim Annotation As Object
Dim TextFormat As Object
Set Note = Part.InsertNote("A")
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.3653874859847, 0.07526290335591, 0)
      boolstatus = Annotation.SetTextFormat(0, True, TextFormat)
   End If
End If
Part.ClearSelection2 True
Part.WindowRedraw

Part.SetPickMode
boolstatus = Part.Extension.SelectByID("DetailItem642@Sheet Format1", "NOTE", 0.3666372997048, 0.07347745518423, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3744932716602, 0.06883528993786, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3691369271452, 0.1259696314316, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.340212666764, 0.2225623775194, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3234294539502, 0.2452375692997, 0, False, 0, Nothing)
Part.Paste
' MSGBOX
' The item on the clipboard cannot be pasted here.

Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("DetailItem1@Sheet Format1", "NOTE", 0.3362846807863, 0.2627349613822, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3273574399279, 0.2379172317958, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem643@Sheet Format1", "NOTE", 0.3303927018198, 0.2373815973443, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem643@Sheet Format1", "NOTE", 0.3277145295622, 0.2363103284413, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3307497914541, 0.2477371967401, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3357490463348, 0.234881969904, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem644@Sheet Format1", "NOTE", 0.3398555771297, 0.2347034250868, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem644@Sheet Format1", "NOTE", 0.3425337493872, 0.2334536113666, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3394984874953, 0.2430950314937, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3459261009134, 0.2355961491726, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3430693838387, 0.2373815973443, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3457475560962, 0.2284543564859, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem645@Sheet Format1", "NOTE", 0.3469973698164, 0.235953238807, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem645@Sheet Format1", "NOTE", 0.3473544594507, 0.235953238807, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem645@Sheet Format1", "NOTE", 0.345569011279, 0.2357746939898, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem645@Sheet Format1", "NOTE", 0.3491399076224, 0.2368459628928, 0, False, 0, Nothing)
Part.DeSelectByID "DetailItem645@Sheet Format1", "NOTE", 0.3973470082577, 0.2607836585366, 0
boolstatus = Part.Extension.SelectByID("DetailItem645@Sheet Format1", "NOTE", 0.3982397323436, 0.2607836585366, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem645@Sheet Format1", "NOTE", 0.3989539116122, 0.2589855202216, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem645@Sheet Format1", "NOTE", 0.3978826427092, 0.259342609856, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line95", "SKETCHSEGMENT", 0.3928833878285, 0.2623778717478, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line95", "SKETCHSEGMENT", 0.3928833878285, 0.2659487680912, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3921692085598, 0.2500582793632, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem644@Sheet Format1", "NOTE", 0.3428723459304, 0.2596079930228, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem644@Sheet Format1", "NOTE", 0.3433439125897, 0.2594508041363, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem644@Sheet Format1", "NOTE", 0.3435796959194, 0.2594508041363, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3544257290849, 0.2475044487656, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3545043235281, 0.2477402320953, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem646@Sheet Format1", "NOTE", 0.3573337234843, 0.2269127046399, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3506531958099, 0.2425529988423, 0, False, 0, Nothing)
Part.EditSheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.ViewZoomtofit2
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.Save2 FALSE
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.0416150443787, 0.06754277071006, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.02988745857988, 0.08350531804734, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch

Set Note = Part.InsertNote("These two" & Chr(13) & Chr(10) & _
	"pockets <HOLE-DEPTH>.125")
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.1631258639053, 0.1434463121302, 0)
      boolstatus = Annotation.SetTextFormat(0, True, TextFormat)
   End If
End If
Part.ClearSelection2 True
Part.WindowRedraw

Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem647@Drawing View31", "NOTE", 0.1715957869822, 0.141491714497, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem647@Drawing View31", "NOTE", 0.1628000976331, 0.1437720784024, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem647@Drawing View31", "NOTE", 0.1768080473373, 0.1339990902367, 0, False, 0, Nothing)
Part.EditSketch
Part.DeSelectByID "DetailItem647@Drawing View31", "NOTE", 0.105791, 0.2131602943787, 0
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem647@Drawing View31", "NOTE", 0.1709442544379, 0.1476812736686, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1663835266272, 0.1268322322485, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem647@Drawing View31", "NOTE", 0.1693154230769, 0.1411659482249, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1836491390533, 0.1128242825444, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1735503846154, 0.06363357544379, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1654062278107, 0.0541863535503, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem647@Drawing View31", "NOTE", 0.1774595798817, 0.148332806213, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem647@Drawing View31", "NOTE", 0.1051394674556, 0.2138118269231, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem647@Drawing View31", "NOTE", 0.1087228964497, 0.1463782085799, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem647@Drawing View31", "NOTE", 0.08103276331361, 0.2144633594675, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.105791, 0.2535553121302, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1325038343195, 0.2571387411243, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1240339112426, 0.04701949556213, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D2@Sketch3@RetainingPlate-2@Drawing View34", "DIMENSION", 0.2605299792899, 0.2398731286982, 0, False, 0, Nothing)
Part.EditSketch
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", " OC", 1,"", "t", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", " OC", 1,"", "th", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", " OC", 1,"", "thr", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", " OC", 1,"", "thry", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", " OC", 1,"", "thr", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", " OC", 1,"", "thru", 0
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2448931982249, 0.05288328846154, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.111003260355, 0.04995139201183, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1106774940828, 0.05027715828402, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.09569224556213, 0.04539066420118, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.09113151775148, 0.05548941863905, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.07125977514793, 0.05646671745562, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1533528757396, 0.06037591272189, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1393449260355, 0.05776978254438, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1393449260355, 0.05776978254438, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("", "FACE", 0.3709647455621, 0.2033873062095, -499.8904142453, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\CoverPlate.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\CoverPlate.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 ("CoverPlate.SLDPRT")
Part.ClearSelection2 True
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)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
' MSGBOX
' Save changes to CoverPlate.SLDPRT?

Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "CoverPlate.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 ("142TubeEquilibratorR2 - Sheet3")
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.07614626923077, 0.07829305769231, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem647@Drawing View31", "NOTE", 0.0416150443787, 0.2405246612426, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
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
Part.EditSketch
Part.EditSketch
swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\142TubeEquilibrator.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\142TubeEquilibrator.SLDDRW", 3, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("142TubeEquilibrator - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
' MSGBOX
' Save changes to 142TubeEquilibrator - Sheet2?

Set Part = Nothing
swApp.CloseDoc "142TubeEquilibrator - Sheet2"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("142TubeEquilibratorR2 - Sheet3")
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem647@Drawing View31", "NOTE", 0.02891015976331, 0.2398731286982, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem647@Drawing View31", "NOTE", 0.0292359260355, 0.2398731286982, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1575878372781, 0.2659344304734, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1742019171598, 0.05776978254438, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.SaveTemplate
Part.EditSketch
Set Part = swApp.NewDrawing2 (13, """", 2, 0.279400, 0.431800)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1882098668639, 0.04805066024129, 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, 1, False, "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\142.slddrt", 0.4318, 0.2794, "Default", True
Part.SetupSheet4 "Sheet2", 12, 12, 1, 1, False, "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\142.slddrt", 0.4318, 0.2794, "Default", True
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1856037366864, 0.06395934171598, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.SetupSheet4 "Sheet3", 12, 12, 1, 1, False, "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\142.slddrt", 0.4318, 0.2794, "Default", True
Part.SetupSheet4 "Sheet3", 12, 12, 1, 1, False, "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Chemilum\TubeEqilibrator\142.slddrt", 0.4318, 0.2794, "Default", True
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1800657100592, 0.05874708136095, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.09210881656805, 0.0509286908284, 0, False, 0, Nothing)
Part.EditSketch
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
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1937478934911, 0.1131500488166, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1937478934911, 0.1131500488166, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1937478934911, 0.1131500488166, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1937478934911, 0.1131500488166, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1937478934911, 0.1131500488166, 0, False, 0, Nothing)
Part.Save2 FALSE
Part.PrintDirect
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.PrintDirect
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "142TubeEquilibratorR2 - Sheet1"
swApp.ExitApp
End Sub