' ******************************************************************************
' swxJRNL.swj - journal recorded on 02/15/05 by hamilton
' *****************************************************************************
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\hamilton\My Documents\MOOS Vertical Profiling\SeaHorse\CablesAndWiring\Telemetry Can Wiring.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Telemetry Can Wiring - Sheet1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewZoomtofit2
Part.PrintDirect
swApp.LoadFile2 "C:\Documents and Settings\hamilton\My Documents\MOOS Vertical Profiling\SeaHorse\CablesAndWiring\Telemetry Cable.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\hamilton\My Documents\MOOS Vertical Profiling\SeaHorse\CablesAndWiring\Telemetry Cable.SLDDRW", 3, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Telemetry Cable - Sheet1")
Part.PrintDirect
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Telemetry Can Wiring - Sheet1")
Part.PrintDirect
swApp.LoadFile2 "C:\Documents and Settings\hamilton\My Documents\MOOS Vertical Profiling\SeaHorse\CablesAndWiring\Power Cable.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\hamilton\My Documents\MOOS Vertical Profiling\SeaHorse\CablesAndWiring\Power Cable.SLDDRW", 3, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Power Cable - Sheet1")
Part.PrintDirect
swApp.ActiveDoc.ActiveView.FrameState = 1
' MSGBOX
' Save changes to Telemetry Can Wiring - Sheet1?

' MSGBOX
' Save changes to Telemetry Cable - Sheet1?

' MSGBOX
' Save changes to Power Cable - Sheet1?

swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Telemetry Cable - Sheet1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Power Cable - Sheet1")
swApp.ExitApp
End Sub