' ******************************************************************************
' swxJRNL.swj - journal recorded on 03/31/03 by hamilton
' *****************************************************************************
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 ("K:\BlueFin Multibeam Vehicle\MidBody Solidmodels\PARALLEL SUB-ASSEMBLY.SLDASM", 2, 0, "", longstatus)
' MSGBOX
'  K:\BlueFin Multibeam Vehicle\MidBody Solidmodels\PARALLEL SUB-ASSEMBLY.SLDASM is not available for write access.  Do you want to open document(s) read-only?

Set Part = swApp.OpenDoc4 ("K:\BlueFin Multibeam Vehicle\MidBody Solidmodels\1 PARALLEL SHELL BASE PART.SLDPRT", 1, 0, "", longstatus)
' MSGBOX
'  K:\BlueFin Multibeam Vehicle\MidBody Solidmodels\1 PARALLEL SHELL BASE PART.SLDPRT is not available for write access.  Do you want to open document(s) read-only?

Set Part = swApp.OpenDoc4 ("K:\BlueFin Multibeam Vehicle\MidBody Solidmodels\1 PARALLEL SHELL FLANGE BASE PART.SLDPRT", 1, 0, "", longstatus)
' MSGBOX
'  K:\BlueFin Multibeam Vehicle\MidBody Solidmodels\1 PARALLEL SHELL FLANGE BASE PART.SLDPRT is not available for write access.  Do you want to open document(s) read-only?

Set Part = swApp.ActivateDoc ("1 PARALLEL SHELL FLANGE BASE PART")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 2
swApp.LoadFile2 "K:\BlueFin Multibeam Vehicle\MidBody Solidmodels\1 PARALLEL SHELL BASE PART.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("K:\BlueFin Multibeam Vehicle\MidBody Solidmodels\1 PARALLEL SHELL BASE PART.SLDPRT", 1, 0, "", longstatus)
' MSGBOX
'  K:\BlueFin Multibeam Vehicle\MidBody Solidmodels\1 PARALLEL SHELL BASE PART.SLDPRT is not available for write access.  Do you want to open document(s) read-only?

swApp.LoadFile2 "K:\BlueFin Multibeam Vehicle\MidBody Solidmodels\0 PARALLEL SHELL MOLD.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("K:\BlueFin Multibeam Vehicle\MidBody Solidmodels\0 PARALLEL SHELL MOLD.SLDPRT", 1, 0, "", longstatus)
' MSGBOX
'  K:\BlueFin Multibeam Vehicle\MidBody Solidmodels\0 PARALLEL SHELL MOLD.SLDPRT is not available for write access.  Do you want to open document(s) read-only?

Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 2
Set Part = swApp.ActivateDoc ("1 PARALLEL SHELL BASE PART")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 2
swApp.LoadFile2 "K:\BlueFin Multibeam Vehicle\MidBody Solidmodels\TOP ANGLE, LIFTING WELDMENT.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("K:\BlueFin Multibeam Vehicle\MidBody Solidmodels\TOP ANGLE, LIFTING WELDMENT.SLDPRT", 1, 0, "", longstatus)
' MSGBOX
'  K:\BlueFin Multibeam Vehicle\MidBody Solidmodels\TOP ANGLE, LIFTING WELDMENT.SLDPRT is not available for write access.  Do you want to open document(s) read-only?

Set Part = swApp.ActivateDoc ("TOP ANGLE, LIFTING WELDMENT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 2
Set Part = swApp.ActivateDoc ("PARALLEL SUB-ASSEMBLY")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter -0.381501, -0.071797
Part.ActiveView().RotateAboutCenter -0.210484, -0.103707
Part.ActiveView().RotateAboutCenter 0.00657761, 0
Part.ActiveView().RotateAboutCenter 0.295993, -0.0398872
Part.ActiveView().RotateAboutCenter 0.355191, -0.0638195
Part.ActiveView().RotateAboutCenter 0.315725, 0.0159549
boolstatus = Part.Extension.SelectByID("", "FACE", 0.4526951239134, 0.2662738333555, -0.0150710208739, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.3870801472058, 0.2199937466697, -0.1392295727433, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0.00657761, 0
Part.ActiveView().RotateAboutCenter 0.230216, -0.0159549
Part.ActiveView().RotateAboutCenter 0.30257, 0
Part.ActiveView().RotateAboutCenter 0.256527, 0.0319098
Part.ActiveView().RotateAboutCenter 0.263104, 0.0638195
Part.ActiveView().RotateAboutCenter 0.0789313, 0.0478647
Part.ActiveView().RotateAboutCenter 0.00657761, 0.071797
Part.ActiveView().RotateAboutCenter 0, 0.0239323
Part.ActiveView().RotateAboutCenter -0.0131552, -0.0877519
Part.ActiveView().RotateAboutCenter 0, -0.00797744
boolstatus = Part.Extension.SelectByID("", "FACE", 0.2451858893799, 0.2507751982596, 0.06995657537243, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("PAYLOAD PRESSURE VESSEL-1@PARALLEL SUB-ASSEMBLY", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0.00657761, 0
Part.ActiveView().RotateAboutCenter 0.124975, 0
Part.ActiveView().RotateAboutCenter 0.0920866, 0
Part.ActiveView().RotateAboutCenter 0.111819, 0
Part.ActiveView().RotateAboutCenter 0.0394657, 0
Part.ActiveView().RotateAboutCenter -0.243372, -0.0159549
Part.ActiveView().RotateAboutCenter -0.217061, -0.0638195
Part.ActiveView().RotateAboutCenter -0.124975, -0.0159549
Part.ActiveView().RotateAboutCenter -0.118397, -0.00797744
Part.ActiveView().RotateAboutCenter -0.144707, 0.00797744
Part.ActiveView().RotateAboutCenter 0.00657761, 0
Part.ActiveView().RotateAboutCenter 0.0328881, 0.00797744
Part.ActiveView().RotateAboutCenter 0.0197328, 0
Part.ActiveView().RotateAboutCenter 0.0789313, 0.00797744
Part.ActiveView().RotateAboutCenter 0.0460433, 0.111684
Part.ActiveView().RotateAboutCenter 0.0263104, 0.31112
Part.ActiveView().RotateAboutCenter 0, 0.0398872
Part.ActiveView().RotateAboutCenter 0, 0.0478647
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter 0.00657761, -0.103707
Part.ActiveView().RotateAboutCenter -0.00657761, -0.071797
Part.ActiveView().RotateAboutCenter 0, -0.0558421
Part.ActiveView().RotateAboutCenter 0, -0.0957293
Part.ActiveView().RotateAboutCenter -0.00657761, 0
Part.ActiveView().RotateAboutCenter -0.111819, -0.0239323
Part.ActiveView().RotateAboutCenter -0.131552, -0.0319098
Part.ActiveView().RotateAboutCenter -0.0131552, 0
Part.ActiveView().RotateAboutCenter 0.00657761, 0
Part.ActiveView().RotateAboutCenter 0.151285, 0.0239323
Part.ActiveView().RotateAboutCenter 0.111819, 0.0239323
Part.ActiveView().RotateAboutCenter 0.0657761, 0.0159549
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("TOP ANGLE, LIFTING WELDMENT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("1 PARALLEL SHELL BASE PART")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD")
swApp.ExitApp
End Sub