' ******************************************************************************
' swxJRNL.swj - journal recorded on 09/22/04 by sheri
' *****************************************************************************
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 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-PUP\leg assem.SLDASM", 2, 4, "", longstatus, longwarnings)
' MSGBOX
' V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-PUP\leg assem.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 ("leg assem.SLDASM")
Set Part = Nothing
swApp.CloseDoc "leg assem.SLDASM"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-PUP\Probe Head housing assembly.SLDASM", 2, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Probe Head housing assembly.SLDASM")
Set Part = Nothing
swApp.CloseDoc "Probe Head housing assembly.SLDASM"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-PUP\PUP_2-AXIS_Dovetail.SLDASM", 2, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("PUP_2-AXIS_Dovetail.SLDASM")
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-PUP\johns puppy\camera angle.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("camera angle - Sheet1")
Set Part = Nothing
swApp.CloseDoc "camera angle - Sheet1"
Set Part = swApp.ActivateDoc ("PUP_2-AXIS_Dovetail.SLDASM")
Set Part = Nothing
swApp.CloseDoc "PUP_2-AXIS_Dovetail.SLDASM"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-PUP\johns puppy\Cradle Assem.SLDASM", 2, 4, "", longstatus, longwarnings)
' MSGBOX
' V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-PUP\johns puppy\Cradle Assem.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 ("Cradle Assem.SLDASM")
Part.ViewZoomtofit
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-PUP\johns puppy\Cradle-2.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Cradle-2 - Sheet1")
Part.PrintDirect
Set Part = Nothing
swApp.CloseDoc "Cradle-2 - Sheet1"
Set Part = swApp.ActivateDoc ("Cradle Assem.SLDASM")
Set Part = Nothing
swApp.CloseDoc "Cradle Assem.SLDASM"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-PUP\johns puppy\Crossing_Lazer.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Crossing_Lazer.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Crossing_Lazer.SLDPRT"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-PUP\johns puppy\Cradle-2.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Cradle-2.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Cradle-2.SLDPRT"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\3-Axis-Base_Assembly.SLDASM", 2, 4, "", longstatus, longwarnings)
' MSGBOX
' V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\3-Axis-Base_Assembly.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 ("3-Axis-Base_Assembly.SLDASM")
Set Part = Nothing
swApp.CloseDoc "3-Axis-Base_Assembly.SLDASM"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\3-Axis-Base_Assembly.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("3-Axis-Base_Assembly - Sheet1")
Part.PrintDirect
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Actuator Back.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Actuator Back.SLDPRT")
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Actuator Tube.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Actuator Tube.SLDPRT")
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Actuator+Slide Mount.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Actuator+Slide Mount.SLDPRT")
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\AMC_DR100EE30A40NDC.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("AMC_DR100EE30A40NDC.SLDPRT")
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\back leg assem.SLDASM", 2, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("back leg assem.SLDASM")
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Back_CH_1.6.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Back_CH_1.6.SLDPRT")
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Base_Assembly.SLDASM", 2, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Base_Assembly.SLDASM")
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\base.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("base.SLDPRT")
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\base1.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("base1.SLDPRT")
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Bearing Assembly-1.SLDASM", 2, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Bearing Assembly-1.SLDASM")
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Bearing Collar.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Bearing Collar.SLDPRT")
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Bearing Sandwich Assembly.SLDASM", 2, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Bearing Sandwich Assembly.SLDASM")
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Bearing_Race.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Bearing_Race.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Bearing_Race.SLDPRT"
Set Part = swApp.ActivateDoc ("Bearing Sandwich Assembly.SLDASM")
Set Part = Nothing
swApp.CloseDoc "Bearing Sandwich Assembly.SLDASM"
Set Part = swApp.ActivateDoc ("Bearing Collar.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Bearing Collar.SLDPRT"
Set Part = swApp.ActivateDoc ("Bearing Assembly-1.SLDASM")
Set Part = Nothing
swApp.CloseDoc "Bearing Assembly-1.SLDASM"
Set Part = swApp.ActivateDoc ("base1.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "base1.SLDPRT"
Set Part = swApp.ActivateDoc ("base.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "base.SLDPRT"
Set Part = swApp.ActivateDoc ("Base_Assembly.SLDASM")
Set Part = Nothing
swApp.CloseDoc "Base_Assembly.SLDASM"
Set Part = swApp.ActivateDoc ("Back_CH_1.6.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Back_CH_1.6.SLDPRT"
Set Part = swApp.ActivateDoc ("back leg assem.SLDASM")
Set Part = Nothing
swApp.CloseDoc "back leg assem.SLDASM"
Set Part = swApp.ActivateDoc ("AMC_DR100EE30A40NDC.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "AMC_DR100EE30A40NDC.SLDPRT"
Set Part = swApp.ActivateDoc ("Actuator+Slide Mount.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Actuator+Slide Mount.SLDPRT"
Set Part = swApp.ActivateDoc ("Actuator Tube.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Actuator Tube.SLDPRT"
Set Part = swApp.ActivateDoc ("Actuator Back.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Actuator Back.SLDPRT"
Set Part = swApp.ActivateDoc ("3-Axis-Base_Assembly - Sheet4")
Set Part = Nothing
swApp.CloseDoc "3-Axis-Base_Assembly - Sheet4"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\benthos base Assem.SLDASM", 2, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("benthos base Assem.SLDASM")
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Borosilicate Housing.SLDASM", 2, 4, "", longstatus, longwarnings)
' MSGBOX
' V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Borosilicate Housing.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 ("Borosilicate Housing.SLDASM")
Set Part = Nothing
swApp.CloseDoc "Borosilicate Housing.SLDASM"
Set Part = swApp.ActivateDoc ("benthos base Assem.SLDASM")
Set Part = Nothing
swApp.CloseDoc "benthos base Assem.SLDASM"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Channel-Slide_Base.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Channel-Slide_Base.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Channel-Slide_Base.SLDPRT"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Compensator.SLDASM", 2, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Compensator.SLDASM")
Set Part = Nothing
swApp.CloseDoc "Compensator.SLDASM"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Cradle Assem.SLDASM", 2, 4, "", longstatus, longwarnings)
' MSGBOX
' V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Cradle Assem.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 ("Cradle Assem.SLDASM")
Set Part = Nothing
swApp.CloseDoc "Cradle Assem.SLDASM"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Cradle-2.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Cradle-2.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Cradle-2.SLDPRT"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Crossing_Lazer.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Crossing_Lazer.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Crossing_Lazer.SLDPRT"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\External Race.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("External Race.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "External Race.SLDPRT"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Fiber interface endcap.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Fiber interface endcap.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Fiber interface endcap.SLDPRT"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Flanged Thrust Bearing.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Flanged Thrust Bearing.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Flanged Thrust Bearing.SLDPRT"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Horizontal_Channel_Slide.SLDASM", 2, 4, "", longstatus, longwarnings)
' MSGBOX
' V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Horizontal_Channel_Slide.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 ("Horizontal_Channel_Slide.SLDASM")
Set Part = Nothing
swApp.CloseDoc "Horizontal_Channel_Slide.SLDASM"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Horizontal_Mount.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Horizontal_Mount.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Horizontal_Mount.SLDPRT"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Int-Ext_Race Assembly.SLDASM", 2, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Int-Ext_Race Assembly.SLDASM")
Set Part = Nothing
swApp.CloseDoc "Int-Ext_Race Assembly.SLDASM"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\KD - Four-Point Contact.SLDASM", 2, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("KD - Four-Point Contact.SLDASM")
Set Part = Nothing
swApp.CloseDoc "KD - Four-Point Contact.SLDASM"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\leg assem.SLDASM", 2, 4, "", longstatus, longwarnings)
' MSGBOX
' V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\leg assem.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 ("leg assem.SLDASM")
Set Part = Nothing
swApp.CloseDoc "leg assem.SLDASM"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Linear_Actuator.SLDASM", 2, 4, "", longstatus, longwarnings)
' MSGBOX
' V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Linear_Actuator.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 ("Linear_Actuator.SLDASM")
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Linear_Actuator.SLDASM", 2, 4, "", longstatus, longwarnings)
Set Part = Nothing
swApp.CloseDoc "Linear_Actuator.SLDASM"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Manifold.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Manifold.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Manifold.SLDPRT"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Mounting ring.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Mounting ring - Sheet1")
Set Part = Nothing
swApp.CloseDoc "Mounting ring - Sheet1"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Ocean Bottom.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Ocean Bottom.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Ocean Bottom.SLDPRT"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Pivot Lock Plate.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Pivot Lock Plate.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Pivot Lock Plate.SLDPRT"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Pivot Mount.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Pivot Mount.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Pivot Mount.SLDPRT"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Probe Head housing assembly.SLDASM", 2, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Probe Head housing assembly.SLDASM")
Set Part = Nothing
swApp.CloseDoc "Probe Head housing assembly.SLDASM"
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\PUP_3-Axis.SLDASM", 2, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("PUP_3-Axis.SLDASM")
Part.ShowNamedView2 "*Top", 5
Part.ShowNamedView2 "*Right", 4
Part.ShowNamedView2 "*Isometric", 7
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Rotary Axis_Large-Stack.SLDASM", 2, 4, "", longstatus, longwarnings)
' MSGBOX
' V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Rotary Axis_Large-Stack.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 ("Rotary Axis_Large-Stack.SLDASM")
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Rotary_Interface.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Rotary_Interface.SLDPRT")
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Rotating Bearing Assembly.SLDASM", 2, 4, "", longstatus, longwarnings)
' MSGBOX
' V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Rotating Bearing Assembly.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 ("Rotating Bearing Assembly.SLDASM")
Set Part = swApp.OpenDoc6 ("V:\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-Precision_Underwater_Positioning\600045.PUP-Three_Axis\Rotational Mount.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Rotational Mount - Sheet1")
Set Part = Nothing
swApp.CloseDoc "Rotational Mount - Sheet1"
Set Part = swApp.ActivateDoc ("Rotating Bearing Assembly.SLDASM")
Set Part = Nothing
swApp.CloseDoc "Rotating Bearing Assembly.SLDASM"
Set Part = swApp.ActivateDoc ("Rotary_Interface.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "Rotary_Interface.SLDPRT"
Set Part = swApp.ActivateDoc ("Rotary Axis_Large-Stack.SLDASM")
Set Part = Nothing
swApp.CloseDoc "Rotary Axis_Large-Stack.SLDASM"
Set Part = swApp.ActivateDoc ("PUP_3-Axis.SLDASM")
Set Part = Nothing
swApp.CloseDoc "PUP_3-Axis.SLDASM"