' ******************************************************************************
' swxJRNL.swj - journal recorded on 01/23/04 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\SolidWorks files - in progress\ESP2G Jason\collection syringe\collection syringe.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("collection syringe.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID("syringe arm-1@collection syringe", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("syringe arm-1@collection syringe", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\collection syringe\syringe arm.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\collection syringe\syringe arm.SLDASM", 2, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("syringe arm.SLDASM")
Part.ClearSelection
Part.ViewDisplayShaded
boolstatus = Part.Extension.SelectByID("Spring Lock Washer_2_JIS-1@syringe arm", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Spring Lock Washer_2_JIS-2@syringe arm", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Spring Lock Washer_2_JIS-3@syringe arm", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Spring Lock Washer_2_JIS-4@syringe arm", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AM-1@syringe arm", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AM-2@syringe arm", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AM-3@syringe arm", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AM-4@syringe arm", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AM-4@syringe arm", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Flat Washer Type B Narrow_AI-1@syringe arm", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-1@syringe arm", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Flat Washer Type B Narrow_AI-2@syringe arm", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-2@syringe arm", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-2@syringe arm", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "syringe arm.SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("collection syringe.SLDASM")
boolstatus = Part.Extension.SelectByID("hall effect (syringe)-1@collection syringe", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-2@collection syringe", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-3@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-4@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-5@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-6@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-39@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-40@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-41@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-42@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-43@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-12@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-13@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-14@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-15@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-16@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-17@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-44@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-45@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-46@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-47@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-48@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-49@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AM-1@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AM-2@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-55@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-56@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-56@collection syringe", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("rotary valve-1@collection syringe", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-18@collection syringe", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-19@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-20@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-21@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-57@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-58@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-59@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-60@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-60@collection syringe", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("1002258-007-1@collection syringe", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-22@collection syringe", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-61@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-24@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-63@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-25@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-64@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-64@collection syringe", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("1002258-008-1@collection syringe", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-26@collection syringe", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-27@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-65@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-66@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-66@collection syringe", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-29@collection syringe", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-68@collection syringe", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-68@collection syringe", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection
Part.Save2 FALSE
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\drawings\1002258 (collection syringe).SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\drawings\1002258 (collection syringe).SLDDRW", 3, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("1002258 (collection syringe) - Sheet1")
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "1002258 (collection syringe) - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("collection syringe.SLDASM")
boolstatus = Part.Extension.SelectByID("complete", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.ShowConfiguration "complete"
boolstatus = Part.Extension.SelectByID("internal sampler", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.ShowConfiguration "internal sampler"
boolstatus = Part.Extension.SelectByID("Default@collection syringe.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.ShowConfiguration "Default"
' 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 "collection syringe.SLDASM"
swApp.ExitApp
End Sub