' ******************************************************************************
' swxJRNL.swj - journal recorded on 02/21/06 by bryan
' *****************************************************************************
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 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\latch controler\latch motor  controller base.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("latch motor  controller base - Sheet1")
Set Part = Nothing
swApp.CloseDoc "latch motor  controller base - Sheet1"
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\latch controler\latch motor controler.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("latch motor controler - Sheet1")
Set Part = Nothing
swApp.CloseDoc "latch motor controler - Sheet1"
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\latch controler\latch motor controller base.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("latch motor controller base.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "latch motor controller base.SLDPRT"
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\latch controler\latch motor controller housing.SLDASM", 2, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("latch motor controller housing.SLDASM")
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\latch controler\latch motor controller top half1.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("latch motor controller top half1 - Sheet1")
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\latch controler\LPIL-3-FS.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("LPIL-3-FS.SLDPRT")
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\latch controler\maxon controler.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("maxon controler.SLDPRT")
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\latch controler\MHDG-9-BCR.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("MHDG-9-BCR.SLDPRT")
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\latch controler\MHDG 90 deg adapter block.SLDPRT", 1, 4, "", longstatus, longwarnings)
' MSGBOX
' \\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\latch controler\MHDG 90 deg adapter block.SLDPRT 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 ("MHDG 90 deg adapter block.SLDPRT")
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\latch controler\MHDG 90 DEG ADAPTER.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("MHDG 90 DEG ADAPTER - Sheet1")
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\latch controler\mounting block.SLDPRT", 1, 4, "", longstatus, longwarnings)
' MSGBOX
' \\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\latch controler\mounting block.SLDPRT 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 ("mounting block.SLDPRT")
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\latch controler\mounting blocks.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("mounting blocks - Sheet1")
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\latch controler\PC board.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("PC board.SLDPRT")
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\latch controler\semipower.SLDPRT", 1, 4, "", longstatus, longwarnings)
' MSGBOX
' \\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\latch controler\semipower.SLDPRT 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 ("semipower.SLDPRT")
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\latch controler\top half1.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("top half1 - Sheet1")
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\latch controler\top half.SLDPRT", 1, 4, "", longstatus, longwarnings)
' MSGBOX
' \\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\latch controler\top half.SLDPRT 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 ("top half.SLDPRT")
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\AI_shcs_1.4-20_2.0_2.0_He_Sim_1.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("AI_shcs_1.4-20_2.0_2.0_He_Sim_1.SLDPRT")
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\AI_ss4_#6-32_0.263_0.263_He_Sim_1.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("AI_ss4_#6-32_0.263_0.263_He_Sim_1.SLDPRT")
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\latch cam.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("latch cam - Sheet1")
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\monuting block.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("monuting block.SLDPRT")
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\MOUNTING BLOCK.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("MOUNTING BLOCK - Sheet1")
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\tiburon latch motor and mounting assembley.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("tiburon latch motor and mounting assembley - Sheet1")
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\362000 tiburon\tiburon latch motor\brushless latch motor assembley.SLDASM", 2, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("brushless latch motor assembley.SLDASM")
Part.ActiveView().RotateAboutCenter 0, 0.00436332
Part.ActiveView().RotateAboutCenter -0.00242509, 0.292343
Part.ActiveView().RotateAboutCenter 0.0679025, 1.9635
Part.ActiveView().RotateAboutCenter 0.162481, 1.16501
Part.ActiveView().RotateAboutCenter -0.451067, 0.253073
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\900427_Tiburon_Refit\Drawings\plate.SLDPRT", 1, 4, "", longstatus, longwarnings)
' MSGBOX
' Cannot open \\Tornado\projectlibrary\900427_Tiburon_Refit\Drawings\plate.SLDPRT.
' 
Future Version

Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\900427_Tiburon_Refit\Drawings\plate.SLDDRW", 3, 4, "", longstatus, longwarnings)
' MSGBOX
' Cannot open \\Tornado\projectlibrary\900427_Tiburon_Refit\Drawings\plate.SLDDRW.
' 
Future Version

Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\Tiburon\MECH.DWGS\LATCH\100372.SLDDRW", 3, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("100372 - Sheet1")
Set Part = swApp.OpenDoc6 ("\\Tornado\projectlibrary\Tiburon\MECH.DWGS\LATCH\100372.SLDPRT", 1, 4, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("100372.SLDPRT")
Set Part = swApp.ActivateDoc ("latch motor controller housing.SLDASM")
Set Part = swApp.ActivateDoc ("MHDG 90 deg adapter block.SLDPRT")
Set Part = swApp.ActivateDoc ("mounting block.SLDPRT")
Set Part = swApp.ActivateDoc ("semipower.SLDPRT")
Set Part = swApp.ActivateDoc ("AI_ss4_#6-32_0.263_0.263_He_Sim_1.SLDPRT")
Set Part = swApp.ActivateDoc ("monuting block.SLDPRT")
Set Part = swApp.ActivateDoc ("AI_shcs_1.4-20_2.0_2.0_He_Sim_1.SLDPRT")
Set Part = swApp.ActivateDoc ("brushless latch motor assembley.SLDASM")
Set Part = swApp.ActivateDoc ("100372.SLDPRT")
Set Part = swApp.ActivateDoc ("AI_shcs_1.4-20_2.0_2.0_He_Sim_1.SLDPRT")
Set Part = swApp.ActivateDoc ("top half.SLDPRT")
Set Part = swApp.ActivateDoc ("PC board.SLDPRT")
Set Part = swApp.ActivateDoc ("top half.SLDPRT")
Set Part = swApp.ActivateDoc ("AI_shcs_1.4-20_2.0_2.0_He_Sim_1.SLDPRT")
Set Part = swApp.ActivateDoc ("100372.SLDPRT")
swApp.ExitApp
End Sub