' ******************************************************************************
' swxJRNL.swj - journal recorded on 12/29/03 by shfa
' *****************************************************************************
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 ("E:\Multibeam\Mid-Section\MidBody Fairings\TOP PARALLEL SHELL.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("TOP PARALLEL SHELL.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameWidth = 949
swApp.ActiveDoc.ActiveView.FrameHeight = 590
Part.ActiveView().RotateAboutCenter 0.0091376, 0
Part.ActiveView().RotateAboutCenter 0.0274128, -0.0121275
Part.ActiveView().RotateAboutCenter 0.091376, -0.0485099
Part.ActiveView().RotateAboutCenter 0.164477, -0.0363824
Part.ActiveView().RotateAboutCenter 0.155339, 0
Part.ActiveView().RotateAboutCenter 0.246715, 0.0485099
Part.ActiveView().RotateAboutCenter 0.0822384, 0.0242549
Part.ActiveView().RotateAboutCenter 0.100514, 0.0121275
Part.ActiveView().RotateAboutCenter 0.155339, 0.0485099
Part.ActiveView().RotateAboutCenter 0.0731008, 0.0363824
Part.ActiveView().RotateAboutCenter 0.127926, 0.0606374
Part.ActiveView().RotateAboutCenter 0.118789, 0.0606374
Part.ActiveView().RotateAboutCenter 0.0731008, 0.0363824
Part.ActiveView().RotateAboutCenter 0.0639632, 0.0485099
Part.ActiveView().RotateAboutCenter 0.0274128, 0.0121275
Part.ActiveView().RotateAboutCenter 0.0091376, 0
Part.ActiveView().RotateAboutCenter 0.0182752, 0.0606374
Part.ActiveView().RotateAboutCenter 0.0091376, 0.0727648
Part.ActiveView().RotateAboutCenter 0.0091376, 0.0363824
Part.ActiveView().RotateAboutCenter -0.0091376, 0.109147
Part.ActiveView().RotateAboutCenter -0.0091376, 0
Part.ActiveView().RotateAboutCenter -0.0091376, 0
Part.ActiveView().RotateAboutCenter -0.0182752, 0.0363824
swApp.LoadFile2 "E:\Multibeam\Mid-Section-OldandObsolete\8.5in Forward Section.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("E:\Multibeam\Mid-Section-OldandObsolete\8.5in Forward Section.SLDDRW", 3, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("8.5in Forward Section - 16.75" Middle Section")
Set Part = Nothing
swApp.CloseDoc "8.5in Forward Section - 16.75" Middle Section"
Set Part = swApp.ActivateDoc ("TOP PARALLEL SHELL.SLDPRT")
swApp.LoadFile2 "C:\Documents and Settings\shfa\Desktop\Multibeam AUV\AUV NOSE FOAM\Center Bottom AFT Foam.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\shfa\Desktop\Multibeam AUV\AUV NOSE FOAM\Center Bottom AFT Foam.SLDDRW", 3, 0, "", longstatus)
' MSGBOX
' Unknown error opening C:\Documents and Settings\shfa\Desktop\Multibeam AUV\AUV NOSE FOAM\Center Bottom AFT Foam.SLDDRW.

swApp.LoadFile2 "E:\Drawings\Multibeam\MultiBeam MidBodies-OldandObsolete\MidBody\15 Inch Forward Section.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("E:\Drawings\Multibeam\MultiBeam MidBodies-OldandObsolete\MidBody\15 Inch Forward Section.SLDDRW", 3, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("15 Inch Forward Section - 14.5" forward section")
Set Part = Nothing
swApp.CloseDoc "15 Inch Forward Section - 14.5" forward section"
Set Part = swApp.ActivateDoc ("TOP PARALLEL SHELL.SLDPRT")
swApp.LoadFile2 "E:\Drawings\Multibeam\MultiBeam MidBodies-OldandObsolete\MidBody\2nd Bulkhead.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("E:\Drawings\Multibeam\MultiBeam MidBodies-OldandObsolete\MidBody\2nd Bulkhead.SLDDRW", 3, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("2nd Bulkhead - Sheet1")
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "2nd Bulkhead - Sheet1"
Set Part = swApp.ActivateDoc ("TOP PARALLEL SHELL.SLDPRT")
swApp.LoadFile2 "E:\Drawings\Multibeam\MultiBeam MidBodies-OldandObsolete\MidBody\Forward Sidescan Bulkhead.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("E:\Drawings\Multibeam\MultiBeam MidBodies-OldandObsolete\MidBody\Forward Sidescan Bulkhead.SLDDRW", 3, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Forward Sidescan Bulkhead - Sheet1")
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "Forward Sidescan Bulkhead - Sheet1"
Set Part = swApp.ActivateDoc ("TOP PARALLEL SHELL.SLDPRT")
swApp.LoadFile2 "E:\Drawings\Multibeam\MultiBeam MidBodies-OldandObsolete\MidBody\MidSec. 2.5in.AftSec.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("E:\Drawings\Multibeam\MultiBeam MidBodies-OldandObsolete\MidBody\MidSec. 2.5in.AftSec.SLDDRW", 3, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("MidSec. 2.5in.AftSec - 2.5" Aft Section")
Set Part = Nothing
swApp.CloseDoc "MidSec. 2.5in.AftSec - 2.5" Aft Section"
Set Part = swApp.ActivateDoc ("TOP PARALLEL SHELL.SLDPRT")
swApp.LoadFile2 "E:\Drawings\Multibeam\MultiBeam MidBodies-OldandObsolete\MidBody\Mount Plate.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("E:\Drawings\Multibeam\MultiBeam MidBodies-OldandObsolete\MidBody\Mount Plate.SLDDRW", 3, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Mount Plate - Sheet1")
Set Part = Nothing
swApp.CloseDoc "Mount Plate - Sheet2"
Set Part = swApp.ActivateDoc ("TOP PARALLEL SHELL.SLDPRT")
swApp.LoadFile2 "E:\Drawings\Multibeam\MultiBeam MidBodies-OldandObsolete\MidBody\PV Bulkhead Bracket.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("E:\Drawings\Multibeam\MultiBeam MidBodies-OldandObsolete\MidBody\PV Bulkhead Bracket.SLDDRW", 3, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("PV Bulkhead Bracket - Sheet1")
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "PV Bulkhead Bracket - Sheet1"
Set Part = swApp.ActivateDoc ("TOP PARALLEL SHELL.SLDPRT")
swApp.LoadFile2 "E:\Drawings\Multibeam\MultiBeam MidBodies-OldandObsolete\Lower Fairing\MidbodyRail.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("E:\Drawings\Multibeam\MultiBeam MidBodies-OldandObsolete\Lower Fairing\MidbodyRail.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("MidbodyRail.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameWidth = 949
swApp.ActiveDoc.ActiveView.FrameHeight = 590
Part.ActiveView().RotateAboutCenter 0.0091376, 0
Part.ActiveView().RotateAboutCenter 0.0365504, 0
Part.ActiveView().RotateAboutCenter 0.0091376, 0
Part.ActiveView().RotateAboutCenter 0.0091376, -0.0121275
Part.ActiveView().RotateAboutCenter 0.0274128, 0
Part.ActiveView().RotateAboutCenter 0.0731008, -0.0121275
Part.ActiveView().RotateAboutCenter 0.127926, -0.0242549
Part.ActiveView().RotateAboutCenter 0.118789, 0
Part.ActiveView().RotateAboutCenter 0.118789, -0.0121275
Part.ActiveView().RotateAboutCenter 0.164477, -0.0121275
Part.ActiveView().RotateAboutCenter 0.201027, 0
Part.ActiveView().RotateAboutCenter 0.127926, 0
Part.ActiveView().RotateAboutCenter 0.127926, 0
Part.ActiveView().RotateAboutCenter 0.127926, 0.0121275
Part.ActiveView().RotateAboutCenter 0.146202, 0.0121275
Part.ActiveView().RotateAboutCenter 0.0731008, 0
Part.ActiveView().RotateAboutCenter 0, 0.0121275
Part.ActiveView().RotateAboutCenter -0.0091376, 0
Part.ActiveView().RotateAboutCenter 0, 0.0121275
Set Part = Nothing
swApp.CloseDoc "MidbodyRail.SLDPRT"
Set Part = swApp.ActivateDoc ("TOP PARALLEL SHELL.SLDPRT")
swApp.LoadFile2 "E:\Drawings\Multibeam\FFS MultiBeam NOSE\MultiBeam AUV\Midbody\1 MidSection. Shell Flange.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("E:\Drawings\Multibeam\FFS MultiBeam NOSE\MultiBeam AUV\Midbody\1 MidSection. Shell Flange.SLDDRW", 3, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("1 MidSection. Shell Flange - Sheet1")
Part.EditSketch
Part.ViewZoomTo2 0.288866, 0.0772994, -2.33596e-015, 0.362162, -0.0164666, -1.6812e-015
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameWidth = 962
swApp.ActiveDoc.ActiveView.FrameHeight = 325
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewZoomtofit2
Part.PrintDirect
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.295302727776, 0.2347756491094, 0, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "E:\Drawings\Multibeam\FFS MultiBeam NOSE\MultiBeam AUV\Midbody\1 PARALLEL SHELL FLANGE TOP PART.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("E:\Drawings\Multibeam\FFS MultiBeam NOSE\MultiBeam AUV\Midbody\1 PARALLEL SHELL FLANGE TOP PART.SLDPRT", 1, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("1 PARALLEL SHELL FLANGE TOP PART.SLDPRT")
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("1 PARALLEL SHELL FLANGE TOP PART.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.DimPreferences
New:uiBaseDoc_c.FileSummaryInfo
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 991
swApp.ActiveDoc.ActiveView.FrameHeight = 196
Part.EditSketch
Set Part = swApp.ActivateDoc ("1 MidSection. Shell Flange - Sheet1")
swApp.ActiveDoc.ActiveView.FrameLeft = -7
swApp.ActiveDoc.ActiveView.FrameTop = 198
swApp.ActiveDoc.ActiveView.FrameLeft = -93
swApp.ActiveDoc.ActiveView.FrameTop = 197
swApp.ActiveDoc.ActiveView.FrameLeft = -102
swApp.ActiveDoc.ActiveView.FrameTop = 202
swApp.ActiveDoc.ActiveView.FrameLeft = -143
swApp.ActiveDoc.ActiveView.FrameTop = 210
swApp.ActiveDoc.ActiveView.FrameLeft = -160
swApp.ActiveDoc.ActiveView.FrameTop = 213
swApp.ActiveDoc.ActiveView.FrameLeft = -159
swApp.ActiveDoc.ActiveView.FrameTop = 214
swApp.ActiveDoc.ActiveView.FrameLeft = -158
swApp.ActiveDoc.ActiveView.FrameTop = 214
swApp.ActiveDoc.ActiveView.FrameLeft = -128
swApp.ActiveDoc.ActiveView.FrameTop = 210
swApp.ActiveDoc.ActiveView.FrameLeft = -126
swApp.ActiveDoc.ActiveView.FrameTop = 210
swApp.ActiveDoc.ActiveView.FrameLeft = -129
swApp.ActiveDoc.ActiveView.FrameTop = 212
swApp.ActiveDoc.ActiveView.FrameLeft = -159
swApp.ActiveDoc.ActiveView.FrameTop = 216
swApp.ActiveDoc.ActiveView.FrameLeft = -163
swApp.ActiveDoc.ActiveView.FrameTop = 216
swApp.ActiveDoc.ActiveView.FrameLeft = -163
swApp.ActiveDoc.ActiveView.FrameTop = 216
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch
Part.PrintDirect
swApp.PageSetup
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
swApp.LoadFile2 "E:\Drawings\Multibeam\6KWhr Battery MidBody\Midbody\1 MidSection. Shell Flange.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("E:\Drawings\Multibeam\6KWhr Battery MidBody\Midbody\1 MidSection. Shell Flange.SLDDRW", 3, 0, "", longstatus)
' MSGBOX
' A document named "1 MidSection. Shell Flange" is already opened. Do you want to show this already-opened document?

Part.EditSketch