' ******************************************************************************
' swxJRNL.swj - journal recorded on 02/01/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 ("X:\900434.MOOS-VP\Project.Drawings\Mooring Design\seahorse_mooring.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("seahorse_mooring - Sheet1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1392724200627, 0.1854924576803, 0, False, 0, Nothing)
Part.ViewZoomTo2 0.171028, 0.272015, -1.91898e-015, 0.229477, 0.205282, -1.45299e-015
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1722894220806, 0.2615682015323, 0, False, 0, Nothing)
swApp.LoadFile2 "X:\900434.MOOS-VP\Project.Drawings\VP Buoy\VP_Buoy.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("X:\900434.MOOS-VP\Project.Drawings\VP Buoy\VP_Buoy.SLDASM", 2, 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 ("VP_Buoy")
boolstatus = Part.Extension.SelectByID("Foam-1@VP_Buoy", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ShowComponent2
' MSGBOX
' Some of the models referenced in this document have been modified.  They must be saved when the document is saved.
' 		Save the document and the referenced models now?

Part.Save2 FALSE
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("seahorse_mooring - Sheet1")
Part.ViewZoomtofit2
Part.ViewZoomTo2 0.17912, 0.184065, -1.30483e-015, 0.211762, 0.149585, -1.06405e-015
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1994896985369, 0.1783418718907, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2066092361194, 0.2370664237151, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2066092361194, 0.2370664237151, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2069814995225, 0.2372060224912, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2070280324478, 0.2373456212673, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2067023019702, 0.2363684298344, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2066092361194, 0.2366941603121, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2067953678209, 0.2374386871181, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2109833311048, 0.2365545615359, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3230206555324, 0.1413091085595, 0, False, 0, Nothing)
Part.Save2 FALSE
Part.PrintDirect
Part.EditSketch
Part.PrintDirect
Part.PrintDirect
Part.ViewZoomtofit2
Part.ViewZoomTo2 0.0168303, 0.270957, -1.9116e-015, 0.285781, 0.170273, -1.20852e-015
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
Part.SuppressView
boolstatus = Part.Extension.SelectByID("D2@Sketch1@seahorse_mooring.SLDDRW", "DIMENSION", 0.03339407215363, 0.1376558610471, 0, False, 0, Nothing)
Part.Parameter("D2@Sketch1").SystemValue = 0.204768
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.1395146136872, 0.2331081999926, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.1403568402073, 0.2328274578192, 0, False, 0, Nothing)
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID("D2@Sketch1@seahorse_mooring.SLDDRW", "DIMENSION", 0.02786417118998, 0.1394701273486, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D2@Sketch1@seahorse_mooring.SLDDRW", "DIMENSION", 0.02694468058455, 0.1385506367432, 0, False, 0, Nothing)
Part.Parameter("D2@Sketch1").SystemValue = 0.2032
boolstatus = Part.Extension.SelectByID("D2@Sketch1@seahorse_mooring.SLDDRW", "DIMENSION", 0.02602518997912, 0.1357921649269, 0, False, 0, Nothing)
Part.Parameter("D2@Sketch1").SystemValue = 0.20193
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.260955039666, 0.2576246701461, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2151", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1914", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1915", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1916", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2152", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2153", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2154", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2155", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2156", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2157", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2158", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2159", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2160", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2161", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2162", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2163", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2164", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2165", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2166", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2167", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2168", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2169", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2170", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2171", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2172", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2173", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2174", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2175", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2176", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2177", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2178", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2179", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2180", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2181", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2182", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2183", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2184", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2185", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2186", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2187", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2188", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2189", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2190", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2191", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2192", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2193", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2194", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2195", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2196", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2197", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2198", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2199", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2200", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2201", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2207", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2208", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2209", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2210", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2211", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2212", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2213", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2214", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2215", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2216", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2217", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2218", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2219", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2220", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2221", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2222", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2223", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2224", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2225", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2226", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2227", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2228", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2229", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2230", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc961", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc962", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc963", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc964", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc965", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc966", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc967", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc968", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc969", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc970", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc971", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc972", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc973", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc974", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc975", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc976", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc977", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc978", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc979", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc980", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc981", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc982", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc983", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc984", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc985", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc986", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc987", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc988", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc989", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc990", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc991", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc992", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc993", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc994", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc995", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc996", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem118@Sheet1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem119@Sheet1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem123@Sheet1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem121@Sheet1", "NOTE", 0, 0, 0, True, 0, Nothing)
Part.ViewZoomTo2 0.146938, 0.259464, -1.83134e-015, 0.274747, 0.160618, -1.1411e-015
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.190697511151, 0.2130428130151, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2154", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2156", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2157", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2212", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2213", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2216", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2219", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc993", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc994", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1933657615509, 0.2093072624553, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2151", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2155", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2156", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2157", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2158", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2159", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2160", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2161", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2162", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2163", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2164", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2165", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2166", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2167", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2168", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2169", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2170", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2171", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2172", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2173", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2174", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2175", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2176", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2177", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2178", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2179", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2180", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2181", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2182", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2183", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2184", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2185", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2186", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2187", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2192", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2193", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2194", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2195", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2196", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2197", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2198", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2199", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2200", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2201", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc961", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc962", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc963", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc964", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc965", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc966", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc967", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc968", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc969", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc970", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc971", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc972", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc973", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc974", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc975", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc976", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc977", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc978", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1953669493508, 0.192764109976, 0, False, 0, Nothing)
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("DetailItem118@Sheet1", "NOTE", 0.2277861917094, 0.1994347359757, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("DetailItem123@Sheet1", "NOTE", 0.2275193666694, 0.2089070248953, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem119@Sheet1", "NOTE", 0.2277861917094, 0.191429984776, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1938994116309, 0.2218480393347, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2225", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2227", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
Part.EditUndo 1
Part.SetPickMode
Part.ViewZoomTo2 0.195634, 0.222248, -3.73989e-016, 0.200703, 0.216111, -3.31134e-016
boolstatus = Part.Extension.SelectByID("Line1914", "SKETCHSEGMENT", 0.1975060507679, 0.2197553892404, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Line1915", "SKETCHSEGMENT", 0.1977213832563, 0.2188940592868, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Line1916", "SKETCHSEGMENT", 0.1981603302519, 0.2190596996625, 0, False, 0, Nothing)
Part.EditDelete
Part.ViewZoomtofit2
Part.ViewZoomTo2 0.188315, 0.224523, -1.58735e-015, 0.244864, 0.181767, -1.28878e-015
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1928604256388, 0.2217091079515, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2409681165267, 0.220941746011, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2152", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2153", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2154", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2207", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2208", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2209", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2210", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2211", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2212", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2213", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2214", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2215", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2216", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2217", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2218", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2219", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2220", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2221", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2222", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2223", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2224", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2225", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2226", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2227", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2228", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2229", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2230", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc979", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc980", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc981", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc982", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc983", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc984", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc985", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc986", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc987", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc988", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc989", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc990", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc991", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc992", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc993", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc994", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc995", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc996", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem123@Sheet1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem121@Sheet1", "NOTE", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("0@Block13@Sheet1", "BLOCKINST", 0.1971694580742, 0.2063028412991, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point4949", "SKETCHPOINT", 0.1974077687978, 0.1934770360252, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point4950", "SKETCHPOINT", 0.1979562847671, 0.2049452009427, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
Part.ViewZoomtofit2
Part.ViewZoomTo2 0.185097, 0.237856, -1.68045e-015, 0.2159, 0.173032, -1.22778e-015
boolstatus = Part.Extension.SelectByID("Point4949", "SKETCHPOINT", 0.1973465415989, 0.2051222844675, 0, False, 0, Nothing)
Part.ViewZoomTo2 0.195862, 0.206537, -1.96974e-016, 0.199886, 0.186854, -5.95252e-017
boolstatus = Part.Extension.SelectByID("Point4950", "SKETCHPOINT", 0.19775973649, 0.2051222844675, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("0@Block13@Sheet1", "BLOCKINST", 0.1976615687289, 0.2059261454474, 0, False, 0, Nothing)
Part.ExplodeBlockInstance
Part.ClearSelection2 True
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Point4949", "SKETCHPOINT", 0.1973465415989, 0.2051222844675, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point5169", "SKETCHPOINT", 0.1974055445796, 0.2048322890956, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgMERGEPOINTS"
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1922957760951, 0.2006931694629, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1901", "SKETCHSEGMENT", 0.1973162454406, 0.204571415624, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Line2289", "SKETCHSEGMENT", 0.1974756254198, 0.2058464554578, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1901", "SKETCHSEGMENT", 0.1974224987601, 0.2047573589331, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgCOLINEAR"
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line2287", "SKETCHSEGMENT", 0.1977943853783, 0.2059261454474, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1903", "SKETCHSEGMENT", 0.1976615687289, 0.2047307956032, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgCOLINEAR"
Part.SetPickMode
Part.ClearSelection2 True
Part.ViewZoomtofit2
Part.ViewZoomTo2 0.187396, 0.189582, -1.34336e-015, 0.213142, 0.155561, -1.10579e-015
boolstatus = Part.Extension.SelectByID("Line2003", "SKETCHSEGMENT", 0.1978352979301, 0.1785633686155, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2004", "SKETCHSEGMENT", 0.1968252232299, 0.1771859940243, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2005", "SKETCHSEGMENT", 0.2008196095442, 0.1618053110901, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc933", "SKETCHSEGMENT", 0.2039875711038, 0.1620807860083, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2006", "SKETCHSEGMENT", 0.205135383263, 0.1662588222681, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc934", "SKETCHSEGMENT", 0.2043089585084, 0.1779205938063, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1885609756831, 0.171079633337, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2003", "SKETCHSEGMENT", 0.198569897712, 0.1782878936972, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2004", "SKETCHSEGMENT", 0.1967333982572, 0.1771859940243, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2005", "SKETCHSEGMENT", 0.1987994601439, 0.1618053110901, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc933", "SKETCHSEGMENT", 0.2043548709947, 0.162172610981, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2006", "SKETCHSEGMENT", 0.2049058208312, 0.1656619599452, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc934", "SKETCHSEGMENT", 0.2044926084538, 0.1773696439698, 0, True, 0, Nothing)
Part.SetLineColor 65535
Part.SetLineColor 65535
Part.SetLineColor 65535
Part.SetLineColor 65535
Part.SetLineColor 65535
Part.SetLineColor 65535
Part.SetLineWidth 7
Part.SetLineWidth 7
Part.SetLineWidth 7
Part.SetLineWidth 7
Part.SetLineWidth 7
Part.SetLineWidth 7
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1922798870792, 0.1822822800115, 0, False, 0, Nothing)
Part.ViewZoomtofit2
Part.ClearSelection2 True
Part.EditUndo 1
Part.EditUndo 1
Part.ViewZoomTo2 0.182339, 0.186364, -1.32089e-015, 0.230612, 0.146366, -1.04158e-015
boolstatus = Part.Extension.SelectByID("Line2003", "SKETCHSEGMENT", 0.2013472929179, 0.1785373101772, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Arc934", "SKETCHSEGMENT", 0.2029126605276, 0.1783213974035, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2006", "SKETCHSEGMENT", 0.2050178100716, 0.1741650765089, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc933", "SKETCHSEGMENT", 0.2044780281372, 0.162289873953, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2005", "SKETCHSEGMENT", 0.2022649222064, 0.1616421356318, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2004", "SKETCHSEGMENT", 0.1967591464759, 0.1654206091723, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2003", "SKETCHSEGMENT", 0.1997279471149, 0.1785373101772, 0, True, 0, Nothing)
Part.SetLineWidth 2
Part.SetLineWidth 2
Part.SetLineWidth 2
Part.SetLineWidth 2
Part.SetLineWidth 2
Part.SetLineWidth 2
Part.SetLineColor 0
Part.SetLineColor 0
Part.SetLineColor 0
Part.SetLineColor 0
Part.SetLineColor 0
Part.SetLineColor 0
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1927107819682, 0.1632614814348, 0, False, 0, Nothing)
Part.ViewZoomtofit2
Part.ViewZoomTo2 0.187396, 0.185445, -1.31446e-015, 0.222796, 0.142229, -1.01269e-015
boolstatus = Part.Extension.SelectByID("Line2003", "SKETCHSEGMENT", 0.201480066865, 0.1786793907094, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2004", "SKETCHSEGMENT", 0.1970476506132, 0.1758799699188, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2005", "SKETCHSEGMENT", 0.2004302840685, 0.1618245446992, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc933", "SKETCHSEGMENT", 0.2038712387903, 0.1619411872322, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2006", "SKETCHSEGMENT", 0.2050376641198, 0.164390680424, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc934", "SKETCHSEGMENT", 0.2046294152545, 0.1772213590476, 0, True, 0, Nothing)
Part.SetLineWidth 1
Part.SetLineWidth 1
Part.SetLineWidth 1
Part.SetLineWidth 1
Part.SetLineWidth 1
Part.SetLineWidth 1
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2070789084462, 0.1836366983594, 0, False, 0, Nothing)
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3391117411273, 0.2019954885177, 0, False, 0, Nothing)
Part.ViewZoomTo2 0.190614, 0.182686, -1.2952e-015, 0.216819, 0.155561, -1.10579e-015
boolstatus = Part.Extension.SelectByID("Line2003", "SKETCHSEGMENT", 0.2012641540913, 0.1785497189573, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2004", "SKETCHSEGMENT", 0.1967250223306, 0.17466949342, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2005", "SKETCHSEGMENT", 0.2000195534472, 0.1617476102626, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc933", "SKETCHSEGMENT", 0.2039363848859, 0.1619306397691, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line2006", "SKETCHSEGMENT", 0.205071167826, 0.1645662646624, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc934", "SKETCHSEGMENT", 0.2046318970105, 0.1770854829055, 0, True, 0, Nothing)
Part.SetLineWidth 0
Part.SetLineWidth 0
Part.SetLineWidth 0
Part.SetLineWidth 0
Part.SetLineWidth 0
Part.SetLineWidth 0
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2047051088131, 0.1810023143442, 0, False, 0, Nothing)
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3050905887265, 0.1928005824635, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
Part.UnsuppressView
Part.EditSketch
Part.ViewZoomTo2 0.177281, 0.276014, -1.94691e-015, 0.218199, 0.206133, -1.45893e-015
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1887809213104, 0.2214108863016, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1884036943954, 0.2196190584551, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1885923078529, 0.2182987642524, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1884036943954, 0.2185816844387, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1838769714148, 0.2194304449976, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("DetailItem159@Sheet1", "NOTE", 0.2217882763771, 0.2126403605267, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2163184861089, 0.2609254056528, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem161@Drawing View1", "NOTE", 0.2077365737916, 0.2582848172475, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem161@Drawing View1", "NOTE", 0.2059447459451, 0.2570588297736, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem161@Drawing View1", "NOTE", 0.2241459445961, 0.2590392710776, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem161@Drawing View1", "NOTE", 0.2184875408704, 0.2655464353621, 0, False, 0, Nothing)
Part.ActiveView().TranslateBy 0, 0.000450731
Part.ActiveView().TranslateBy -0.000901461, 0.00631023
Part.ActiveView().TranslateBy -0.000450731, 0.00495804
Part.ActiveView().TranslateBy 0, 0.000450731
Part.ActiveView().TranslateBy -0.000450731, 0
Part.ActiveView().TranslateBy -0.0238887, -0.00360585
Part.ActiveView().TranslateBy -0.00180292, -0.000450731
Part.ActiveView().TranslateBy -0.00495804, -0.00225365
Part.ActiveView().TranslateBy -0.0058595, -0.00360585
Part.ActiveView().TranslateBy -0.00901461, -0.0058595
Part.ActiveView().TranslateBy -0.00631023, -0.00405658
Part.ActiveView().TranslateBy -0.00180292, -0.00180292
Part.ActiveView().TranslateBy -0.00450731, -0.00540877
Part.ActiveView().TranslateBy -0.00315511, -0.00225365
Part.ActiveView().TranslateBy -0.00270438, -0.00180292
boolstatus = Part.Extension.SelectByID("DetailItem155@Drawing View1", "NOTE", 0.2470624796852, 0.2472509299823, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2327278569134, 0.246590782881, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem161@Drawing View1", "NOTE", 0.223014263851, 0.2641318344307, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2166957130239, 0.2476281568974, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem162@Drawing View1", "NOTE", 0.2195249148868, 0.2461192492372, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem162@Drawing View1", "NOTE", 0.2169786332102, 0.2530036404368, 0, False, 0, Nothing)
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID("DetailItem162@Drawing View1", "NOTE", 0.1575123465553, 0.249809, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem162@Drawing View1", "NOTE", 0.2039466221294, 0.2410738392484, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem162@Drawing View1", "NOTE", 0.1165950146138, 0.2521077265136, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem162@Drawing View1", "NOTE", 0.1469382045929, 0.2525674718163, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("DetailItem162@Drawing View1", "NOTE", 0.1473979498956, 0.2539467077244, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
Part.ViewZoomTo2 0.12579, 0.258544, -1.82492e-015, 0.218199, 0.210271, -1.48783e-015
boolstatus = Part.Extension.SelectByID("DetailItem162@Drawing View1", "NOTE", 0.1913828099947, 0.2396646095184, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("DetailItem162@Drawing View1", "NOTE", 0.1965916570883, 0.2048425020964, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem162@Drawing View1", "NOTE", 0.1971704178765, 0.2042637413082, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1708368020145, 0.239568149387, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.161673089535, 0.2364814251834, 0, False, 0, Nothing)
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID("DetailItem161@Drawing View1", "NOTE", 0.238427519833, 0.2663598308977, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem155@Drawing View1", "NOTE", 0.2632537661795, 0.2438323110647, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3381922505219, 0.2332581691023, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.15153565762, 0.1454468162839, 0, False, 0, Nothing)
Part.Save2 FALSE
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3731328935282, 0.1569404488518, 0, False, 0, Nothing)
Part.PrintDirect
swApp.LoadFile2 "X:\900434.MOOS-VP\Project.Drawings\Mooring Design\seahorse_mooring.ps", ""
Set Part = swApp.ActiveDoc
' MSGBOX
' File name entered was invalid, not found, locked or of an incompatible type.

boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3837070354906, 0.2052137056367, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
Part.ViewZoomTo2 0.166707, 0.2305, -1.62908e-015, 0.256358, 0.182226, -1.29199e-015
boolstatus = Part.Extension.SelectByID("DetailItem119@Sheet1", "NOTE", 0.2176151667139, 0.1932149771074, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem119@Sheet1", "NOTE", 0.2175215859894, 0.1931213963829, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem119@Sheet1", "NOTE", 0.1985246989248, 0.1938700421786, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem119@Sheet1", "NOTE", 0.2181766510606, 0.2185753534351, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem160@Sheet1", "NOTE", 0.218457393234, 0.2036024375221, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem159@Sheet1", "NOTE", 0.2186445546829, 0.212399025621, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem159@Sheet1", "NOTE", 0.2192060390296, 0.2125861870699, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem159@Sheet1", "NOTE", 0.2192060390296, 0.2124926063454, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2210776535188, 0.1949930108721, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.233430309147, 0.1954609144944, 0, False, 0, Nothing)
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2333703215031, 0.195099308977, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
Part.SetPickMode
Part.Save2 FALSE
Part.PrintDirect
swApp.PageSetup
Part.PrintDirect
Part.EditSketch
Part.PrintDirect
swApp.PageSetup
Part.PrintDirect
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.Save2 FALSE
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("VP_Buoy")
Part.ClearSelection2 True
swApp.ExitApp
End Sub