' ******************************************************************************
' swxJRNL.swj - journal recorded on 08/23/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\ESP documentation\SolidWorks files\ESPGene\syringe\manifold.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("manifold.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewDisplayShadedWithEdges
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID("manifold.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.DimPreferences
Part.ClearSelection2 True
Part.FileFind
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\rotary valve\1002245-001.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\rotary valve\1002245-001.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("1002245-001.SLDPRT")
Part.FileFind
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("manifold.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("1002245-001.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("manifold.SLDASM")
Part.FileFind
Set Part = Nothing
swApp.CloseDoc "manifold.SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("1002245-001.SLDPRT")
Part.EditRebuild
Part.Save2 FALSE
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\rotary valve\rotary valve.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\rotary valve\rotary valve.SLDASM", 2, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("rotary valve.SLDASM")
Part.EditRebuild
Part.Save2 FALSE
boolstatus = Part.Extension.SelectByID("1002245-001-1@rotary valve", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditPart
' MSGBOX
' This part has features defined in the context of another assembly <manifold.sldasm>. You can edit the part, but cannot create any external references to the components of the current assembly.

Part.ClearSelection2 True
Part.EditAssembly
Part.FileFind
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("1002245-001.SLDPRT")
Part.FileFind
Set Part = Nothing
swApp.CloseDoc "1002245-001.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("rotary valve.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 "rotary valve.SLDASM"
swApp.ExitApp
End Sub