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

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\900028-ESP-2001\Shuttle Assembly\BALL NUT BRACKET.SLDDRW", 3, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("BALL NUT BRACKET - 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
boolstatus = Part.Extension.SelectByID("DetailItem84@Sheet1", "NOTE", 0.06306731861199, 0.01934426340694, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "BALL NUT BRACKET - Sheet1"
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\sample heater\sample heater.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\ESP2G JASON.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\ESP2G JASON.SLDASM", 2, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("ESP2G JASON.SLDASM")
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID("", "FACE", -0.05443897908413, -0.09916107522077, 0.1395498107121, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.002039607899917, -0.03845472151869, 0.3883755001966, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.002170431956245, -0.03863935992075, 0.4075094178628, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("carosel-1@ESP2G JASON/carousel-body-1@carosel", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ShowComponent2
Part.ClearSelection
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("Plane 0", "PLANE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Plane 0", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Plane 0", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("ELEVATOR UP", "MATE", 0, 0, 0, False, 0, Nothing)
Part.EditUnsuppress
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("carosel-1@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("carosel-1@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("BRECOflex T 2.5 pulley 16 tooth-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("carosel bearing clamp-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("elevator track-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("2G puck-2@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("elevator car-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("elevator car-1@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("clamp-track-1@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("sample heater-1@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("sample heater-1@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ShowComponent2
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -0.0003369609951509, 0.001132013470794, 0.01084911538237, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("", "FACE", 0.005138611574466, 0.006525412971996, 0.0002540000001545, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.00514499370081, 0.01222030240103, 0.0002540000000977, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Watlow heater-1@sample heater", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\sample heater\Watlow heater.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\sample heater\Watlow heater.SLDPRT", 1, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Watlow heater.SLDPRT")
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Mirror1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.00504094332517, -0.007218399608519, 0.001777999999945, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection
Part.CreateCircle 0, 0, 0, -0.001936459454413, 0.005490563570049, 0
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -0.001763916499684, 0.008439188124441, 0.001777999999831, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.001488712957371, -0.005558530866714, -0.006843701523076, False, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.000514014, 0.00925604, 0.001778)
Part.ClearSelection
Part.Parameter("D1@Sketch9").SystemValue = 0.009906
Part.SetPickMode
Part.ClearSelection
Part.ClearSelection 
Part.FeatureManager.FeatureCut True, False, False, 0, 0, 0.00254, 0.00254, True, False, False, False, 0.1745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
boolstatus = Part.Extension.SelectByID("Sketch9", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.SelectionManager.EnableContourSelection = 0
boolstatus = Part.Extension.SelectByID("Front", "PLANE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.004940011885509, 4.778785637427e-006, 0.001775267430894, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.005272387254536, -1.391601017531e-006, 8.03514263481e-006, True, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ClearSelection
Part.SetPickMode
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\sample heater\sample heater.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\sample heater\sample heater.SLDASM", 2, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
boolstatus = Part.Extension.SelectByID("Top", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Berg CG4-1-1@sample heater", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-1@sample heater", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-1@sample heater", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("heater ULTEM-2@sample heater", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\sample heater\heater ULTEM.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\sample heater\heater ULTEM.SLDPRT", 1, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("heater ULTEM.SLDPRT")
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Sketch14", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.002073662063086, 0.004357020289855, 0, False, 0, Nothing)
Part.SketchConstraintsDel 0, "sgCORADIAL"
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", -0.002912446717818, 0.002166860358056, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.004729813469736, 0.006407382779199, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", -0.002912446717818, 0.002166860358056, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", -0.002912446717818, 0.002166860358056, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgCOINCIDENT"
boolstatus = Part.Extension.SelectByID("", "FACE", 0.008411146121057, 0.00403082625746, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.003518235635124, -0.003238640750213, 0.01524, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.00859754, 0.000349494, 0)
Part.ClearSelection
Part.Parameter("D1@Sketch14").SystemValue = 0.01016
Part.ClearSelection
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Cut-Extrude5", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch9", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Cut-Extrude4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Cut-Extrude7", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Cut-Extrude7", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.SelectionManager.EnableContourSelection = 0
boolstatus = Part.Extension.SelectByID("Cut-Extrude8", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch15", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Cut-Extrude8", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Sketch15", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Watlow heater.SLDPRT")
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Watlow heater.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("heater ULTEM.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("heater ULTEM.SLDPRT")
boolstatus = Part.Extension.SelectByID("", "FACE", -0.0005046307985879, -0.00844055984723, 0.03047999999984, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection
Part.CreateCircle 0, 0, 0, -0.002007643321349, 0.009293037955615, 0
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.005911377049766, 0.01579876509827, 0.0027361582086, False, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.00141488, 0.0196966, 0.03048)
Part.ClearSelection
Part.Parameter("D1@Sketch15").SystemValue = 0.01905
Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("D1@Sketch15@heater ULTEM.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.FeatureManager.FeatureCut True, False, False, 0, 0, 0.0127, 0.00254, False, False, False, False, 0.1745329251994, 0.1745329251994, False, False, False, False, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
boolstatus = Part.Extension.SelectByID("Cut-Extrude8", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.SelectionManager.EnableContourSelection = 0
Part.EditRebuild
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("heater ULTEM.SLDPRT")
boolstatus = Part.Extension.SelectByID("Sketch14", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Sketch14@heater ULTEM.SLDPRT", "DIMENSION", 0.007024039706897, 0.0003151133046616, 0.0007211307071832, False, 0, Nothing)
Part.Parameter("D1@Sketch14").SystemValue = 0.008128
Part.EditRebuild
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.007161406403167, 0.01227871547226, 0.02709846311888, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.00175357096802, 0.009922470970309, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection
Part.CreateCircle 0, 0, 0, 0.001837912981159, -0.005940340559903, 0
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -0.00134636393426, -0.01040681851936, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.002169741662424, -0.002122909783779, 0.006125063991394, False, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.000861596, -0.00914662, 0)
Part.ClearSelection
Part.Parameter("D1@Sketch16").SystemValue = 0.01016
Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("D1@Sketch16@heater ULTEM.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.FeatureManager.FeatureCut True, False, False, 0, 0, 0.00508, 0.0127, False, False, False, False, 0.1745329251994, 0.1745329251994, False, False, False, False, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
boolstatus = Part.Extension.SelectByID("", "FACE", -0.0001297516033745, 0.001582188601901, 0.004702149428539, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\sample heater\Titanium.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\sample heater\Titanium.SLDPRT", 1, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Titanium.SLDPRT")
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D10@Sketch1@Titanium.SLDPRT", "DIMENSION", -0.001105384465301, -0.003054682682419, 0.0145301121942, False, 0, Nothing)
Part.Parameter("D10@Sketch1").SystemValue = 0.009906
boolstatus = Part.Extension.SelectByID("D10@Sketch1@Titanium.SLDPRT", "DIMENSION", -0.001292309427528, -0.003023528522048, 0.0145301121942, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D9@Sketch1@Titanium.SLDPRT", "DIMENSION", 0.005732953736179, -0.002634101517408, 0.0145301121942, False, 0, Nothing)
Part.ClearSelection
Part.InsertSketch2 True
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Titanium.SLDPRT")
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.002820039741471, -0.005562592592301, 0.0145301121942, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Point5", "SKETCHPOINT", 0.0015875, -0.005588, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point5", "SKETCHPOINT", 0.0015875, -0.0097839813226, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D9@Sketch1@Titanium.SLDPRT", "DIMENSION", 0.008225286565875, -0.003101413922976, 0.0145301121942, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.004954099726899, -0.002634101517408, 0.0145301121942, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Point7", "SKETCHPOINT", 0.004953, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 1.616530806257e-005, -0.001278895541261, 0.0145301121942, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.00140135, -0.0013412, 0)
Part.ClearSelection
Part.Parameter("D9@Sketch1").SystemValue = 0.009906
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D9@Sketch1@Titanium.SLDPRT", "DIMENSION", -0.001487730915837, -0.001265188662476, 0.007561067281461, False, 0, Nothing)
Part.ViewZoomTo2 0.00281633, 0.00149383, 0.00756107, 0.00754804, -0.00287921, 0.00756107
Part.ClearSelection
Part.CreateLine2 0.004953, 0, 0, 0.004640266342066, -0.001720043346642, 0
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0.004751328982295, -0.001099448412731, 0.007561067281461, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.001557545748575, -0.001412800730002, 0.007561067281461, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.00361844, 0.00191958, 0)
Part.ClearSelection
Part.Parameter("D10@Sketch1").SystemValue = 0.261799
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("D10@Sketch1@Titanium.SLDPRT", "DIMENSION", 0.003678699896253, 0.001919580644049, 0.007561067281461, False, 0, Nothing)
Part.Parameter("D10@Sketch1").SystemValue = 0.226893
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D10@Sketch1@Titanium.SLDPRT", "DIMENSION", 0.003624465841341, 0.00187739860134, 0.007561067281461, False, 0, Nothing)
Part.Parameter("D10@Sketch1").SystemValue = 0.20944
Part.ClearSelection
Part.CreateLine2 0.004758679795053, -0.0009142046870747, 0, 0.004758679795053, -0.003196498536004, 0
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0.004546444774849, 3.310703817175e-006, 0.007561067281461, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point34", "SKETCHPOINT", 0.004758679795053, -0.003196498536004, 0, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.006993, -0.00148511, 0)
Part.ClearSelection
Part.Parameter("D11@Sketch1").SystemValue = 0.005588
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing)
Part.SketchTrim 1, 1, 0.004642860872471, -0.001454982772712
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Point33", "SKETCHPOINT", 0.004758679795053, -0.0009142046870747, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0.00472722495789, -2.681932668962e-005, 0.007561067281461, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.00755945, -0.000466718, 0)
Part.ClearSelection
Part.Parameter("D12@Sketch1").SystemValue = 0.00254
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D12@Sketch1@Titanium.SLDPRT", "DIMENSION", 0.007179809441143, -0.001334462650684, 0.007561067281461, False, 0, Nothing)
Part.Parameter("D12@Sketch1").SystemValue = 0.02286
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D12@Sketch1@Titanium.SLDPRT", "DIMENSION", 0.002927034564741, -0.0117731690225, 0.007561067281461, False, 0, Nothing)
Part.Parameter("D12@Sketch1").SystemValue = 0.002286
Part.SetPickMode
Part.ClearSelection
Part.CreateLine2 0.004467095700022, -0.005588, 0, 0.0030607, -0.005588, 0
Part.CreateLine2 0.0030607, -0.005588, 0, 0.0030607, -0.01109245605819, 0
Part.CreateLine2 0.0030607, -0.01109245605819, 0, 0.0015875, -0.01109245605819, 0
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0.003118274308243, -0.007395903782357, 0.007561067281461, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 1.594069144458e-005, -0.0006387661786461, 0.007561067281461, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.00102525, -0.00204119, 0)
Part.ClearSelection
Part.Parameter("D13@Sketch1").SystemValue = 0.00635
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0.004478201373141, 4.119735380286e-005, 0.007561067281461, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line17", "SKETCHSEGMENT", 0.001779596103734, -0.01105070776927, 0.007561067281461, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0125528, -0.00476105, 0)
Part.ClearSelection
Part.Parameter("D14@Sketch1").SystemValue = 0.02032
Part.ClearSelection
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ClearSelection
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\sample heater\Watlow heater.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\sample heater\Watlow heater.SLDPRT", 1, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Watlow heater.SLDPRT")
boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.SelectionManager.EnableContourSelection = 0
Part.EditRebuild
Part.ClearSelection
Part.EditRebuild
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Watlow heater.SLDPRT")
boolstatus = Part.Extension.SelectByID("Sketch9", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Titanium.SLDPRT")
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D9@Sketch1@Titanium.SLDPRT", "DIMENSION", 0.0008233973862277, 0.0009973960713091, 0.007561067281461, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Point33", "SKETCHPOINT", 0.004467095700022, -0.002286, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -5.308168944443e-006, -0.0002350378312545, 0.007561067281461, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.000749018, -0.000638766, 0)
Part.ClearSelection
Part.Parameter("D9@Sketch1").SystemValue = 0.009906
Part.SetPickMode
Part.ClearSelection
Part.InsertSketch2 True
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Titanium.SLDPRT")
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D9@Sketch1@Titanium.SLDPRT", "DIMENSION", 0.0007384019446715, -0.0005537707370899, 0.007561067281461, False, 0, Nothing)
Part.EditDelete
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Watlow heater.SLDPRT")
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.002902389830837, 0.004498122424593, -3.938045068708e-005, True, 0, Nothing)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Titanium.SLDPRT")
boolstatus = Part.Extension.SelectByID("Point7", "SKETCHPOINT", 0.005438904299978, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.0001009361330007, -0.000575019597479, 0.007561067281461, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.00115275, -0.00038378, 0)
Part.ClearSelection
Part.Parameter("D9@Sketch1").SystemValue = 0.0106619
Part.ClearSelection
Part.InsertSketch2 True
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
boolstatus = Part.Extension.SelectByID("", "FACE", -9.584036270383e-005, 0.001584604327547, 0.003372666599695, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.0003903873964717, 0.001538750769555, 0.003273908211039, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Coincident8", "MATE", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("", "FACE", -0.000462756449533, 0.001518556129497, 0.005063912583388, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Concentric6", "MATE", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("", "FACE", 0.0008190542838129, 0.001359892028972, 0.004127311905378, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0006009000842475, 0.004784099937865, 0.005809150343818, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Titanium-1@sample heater", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.TranslateComponent
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", 0.004694862137612, -4.274181549135e-006, 0.001435857444932, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", 0.004372238457364, 0, 0.001621733056595, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", 0.004163287556793, 0, 0.001580087822404, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", 0.004191908967357, 0, 0.001795782297279, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.001874559665168, 0.004875901916307, 0.0005038479240511, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.001099128679755, 0.004692844767419, -0.001511918682851, True, 0, Nothing)
Part.AddMate 0, 2, False, 5.378334890572e-005, 0.5235987755983
Part.ClearSelection
Part.ClearSelection
' 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
boolstatus = Part.Extension.SelectByID("", "FACE", 0.01372271759068, 0.0124822095579, 0.001778000000115, False, 0, Nothing)
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("ESP2G JASON.SLDASM")
boolstatus = Part.Extension.SelectByID("gripper-plate-1@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("gripper-base-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("maxon-GP10A256to1-RE10-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("maxon-GP10A64to1-RE10-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("berg-8TP2-20-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("berg-8TP2-20-2@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("arm-rotator-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Hex Screw_AI-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("finger-right-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("finger-left-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("gripper-cam-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("clamp-track-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Nook 6x2mm ball screw - clamp-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("BERG SS1-104-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("clamp-upper-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("clamp-upper-SH-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("helical W7C 15-4-3mm-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("1875 rod - retaining-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("BERG SS1-104-2@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("rotorclip DSH-4-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-10@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Regular_AI-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-11@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("hall effect-2@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("temperature-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Flat Washer Type B Narrow_AI-2@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-12@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("CR 16003-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-10@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ShowComponent2
boolstatus = Part.Extension.SelectByID("sample syringe-1@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("BERG SS1-104-3@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("syringe arm-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("BERG SS1-104-4@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Nook 6x2mm ball screw - syringe-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Nook 6x2mm nut-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("BERG SS2-47-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Basic External Retaining Ring_wti-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Basic External Retaining Ring_wti-2@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("helical W7C 15-3-3mm-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("rotary manifold-2@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("rotary manifold-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("2G puck-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("carosel-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("BRECOflex T 2.5 pulley 16 tooth-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("carosel bearing clamp-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("elevator track-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("2G puck-2@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("elevator car-1@ESP2G JASON", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("elevator car-1@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ShowComponent2
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.01966212915016, 0.009338329965544, 0.02994140357103, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.02138649359506, 0.07233867438822, 0, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("", "FACE", 0.03289410818756, -0.02884978212569, -0.01078489231629, False, 0, Nothing)
' MSGBOX
' The selected component is fully defined.  It cannot be moved.

Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.03201527358093, -0.03008102974206, -0.01067717210786, False, 0, Nothing)
' MSGBOX
' The selected component is fully defined.  It cannot be moved.

Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.03125318912302, -0.03268420332824, -0.01044942392993, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.03125318912302, -0.03268420332824, -0.01044942392993, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("GRIPPED1", "MATE", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.03204200199579, -0.0314653359747, -0.01055606100566, False, 0, Nothing)
Part.TranslateComponent
Part.ClearSelection
Part.SetPickMode
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.04715532214618, -0.03818659250908, 0.03575375335299, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("top-plate-1@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ShowComponent2
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.02924749290435, -0.1527466154347, 0.02146898172816, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.06566205503901, -0.1455806038841, 0.01909468990044, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.03363808944614, -0.1464997236448, 0.06690403555979, False, 0, Nothing)
Part.ClearSelection
Part.ViewZoomtofit2
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\drawings\Titanium frit prototypes rev A.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\drawings\Titanium frit prototypes rev A.SLDDRW", 3, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Titanium frit prototypes rev A - Sheet1")
Part.EditSketch
Part.EditSketch
Part.ViewZoomTo2 0.217459, 0.21507, -2.89281e-015, 0.260429, 0.185615, -2.68713e-015
Part.ViewZoomtofit2
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "Titanium frit prototypes rev A - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("ESP2G JASON.SLDASM")
boolstatus = Part.Extension.SelectByID("", "FACE", 0.07374641644878, 0.0001154569391701, -0.0009143999997718, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.07726878812679, 0.0109251666081, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.07446354704632, 0.002915506481486, -0.0009143999998287, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -0.05366167609992, -0.1600872365709, 0.01943831695773, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1440847732407, -0.09995548739357, 0.0003341475426382, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1553507385169, -0.07727737562971, 0.0002966386432846, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1519953982553, -0.1094899745831, 0.004051144548065, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("2G puck-1@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1012385849601, -0.06425279974144, -0.009482421380177, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1286286465382, -0.03368942490243, -0.04191222801126, False, 0, Nothing)
Part.ViewZoomtofit2
Part.ClearSelection
Part.ViewZoomTo2 -0.219435, 0.225951, -0.0885077, 0.228524, -0.396319, -0.0885077
boolstatus = Part.Extension.SelectByID("top-plate-1@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ShowComponent2
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Right@clamp-track-1@ESP2G JASON", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Plane 0", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.07730657334114, -0.02274838350532, -0.135385, False, 0, Nothing)
Part.ClearSelection
Part.ViewZoomtofit2
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 769
swApp.ActiveDoc.ActiveView.FrameHeight = 532
Set Part = swApp.ActivateDoc ("ESP2G JASON.SLDASM")
' MSGBOX
' C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\ESP2G JASON.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?

Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "ESP2G JASON.SLDASM"
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
Set Part = swApp.ActivateDoc ("heater ULTEM.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 769
swApp.ActiveDoc.ActiveView.FrameTop = 708
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Sketch15", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Sketch16", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Sketch14", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Sketch16", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Sketch14", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch14", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Cut-Extrude7", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Cut-Extrude9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.SelectionManager.EnableContourSelection = 0
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\drawings\2G puck - titanium prototype.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\drawings\2G puck - titanium prototype.SLDDRW", 3, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("2G puck - titanium prototype - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.ViewZoomTo2 0.118403, 0.281981, -3.37519e-015, 0.369292, 0.142475, -2.40102e-015
boolstatus = Part.Extension.SelectByID("Drawing View11", "DRAWINGVIEW", 0.245585418399, 0.2511806284178, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View11", "DRAWINGVIEW", 0.2431317353499, 0.2581327303904, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2449719976367, 0.2738771966225, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2224799030194, 0.2746950909723, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View11", "DRAWINGVIEW", 0.2298409521669, 0.2601774662647, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View11", "DRAWINGVIEW", 0.2302498993417, 0.2605864134396, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2320901616286, 0.275512985322, 0, False, 0, Nothing)
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "2G puck - titanium prototype - Sheet2"
swApp.ActiveDoc.ActiveView.FrameLeft = 769
swApp.ActiveDoc.ActiveView.FrameTop = 708
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("heater ULTEM.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 769
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Titanium.SLDPRT")
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line14", "SKETCHSEGMENT", 0.004833543235027, -0.003138932550369, 0.00378053364073, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.001520943308534, -0.003650436950783, 0.00378053364073, True, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line14", "SKETCHSEGMENT", 0.004760471177825, -0.004381157522804, 0.00378053364073, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -6.22845975099e-005, -0.0008249840723042, 0.00378053364073, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.000110999, -0.000922413, 0)
Part.ClearSelection
' MSGBOX
' This dimension is over defined.  Its value cannot be changed.

Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D13@Sketch1@Titanium.SLDPRT", "DIMENSION", 0.001155583022524, -0.01668162048515, 0.00378053364073, False, 0, Nothing)
Part.Parameter("D13@Sketch1").SystemValue = 0.009525
Part.SetPickMode
Part.ClearSelection
Part.InsertSketch2 True
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 769
swApp.ActiveDoc.ActiveView.FrameTop = 708
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("heater ULTEM.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.00360535639453, 0, 0.02203872297247, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", 0.002355121501653, -7.183611768369e-005, 0.03224126978057, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.0007267290633166, 0.002796088651181, 0.02032000000008, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", 0.007697376266442, 0, 0.01948947277941, True, 0, Nothing)
Part.DeSelectByID "Unknown", "MANIPULATOR", 0.007697376266442, 0, 0.01948947277941
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", 0.007697376266442, 0, 0.01948947277941, True, 0, Nothing)
Part.DeSelectByID "Unknown", "MANIPULATOR", 0.007697376266442, 0, 0.01948947277941
boolstatus = Part.Extension.SelectByID("", "FACE", 0.0003884192039427, 0.00674674614794, 0.01701799999995, True, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 769
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Titanium.SLDPRT")
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D14@Sketch1@Titanium.SLDPRT", "DIMENSION", 0.01274968276525, -0.008716766250125, 0.00378053364073, False, 0, Nothing)
Part.Parameter("D14@Sketch1").SystemValue = 0.02286
Part.EditRebuild
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D11@Sketch1@Titanium.SLDPRT", "DIMENSION", 0.00644773128619, -0.002864281660102, 0.02075465154641, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D11@Sketch1@Titanium.SLDPRT", "DIMENSION", 0.01073456023324, -0.003439388160192, 0.02092921731182, False, 0, Nothing)
Part.Parameter("D11@Sketch1").SystemValue = 0.01524
Part.EditRebuild
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
boolstatus = Part.Extension.SelectByID("", "FACE", -0.01185704127857, 0.0005967306677803, 0.006857999999909, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", 0.008329897039118, 0, 0.01741538002744, True, 0, Nothing)
Part.DeSelectByID "Unknown", "MANIPULATOR", 0.008329897039118, 0, 0.01741538002744
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", 0.006536764133642, 0, 0.01986149284045, True, 0, Nothing)
Part.DeSelectByID "Unknown", "MANIPULATOR", 0.00648840707089, 0, 0.02188711918006
boolstatus = Part.Extension.SelectByID("", "FACE", -0.001754106089574, 0.007534141358917, 0.01701799999995, True, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.0003132050742636, 0.003555495652449, 0.02285999999998, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0110014789222, 0.007041853787854, 0.02900926567344, True, 0, Nothing)
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.002052021392558, 0, 0.03410152462789, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.002730798073543, -4.08722324039e-005, 0.03369193946793, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.003072663743183, -0.0001346293406925, 0.03222005686757, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.005076481352631, 0, 0.02901730726677, True, 0, Nothing)
Part.DeSelectByID "Unknown", "MANIPULATOR", -0.004830816054238, 0, 0.02832900713673
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.004769399729639, 0, 0.02815693210431, True, 0, Nothing)
Part.DeSelectByID "Unknown", "MANIPULATOR", -0.004707983405012, 0, 0.02798485707171
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.004707983405012, 0, 0.02798485707171, True, 0, Nothing)
Part.EditDelete
Part.EditDelete
Part.EditDelete
Part.EditDelete
Part.DeSelectByID "Unknown", "MANIPULATOR", -0.004707983405012, 0, 0.02798485707171
Part.DeSelectByID "Unknown", "MANIPULATOR", -0.003072663743183, -0.0001346293406925, 0.03222005686757
Part.DeSelectByID "Unknown", "MANIPULATOR", -0.002052021392558, 0, 0.03410152462789
Part.DeSelectByID "Unknown", "MANIPULATOR", -0.002730798073543, -4.08722324039e-005, 0.03369193946793
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.002294351706837, 5.510394294106e-005, 0.03227353016746, True, 0, Nothing)
Part.EditDelete
Part.DeSelectByID "Unknown", "MANIPULATOR", -0.002294351706837, 5.510394294106e-005, 0.03227353016746
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.003679383269429, 0, 0.03078859593074, True, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("", "FACE", 9.183283685843e-005, 0.003346004629805, 0.02285999999992, True, 0, Nothing)
Part.DeSelectByID "Unknown", "MANIPULATOR", -0.003679383269429, 0, 0.03078859593074
boolstatus = Part.Extension.SelectByID("", "FACE", 0.0009396967117254, 0.01156219255773, 0.03225800000001, True, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 769
swApp.ActiveDoc.ActiveView.FrameTop = 708
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("heater ULTEM.SLDPRT")
boolstatus = Part.Extension.SelectByID("Cut-Extrude9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Cut-Extrude9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Cut-Extrude8", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Cut-Extrude8@heater ULTEM.SLDPRT", "DIMENSION", 0.006297076664434, -0.01255354839975, 0.02253869973233, False, 0, Nothing)
Part.Parameter("D1@Cut-Extrude8").SystemValue = 0.01016
Part.EditRebuild
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 769
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Titanium.SLDPRT")
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D14@Sketch1@Titanium.SLDPRT", "DIMENSION", -0.00226320466598, -0.006699281689667, 0.0235842024403, False, 0, Nothing)
Part.Parameter("D14@Sketch1").SystemValue = 0.02794
boolstatus = Part.Extension.SelectByID("D11@Sketch1@Titanium.SLDPRT", "DIMENSION", -0.003913140056856, -0.005752894672061, 0.02238681927939, False, 0, Nothing)
Part.Parameter("D11@Sketch1").SystemValue = 0.02032
Part.EditRebuild
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 769
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Titanium.SLDPRT")
boolstatus = Part.Extension.SelectByID("", "FACE", -0.001232365235637, -0.02793999999989, 0.001864737314435, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection
Part.CreateCircle 0, 0, 0, 0.002823671948761, -0.0005072290303758, 0
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.001287414373235, -0.02668701199511, 0.00215565733888, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.00636097, -0.02794, -0.00232026)
Part.ClearSelection
Part.Parameter("D1@Sketch2").SystemValue = 0.00635
Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("D1@Sketch2@Titanium.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.FeatureManager.FeatureCut True, False, False, 0, 0, 0.00889, 0.00254, False, False, False, False, 0.1745329251994, 0.1745329251994, False, False, False, False, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.003160231332231, -0.01904389559388, -1.802311714272e-005, False, 0, Nothing)
Part.FeatureFillet5 67, 0.0001778, 0, 0, 0, 0, 0
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.003125140911465, -0.02794786735166, -0.0006593419031091, False, 0, Nothing)
Part.FeatureChamferType 1, 0.000254, 0.7853981633975, False, 0, 0, 0, 0
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D1@Sketch1@Titanium.SLDPRT", "DIMENSION", 0.00102922889371, -0.02656739354281, 0.007818308909298, False, 0, Nothing)
Part.Parameter("D1@Sketch1").SystemValue = 0.0016002
Part.EditRebuild
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
boolstatus = Part.Extension.SelectByID("", "FACE", 0.0007487175920886, 0.008462256480044, 0.02209799999997, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", 0.002289228478929, 0, 0.03575542835625, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.003890278031179, 0.001747578678504, 0.02793999999994, True, 0, Nothing)
Part.DeSelectByID "Unknown", "MANIPULATOR", 0.002289228478929, 0, 0.03575542835625
Part.SetPickMode
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 769
swApp.ActiveDoc.ActiveView.FrameTop = 708
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("heater ULTEM.SLDPRT")
boolstatus = Part.Extension.SelectByID("Cut-Extrude8", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Cut-Extrude8@heater ULTEM.SLDPRT", "DIMENSION", 0.01148387766092, -7.75232662874e-005, 0.02610823252327, False, 0, Nothing)
Part.Parameter("D1@Cut-Extrude8").SystemValue = 0.01143
Part.EditRebuild
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", 0.003148700623122, 0, 0.03100447432752, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.001547946284703, 0.003665149370676, 0.02794, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.00528960266354, 0.005656433833174, 0.02082799999994, True, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.003300429096811, 0.008906744356011, 0.03224722655744, True, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0008011462857951, 0.02764270814384, 0.02050476948722, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0008011462857951, 0.02764270814384, 0.02050476948722, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.008818879071654, 0.0192645533628, 0.02901695999998, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.008818879071654, 0.0192645533628, 0.02901695999998, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\sample heater\aluminum heater mount.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\sample heater\aluminum heater mount.SLDPRT", 1, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("aluminum heater mount.SLDPRT")
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -0.01420210013185, 0.01283313141016, 0.0187959999999, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection
Part.SketchRectangle 0.01873782324524, 0.004359647627167, 0, 0.02757260585394, -0.005341290139244, 0, 1
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.01821813015061, 0.001299232736573, 0.01879600000001, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.01873782324524, 0.00170343847684, 0.01879600000001, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.01873782324524, 0.001761182154021, 0.01879600000001, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.0188533105996, 0.0001443591929526, 0.01879600000001, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.01509997158284, 0.002165387894288, 0.01879600000001, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.01891105427678, 0.001183745382211, 0.01879600000001, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.01869844395, -0.001530207445297, 0.0187959999999, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.01887167506415, 0.0001443591929526, 0.0187959999999, False, 0, Nothing)
Part.SelectMidpoint
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.01875618765472, -0.0003753339016766, 0.0187959999999, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.01869844395, -0.0003753339016766, 0.0187959999999, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.0190449061783, 0.0006063086104007, 0.0187959999999, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.01898716247358, 0.0008950269963058, 0.0187959999999, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.01887167506415, 0.001414720090935, 0.0187959999999, False, 0, Nothing)
Part.SelectMidpoint
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgHORIZPOINTS"
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.02129691066219, 0.005341290139244, 0.0187959999999, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02550384182504, 0.005225802784882, 0.01023609859192, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.02746836673334, 0.003435748792271, 0.01150478091328, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.0280458032298, 0.004937084398977, 0.01150421701027, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.02775708498157, 0.006380676328502, 0.01150449896178, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.02746836673334, -0.006380676328502, 0.01150478091328, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.00426252, -0.00118375, 0.018796)
Part.ClearSelection
Part.Parameter("D1@Sketch16").SystemValue = 0.009525
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D1@Sketch16@aluminum heater mount.SLDPRT", "DIMENSION", 0.00419767592572, -0.0005485649332197, 0.0115275062045, False, 0, Nothing)
Part.Parameter("D1@Sketch16").SystemValue = 0.00635
Part.SetPickMode
Part.ClearSelection
Part.ViewDisplayHiddengreyed
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.01846746913114, 0.001010514350668, 0.0187959999999, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.03203011505542, 0.0006063086104007, 0.01150032607952, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D1@Sketch16@aluminum heater mount.SLDPRT", "DIMENSION", 9.78768008051e-005, -0.0001443591929525, 0.01153150991585, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.01707450979693, -0.0003753339016766, 0.01151493116742, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.01695902249764, 0.001299232736573, 0.01151504394802, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.00772714, 0.00528355, 0.018796)
Part.ClearSelection
Part.Parameter("D2@Sketch16").SystemValue = 0.017145
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.005430473554014, 0.0223363409263, 0.01521094389307, True, 1, Nothing)
Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("", "FACE", 0.005430473554014, 0.0223363409263, 0.01521094389307, False, 1, Nothing)
Part.FeatureManager.FeatureCut True, False, False, 4, 0, 0.006858, 0.00254, False, False, False, False, 0.1745329251994, 0.1745329251994, False, False, False, False, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ViewDisplayShaded
boolstatus = Part.Extension.SelectByID("Cut-Extrude10", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.DeSelectByID "", "FACE", -0.022987, 0, 0.018796
boolstatus = Part.Extension.SelectByID("", "FACE", 0.02292603120884, 0.01157665338155, 0.01023619999989, True, 1, Nothing)
Part.SelectionManager.EnableContourSelection = 0
Part.DeSelectByID "Cut-Extrude10", "BODYFEATURE", 0, 0, 0
boolstatus = Part.Extension.SelectByID("", "FACE", 0.01740726857361, -0.003174999999999, 0.01592399548648, True, 1, Nothing)
Part.DeSelectByID "", "FACE", 0.01740726857361, -0.003174999999999, 0.01592399548648
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01713516168962, 0.003125324081864, 0.0171948719059, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.021760869113, -0.007476054218237, 0.004332453572545, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01713750845374, -0.003109402151814, 0.01733090763946, True, 1, Nothing)
Part.DeSelectByID "", "EDGE", -0.021760869113, -0.007476054218237, 0.004332453572545
Part.FeatureFillet5 67, 0.003175, 0, 0, 0, 0, 0
boolstatus = Part.SetUserPreferenceToggle(198, True)
boolstatus = Part.Extension.SelectByID("Cut-Extrude10", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.SelectionManager.EnableContourSelection = 0
boolstatus = Part.Extension.SelectByID("Cut-Extrude10", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.SelectionManager.EnableContourSelection = 0
boolstatus = Part.SetUserPreferenceToggle(198, False)
boolstatus = Part.Extension.SelectByID("", "AXIS", 0.01521537903925, 0.004211147008004, 0.03344511686979, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Cut-Extrude10", "BODYFEATURE", 0, 0, 0, True, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Fillet1", "BODYFEATURE", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("Cut-Extrude10", "BODYFEATURE", 0, 0, 0, False, 4, Nothing)
boolstatus = Part.Extension.SelectByID("", "AXIS", 0.01521537903925, 0.004211147008004, 0.03344511686979, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Fillet1", "BODYFEATURE", 0, 0, 0, True, 4, Nothing)
Part.FeatureCirPattern 6, 0.2617993877992, False, "NULL"
Part.Save2 FALSE
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
swApp.LoadFile2 "C:\Program Files\SolidWorks (2)\data\templates\Part.prtdot", ""
Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks (2)\data\templates\Part.prtdot", 0, 0.000000, 0.000000)
Set Part = swApp.ActivateDoc ("Part1")
Part.InsertSketch2 True
Part.CreateCircle 0, 0, 0, 0.01115391304348, -0.0140252173913, 0
Part.ClearSelection
Part.CreateCircle 0, 0, 0, 0.02838173913043, -0.03655391304348, 0
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.002760869565217, -0.01778, 0, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0294861, 0.00762, 0)
Part.ClearSelection
Part.Parameter("D1@Sketch1").SystemValue = 0.009525
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.04627217391304, -0.002098260869565, 0, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.065267, -0.000552174, 0)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part1.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D2@Sketch1").SystemValue = 0.01397
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT", "DIMENSION", 0.06835913043478, -0.0003313043478261, 0, False, 0, Nothing)
Part.Parameter("D2@Sketch1").SystemValue = 0.014605
Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT", "DIMENSION", 0.06835913043478, -0.0003313043478261, 0, False, 0, Nothing)
Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.00508, 0.00254, False, False, False, False, 0.1745329251994, 0.1745329251994, False, False, False, False, 1, 1, 1
Part.SelectionManager.EnableContourSelection = 0
boolstatus = Part.Extension.SelectByID("Part1.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.002108290435643, -0.005474122995892, 0.00507999999985, False, 0, Nothing)
Part.ClearSelection
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 769
swApp.ActiveDoc.ActiveView.FrameHeight = 354
boolstatus = Part.Extension.SelectByID("Part1.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
' MSGBOX
' Cannot insert an unsaved model into this document. Would you like to save now?

Part.SaveAs2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\sample heater\375 x 32 nut.SLDPRT", 0, FALSE, FALSE
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 354
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("", "FACE", -0.0423387836047, 0.07676742031668, 0.02703247841004, False, 0, Nothing)
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("375 x 32 nut.SLDPRT")
' MSGBOX
' C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\sample heater\375 x 32 nut.SLDPRT is being referenced by other open documents.  "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references.  

Part.SaveAs2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\sample heater\375 x 030 shim.SLDPRT", 0, TRUE, FALSE
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\sample heater\375 x 030 shim.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\sample heater\375 x 030 shim.SLDPRT", 1, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("375 x 030 shim.SLDPRT")
boolstatus = Part.Extension.SelectByID("375 x 030 shim.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D2@Sketch1@375 x 030 shim.SLDPRT", "DIMENSION", -0.01291835150657, -0.04089596771841, 0.006548164975622, False, 0, Nothing)
Part.Parameter("D2@Sketch1").SystemValue = 0.015875
boolstatus = Part.Extension.SelectByID("D1@Extrude1@375 x 030 shim.SLDPRT", "DIMENSION", -0.02516130232159, -0.0177001043564, 0.005287810391075, False, 0, Nothing)
Part.Parameter("D1@Extrude1").SystemValue = 0.000762
Part.EditRebuild
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -0.001791510915155, 0.006227563098946, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection
Part.SketchRectangle 0.006025979969024, 0.007823434213378, 0, -0.007450663262716, 0.005934948144784, 0, 1
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 6.229217098053e-005, 0.007904192324872, -1.775257749159e-005, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", -0.0002933603522592, 0.006052704858291, 0, False, 0, Nothing)
Part.SelectMidpoint
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgVERTPOINTS"
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", -0.000150103873068, 0.005886515708198, 0, False, 0, Nothing)
Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", -0.000150103873068, 0.005886515708198, 0, False, 0, Nothing)
Part.FeatureManager.FeatureCut True, False, False, 1, 0, 0.00254, 0.00254, False, False, False, False, 0.1745329251994, 0.1745329251994, False, False, False, False, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 769
swApp.ActiveDoc.ActiveView.FrameHeight = 354
boolstatus = Part.Extension.SelectByID("375 x 030 shim.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 708
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.04119212179137, 0.08622762770364, -0.0004755878684364, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -0.04252383435325, 0.08340724244778, -0.001182389856268, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.006164211790406, 0.003296765328173, 0.02082799999994, True, 0, Nothing)
Part.AddMate 0, 2, False, 0.02201038985629, 0
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -0.04635420989715, 0.08614718513377, 0.02095386516824, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.004434568547424, 0.001736665784847, 0.0239168984084, True, 0, Nothing)
Part.AddMate 1, 2, False, 0.08494200036653, 0.5235987755983
Part.ClearSelection
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("", "FACE", -0.007176046187283, 0.001088712397262, 0.02158999999983, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.005408877166417, 1.370643423115e-005, 0.01830764061305, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.005315741766822, 0.002934083925624, 0.02101887980695, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.00614680000001, 0.0009052666673597, 0.004421067096985, True, 0, Nothing)
Part.AddMate 3, 2, False, 0.01397, 2.697825423698
Part.ClearSelection
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("375 x 030 shim.SLDPRT")
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", -0.0002248326006224, 0.006088993625667, 0, False, 0, Nothing)
Part.ClearSelection
Part.InsertSketch2 True
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 708
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.005069222638424, -2.92731101581e-007, 0.01938357244745, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.005402079535191, -4.969422207068e-009, 0.01945186798582, True, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 769
swApp.ActiveDoc.ActiveView.FrameTop = 266
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("heater ULTEM.SLDPRT")
boolstatus = Part.Extension.SelectByID("Sketch14", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch14", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
Part.FeatureManager.EditRollback 3, "Cut-Extrude6"
boolstatus = Part.Extension.SelectByID("Sketch9", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch9", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection
Part.ViewDisplayHiddengreyed
Part.ViewDisplayHiddenremoved
boolstatus = Part.Extension.SelectByID("", "FACE", -0.01004211628303, 0.01637960034101, 0.03048000000001, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch9@heater ULTEM.SLDPRT", "DIMENSION", -0.002912446717818, -0.007758758056266, 0.01524, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch9@heater ULTEM.SLDPRT", "DIMENSION", -0.002912446717818, -0.007758758056266, 0.01524, False, 0, Nothing)
Part.Parameter("D1@Sketch9").SystemValue = 0.00635
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -0.008644141858483, -0.0002096961636829, 0.01524, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", -0.008783939300938, -0.0006290884910486, 0.01524, False, 0, Nothing)
Part.SketchConstraintsDel 1, "sgATMIDDLE"
boolstatus = Part.Extension.SelectByID("", "FACE", -0.009016935038363, 0.008970335890878, 0.03048000000001, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -0.009669323103154, -2.329957374254e-005, 0.01524, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", -0.01213907791986, 0.0004426919011084, 0.03048000000001, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.01363025063939, -0.009622723955669, 0.03048000000001, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", -0.006267585336743, -0.001141679113384, 0.03048000000001, False, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.00598799, -0.00132808, 0.03048)
Part.ClearSelection
' MSGBOX
' This dimension is over defined.  Its value cannot be changed.

' MSGBOX
' The sketch is no longer over defined.

Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", -0.0126516685422, -0.0002562953111678, 0.03048000000001, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", -0.008644141858483, 0.00146787314578, 0.01524, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D2@Sketch9@heater ULTEM.SLDPRT", "DIMENSION", -0.007479163171355, 0.000302894458653, 0.01524, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", -0.01176628473998, 0.0006290884910487, 0.03048000000001, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -0.005009408354646, -0.0001164978687126, 0.03048000000001, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", -0.009715922250639, 0.0002096961636829, 0.01524, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.006127787894288, 0.0002562953111681, 0.03048000000001, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.00212026, 0.00855094, 0.03048)
Part.ClearSelection
Part.Parameter("D3@Sketch9").SystemValue = 0.003683
Part.ClearSelection
Part.InsertSketch2 True
Part.SetPickMode
Part.ViewDisplayShaded
boolstatus = Part.Extension.SelectByID("Cut-Extrude4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Cut-Extrude5", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Cut-Extrude4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection
Part.FeatureManager.EditRollback 3, ""
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 708
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.005061792636738, 2.969195350033e-006, 0.01496586184183, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.006600830642085, 8.801140324977e-006, 0.01547739727926, True, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -0.03707327672815, 0.08313978483858, 0.02703247841015, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.006167622035733, 0.001827092425117, 0.02158999999995, True, 0, Nothing)
Part.AddMate 0, 2, False, 0.005442478410025, 0
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -0.03687630750863, 0.08200987550748, 0.02443910407857, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.03593227483136, 0.08204405796732, 0.02429218854331, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.003608851398099, 0.003107667587898, 0.02522195041809, True, 0, Nothing)
Part.AddMate 1, 2, False, 0.07583730316398, 0.5235987755983
Part.ClearSelection
Part.SetPickMode
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 354
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("375 x 32 nut.SLDPRT")
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D2@Sketch1@375 x 32 nut.SLDPRT", "DIMENSION", -0.01253192495719, -0.04156910445958, 0.006949066079525, False, 0, Nothing)
Part.Parameter("D2@Sketch1").SystemValue = 0.01778
Part.EditRebuild
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 708
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 354
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("375 x 32 nut.SLDPRT")
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D2@Sketch1@375 x 32 nut.SLDPRT", "DIMENSION", -0.0128445718757, -0.04107789471362, 0.00629781717525, False, 0, Nothing)
Part.Parameter("D2@Sketch1").SystemValue = 0.015875
Part.ClearSelection
Part.EditRebuild
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 708
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
boolstatus = Part.Extension.SelectByID("Front@375 x 32 nut-1@sample heater", "PLANE", 0, 0, 0, False, 0, Nothing)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 354
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("375 x 32 nut.SLDPRT")
boolstatus = Part.Extension.SelectByID("Front", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -0.0001657349868651, -0.006304155568387, 0.005079999999907, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.00308713976753, 0.00629797807369, 0.005079999999907, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -6.417529974101e-005, 0.006236004262462, 0.005079999999907, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
Part.ViewDisplayShaded
boolstatus = Part.Extension.SelectByID("", "FACE", -0.001789063446978, 0.006543779571189, 0.005079999999964, False, 0, Nothing)
Part.FeatureManager.HoleWizard 2, 0, 18, "#41", 0, 0.0024384, 0.002032, 1, 2.059488517353, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D2@Sketch1@375 x 32 nut.SLDPRT", "DIMENSION", 0.1327705566505, -0.05858819584392, 0.07394698482359, False, 0, Nothing)
Part.Parameter("D2@Sketch1").SystemValue = 0.017145
Part.EditRebuild
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 708
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
Part.ClearSelection
' 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 = 769
swApp.ActiveDoc.ActiveView.FrameTop = 266
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("heater ULTEM.SLDPRT")
boolstatus = Part.Extension.SelectByID("Cut-Extrude5", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ReorderFeature "Cut-Extrude5", "Cut-Extrude9"
boolstatus = Part.Extension.SelectByID("Sketch9", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection
Part.ViewDisplayHiddengreyed
boolstatus = Part.Extension.SelectByID("D3@Sketch9@heater ULTEM.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D2@Sketch9@heater ULTEM.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Sketch9@heater ULTEM.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line6", "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("Line4", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
Part.EditDelete
Part.CreateCircle -0.0104615086104, 0.001141679113385, 0, -0.008317947826087, -0.0001630970161977, 0
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -0.01423603955669, 0.009296529923274, 0.01714500000003, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc5", "SKETCHSEGMENT", -0.008550943563512, 0.002819248422847, 0.01524, False, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.0217385, 0.0108809, 0.03048)
Part.ClearSelection
Part.Parameter("D1@Sketch9").SystemValue = 0.0047625
boolstatus = Part.Extension.SelectByID("Point32", "SKETCHPOINT", -0.0104615086104, 0.001141679113385, 0, False, 0, Nothing)
' MSGBOX
' A dimension could not be created from the selected items.

Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Point32", "SKETCHPOINT", -0.0104615086104, 0.001141679113385, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point32", "SKETCHPOINT", -0.01032171116795, -0.002073662063086, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgHORIZPOINTS"
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Point32", "SKETCHPOINT", -0.01032171116795, 0, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
Part.CreateLine2( -0.0114046, 0.001607670588235, 0, -0.0061468, 0.001607670588235, 0 ).ConstructionGeometry = TRUE
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", -0.008457745268542, 0.00165426973572, 0.01904999999999, False, 0, Nothing)
Part.SelectMidpoint
boolstatus = Part.Extension.SelectByID("Point32", "SKETCHPOINT", -0.008737340153453, 0, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgCOINCIDENT"
Part.SetPickMode
Part.ClearSelection
Part.InsertSketch2 True
Part.ViewDisplayShaded
Part.Save2 FALSE
boolstatus = Part.Extension.SelectByID("Cut-Extrude4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Cut-Extrude4@heater ULTEM.SLDPRT", "DIMENSION", -0.007683762503839, 0.01641462241067, -0.01383917135758, False, 0, Nothing)
Part.Parameter("D1@Cut-Extrude4").SystemValue = 0.00381
Part.EditRebuild
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Cut-Extrude5", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Cut-Extrude5", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.SelectionManager.EnableContourSelection = 0
Part.Save2 FALSE
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 708
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 354
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("375 x 32 nut.SLDPRT")
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.006893082217005, 0.005047514383477, 0.005132504982157, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.005367479143786, 0.00667832716772, 8.558806939618e-006, True, 1, Nothing)
Part.FeatureFillet5 67, 0.000889, 0, 0, 0, 0, 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 708
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("375 x 030 shim.SLDPRT")
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", -0.0002243217417686, 0.006642522212701, 0, False, 0, Nothing)
Part.EditRebuild
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 708
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.020468568225, 0, 0.01821876867176, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.02057323514643, 0.0001774024051997, 0.01821201181688, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.02057379996742, 9.072433715573e-005, 0.01820320190856, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("", "FACE", -0.02057379996742, 9.072433715573e-005, 0.01820320190856, False, 0, Nothing)
Part.DeSelectByID "", "FACE", -0.02057379996742, 9.072433715573e-005, 0.01820320190856
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.02057570039116, -6.889006272104e-007, 0.01574513409247, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.0204927600781, 2.041885522885e-006, 0.01562503916182, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.0204927600781, 2.041885522885e-006, 0.01562503916182, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.02049559637302, 1.188643861383e-005, 0.01892619258456, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.02057091065594, -2.635348437252e-007, 0.01898914481183, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.0204712063622, -1.099271372595e-006, 0.0189227528104, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.02050955341345, 2.194443695203e-006, 0.01892544746545, False, 0, Nothing)
Part.ClearSelection
Part.EditRebuild
' 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 = 354
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("375 x 32 nut.SLDPRT")
Part.ViewDisplayShaded
boolstatus = Part.Extension.SelectByID("Fillet1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0, 0, True, 0, Nothing)
Part.DeSelectByID "", "EDGE", 0, 0, 0
Part.Save2 FALSE
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "375 x 32 nut.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 708
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 769
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("aluminum heater mount.SLDPRT")
boolstatus = Part.Extension.SelectByID("Sketch16", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@Sketch16@aluminum heater mount.SLDPRT", "DIMENSION", 0.008457221658078, -0.003149420318707, 0.0254600961574, False, 0, Nothing)
Part.Parameter("D1@Sketch16").SystemValue = 0.0079375
Part.EditRebuild
Part.ClearSelection
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "aluminum heater mount.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 708
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 708
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 769
swApp.ActiveDoc.ActiveView.FrameHeight = 532
Set Part = swApp.ActivateDoc ("375 x 030 shim.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "375 x 030 shim.SLDPRT"
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
Set Part = swApp.ActivateDoc ("Titanium.SLDPRT")
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Titanium.SLDPRT"
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
Set Part = swApp.ActivateDoc ("Watlow heater.SLDPRT")
Part.Save2 FALSE
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "Watlow heater.SLDPRT"
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
Set Part = swApp.ActivateDoc ("heater ULTEM.SLDPRT")
Part.Save2 FALSE
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "heater ULTEM.SLDPRT"
Set Part = swApp.ActivateDoc ("sample heater.SLDASM")
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 = Nothing
swApp.CloseDoc "sample heater.SLDASM"
swApp.ExitApp
End Sub