' ******************************************************************************
' swxJRNL.swj - journal recorded on 01/20/04 by pami
' *****************************************************************************
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 ("\\Polarbear\dorado\Multibeam\Mid-Section\MidBody\Ti Lifting Beam Assy.SLDASM", 2, 0, "", longstatus, longwarnings)
' MSGBOX
'  \\Polarbear\dorado\Multibeam\Mid-Section\MidBody\Ti Lifting Beam Assy.SLDASM is being used by Shfa.  Do you want to open a copy?

Set Part = swApp.ActivateDoc ("Ti Lifting Beam Assy")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewDisplayShadedWithEdges
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID("", "FACE", -0.01676116471401, 0.04306010817893, 0.415925, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.04571999999996, 0.05842253638706, -0.007741414126968, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lifting Beam Ti End Plate-1@Ti Lifting Beam Assy", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "\\Polarbear\dorado\Multibeam\Mid-Section\MidBody\Lifting Beam Ti End Plate.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("\\Polarbear\dorado\Multibeam\Mid-Section\MidBody\Lifting Beam Ti End Plate.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Lifting Beam Ti End Plate")
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Ti Lifting Beam Assy")
boolstatus = Part.Extension.SelectByID("", "FACE", -0.02158999999983, 0.0482799508648, 0.03715149591687, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Ti. Lifting beam-2@Ti Lifting Beam Assy", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "\\Polarbear\dorado\Multibeam\Mid-Section\MidBody\Ti. Lifting beam.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("\\Polarbear\dorado\Multibeam\Mid-Section\MidBody\Ti. Lifting beam.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Ti. Lifting beam")
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
' MSGBOX
' Save changes to Ti. Lifting beam?

Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "Ti. Lifting beam"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Ti Lifting Beam Assy")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Lifting Beam Ti End Plate")
Part.ShowNamedView2 "*Front", 1
swApp.LoadFile2 "C:\Program Files\SolidWorks (2)\data\Templates\B_Size.drwdot", ""
Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.NewDocument ("C:\SolidWorks-Borders\MBARI_TEMP_B.slddrt", 12, 0.279400, 0.431800)
Set Part = swApp.ActivateDoc ("Draw1 - Sheet1")
' MSGBOX
' You have selected a drawing document.
' Only parts and assemblies can be inserted in drawings.

swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 1020
swApp.ActiveDoc.ActiveView.FrameHeight = 189
Set Part = swApp.ActivateDoc ("Lifting Beam Ti End Plate")
boolstatus = Part.Extension.SelectByID("Lifting Beam Ti End Plate.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Set Part = swApp.ActivateDoc ("Draw1 - Sheet1")
Part.Create3rdAngleViews "\\Polarbear\dorado\Multibeam\Mid-Section\MidBody\Lifting Beam Ti End Plate.SLDPRT"
Part.EditSketch
Part.EditSketch
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1935750212766, 0.2474662553191, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.2404299148936, 0.209431106383, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1141973191489, 0.2072261702128, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2955533191489, 0.2149434468085, 0, False, 0, Nothing)
Part.EditTemplate
Part.EditSketch
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line14", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line15", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line17", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line18", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line20", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line105", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line24", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line26", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line27", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line28", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line29", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line30", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line31", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line32", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line34", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line35", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line36", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line119", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line102", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line41", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line44", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line45", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line46", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line120", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line101", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line98", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line121", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line122", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line106", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line123", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line124", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line125", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line59", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line60", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line61", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line62", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line63", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line64", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line65", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line66", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line67", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line68", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line69", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line70", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line71", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line72", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line73", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line74", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line75", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line76", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line77", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line78", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line79", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line80", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line81", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line82", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line83", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line84", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line85", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line86", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line126", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line88", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line89", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line90", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line128", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line92", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line93", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line94", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line95", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line103", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line104", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line107", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line116", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line118", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem1@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem2@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem3@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem4@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem5@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem6@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem7@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem8@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem9@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem12@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem13@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem14@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem15@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem16@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem17@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem18@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem19@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem20@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem21@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem22@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem23@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem24@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem25@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem26@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem27@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem30@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem32@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem40@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem41@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem43@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem54@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem55@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem56@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem57@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem58@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem59@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem60@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem61@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem62@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem63@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem64@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem65@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem66@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem67@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem68@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem69@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem70@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem71@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem74@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem75@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem76@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem77@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem78@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem1@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem2@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem3@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem4@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem5@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem6@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem7@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem8@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem9@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem10@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem11@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem12@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem1@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem1@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem3@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem4@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem5@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem6@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem7@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem8@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem1@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem83@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem84@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem85@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem86@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem87@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem88@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem90@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem91@Sheet Format1", "NOTE", 0, 0, 0, True, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Photo Editor Photo", "OLEITEM", 0.3931217446809, 0.04020225531915, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.2294052340426, 0.1923428510638, 0, False, 0, Nothing)
Part.EditSheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem99@Drawing View1", "CENTERMARKSYM", 0.1180559574468, 0.1939965531915, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("DetailItem98@Drawing View1", "CENTERMARKSYM", 0.1825503404255, 0.1923428510638, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("DetailItem95@Drawing View1", "CENTERMARKSYM", 0.1759355319149, 0.1763570638298, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("DetailItem92@Drawing View1", "CENTERMARKSYM", 0.1241195319149, 0.1763570638298, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("DetailItem94@Drawing View1", "CENTERMARKSYM", 0.1235682978723, 0.105799106383, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("DetailItem101@Drawing View1", "CENTERMARKSYM", 0.1164022553191, 0.09532565957447, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("DetailItem93@Drawing View1", "CENTERMARKSYM", 0.1753842978723, 0.1069015744681, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("DetailItem100@Drawing View1", "CENTERMARKSYM", 0.1825503404255, 0.09532565957447, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1654620851064, 0.2061237021277, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1643596170213, 0.2127385106383, 0, False, 0, Nothing)
Part.SaveAs2 "C:\Documents and Settings\pami\Desktop\endplate.DXF", 0, TRUE, FALSE
Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "Lifting Beam Ti End Plate - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 189
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Lifting Beam Ti End Plate")
' MSGBOX
' Save changes to Lifting Beam Ti End Plate?

Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "Lifting Beam Ti End Plate"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 378
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Ti Lifting Beam Assy")
swApp.ActiveDoc.ActiveView.FrameState = 1
' MSGBOX
' Save changes to Ti. Lifting beam?

' MSGBOX
' Save changes to Lifting Beam Ti End Plate?

swApp.ExitApp
End Sub