' ******************************************************************************
' swxJRNL.swj - journal recorded on 02/11/05 by coenen
' *****************************************************************************
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 ("O:\OSG\Oasis Solidworks\M1-M2\bouy structure\4 leg bridle\bridle hardware\baily bracket\baily bracket assy.SLDASM", 2, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("baily bracket assy.SLDASM")
Set Part = swApp.OpenDoc6 ("O:\OSG\Oasis Solidworks\M1-M2\bouy structure\4 leg bridle\bridle hardware\baily bracket\baily bracket cable calmp assy.SLDASM", 2, 4, "", longstatus, longwarnings)
' MSGBOX
' O:\OSG\Oasis Solidworks\M1-M2\bouy structure\4 leg bridle\bridle hardware\baily bracket\baily bracket cable calmp assy.SLDASM has display data which is out of date.
' This could possibly be because the file was not
' opened independently in SolidWorks 98 or later and saved.
' If you want to save the latest display data
' you will have to open the file in SolidWorks and save it. 

Set Part = swApp.ActivateDoc ("baily bracket cable calmp assy.SLDASM")
Set Part = Nothing
swApp.CloseDoc "baily bracket cable calmp assy.SLDASM"
Set Part = swApp.ActivateDoc ("baily bracket assy.SLDASM")
Set Part = swApp.OpenDoc6 ("O:\OSG\Oasis Solidworks\M1-M2\bouy structure\4 leg bridle\bridle hardware\baily bracket\baily bracket cable clamp bushing.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("baily bracket cable clamp bushing.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "baily bracket cable clamp bushing.SLDPRT"
Set Part = swApp.ActivateDoc ("baily bracket assy.SLDASM")
Set Part = swApp.OpenDoc6 ("O:\OSG\Oasis Solidworks\M1-M2\bouy structure\4 leg bridle\bridle hardware\baily bracket\baily bracket plate.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("baily bracket plate.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "baily bracket plate.SLDPRT"
Set Part = swApp.ActivateDoc ("baily bracket assy.SLDASM")
Set Part = swApp.OpenDoc6 ("O:\OSG\Oasis Solidworks\M1-M2\bouy structure\4 leg bridle\bridle hardware\baily bracket\large boss.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("large boss.SLDPRT")
Set Part = swApp.OpenDoc6 ("O:\OSG\Oasis Solidworks\M1-M2\bouy structure\4 leg bridle\bridle hardware\baily bracket\baily bracket plate.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("baily bracket plate - Sheet1")
Set Part = Nothing
swApp.CloseDoc "baily bracket plate - Sheet1"
Set Part = swApp.ActivateDoc ("large boss.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "large boss.SLDPRT"
Set Part = swApp.ActivateDoc ("baily bracket assy.SLDASM")
Set Part = swApp.OpenDoc6 ("O:\OSG\Oasis Solidworks\M1-M2\bouy structure\4 leg bridle\bridle hardware\baily bracket\baily bracket weldment.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("baily bracket weldment - Sheet1")
Part.PrintDirect
swApp.PageSetup
Part.PrintDirect
Part.ViewZoomTo2 0.0110035, 0.186379, -1.32099e-015, 0.192806, 0.075332, -5.45551e-016
Part.ActiveView().TranslateBy 0, 0.000481724
Part.ActiveView().TranslateBy 0.0101162, 0.0722586
Part.ActiveView().TranslateBy -0.0019269, 0.00240862
Part.ActiveView().TranslateBy 0.000481724, 0
Part.ActiveView().TranslateBy 0.0216776, -0.0539531
Part.ActiveView().TranslateBy 0.00240862, -0.00433552
Part.ViewZoomtofit
Part.ViewZoomTo2 0.0174832, 0.270997, -2.10914e-015, 0.419027, 0.0560941, -6.08486e-016
Set Part = Nothing
swApp.CloseDoc "baily bracket weldment - Sheet1"
Set Part = swApp.ActivateDoc ("baily bracket assy.SLDASM")
Set Part = Nothing
swApp.CloseDoc "baily bracket assy.SLDASM"
Set Part = swApp.OpenDoc6 ("O:\OSG\Oasis Solidworks\M1-M2\bouy structure\4 leg bridle\bridle hardware\cable clamp\baily bracket cable clamp bushing.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("baily bracket cable clamp bushing.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "baily bracket cable clamp bushing.SLDPRT"
Set Part = swApp.OpenDoc6 ("O:\OSG\Oasis Solidworks\M1-M2\bouy structure\4 leg bridle\bridle hardware\cable clamp\mooring bridle calbe clamp bushing.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("mooring bridle calbe clamp bushing - Sheet1")
Set Part = swApp.OpenDoc6 ("O:\OSG\Oasis Solidworks\M1-M2\bouy structure\4 leg bridle\bridle hardware\cable clamp\mooring cable clamp plate.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("mooring cable clamp plate - Sheet1")
Set Part = swApp.OpenDoc6 ("O:\OSG\Oasis Solidworks\M1-M2\bouy structure\4 leg bridle\bridle hardware\cable clamp\baily bracket calbe clamp plate.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("baily bracket calbe clamp plate - Sheet1")
Set Part = swApp.OpenDoc6 ("O:\OSG\Oasis Solidworks\M1-M2\bouy structure\4 leg bridle\bridle hardware\cable clamp\baily bracket calbe clamp bushing.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("baily bracket calbe clamp bushing - Sheet1")
Part.PrintDirect
Set Part = Nothing
swApp.CloseDoc "baily bracket calbe clamp bushing - Sheet1"
Set Part = swApp.ActivateDoc ("baily bracket calbe clamp plate - Sheet1")
Part.PrintDirect
Set Part = Nothing
swApp.CloseDoc "baily bracket calbe clamp plate - Sheet1"
Set Part = swApp.ActivateDoc ("mooring cable clamp plate - Sheet1")
Part.PrintDirect
Set Part = Nothing
swApp.CloseDoc "mooring cable clamp plate - Sheet1"
Set Part = swApp.ActivateDoc ("mooring bridle calbe clamp bushing - Sheet1")
Part.PrintDirect
Set Part = Nothing
swApp.CloseDoc "mooring bridle calbe clamp bushing - Sheet1"
Set Part = swApp.OpenDoc6 ("O:\OSG\Oasis Solidworks\M1-M2\bouy structure\4 leg bridle\4 leg bridle assembley.SLDASM", 2, 4, "", longstatus, longwarnings)
' MSGBOX
' O:\OSG\Oasis Solidworks\M1-M2\bouy structure\4 leg bridle\4 leg bridle assembley.SLDASM has display data which is out of date.
' This could possibly be because the file was not
' opened independently in SolidWorks 98 or later and saved.
' If you want to save the latest display data
' you will have to open the file in SolidWorks and save it. 

Set Part = swApp.ActivateDoc ("4 leg bridle assembley.SLDASM")
Part.ViewZoomtofit
Set Part = Nothing
swApp.CloseDoc "4 leg bridle assembley.SLDASM"
Set Part = swApp.OpenDoc6 ("O:\OSG\Oasis Solidworks\M1-M2\bouy structure\4 leg bridle\bridle hardware\cable clamp\baily bracket cable calmp assy.SLDASM", 2, 4, "", longstatus, longwarnings)
' MSGBOX
' O:\OSG\Oasis Solidworks\M1-M2\bouy structure\4 leg bridle\bridle hardware\cable clamp\baily bracket cable calmp assy.SLDASM has display data which is out of date.
' This could possibly be because the file was not
' opened independently in SolidWorks 98 or later and saved.
' If you want to save the latest display data
' you will have to open the file in SolidWorks and save it. 

Set Part = swApp.ActivateDoc ("baily bracket cable calmp assy.SLDASM")
Set Part = Nothing
swApp.CloseDoc "baily bracket cable calmp assy.SLDASM"
Set Part = swApp.OpenDoc6 ("O:\OSG\Oasis Solidworks\M1-M2\bouy structure\4 leg bridle\bridle hardware\cable clamp\mooring bridle calbe clamp bushing.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("mooring bridle calbe clamp bushing - Sheet1")
Set Part = Nothing
swApp.CloseDoc "mooring bridle calbe clamp bushing - Sheet1"
Set Part = swApp.OpenDoc6 ("O:\OSG\Oasis Solidworks\M1-M2\bouy structure\4 leg bridle\bridle hardware\baily bracket\new baily bracket bushings.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("new baily bracket bushings - Sheet1")
Part.PrintDirect
swApp.PageSetup
Part.PrintDirect
Set Part = Nothing
swApp.CloseDoc "new baily bracket bushings - Sheet1"
Set Part = swApp.OpenDoc6 ("O:\OSG\Oasis Solidworks\M1-M2\bouy structure\4 leg bridle\bridle hardware\baily bracket\baily bracket calbe clamp bushing.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("baily bracket calbe clamp bushing - Sheet1")
Set Part = Nothing
swApp.CloseDoc "baily bracket calbe clamp bushing - Sheet1"
swApp.ExitApp
End Sub