' ******************************************************************************
' swxJRNL.swj - journal recorded on 04/20/04 by jfeldman
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\ESP2G.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("ESP2G.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\sample heater\CR 16003.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\sample heater\CR 16003.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("CR 16003.SLDPRT")
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 1538
swApp.ActiveDoc.ActiveView.FrameHeight = 532
boolstatus = Part.Extension.SelectByID("CR 16003.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Set Part = swApp.ActivateDoc ("ESP2G.SLDASM")
Set Part = swApp.ActivateDoc ("CR 16003.SLDPRT")
Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "CR 16003.SLDPRT"
Set Part = swApp.ActivateDoc ("ESP2G.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 532
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.02980153751543, -0.3728022760677, 0.09715246647698, False, 0, Nothing)
Part.RotateComponent
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.03586235005571, -0.3724544806222, 0.112137529498, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.08716265422782, -0.003131710248908, -0.001168994105086, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 1, False, 0.3312063192096, 0, 0, 1, 1, 0.1671133511437, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.06648348839525, 0.01128097586252, 0.1094428511344, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.0670350557433, 0.01086605870745, -0.000279399999954, True, 1, Nothing)
Set Feature = Part.AddMate2 (0, 0, False, 0.1097222511343, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
' MSGBOX
' Some of the models referenced in this document have been modified.  They must be saved when the document is saved.
' 		Save the document and the referenced models now?

Part.Save2 FALSE
boolstatus = Part.Extension.SelectByID("", "FACE", 0.06117845345062, 0.08829753657585, -0.01669188000324, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.08665468161136, -0.03285613226819, 0.113324953867, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("carosel2-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("bearing mount-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("hall effect (carousel)-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("carousel drive-2@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("IDLER-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Spring Lock Washer 2_DIN-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-14@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-2@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Dowel Pin_AI-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Hex Thin Nut Chamfered GradeAB_DIN-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Flat Washer Type B Narrow_AI-4@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("#8 vibration resistant lock washer-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-15@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Machine Screw Nut Hex_AI-2@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Flat Washer Type B Narrow_AI-5@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Machine Screw Nut Hex_AI-3@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("1002357-012-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Set Screw Half Dog Point_AI-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-4@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-16@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Dowel Pin_AI-2@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Dowel Pin_AI-2@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("clamp-track-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Nook 6x2mm ball screw - clamp-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("BERG SS1-104-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("clamp-upper-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("clamp - spring mount-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("helical W7C 15-4-3mm-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("clamp - retaining rod-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("BERG SS1-104-2@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("rotorclip DSH-4-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-10@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("hall effect-2@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("temperature-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Flat Washer Type B Narrow_AI-2@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-12@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("sample heater-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("CR 16003-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("CR 16003-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection2 True
Part.Save2 FALSE
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.07941110325594, 0.05842868589053, -0.03009338324384, False, 0, Nothing)
Part.TranslateComponent
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("2G puck-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("PUCK ON GRIPPER", "MATE", 0, 0, 0, False, 0, Nothing)
Part.EditUnsuppress
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("2G puck-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("GRIPPER - PUCK", "MATE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("GRIPPER - PUCK", "MATE", 0, 0, 0, False, 0, Nothing)
Part.EditUnsuppress
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "VERTEX", -0.04094931220045, 0.06058995602464, -0.02250509482759, False, 0, Nothing)
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("2G puck-4@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ShowComponent2
boolstatus = Part.Extension.SelectByID("2G puck-4@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Concentric160", "MATE", 0, 0, 0, False, 0, Nothing)
Part.DeSelectByID "", "FACE", -0.01879020308996, -0.1411262587622, -0.00221
boolstatus = Part.Extension.SelectByID("", "FACE", -0.0826806281716, 0.002070280941666, -0.001358825791954, True, 1, Nothing)
' MSGBOX
' Warning: This mate is over defining the assembly.  Consider deleting some of the over defining mates.

boolstatus = Part.Extension.SelectByID("", "FACE", -0.01879020308996, -0.1411262587623, -0.006168953626712, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.06961216387237, -0.01372133220238, 0.02615184, True, 1, Nothing)
Part.EditMate2 1, 1, False, 0.1011596332404, 0, 0, 1, 1, 0.5235987755983, 0.5235987755983, 0.5235987755983, longstatus
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("2G puck-4@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Coincident333", "MATE", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("", "FACE", -0.07341995847236, -0.003753310140894, -0.004164778514806, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.07341995847236, -0.003753310140894, -0.004164778514806, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("2G puck-4@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Concentric160", "MATE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.06961216387237, -0.01372133220238, -0.006168953626712, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.06961216387237, -0.01372133220238, 0.02615184, True, 1, Nothing)
Part.EditMate2 1, 0, False, 0.01, 0, 0, 1, 1, 0.5235987755983, 0.5235987755983, 0.5235987755983, longstatus
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.07246615223556, 0.001343433059304, 0.01387338852777, False, 0, Nothing)
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("", "FACE", -0.06536843574656, -0.008198206572672, -0.02238970813211, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.07056016610954, -0.004740056276276, -0.004164778514792, True, 1, Nothing)
Set Feature = Part.AddMate2 (0, 1, False, 0.01822492961727, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.06518916236348, 0.01198034785276, -0.02236922129674, False, 0, Nothing)
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("processing clamp-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditAssembly
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.09244836381518, -0.003730936411728, -0.03437794786352, False, 0, Nothing)
Part.TranslateComponent
Part.EditAssembly
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.06266516243574, 0.003279364256976, -0.02190511873579, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.06615715597133, 0.001447673257871, -0.01613343124041, True, 0, Nothing)
Part.DeSelectByID "", "FACE", -0.06615715597133, 0.001447673257871, -0.01613343124041
Part.DeSelectByID "", "FACE", -0.06266516243574, 0.003279364256976, -0.02190511873579
boolstatus = Part.Extension.SelectByID("", "FACE", 0.002821977896076, -0.02390186636677, -0.0651313497417, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.01734386657897, -0.02616640597609, -0.05259446344614, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.02079616699945, 0.0344302053503, -0.01501194800534, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.04429078919389, 0.03051358872476, -0.02802198670429, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("CAROUSEL", "PLANE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("CAROUSEL", "PLANE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("gripper rotational", "AXIS", 0, 0, 0, True, 0, Nothing)
Part.CreatePlaneAtAngle3 1.029744258677, False, True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("PLANE7", "PLANE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("gripper rotational", "AXIS", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("PLANE7", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "FLUSH PUCK HOLDER"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Front@manipulator bottom-1@ESP2G", "PLANE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Top@manipulator bottom-1@ESP2G", "PLANE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("FLUSH PUCK HOLDER", "PLANE", 0, 0, 0, True, 1, Nothing)
Set Feature = Part.AddMate2 (0, 0, False, 0, 0, 0, 1, 1, 0.02326718762056, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Coincident343", "MATE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Coincident343", "MATE", 0, 0, 0, False, 0, Nothing)
Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "MANIPULATOR AT FLUSH PUCK HOLDER"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("MANIPULATOR AT FLUSH PUCK HOLDER", "MATE", 0, 0, 0, False, 0, Nothing)
Part.ReorderFeature "MANIPULATOR AT FLUSH PUCK HOLDER", "MANIPULATOR AT COLLECTION"
' 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.1150340143879, -0.04148816204886, -0.169545, False, 0, Nothing)
Part.TranslateComponent
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.1529601990393, -0.03450896520957, -0.02108388980312, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.08998573002464, -0.01146797757519, -0.001512130416158, True, 1, Nothing)
Set Feature = Part.AddMate2 (1, 1, False, 0.08925563866829, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
Part.Save2 FALSE
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.03109564286786, -0.03360654976123, -0.0516060960997, False, 0, Nothing)
Part.ClearSelection2 True
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("", "FACE", -0.06102234375575, 0.01862243574408, -0.0226367927408, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\arm & gripper\BWU sliding plate.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\arm & gripper\BWU sliding plate.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("BWU sliding plate.SLDPRT")
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.008391223625097, -0.03801336368576, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
Part.SketchRectangle 0.001016, -0.045339, 0, 0.0254, -0.035179, 0, 1
Part.ClearSelection2 True
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("", "FACE", -0.003831726898994, -0.04280726053486, 0.005734049999973, True, 1, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.003831726898994, -0.04280726053486, 0.005734049999973, False, 1, Nothing)
Part.FeatureManager.FeatureCut True, False, False, 5, 0, 0.00254, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.Save2 FALSE
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 532
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("ESP2G.SLDASM")
boolstatus = Part.Extension.SelectByID("FLUSH PUCK HOLDER", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("gripper rotational", "AXIS", 0, 0.017272, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("CAROUSEL", "PLANE", 0, 0, 0, True, 0, Nothing)
Part.CreatePlaneAtAngle3 1.064650843717, False, True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("FLUSH PUCK HOLDER", "PLANE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("FLUSH PUCK HOLDER", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@FLUSH PUCK HOLDER@ESP2G.SLDASM", "DIMENSION", 0.6623527928382, -0.3506003225103, 0.03962172653496, False, 0, Nothing)
Part.Parameter("D1@FLUSH PUCK HOLDER").SystemValue = 1.00356
Part.ClearSelection2 True
Part.EditRebuild
boolstatus = Part.Extension.SelectByID("", "FACE", -0.06942630480813, 0.001835057566893, -0.01536574182375, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", -0.0630226959543, 0.003663929626778, -0.01671053695444, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01415295072803, -0.03245193305038, -0.05490222016397, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.01936265485654, -0.02960426910767, -0.05648364818416, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01720790663785, -0.02601279664642, -0.05272386214074, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("FLUSH PUCK HOLDER", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("D1@FLUSH PUCK HOLDER@ESP2G.SLDASM", "DIMENSION", 0.7009520610039, -0.4717269613278, 0.2248632383562, False, 0, Nothing)
Part.Parameter("D1@FLUSH PUCK HOLDER").SystemValue = 1.01229
Part.ClearSelection2 True
Part.EditRebuild
boolstatus = Part.Extension.SelectByID("", "FACE", -0.06353347279196, 0.0005994680893195, -0.01578726715387, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", -0.06290154493397, 0.003114477986952, -0.01671053695444, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.003699188871224, -0.02398362136438, -0.06127681591127, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.01759611836947, -0.02606483698634, -0.05259446344614, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("MANIPILATOR EXTENDED", "MATE", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("MANIPULATOR RETRACTED", "MATE", 0, 0, 0, False, 0, Nothing)
Part.EditUnsuppress
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("MANIPULATOR RETRACTED", "MATE", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("MANIPILATOR EXTENDED", "MATE", 0, 0, 0, False, 0, Nothing)
Part.EditUnsuppress
Part.ClearSelection2 True
' MSGBOX
' Some of the models referenced in this document have been modified.  They must be saved when the document is saved.
' 		Save the document and the referenced models now?

Part.Save2 FALSE
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("BWU sliding plate.SLDPRT")
Part.ClearSelection2 True
swApp.ExitApp
End Sub