' ******************************************************************************
' swxJRNL.swj - journal recorded on 06/10/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\electronics\70555-00021.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("70555-00021.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = Nothing
swApp.CloseDoc "70555-00021.SLDPRT"
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\electronics\reed (manipulator).SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("reed (manipulator).SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = Nothing
swApp.CloseDoc "reed (manipulator).SLDASM"
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\electronics\limit (manipulator).SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("limit (manipulator).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\electronics\connectors\70555-00021.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\electronics\connectors\70555-00021.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("70555-00021.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("70555-00021.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Set Part = swApp.ActivateDoc ("limit (manipulator).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("", "VERTEX", -0.0126574383079, -0.07092367324115, -0.03275173271812, False, 0, Nothing)
Part.RotateComponent
boolstatus = Part.Extension.SelectByID("", "FACE", -0.01877797451812, -0.06978106467892, -0.02795389250953, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.002028196260085, -0.02990873132381, 0.0004296676074205, True, 1, Nothing)
Set Feature = Part.AddMate2 (0, 0, False, 0.04886328251712, 0, 0, 1, 1, 2.575639970756, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.01668464442508, -0.0286853380249, -0.02503145293966, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.001186046485429, -0.02121131886082, 0, True, 1, Nothing)
Set Feature = Part.AddMate2 (3, 1, False, 0.02426719047785, 0, 0, 1, 1, 0.6907785808758, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.02280076732927, -0.02550910232856, -0.01914630446002, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.0005404400625935, -0.02257239081857, 0, True, 1, Nothing)
Set Feature = Part.AddMate2 (4, 1, False, 0.01, 0, 0, 1, 1, 0.5235987755983, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Right@70555-00021-1@limit (manipulator)", "PLANE", 0, 0, 0, True, 1, Nothing)
boolstatus = Part.Extension.SelectByID("Right", "PLANE", 0, 0, 0, True, 1, Nothing)
Set Feature = Part.AddMate2 (0, 1, False, 0.0187193702125, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\manipulator\manipulator mount.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\manipulator\manipulator mount.SLDASM", 2, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("manipulator mount.SLDASM")
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\ESP2G.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\ESP2G.SLDASM", 2, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("ESP2G.SLDASM")
boolstatus = Part.Extension.SelectByID("", "FACE", 0.02880149823949, 0.02639551297125, -0.01886416056857, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.02880149823949, 0.02639551297125, -0.01886416056857, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.04023855316828, 0.04626815032606, -0.02495279968628, False, 0, Nothing)
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 ("manipulator mount.SLDASM")
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "manipulator mount.SLDASM"
Set Part = swApp.ActivateDoc ("ESP2G.SLDASM")
Set Part = swApp.ActivateDoc ("70555-00021.SLDPRT")
Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "70555-00021.SLDPRT"
Set Part = swApp.ActivateDoc ("ESP2G.SLDASM")
Set Part = swApp.ActivateDoc ("limit (manipulator).SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 769
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = Nothing
swApp.CloseDoc "limit (manipulator).SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("ESP2G.SLDASM")
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\manipulator\manipulator mount.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\manipulator\manipulator mount.SLDASM", 2, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 532
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("manipulator mount.SLDASM")
boolstatus = Part.Extension.SelectByID("limit (manipulator)-1@manipulator mount", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("hall (manipulator)-1@manipulator mount", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "manipulator mount.SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("ESP2G.SLDASM")
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\manipulator\manipulator bottom.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\manipulator\manipulator bottom.SLDASM", 2, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("manipulator bottom.SLDASM")
boolstatus = Part.Extension.SelectByID("reed (manipulator)-1@manipulator bottom", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\electronics\reed (manipulator).sldasm", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\electronics\reed (manipulator).SLDASM", 2, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("reed (manipulator).sldasm")
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.01231829913735, -0.02667500850833, 0.0007937499998434, False, 0, Nothing)
Part.FeatureManager.HoleWizard 2, 0, 18, "#43", 1, 0.0022606, 0.00777885307764, 1, 0, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("manipulator bottom.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("reed (manipulator).sldasm")
Part.EditRebuild
Part.ClearSelection2 True
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("manipulator bottom.SLDASM")
boolstatus = Part.Extension.SelectByID("reed (manipulator)-1@manipulator bottom", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditRebuild
Part.ClearSelection2 True
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("reed (manipulator).sldasm")
' MSGBOX
' One or more documents are being closed as a result of this operation.   If you do not save them, your changes will be lost.
' Click "Yes" to close and save them.
' Click "No" to close them without the changes.

Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "reed (manipulator).sldasm"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("manipulator bottom.SLDASM")
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "manipulator bottom.SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("ESP2G.SLDASM")
Part.ClearSelection2 True
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "ESP2G.SLDASM"
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\electronics\reed (manipulator).SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("reed (manipulator).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\manipulator\manipulator bottom.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\manipulator\manipulator bottom.SLDASM", 2, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("manipulator bottom.SLDASM")
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.004307515720825, 0.01251518644102, -0.007184668646175, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.01099553321831, -0.001883511382289, 0.006527800000129, False, 0, Nothing)
Part.EditPart
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.002232819213759, -0.04093116943488, 0.005734050000058, False, 0, Nothing)
Part.FeatureManager.HoleWizard 4, 0, 26, "#2-56", 0, 0.001778, 0.00796798, 0.006604, 0, 0, 0, 0, 2.059488517353, 1, 0, 0, 0, -1, -1
Part.EditAssembly
Part.ClearSelection2 True
Part.ShowConfiguration "HX-SHCS 0.086-56x0.25x0.25-N"
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Regular_AI-2@manipulator bottom", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Regular_AI-1@manipulator bottom", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-1@manipulator bottom", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-1@manipulator bottom", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "HX-SHCS 0.086-56x0.188x0.188-N"
Part.EditRebuild
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-1@manipulator bottom", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditRebuild
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-1@manipulator bottom", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.AddConfiguration "HX-SHCS 0.086-56x0.125x0.125-N","","HX-SHCS 0.086-56x0.125x0.125-N",0,0,0,1,1
Part.EditRebuild
Part.EditRebuild
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-1@manipulator bottom", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditRebuild
Part.ClearSelection2 True
Part.ShowConfiguration "HX-SHCS 0.086-56x0.25x0.25-N"
' MSGBOX
' Some of the models referenced in this document have been modified.  They must be saved when the document is saved.
' 		Save the document and the referenced models now?

Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "manipulator bottom.SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("reed (manipulator).SLDASM")
Set Part = Nothing
swApp.CloseDoc "reed (manipulator).SLDASM"
swApp.ExitApp
End Sub