' ******************************************************************************
' swxJRNL.swj - journal recorded on 03/08/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 ("\\Tornado\ProjectLibrary\600027.MOOS.Mooring\Project.Drawings\Accelerometer\Initial Release\EndCap.SLDDRW", 3, 0, "", longstatus, longwarnings)
' MSGBOX
'  \\Tornado\ProjectLibrary\600027.MOOS.Mooring\Project.Drawings\Accelerometer\Initial Release\EndCap.SLDDRW is not available for write access.  Do you want to open document(s) read-only?

Set Part = swApp.ActivateDoc ("EndCap - Sheet1")
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
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.SaveAs2 "C:\Documents and Settings\pami\Desktop\EndCap.SLDDRW", 0, TRUE, FALSE
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "EndCap - Sheet1"
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\pami\Desktop\EndCap.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("EndCap - Sheet1")
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("Sheet1", "SHEET", 0.1101734477612, 0.1980413358209, 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.3922935223881, 0.04027321641791, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.2312385671642, 0.2194057686567, 0, False, 0, Nothing)
Part.EditSheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem102@Drawing View7", "NOTE", 0.05320162686567, 0.1629817537313, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.04936698507463, 0.1355914552239, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View7", "DRAWINGVIEW", 0.03183719402985, 0.161886141791, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View6", "DRAWINGVIEW", 0.3008099253731, 0.1191572761194, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem105@Drawing View5", "NOTE", 0.3446344029851, 0.06602009701493, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View8", "DRAWINGVIEW", 0.1353725223881, 0.1454519626866, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("RD5@Drawing View5", "DIMENSION", 0.2427424925373, 0.1750334850746, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("RD1@Drawing View5", "DIMENSION", 0.2317863731343, 0.2435092313433, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("RD2@Drawing View5", "DIMENSION", 0.2208302537313, 0.264325858209, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Detail Circle2", "DETAILCIRCLE", 0.1282510447761, 0.2161189328358, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Arc6", "SKETCHSEGMENT", 0.1298944626866, 0.2079018432836, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Detail Circle1", "DETAILCIRCLE", 0.1885097014925, 0.205710619403, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Arc5", "SKETCHSEGMENT", 0.1917965373134, 0.2068062313433, 0.01120774999998, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem97@Drawing View5", "CENTERMARKSYM", 0.1802926119403, 0.2018759776119, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
Part.EditSketch
Part.ViewZoomTo2 0.0970261, 0.120801, -8.63058e-016, 0.270133, 0.00137899, -2.91399e-017
Part.EditSketch
boolstatus = Part.Extension.SelectByID("RD3@Drawing View9", "DIMENSION", 0.135638005209, 0.1076275949502, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("RD1@Drawing View9", "DIMENSION", 0.232600652533, 0.09812568741734, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("RD5@Drawing View9", "DIMENSION", 0.2576511360287, 0.07048377459448, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("RD6@Drawing View9", "DIMENSION", 0.2379994636312, 0.04435352887911, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("RD4@Drawing View9", "DIMENSION", 0.2215870778926, 0.03269209690697, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("RD7@Drawing View9", "DIMENSION", 0.1153384754797, 0.02103066493482, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("RD2@Drawing View9", "DIMENSION", 0.1220330012415, 0.08711211277698, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem98@Drawing View5", "CENTERMARKSYM", 0.1982642139483, 0.2529635897142, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("DetailItem98@Drawing View5", "CENTERMARKSYM", 0.1637118229198, 0.2546912092656, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("DetailItem98@Drawing View5", "CENTERMARKSYM", 0.1555056300505, 0.1819152356617, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("DetailItem98@Drawing View5", "CENTERMARKSYM", 0.2036630250466, 0.1816992832177, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("DetailItem98@Drawing View5", "CENTERMARKSYM", 0.1796923037705, 0.2156038169145, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("DetailItem98@Drawing View5", "CENTERMARKSYM", 0.1801242086583, 0.2572826385928, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("DetailItem98@Drawing View5", "CENTERMARKSYM", 0.1382294345362, 0.2153878644706, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("DetailItem98@Drawing View5", "CENTERMARKSYM", 0.1796923037705, 0.1741409476802, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("DetailItem98@Drawing View5", "CENTERMARKSYM", 0.2213711254487, 0.2158197693585, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("", "FACE", 0.2133808850233, 0.2000552409517, 0.01120774999998, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2593787555801, 0.2015669080592, 0, False, 0, Nothing)
Part.ViewZoomtofit2
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.SaveAs2 "C:\Documents and Settings\pami\Desktop\EndCap.DXF", 0, TRUE, FALSE
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
' MSGBOX
' Save changes to EndCap - Sheet1?

Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "EndCap - Sheet1"
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\pami\Desktop\EndCap.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("EndCap - Sheet1")
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
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
swApp.LoadFile2 "\\Tornado\ProjectLibrary\600027.MOOS.Mooring\Project.Drawings\Accelerometer\Initial Release\EndCap.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("\\Tornado\ProjectLibrary\600027.MOOS.Mooring\Project.Drawings\Accelerometer\Initial Release\EndCap.SLDDRW", 3, 0, "", longstatus, longwarnings)
' MSGBOX
' A document named "EndCap" is already opened. Do you want to show this already-opened document?

Part.EditSketch
Part.EditSketch
swApp.LoadFile2 "\\Tornado\ProjectLibrary\600027.MOOS.Mooring\Project.Drawings\Accelerometer\Initial Release\PV.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("\\Tornado\ProjectLibrary\600027.MOOS.Mooring\Project.Drawings\Accelerometer\Initial Release\PV.SLDDRW", 3, 0, "", longstatus, longwarnings)
' MSGBOX
'  \\Tornado\ProjectLibrary\600027.MOOS.Mooring\Project.Drawings\Accelerometer\Initial Release\PV.SLDDRW is not available for write access.  Do you want to open document(s) read-only?

swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("PV - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "PV - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("EndCap - Sheet1")
Set Part = Nothing
swApp.CloseDoc "EndCap - Sheet1"
swApp.ExitApp
End Sub