' ******************************************************************************
' swxJRNL.swj - journal recorded on 05/29/03 by hamilton
' *****************************************************************************
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 ("K:\Drawings\Multibeam\MultiBeam MidBodies\MidBody\8.5in Forward Section.SLDDRW", 3, 0, "", longstatus)
Set Part = swApp.OpenDoc4 ("K:\Drawings\Multibeam\MultiBeam MidBodies\MidBody\MidBody.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("MidBody")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 2
Set Part = swApp.ActivateDoc ("8.5in Forward Section - 16.75" Middle Section")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.1051316646707, 0.2124466646707, 0, False, 0, Nothing)
Part.ViewPropertySheet
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.ClearSelection
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
Set Part = swApp.ActivateDoc ("MidBody")
swApp.LoadFile2 "K:\Drawings\Multibeam\MultiBeam MidBodies\MidBody\Lower Foam.21 inch Blank.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("K:\Drawings\Multibeam\MultiBeam MidBodies\MidBody\Lower Foam.21 inch Blank.SLDDRW", 3, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Lower Foam.21 inch Blank - Sheet1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1108459041916, 0.2142048921981, -2499.3626875, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.04535192814371, 0.2159631197605, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.08359337724551, 0.2106884371083, -2499.4388875, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "K:\Drawings\Multibeam\MultiBeam MidBodies\MidBody\Lower Foam.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("K:\Drawings\Multibeam\MultiBeam MidBodies\MidBody\Lower Foam.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 ("Lower Foam")
Part.ClearSelection
' MSGBOX
' K:\Drawings\Multibeam\MultiBeam MidBodies\MidBody\Lower Foam.SLDPRT is being referenced by other open documents.  "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references.  

Set Part = Nothing
swApp.CloseDoc "Lower Foam"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Lower Foam.21 inch Blank - Sheet1")
Part.EditSketch
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("MidBody")
swApp.ExitApp
End Sub