' ****************************************************************************** ' swxJRNL.swj - journal recorded on 04/23/04 by jon ' ***************************************************************************** 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:\900303.MBARI-CIMT\MBARI-CIMT.Drawings\MBARI-CIMT.ME.Dwgs\CIMT_200405-Drawings\BuoyStructure_V2\Elevator\Elevator Winch\U-Bolt.SLDPRT", 1, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("U-Bolt.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.UnblankSketch ' MSGBOX ' Save changes to U-Bolt.SLDPRT? Set Part = Nothing swApp.CloseDoc "U-Bolt.SLDPRT" Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\U-Bolt.SLDPRT", 1, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("U-Bolt.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D3@Sketch1@U-Bolt.SLDPRT", "DIMENSION", 0.02069578606408, -0.1111278922938, -0.006623768879143, False, 0, Nothing) Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.UnblankSketch boolstatus = Part.Extension.SelectByID("Cosmetic Thread1", "CTHREAD", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cosmetic Thread2", "CTHREAD", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cosmetic Thread1", "CTHREAD", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("D3@Sketch1@U-Bolt.SLDPRT", "DIMENSION", 0.01133494689556, -0.1102931459782, 0.001630136461385, False, 0, Nothing) ' MSGBOX ' This dimension, D3@Sketch1, cannot be changed because it is driven by equation 1. Please suppress the equation before changing the dimension value. Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Equations", "EQNFOLDER", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch2@U-Bolt.SLDPRT", "DIMENSION", 0.09757555149653, -0.1118733207203, -0.009669298529016, False, 0, Nothing) Part.DeleteAllRelations Part.AddRelation """D3@Sketch1"" = ""D1@Sketch1"" - (""D1@Sketch2""/2)" Part.ClearSelection2 True Part.EditRebuild boolstatus = Part.Extension.SelectByID("D3@Sketch1@U-Bolt.SLDPRT", "DIMENSION", 0.01158980737506, -0.1103401457771, 0.001148224474571, False, 0, Nothing) Part.ClearSelection2 True Part.EditRebuild boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.03844184980555, -0.1096712003002, 0.009931198892048, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0238441, 0, -0.00480498) Part.ClearSelection2 True Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("D1@Sketch1@U-Bolt.SLDPRT", "DIMENSION", -0.01194548469555, -0.1107886587571, -0.005089733341146, False, 0, Nothing) Part.Parameter("D1@Sketch1").SystemValue = 0.0492125 Part.EditRebuild Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch1@U-Bolt.SLDPRT", "DIMENSION", 0.03362277869937, -0.1082051303064, 0.02516115959427, False, 0, Nothing) Part.Parameter("D2@Sketch1").SystemValue = 0.104775 Part.EditRebuild Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Cosmetic Thread1@U-Bolt.SLDPRT", "DIMENSION", 0.04011755801608, -0.1134104609361, -0.02958340573336, False, 0, Nothing) Part.EditRebuild boolstatus = Part.Extension.SelectByID("D1@Cosmetic Thread2@U-Bolt.SLDPRT", "DIMENSION", 0.04192380157071, -0.106127412541, 0.04770018197087, False, 0, Nothing) Part.EditRebuild Part.ClearSelection2 True Part.EditRebuild boolstatus = Part.Extension.SelectByID("D2@Sketch1@U-Bolt.SLDPRT", "DIMENSION", 0.02650687246289, -0.1082513683777, 0.02422205534014, False, 0, Nothing) Part.EditRebuild Part.EditRebuild Part.ClearSelection2 True Part.Save2 FALSE boolstatus = Part.Extension.SelectByID("D1@Sketch1@U-Bolt.SLDPRT", "DIMENSION", -0.01164941439684, -0.1109366557551, -0.006639188067989, False, 0, Nothing) Part.Parameter("D1@Sketch1").SystemValue = 0.0452437 Part.EditRebuild Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch1@U-Bolt.SLDPRT", "DIMENSION", 0.02949619964386, -0.1079111197189, 0.02801594966997, False, 0, Nothing) Part.Parameter("D2@Sketch1").SystemValue = 0.115887 Part.EditRebuild Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Cosmetic Thread1@U-Bolt.SLDPRT", "DIMENSION", 0.06009691568741, -0.113121290236, -0.0252582640332, False, 0, Nothing) Part.EditRebuild boolstatus = Part.Extension.SelectByID("D1@Cosmetic Thread2@U-Bolt.SLDPRT", "DIMENSION", 0.057251656099, -0.1065681984457, 0.04399724881363, False, 0, Nothing) Part.EditRebuild Part.Save2 FALSE Part.ClearSelection2 True Part.Save2 FALSE swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\Winch_Mount.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\Winch_Mount.SLDASM", 2, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount.SLDASM") Part.EditRebuild boolstatus = Part.Extension.SelectByID("Sketch1@U-Bolt-1@Winch_Mount", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1@U-Bolt-1@Winch_Mount", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("U-Bolt.SLDPRT") boolstatus = Part.Extension.SelectByID("D1@Sketch1@U-Bolt.SLDPRT", "DIMENSION", -0.01084184107596, -0.1107629374092, -0.004747530553288, False, 0, Nothing) Part.Parameter("D1@Sketch1").SystemValue = 0.0428625 Part.EditRebuild Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch1@U-Bolt.SLDPRT", "DIMENSION", -0.01008711657646, -0.110774758771, -0.00482514677493, False, 0, Nothing) Part.Parameter("D1@Sketch1").SystemValue = 0.0508 Part.EditRebuild Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch1@U-Bolt.SLDPRT", "DIMENSION", 0.03157629329908, -0.1083881153097, 0.02309311103542, False, 0, Nothing) Part.EditRebuild boolstatus = Part.Extension.SelectByID("D1@Cosmetic Thread1@U-Bolt.SLDPRT", "DIMENSION", 0.07206681003661, -0.1136815114387, -0.03043867105217, False, 0, Nothing) Part.EditRebuild boolstatus = Part.Extension.SelectByID("D1@Cosmetic Thread2@U-Bolt.SLDPRT", "DIMENSION", 0.07266145695413, -0.1061071023763, 0.04985563058368, False, 0, Nothing) Part.EditRebuild Part.EditRebuild Part.ClearSelection2 True Part.Save2 FALSE Part.FileSummaryInfo Part.Save2 FALSE Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount.SLDASM") Part.ViewDisplayHiddengreyed boolstatus = Part.Extension.SelectByID("Winch Base-1@Winch_Mount", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\Winch Base.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\Winch Base.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch Base.SLDPRT") Part.ClearSelection2 True Part.ShowNamedView2 "*Top", 5 boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("shaft cut out", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.UnblankSketch boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount.SLDASM") Part.ViewDisplayShadedWithEdges boolstatus = Part.Extension.SelectByID("Parallel1", "MATE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Distance1", "MATE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Coincident9", "MATE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Distance1", "MATE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Distance1", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Distance2", "MATE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Distance2", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Arc2@Sketch1@U-Bolt-2@Winch_Mount", "EXTSKETCHSEGMENT", -0.04602386224683, -0.001120495486249, 0, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("Arc1@Sketch2@Winch Base-1@Winch_Mount", "EXTSKETCHSEGMENT", 0.003820191179431, -0.04428553532873, 0, True, 1, Nothing) ' MSGBOX ' Warning: This mate is over defining the assembly. Consider deleting some of the over defining mates. boolstatus = Part.Extension.SelectByID("Arc2@Sketch1@U-Bolt-2@Winch_Mount", "EXTSKETCHSEGMENT", 0.04320007429811, 0.01591241612351, 0, True, 1, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Coincident9", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Coincident10", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Arc2@Sketch1@U-Bolt-2@Winch_Mount", "EXTSKETCHSEGMENT", -0.04497503707054, -0.009833485991926, 0, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("Arc1@Sketch2@Winch Base-1@Winch_Mount", "EXTSKETCHSEGMENT", 0.01058696723521, -0.0431708075528, 0, True, 1, Nothing) Set Feature = Part.AddMate2 (1, 1, False, 0.01, 0, 0, 1, 1, 0.5235987755983, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.005013740301365, 0.03897674990091, -0.06525409565319, False, 0, Nothing) Part.TranslateComponent Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Parallel1", "MATE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Parallel1", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Parallel2", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("", "FACE", 0.01592414208477, 0.0243344802422, -0.06743718490722, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.03481435892585, 0.03255381907411, 0.02763626082849, True, 1, Nothing) Part.DeSelectByID "", "FACE", 0.01592414208477, 0.0243344802422, -0.06743718490722 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("U-Bolt-2@Winch_Mount", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.HideComponent2 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc1@Sketch2@Winch Base-1@Winch_Mount", "EXTSKETCHSEGMENT", -0.02400660931308, -0.03740969405501, 0, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("Arc2@Sketch1@U-Bolt-1@Winch_Mount", "EXTSKETCHSEGMENT", -0.03588009485569, 0.02884562704114, 0, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.009921882785178, -0.02125653559051, 0.04332849803533, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("Arc2@Sketch1@U-Bolt-1@Winch_Mount", "EXTSKETCHSEGMENT", -0.04357290366932, 0.01486113966268, 0, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.01006308580971, -0.01042640866473, 0.043295921332, True, 1, Nothing) Part.DeSelectByID "", "FACE", 0.01006308580971, -0.01042640866473, 0.043295921332 boolstatus = Part.Extension.SelectByID("", "FACE", 0.02274636441849, 0.02419922080475, -0.05799972858014, True, 1, Nothing) Part.DeSelectByID "", "FACE", 0.02274636441849, 0.02419922080475, -0.05799972858014 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch Base.SLDPRT") boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing) Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Arc1@Sketch2", "EXTSKETCHSEGMENT", -0.03488488432447, -0.02754718398799, 0, False, 0, Nothing) boolstatus = Part.SketchUseEdge2(False) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", -0.02834295041814, 0.152301810092, -0.0154516242758, False, 0, Nothing) Part.CreateConstructionGeometry Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.BlankSketch Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount.SLDASM") boolstatus = Part.Extension.SelectByID("Arc2@Sketch1@U-Bolt-1@Winch_Mount", "EXTSKETCHSEGMENT", -0.03530769646664, 0.02954349296325, 0, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("Arc2@Sketch10@Winch Base-1@Winch_Mount", "EXTSKETCHSEGMENT", -0.02222995926172, -0.03849196554116, 0, True, 1, Nothing) Set Feature = Part.AddMate2 (1, 1, False, 0.01, 0, 0, 1, 1, 0.5235987755983, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.01679256765615, 0.02393712689752, -0.06135678041041, True, 1, Nothing) Part.DeSelectByID "", "FACE", 0.01679256765615, 0.02393712689752, -0.06135678041041 boolstatus = Part.Extension.SelectByID("Front@U-Bolt-1@Winch_Mount", "PLANE", 0, 0, 0, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("Right", "PLANE", 0, 0, 0, True, 1, Nothing) Set Feature = Part.AddMate2 (0, 1, False, 0.006188200453007, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc2@Sketch1@U-Bolt-1@Winch_Mount", "EXTSKETCHSEGMENT", -0.03314098846698, 0.03195506672942, 0, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("Arc2@Sketch10@Winch Base-1@Winch_Mount", "EXTSKETCHSEGMENT", -0.02392422221036, -0.03746243574075, 0, True, 1, Nothing) ' MSGBOX ' Warning: This mate is over defining the assembly. Consider deleting some of the over defining mates. boolstatus = Part.Extension.SelectByID("Arc2@Sketch1@U-Bolt-1@Winch_Mount", "EXTSKETCHSEGMENT", -0.04466112372851, 0.01117297782854, 0, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("Arc2@Sketch10@Winch Base-1@Winch_Mount", "EXTSKETCHSEGMENT", -0.008208645206055, -0.04368547406039, 0, True, 1, Nothing) Part.DeSelectByID "Arc2@Sketch10@Winch Base-1@Winch_Mount", "EXTSKETCHSEGMENT", -0.008208645206055, -0.04368547406039, 0 Part.DeSelectByID "Arc2@Sketch1@U-Bolt-1@Winch_Mount", "EXTSKETCHSEGMENT", -0.04466112372851, 0.01117297782854, 0 boolstatus = Part.Extension.SelectByID("Arc2@Sketch10@Winch Base-1@Winch_Mount", "EXTSKETCHSEGMENT", -0.01445524438844, 0.04203389596112, 0, True, 1, Nothing) Part.DeSelectByID "Arc2@Sketch10@Winch Base-1@Winch_Mount", "EXTSKETCHSEGMENT", -0.01445524438844, 0.04203389596112, 0 boolstatus = Part.Extension.SelectByID("", "FACE", 0.03067191711983, 0.02442762534406, -0.05719281365602, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.01298866412026, -0.03074602093795, 0.0425099647656, True, 1, Nothing) Set Feature = Part.AddMate2 (4, 1, False, 0.01, 0, 0, 1, 1, 0.5235987755983, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Tangent2", "MATE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Plane1@Winch Base-1@Winch_Mount", "PLANE", 0, 0, 0, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("Top@U-Bolt-1@Winch_Mount", "PLANE", 0, 0, 0, True, 1, Nothing) Set Feature = Part.AddMate2 (0, 0, False, 0, 0, 0, 1, 1, 0.03359200519238, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("U-Bolt-2@Winch_Mount", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ShowComponent2 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Front@U-Bolt-2@Winch_Mount", "PLANE", 0, 0, 0, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("Right", "PLANE", 0, 0, 0, True, 1, Nothing) Set Feature = Part.AddMate2 (0, 1, False, 0, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.01656380426906, -0.03369903221443, -0.05609411713034, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.0131209168759, -0.01725790232393, 0.04246933058499, True, 1, Nothing) Set Feature = Part.AddMate2 (4, 1, False, 0.01, 0, 0, 1, 1, 0.5235987755983, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Plane3@Winch Base-1@Winch_Mount", "PLANE", 0, 0, 0, True, 1, Nothing) Part.DeSelectByID "Plane3@Winch Base-1@Winch_Mount", "PLANE", 0, 0, 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch Base.SLDPRT") boolstatus = Part.Extension.SelectByID("shaft cut out", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount.SLDASM") boolstatus = Part.Extension.SelectByID("Top@U-Bolt-2@Winch_Mount", "PLANE", 0, 0, 0, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("Plane1@Winch Base-1@Winch_Mount", "PLANE", 0, 0, 0, True, 1, Nothing) Set Feature = Part.AddMate2 (5, 0, False, 0.0762, 0.0762, 0.0762, 1, 1, 0.009661189838854, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("U-Bolt.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch Base.SLDPRT") boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D3@Sketch3@Winch Base.SLDPRT", "DIMENSION", -0.003063657993772, 0.04568666218006, 0.1434114166356, False, 0, Nothing) Part.Parameter("D3@Sketch3").SystemValue = 0.1016 boolstatus = Part.Extension.SelectByID("D4@Sketch3@Winch Base.SLDPRT", "DIMENSION", -0.0207812744749, -0.01400540307525, 0.1412000280383, False, 0, Nothing) Part.Parameter("D4@Sketch3").SystemValue = 0.0508 Part.ClearSelection2 True Part.EditRebuild Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch Base.SLDPRT") boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D6@Sketch3@Winch Base.SLDPRT", "DIMENSION", 0.04200254745729, 0.02782521190934, 0.1404528902075, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D6@Sketch3@Winch Base.SLDPRT", "DIMENSION", 0.09226822710053, 0.01104299571255, 0.1413759680278, False, 0, Nothing) Part.EditRebuild Part.ClearSelection2 True Part.EditRebuild Part.Save2 FALSE boolstatus = Part.Extension.SelectByID("mounting holes", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Nut Pockets" Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch7", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Sketch7@Winch Base.SLDPRT", "DIMENSION", -0.1805915692959, -0.0535127558295, 0.3007457551426, False, 0, Nothing) Part.EditRebuild Part.ClearSelection2 True Part.EditRebuild Part.Save2 FALSE boolstatus = Part.Extension.SelectByID("Nut Pockets", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Nut Pockets@Winch Base.SLDPRT", "DIMENSION", -0.03873955066824, 0.06272430303587, 0.351201366463, False, 0, Nothing) Part.EditRebuild Part.EditRebuild Part.ClearSelection2 True Part.EditRebuild Part.Save2 FALSE boolstatus = Part.SetUserPreferenceToggle(198, True) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount.SLDASM") ' 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 boolstatus = Part.Extension.SelectByID("ScheaferBlock-705-1@Winch_Mount", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("ScheaferBlock-705-1@Winch_Mount", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.HideComponent2 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("FultonTrailerWinch-T1100-1@Winch_Mount", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("FultonTrailerWinch-T1100-1@Winch_Mount", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\FultonTrailerWinch-T1100.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\FultonTrailerWinch-T1100.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("FultonTrailerWinch-T1100.SLDPRT") Part.ClearSelection2 True Part.ViewDisplayShadedWithEdges boolstatus = Part.Extension.SelectByID("", "EDGE", 0.04432782129948, 0.1655377431762, 0.0623778480583, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.05171036698295, 0.1648334486106, 0.06233910298039, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.04358254736712, 0.1655680418958, -0.06232601531872, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.05317656179994, 0.1647279151141, -0.06235834157775, True, 1, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.04432782129948, 0.1655377431762, 0.0623778480583, False, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.05171036698295, 0.1648334486106, 0.06233910298039, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.04358254736712, 0.1655680418958, -0.06232601531872, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.05317656179994, 0.1647279151141, -0.06235834157775, True, 1, Nothing) Part.FeatureFillet5 195, 0.0254, 0, 0, 0, 0, 0 Part.Save2 FALSE Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "FultonTrailerWinch-T1100.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount.SLDASM") boolstatus = Part.SetUserPreferenceToggle(198, True) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("U-Bolt.SLDPRT") Part.FileSummaryInfo Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount.SLDASM") swApp.LoadFile2 "C:\Program Files\SolidWorks03\data\templates\MBARI_Temp_B.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 ("D:\Program Files\SolidWorks2001\data\MBARI_TEMP_B.slddrt", 12, 0.279400, 0.431800) Set Part = swApp.ActivateDoc ("Draw1 - Sheet1") Part.Create3rdAngleViews "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\Winch_Mount.SLDASM" Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.1608455, 0.1261866227273, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1364880545455, 0.17823815, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1368217181818, 0.1014955136364, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1368217181818, 0.1014955136364, 0, False, 0, Nothing) Part.CreateUnfoldedViewAt2 0.1254771545455, 0.1922064147507, 0, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.1211395272727, 0.1535470409091, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.1211395272727, 0.1535470409091, 0, False, 0, Nothing) Part.CreateUnfoldedViewAt2 0.1254771545455, 0.09315392272727, 0, 0 Part.ClearSelection2 True Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount.SLDASM") Part.ShowNamedView2 "*Isometric", 7 Part.ShowNamedView2 "*Trimetric", 8 Part.ShowNamedView2 "*Dimetric", 9 Part.ShowNamedView2 "*Isometric", 7 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount.SLDASM") Part.NameView "Display", -1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount - Sheet1") Part.CreateDrawViewFromModelView "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\Winch_Mount.SLDASM", "Display", 0.3677169545455, 0.1125064136364, 0 Part.EditSketch Part.EditSketch boolstatus = Part.SetUserPreferenceToggle(198, True) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2432604181818, 0.1275212772727, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View6", "DRAWINGVIEW", 0.3300129636364, 0.1004945227273, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem104@Sheet1", "ANNOTATIONTABLES", 0.2729564818182, 0.09682422272727, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.212897, 0.123184, -8.79698e-016, 0.419768, 0.046441, -3.43806e-016 Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem104@Sheet1", "ANNOTATIONTABLES", 0.2975897437792, 0.06208002667384, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem104@Sheet1", "ANNOTATIONTABLES", 0.3902737387888, 0.06223955162222, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem104@Sheet1", "ANNOTATIONTABLES", 0.3720878946733, 0.06144192688032, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem104@Sheet1", "ANNOTATIONTABLES", 0.301258817592, 0.08935879284705, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem104@Sheet1", "ANNOTATIONTABLES", 0.3786284175569, 0.06893959945424, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem104@Sheet1", "ANNOTATIONTABLES", 0.3484782023128, 0.07516107244111, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.234736914117, 0.06287765141575, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View6", "DRAWINGVIEW", 0.3304518831458, 0.1242947565426, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2585061314258, 0.1268471557167, 0, False, 0, Nothing) ' 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.SaveAs2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Winch_Mount.SLDDRW", 0, FALSE, FALSE Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.NewSheet3 "Sheet2", 12, 12, 1, 2, False, "MBARI_TEMP_B.slddrt", 0.4318, 0.2794, "Default", True swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 769 swApp.ActiveDoc.ActiveView.FrameHeight = 461 Set Part = swApp.ActivateDoc ("Winch Base.SLDPRT") boolstatus = Part.Extension.SelectByID("Winch Base.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Winch Base.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("Winch_Mount - Sheet2") Part.Create3rdAngleViews "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\Winch Base.SLDPRT" Part.EditSketch Part.EditSketch 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 View9", "DRAWINGVIEW", 0.2499336909091, 0.09649055909091, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View7", "DRAWINGVIEW", 0.1795306636364, 0.1628896227273, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View8", "DRAWINGVIEW", 0.1771950181818, 0.2139401590909, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View8", "DRAWINGVIEW", 0.1771950181818, 0.2139401590909, 0, False, 0, Nothing) Part.CreateUnfoldedViewAt2 0.2719554909091, 0.1963734124073, 0, 0 Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.09544742727273, 0.27366595, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View8", "DRAWINGVIEW", 0.09344544545455, 0.2082678772727, 0, False, 0, Nothing) Part.ViewDisplayHiddenGreyed Part.Save2 FALSE boolstatus = Part.InsertModelAnnotations2(0, False, 8, True, False, False) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch1@Winch Base-1@Drawing View7", "DIMENSION", 0.06775334545455, 0.09181926818182, 0, False, 0, Nothing) Part.DragModelDimension "Drawing View10", 1, 0.2752921272727, 0.1835767681818, 0 Part.DeSelectByID "D1@Sketch1@Winch Base-1@Drawing View7", "DIMENSION", 0.06675235454545, 0.09548956818182, 0 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@mount block@Winch Base-2@Drawing View8", "DIMENSION", 0.2038881090909, 0.1969233136364, 0, False, 0, Nothing) Part.DragModelDimension "Drawing View10", 1, 0.2452624, 0.1985916318182, 0 Part.DeSelectByID "D1@mount block@Winch Base-2@Drawing View8", "DIMENSION", 0.2042217727273, 0.19658965, 0 Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2512683454545, 0.13052425, 0, True, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@mount block@Winch Base-2@Drawing View8", "DIMENSION", 0.2032207818182, 0.1972569772727, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch2@Winch Base-2@Drawing View8", "DIMENSION", 0.1735247181818, 0.1985916318182, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Plane3@Winch Base-2@Drawing View8", "DIMENSION", 0.1885395818182, 0.2022619318182, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Plane2@Winch Base-2@Drawing View8", "DIMENSION", 0.1978821636364, 0.1732331954545, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Plane3@Winch Base-2@Drawing View8", "DIMENSION", 0.08109989090909, 0.2069332227273, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@mount block@Winch Base-2@Drawing View8", "DIMENSION", 0.05707610909091, 0.1969233136364, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Fillet1@Winch Base-1@Drawing View7", "DIMENSION", 0.08410286363636, 0.1295232590909, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@mount block@Winch Base-4@Drawing View10", "DIMENSION", 0.2475980454545, 0.1982579681818, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch1@Winch Base-4@Drawing View10", "DIMENSION", 0.2746248, 0.1842440954545, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@mount block@Winch Base-4@Drawing View10", "DIMENSION", 0.2192366363636, 0.1982579681818, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.3303466272727, 0.09749155, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch1@Winch Base-4@Drawing View10", "DIMENSION", 0.2742911363636, 0.1645579409091, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.3293456363636, 0.08781530454545, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch1@Winch Base-1@Drawing View7", "DIMENSION", 0.06942166363636, 0.09315392272727, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch3@Winch Base-1@Drawing View7", "DIMENSION", 0.08343553636364, 0.08481233181818, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Plane1@Winch Base-1@Drawing View7", "DIMENSION", 0.2172346545455, 0.1034974954545, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch3@Winch Base-1@Drawing View7", "DIMENSION", 0.07943157272727, 0.08414500454545, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.06508403636364, 0.04210338636364, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch7@Winch Base-1@Drawing View7", "DIMENSION", 0.1004523818182, 0.05278062272727, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch9@Winch Base-1@Drawing View7", "DIMENSION", 0.1044563454545, 0.05044497727273, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch3@Winch Base-1@Drawing View7", "DIMENSION", 0.1218068545455, 0.04977765, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1107959545455, 0.02875684090909, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch3@Winch Base-1@Drawing View7", "DIMENSION", 0.1218068545455, 0.04644101363636, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.09211079090909, 0.03142615, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D6@Sketch3@Winch Base-1@Drawing View7", "DIMENSION", 0.1945455272727, 0.09081827727273, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2018861272727, 0.06178954090909, 0, False, 0, Nothing) Part.ViewZoomTo2 0.0927781, 0.134195, -9.56586e-016, 0.207892, 0.0391004, -2.92547e-016 boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1384876451689, 0.06761817007268, -499.8519, False, 0, Nothing) Part.AddHoleCallout2 0.183676, 0.0485364, -4.65331e-017 boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1636503714393, 0.1079833767982, -499.8519, False, 0, Nothing) Part.AddHoleCallout2 0.202757, 0.105991, -4.47739e-016 boolstatus = Part.SetUserPreferenceToggle(198, False) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Annotations", "DCABINET", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Annotations", "DCABINET", 0, 0, 0, False, 0, Nothing) Part.Save2 FALSE Part.EditSketch boolstatus = Part.Extension.SelectByID("RD1@Drawing View7", "DIMENSION", 0.1850386887692, 0.04685892090308, 0, False, 0, Nothing) Part.EditDelete Part.ViewZoomtofit2 boolstatus = Part.Extension.SelectByID("D4@Sketch3@Winch Base-1@Drawing View7", "DIMENSION", 0.1221405181818, 0.04377170454545, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.CreateLine2( 0, 0.08021483390553, 0, 0, -0.07260311154901, 0 ).ConstructionGeometry = TRUE Part.SetPickMode Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.CreateLine2( 0.08064778845099, 0.003805861178261, 0, -0.08484937518538, 0.003805861178261, 0 ).ConstructionGeometry = TRUE Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.1244761636364, 0.09582323181469, -499.8519, False, 0, Nothing) Part.EditDelete Part.EditSketch Part.EditSketch boolstatus = Part.SetUserPreferenceToggle(6, True) Part.EditSketch Part.CreateLine2( -0.08484937518538, 0, 0, 0.08198244299644, 0, 0 ).ConstructionGeometry = TRUE Part.SetPickMode Part.ClearSelection2 True Part.EditSketch boolstatus = Part.SetUserPreferenceToggle(198, True) Part.SetPickMode swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch Base.SLDPRT") boolstatus = Part.Extension.SelectByID("u bolt 1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("u bolt 2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("u bolt 1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("u bolt 2", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("u bolt 2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch9", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Sketch8", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch8", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Cosmetic Thread1", "CTHREAD", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cosmetic Thread1", "CTHREAD", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D2@Cosmetic Thread1@Winch Base.SLDPRT", "DIMENSION", 0.0442543644206, 0.0169546844422, 0.07839971636992, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Cosmetic Thread1@Winch Base.SLDPRT", "DIMENSION", 0.0442543644206, 0.0169546844422, 0.07839971636992, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch8", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount - Sheet2") boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.03271866363636, 0.2423015681818, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View7", "DRAWINGVIEW", 0.1765276909091, 0.11951335, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View7", "DRAWINGVIEW", 0.1765276909091, 0.11951335, 0, False, 0, Nothing) Part.ClearSelection2 True Part.SetPickMode Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch Base.SLDPRT") Part.ShowNamedView2 "*Back", 2 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount - Sheet2") Part.CreateDrawViewFromModelView "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\Winch Base.SLDPRT", "*Back", 0.2983149181818, 0.1125064136364, 0 boolstatus = Part.Extension.SelectByID("Drawing View11", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View10", "DRAWINGVIEW", 0.3096594818182, 0.1939203409091, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View7", "DRAWINGVIEW", 0.1775286818182, 0.06012122272727, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View7", "DRAWINGVIEW", 0.1775286818182, 0.06012122272727, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View8", "DRAWINGVIEW", 0.1885395818182, 0.2086015409091, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View7", "DRAWINGVIEW", 0.1882059181818, 0.2780035772727, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View8", "DRAWINGVIEW", 0.1761940272727, 0.06979746818182, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View11", "DRAWINGVIEW", 0.2556059727273, 0.1178450318182, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View11", "DRAWINGVIEW", 0.2682851909091, 0.1712312136364, 0, False, 0, Nothing) Dim DrawView As Object Set DrawView = Part.SelectionManager.GetSelectedObject5(1) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View7", "DRAWINGVIEW", 0.1771950181818, 0.1759025045455, 0, False, 0, Nothing) Dim BaseView As Object Set BaseView = Part.SelectionManager.GetSelectedObject5(1) Part.ClearSelection2 True boolstatus = DrawView.AlignWithView(4, BaseView) Part.SetPickMode Part.EditSketch Part.EditSketch Dim Note As Object Dim Annotation As Object Dim TextFormat As Object Set Note = Part.InsertNote("FRONT") If Not Note is Nothing Then Note.Angle = 0 boolstatus = Note.SetBalloon(0, 0) Set Annotation = Note.GetAnnotation() If Not Annotation is Nothing Then longstatus = Annotation.SetLeader2(False, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.1241425, 0.2556481136364, 0) Set TextFormat = Part.GetUserPreferenceTextFormat(swDetailingNoteTextFormat) TextFormat.Italic = False TextFormat.Underline = False TextFormat.Strikeout = False TextFormat.Bold = False TextFormat.Escapement = 0 TextFormat.LineSpacing = 0.001 TextFormat.CharHeightInPts = 14 TextFormat.TypeFaceName = "Century Gothic" TextFormat.WidthFactor = 1 TextFormat.ObliqueAngle = 0 TextFormat.LineLength = 0 TextFormat.Vertical = False TextFormat.BackWards = False TextFormat.UpsideDown = False TextFormat.CharSpacingFactor = 1 boolstatus = Annotation.SetTextFormat(0, False, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem134@Drawing View7", "NOTE", 0.1321504272727, 0.2539797954545, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem135@Drawing View7", "NOTE", 0.3063228454545, 0.2392985954545, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View7", "DRAWINGVIEW", 0.1771950181818, 0.1588856590909, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View7", "DRAWINGVIEW", 0.1771950181818, 0.1588856590909, 0, False, 0, Nothing) Part.CreateUnfoldedViewAt2 0.1352028057745, 0.07747173181818, 0, 0 Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View12", "DRAWINGVIEW", 0.09411277272727, 0.08314401363636, 0, False, 0, Nothing) Part.EditSketch Part.ViewDisplayHiddenGreyed Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.032385, 0.06979746818182, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.09211079090909, 0.08781530454545, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View12", "DRAWINGVIEW", 0.09377910909091, 0.08748164090909, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.InsertModelAnnotations2(0, False, 8, True, False, False) Part.EditSketch Part.SetPickMode Part.ClearSelection2 True Part.SetPickMode boolstatus = Part.Extension.SelectByID("D2@Cosmetic Thread3@Winch Base-6@Drawing View11", "DIMENSION", 0.3149981, 0.1518787227273, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch8@Winch Base-6@Drawing View11", "DIMENSION", 0.2812980727273, 0.14520545, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch8@Winch Base-6@Drawing View11", "DIMENSION", 0.3633793272727, 0.1749015136364, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D5@Sketch8@Winch Base-6@Drawing View11", "DIMENSION", 0.2579416181818, 0.1832431045455, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2536039909091, 0.1028301681818, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch5@Winch Base-6@Drawing View11", "DIMENSION", 0.3496991181818, 0.2129391681818, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Cosmetic Thread2@Winch Base-6@Drawing View11", "DIMENSION", 0.3533694181818, 0.2229490772727, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Cosmetic Thread1@Winch Base-6@Drawing View11", "DIMENSION", 0.3290119727273, 0.2232827409091, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch8@Winch Base-6@Drawing View11", "DIMENSION", 0.3086584909091, 0.2382976045455, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem135@Drawing View7", "NOTE", 0.3096594818182, 0.2372966136364, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D3@Sketch8@Winch Base-6@Drawing View11", "DIMENSION", 0.3049881909091, 0.2312906681818, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D3@Sketch8@Winch Base-6@Drawing View11", "DIMENSION", 0.3049881909091, 0.2312906681818, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch8@Winch Base-6@Drawing View11", "DIMENSION", 0.3086584909091, 0.2423015681818, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch2@Winch Base-6@Drawing View11", "DIMENSION", 0.3129961181818, 0.2493085045455, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch2@Winch Base-6@Drawing View11", "DIMENSION", 0.3129961181818, 0.2493085045455, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2285792181818, 0.09215293181818, 0, False, 0, Nothing) Part.ViewZoomTo2 0.267284, 0.209603, -1.48316e-015, 0.383399, 0.111172, -7.95819e-016 Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3131870458855, 0.1613095948096, -499.8960186072, False, 0, Nothing) Part.AddHoleCallout2 0.368317, 0.154256, -2.80815e-016 Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Cosmetic Thread3@Winch Base-6@Drawing View11", "DIMENSION", 0.3485656918713, 0.144054365636, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View11", "DIMENSION", 0.3674487728576, 0.1559919455698, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.3653868272326, 0.1313571215245, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.ClearSelection2 True ' 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 Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@u bolt sweep@Winch Base-8@Drawing View12", "DIMENSION", 0.1318167636364, 0.05645092272727, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch9@Winch Base-1@Drawing View7", "DIMENSION", 0.1778623454545, 0.1361965318182, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"3", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"3X", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"3X ", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("D1@Sketch9@Winch Base-1@Drawing View7", "DIMENSION", 0.1848692818182, 0.1381985136364, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.3393555454545, 0.09482224090909, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View11", "DIMENSION", 0.3707199272727, 0.1435371318182, 0, False, 0, Nothing) Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3.406 THRU", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X.406 THRU", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X .406 THRU", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X .406 THRU", "T", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X .406 THRU", "TA", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X .406 THRU", "TAP", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X .406 THRU", "BTAP", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X .406 THRU", "B-TAP", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X .406 THRU", "B-TAP ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X .406 THRU", "B-TAP 9", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X .406 THRU", "B-TAP 9/", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X .406 THRU", "B-TAP 9/1", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X .406 THRU", "B-TAP 9/16", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X .406 THRU", "B-TAP 9/16-", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X .406 THRU", "B-TAP 9/16-1", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X .406 THRU", "B-TAP 9/16-12", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X .406 THRU", "B-TAP 9/16-12 ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X .406 THRU", "B-TAP 9/16-12 U", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X .406 THRU", "B-TAP 9/16-12 UN", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X .406 THRU", "B-TAP 9/16-12 UNC", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X .406 THRU", "B-TAP 9/16-12 UNC-", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X .406 THRU", "B-TAP 9/16-12 UNC-2", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".500", 1,"3X .406 THRU", "B-TAP 9/16-12 UNC-2B", 0 Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("D2@Sketch8@Winch Base-6@Drawing View11", "DIMENSION", 0.3386882181818, 0.1228499863636, 0, False, 0, Nothing) Part.HideDimension Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Cosmetic Thread3@Winch Base-6@Drawing View11", "DIMENSION", 0.3557050636364, 0.1145083954545, 0, False, 0, Nothing) Part.HideDimension Part.ClearSelection2 True Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch Base.SLDPRT") boolstatus = Part.Extension.SelectByID("Cosmetic Thread3", "CTHREAD", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cosmetic Thread1", "CTHREAD", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cosmetic Thread1", "CTHREAD", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0, 0, True, 0, Nothing) Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount.SLDASM") boolstatus = Part.Extension.SelectByID("3_8-16 Insert-3@Winch_Mount", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\3_8-16 Insert.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\3_8-16 Insert.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("3_8-16 Insert.SLDPRT") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.FileSummaryInfo Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "3_8-16 Insert.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount.SLDASM") boolstatus = Part.Extension.SelectByID("3_8-16 Insert-3@Winch_Mount", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("3_8-16 Insert-1@Winch_Mount", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\3_8-16 Insert.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\3_8-16 Insert.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("3_8-16 Insert.SLDPRT") Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "3_8-16 Insert.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount.SLDASM") swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\Old_Oasis\3_8-16 Insert.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\Old_Oasis\3_8-16 Insert.SLDPRT", 1, 0, "", longstatus, longwarnings) ' MSGBOX ' A document named "3_8-16 Insert" is already opened. Do you want to show this already-opened document? Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "Winch_Mount.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch Base.SLDPRT") swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\Old_Oasis\3_8-16 Insert.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\Old_Oasis\3_8-16 Insert.SLDPRT", 1, 0, "", longstatus, longwarnings) ' MSGBOX ' A document named "3_8-16 Insert" is already opened. Do you want to show this already-opened document? Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "Winch Base.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount - Sheet2") ' MSGBOX ' Save changes to Winch_Mount - Sheet2? Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "Winch_Mount - Sheet2" swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("U-Bolt.SLDPRT") Set Part = Nothing swApp.CloseDoc "U-Bolt.SLDPRT" Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\Old_Oasis\3_8-16 Insert.SLDPRT", 1, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("3_8-16 Insert.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.FileSummaryInfo Set Part = Nothing swApp.CloseDoc "3_8-16 Insert.SLDPRT" Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\3_8-16 Insert.SLDPRT", 1, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("3_8-16 Insert.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.FileSummaryInfo Part.Save2 FALSE Part.FileSummaryInfo Part.Save2 FALSE Part.FileSummaryInfo ' MSGBOX ' Save changes to 3_8-16 Insert.SLDPRT? Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "3_8-16 Insert.SLDPRT" Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\3_8-16 Insert.SLDPRT", 1, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("3_8-16 Insert.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.FileSummaryInfo Part.ShowNamedView2 "*Left", 3 Part.ShowNamedView2 "*Front", 1 boolstatus = Part.Extension.SelectByID("Front", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.ViewDisplayHiddengreyed boolstatus = Part.Extension.SelectByID("Front", "PLANE", 0, 0, 0, False, 0, Nothing) Part.InsertSketch2 True Part.ClearSelection2 True Part.CreateLine2 -0.005772020090653, 0.0127, 0, -0.00714375, 0.0118341969864, 0 Part.CreateLine2 -0.00714375, 0.0118341969864, 0, -0.005772020090653, 0.01114964473845, 0 Part.CreateLine2( -0.005772020090653, 0.0127, 0, -0.005772020090653, 0.01114964473845, 0 ).ConstructionGeometry = TRUE Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "AXIS", -1.555800563518e-005, 0.01175640695823, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", -0.005756462085018, 0.01198977704275, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.00225591, 0.0116475, 0) Part.ClearSelection2 True Part.Parameter("D1@Sketch2").SystemValue = 0.00592201 boolstatus = Part.Extension.SelectByID("", "EDGE", -0.006721058434399, 0.01272100330761, -0.002420854721777, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -0.006596594389318, 0.01225426313855, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.00818351, 0.0121609, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch2@3_8-16 Insert.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D2@Sketch2").SystemValue = 0.523599 boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -0.00636322430479, 0.01242540120054, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", -0.006425456327331, 0.01147636285679, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.00490077, 0.0120676, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch2@3_8-16 Insert.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D3@Sketch2").SystemValue = 1.0472 Part.SetPickMode Part.ClearSelection2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -0.006658826411858, 0.01225426313855, 0.002587120963369, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "AXIS", 0, 0.008395877741027, 0, False, 0, Nothing) Part.ClearSelection2 True swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\CoreSystems\Puck\PUCK_V3\1inPipeCase_V3.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\CoreSystems\Puck\PUCK_V3\1inPipeCase_V3.SLDDRW", 3, 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 ("1inPipeCase_V3 - Sheet1") Part.EditSketch Part.EditSketch swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\CoreSystems\Puck\PUCK_V3\BoardAssembly.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\CoreSystems\Puck\PUCK_V3\BoardAssembly.SLDDRW", 3, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("BoardAssembly - Sheet1") Part.EditSketch Part.EditSketch swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\CoreSystems\Puck\PUCK_V3\Cap-Mount_V3.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\CoreSystems\Puck\PUCK_V3\Cap-Mount_V3.SLDDRW", 3, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Cap-Mount_V3 - Sheet2") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\CoreSystems\Puck\PUCK_V3\MarmonClamp_V31.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\CoreSystems\Puck\PUCK_V3\MarmonClamp_V31.SLDDRW", 3, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("MarmonClamp_V31 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\CoreSystems\Puck\PUCK_V3\PUC_V3-Assem.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\CoreSystems\Puck\PUCK_V3\PUC_V3-Assem.SLDDRW", 3, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("PUC_V3-Assem - Sheet2") Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("BoardAssembly - Sheet1") Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.05365079796752, 0.1378564316024, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 769 swApp.ActiveDoc.ActiveView.FrameHeight = 307 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 swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\CoreSystems\Puck\Cast Puck\Non-Isolated_BoardAssembly.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\CoreSystems\Puck\Cast Puck\Non-Isolated_BoardAssembly.SLDPRT", 1, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("Non-Isolated_BoardAssembly.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID("Annotations", "DCABINET", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Annotations", "DCABINET", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Annotations", "DCABINET", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Annotations", "DCABINET", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Cap-Mount_V3 - Sheet2") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 307 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("PUC_V3-Assem - Sheet2") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.4100922363636, 0.2070821537455, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\CoreSystems\Puck\PUCK_V3\PUC_V3-Assem.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\CoreSystems\Puck\PUCK_V3\PUC_V3-Assem.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 ("PUC_V3-Assem.SLDASM") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Wired", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Wired" ' MSGBOX ' One or more documents are being closed as a result of this operation. If you do not save them, your changes will be lost. ' Click "Yes" to close and save them. ' Click "No" to close them without the changes. Set Part = Nothing swApp.CloseDoc "PUC_V3-Assem.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 307 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("PUC_V3-Assem - Sheet1") Part.EditSketch Part.EditSketch Set Part = Nothing swApp.CloseDoc "PUC_V3-Assem - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Cap-Mount_V3 - Sheet2") ' MSGBOX ' One or more documents are being closed as a result of this operation. If you do not save them, your changes will be lost. ' Click "Yes" to close and save them. ' Click "No" to close them without the changes. Part.EditSketch Part.EditSketch Set Part = Nothing swApp.CloseDoc "Cap-Mount_V3 - Sheet2" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Non-Isolated_BoardAssembly.SLDPRT") Set Part = Nothing swApp.CloseDoc "Non-Isolated_BoardAssembly.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("BoardAssembly - Sheet1") ' MSGBOX ' Save changes to BoardAssembly - Sheet1? Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "BoardAssembly - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 614 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("MarmonClamp_V31 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Set Part = Nothing swApp.CloseDoc "MarmonClamp_V31 - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 307 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1inPipeCase_V3 - Sheet1") Set Part = Nothing swApp.CloseDoc "1inPipeCase_V3 - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 614 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("3_8-16 Insert.SLDPRT") Part.CreateLine2 -0.00592201, 0.01128925616424, 0, -0.00714375, 0.01052732451305, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", -0.006549920372412, 0.01167861693005, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", -0.006658826411858, 0.01083848462575, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.00812128, 0.0111963, 0) Part.ClearSelection2 True Part.Parameter("D4@Sketch2").SystemValue = 1.0472 Part.ClearSelection2 True Part.CreateLine2 -0.00714375, 0.01058388424636, 0, -0.008650251133162, 0.01058388424636, 0 Part.CreateLine2 -0.008650251133162, 0.01058388424636, 0, -0.008650251133162, 0.01309439544285, 0 Part.CreateLine2 -0.008650251133162, 0.01309439544285, 0, -0.00592201, 0.01309439544285, 0 Part.CreateLine2 -0.00592201, 0.01309439544285, 0, -0.00592201, 0.0127, 0 Part.CreateLine2( 0, 0, 0, 0, -0.0003943954428519, 0 ).ConstructionGeometry = TRUE Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D4@Sketch2@3_8-16 Insert.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D3@Sketch2@3_8-16 Insert.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch2@3_8-16 Insert.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch2@3_8-16 Insert.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line4", "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("Line5", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.DeSelectByID "Line5", "SKETCHSEGMENT", -0.00592201, 0.01216091510474, 0 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.943396 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.943396 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.934579 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1.01 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D4@Sketch2@3_8-16 Insert.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch2@3_8-16 Insert.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line4", "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("Line5", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.DeSelectByID "Line5", "SKETCHSEGMENT", -0.00592201, 0.01200507091668, 0 boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", -5.08320981275e-005, -0.000194632633915, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", -2.541604906375e-005, -0.000194632633915, 0, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D4@Sketch2@3_8-16 Insert.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch2@3_8-16 Insert.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", -2.541604906375e-005, -0.000194632633915, 0, True, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing) Part.FeatureManager.FeatureRevolveCut 6.28318530718, False, 0, 0, 0, 1, 1 Part.SelectionManager.EnableContourSelection = 0 boolstatus = Part.Extension.SelectByID("Cut-Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", -0.005896523382789, 0.01205590301481, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(-0.00414282, 0.0137842, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D5@Sketch2@3_8-16 Insert.SLDPRT", "DIMENSION", -0.003532830819861, 0.01368253015489, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D5@Sketch2@3_8-16 Insert.SLDPRT", "DIMENSION", -0.003532830819861, 0.01368253015489, 0, False, 0, Nothing) ' MSGBOX ' The dimension selected is a driven dimension. Its value cannot be changed. boolstatus = Part.Extension.SelectByID("D5@Sketch2@3_8-16 Insert.SLDPRT", "DIMENSION", -0.003431166623606, 0.01380961040021, 0, False, 0, Nothing) ' MSGBOX ' The dimension selected is a driven dimension. Its value cannot be changed. Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 5, 1, 1, 11, 11,"", "", 1,"", "", 0 Part.ClearSelection2 True Part.EditRebuild boolstatus = Part.Extension.SelectByID("Cut-Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("", "AXIS", -2.541604906375e-005, 0.002906125351862, 0, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Revolve1", "BODYFEATURE", 0, 0, 0, False, 4, Nothing) boolstatus = Part.Extension.SelectByID("", "AXIS", -2.541604906375e-005, 0.002906125351862, 0, True, 1, Nothing) Part.FeatureLinearPattern 8, 0.001410716, 1, 0.05, False, False, "NULL", "NULL", False boolstatus = Part.Extension.SelectByID("LPattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "AXIS", 0, 0.01058388424636, 0, True, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("LPattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("LPattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "AXIS", 0, 0.01058388424636, 0, True, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.ViewZoomTo2 -0.00963268, 0.0143179, -5.56398e-017, -0.00442239, 0.00877723, -1.69493e-017 Part.CreateLine2 -0.00592201, 0.01128925616424, 0, -0.009049556605092, 0.01128925616424, 0 Part.CreateLine2 -0.00592201, 0.0127, 0, -0.008884618496173, 0.0127, 0 Part.ClearSelection2 True Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 1, -0.006966449377638, 0.01310227643057 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, -0.005915732535638, 0.01293733832165 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 1, -0.00864026574222, 0.01291290304625 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line14", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 1, -0.008756333300348, 0.01269298556769 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 1, -0.008175995509708, 0.01059155188369 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 1, -0.006929796464545, 0.01071983707952 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, -0.008646374561069, 0.01111080148584 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 1, -0.008786877394592, 0.01128795723246 Part.InsertSketch2 True Part.ViewZoomtofit2 boolstatus = Part.Extension.SelectByID("LPattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "AXIS", 0, 0.01128925616424, 0, True, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("LPattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "AXIS", 0, 0.01128925616424, 0, True, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("LPattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "AXIS", 0, 0.01128925616424, 0, True, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("LPattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "AXIS", 0, 0.01128925616424, 0, True, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("LPattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "AXIS", 0, 0.01128925616424, 0, True, 0, Nothing) Part.ActivateSelectedFeature Part.ViewDisplayShadedWithEdges boolstatus = Part.Extension.SelectByID("LPattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "AXIS", 0, 0.01128925616424, 0, True, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point21", "SKETCHPOINT", -0.008650251133162, 0.01128925616424, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", -0.009351381332211, 0.01129465107545, -0.004244903440783, False, 0, Nothing) Part.SketchConstraintsDel 0, "sgHORIZONTAL" Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point21", "SKETCHPOINT", -0.008555398683342, 0.01128925616424, 0, False, 0, Nothing) Part.ClearSelection2 True Part.InsertSketch2 True Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "3_8-16 Insert.SLDPRT" Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\Winch_Mount.SLDASM", 2, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("Winch_Mount.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID("Winch_Mount.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing) swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Winch_Mount.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Winch_Mount.SLDDRW", 3, 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 ("Winch_Mount - Sheet2") Part.EditSketch Part.EditSketch Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D3@Sketch8@Winch Base-6@Drawing View11", "DIMENSION", 0.3036535363636, 0.2299560136364, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch8@Winch Base-6@Drawing View11", "DIMENSION", 0.3099931454545, 0.2399659227273, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch2@Winch Base-6@Drawing View11", "DIMENSION", 0.3103268090909, 0.2503094954545, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Cosmetic Thread1@Winch Base-6@Drawing View11", "DIMENSION", 0.3577070454545, 0.2436362227273, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Cosmetic Thread2@Winch Base-6@Drawing View11", "DIMENSION", 0.3607100181818, 0.2346273045455, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch5@Winch Base-6@Drawing View11", "DIMENSION", 0.3723882454545, 0.2182777863636, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch8@Winch Base-6@Drawing View11", "DIMENSION", 0.3707199272727, 0.1755688409091, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D5@Sketch8@Winch Base-6@Drawing View11", "DIMENSION", 0.2606109272727, 0.1829094409091, 0, True, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("D6@Sketch3@Winch Base-1@Drawing View7", "DIMENSION", 0.1975485, 0.1872470681818, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D3@Sketch3@Winch Base-1@Drawing View7", "DIMENSION", 0.1341524090909, 0.2319579954545, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch1@Winch Base-1@Drawing View7", "DIMENSION", 0.1328177545455, 0.2396322590909, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Fillet1@Winch Base-1@Drawing View7", "DIMENSION", 0.06475037272727, 0.2346273045455, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch1@Winch Base-1@Drawing View7", "DIMENSION", 0.05207115454545, 0.1882480590909, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Plane1@Winch Base-1@Drawing View7", "DIMENSION", 0.08076622727273, 0.1979243045455, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch3@Winch Base-1@Drawing View7", "DIMENSION", 0.08109989090909, 0.1775708227273, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch7@Winch Base-1@Drawing View7", "DIMENSION", 0.06641869090909, 0.1361965318182, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch3@Winch Base-1@Drawing View7", "DIMENSION", 0.1221405181818, 0.1381985136364, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch9@Winch Base-1@Drawing View7", "DIMENSION", 0.1778623454545, 0.1365301954545, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch9@Winch Base-1@Drawing View7", "DIMENSION", 0.1778623454545, 0.1365301954545, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.02971569090909, 0.2389649318182, 0, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount.SLDASM") boolstatus = Part.Extension.SelectByID("Winch Base-1@Winch_Mount", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\Winch Base.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\Winch Base.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch Base.SLDPRT") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Fillet1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Fillet1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Fillet1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0, 0, True, 0, Nothing) 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 ("Winch_Mount - Sheet2") ' MSGBOX ' Some dimensions are no longer in the model. Missing dimensions will be deleted from drawing. Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1665177818182, 0.1225163227273, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2369208090909, 0.10116185, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.InsertModelAnnotations2(0, False, 8, True, False, False) boolstatus = Part.Extension.SelectByID("D1@Fillet1@Winch Base-1@Drawing View7", "DIMENSION", 0.1054573363636, 0.2242837318182, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.04172758181818, 0.22228175, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D2@Cosmetic Thread1@Winch Base-6@Drawing View11", "DIMENSION", 0.3583743727273, 0.2423015681818, 0, False, 0, Nothing) Part.HideDimension Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Cosmetic Thread2@Winch Base-6@Drawing View11", "DIMENSION", 0.3567060545455, 0.2342936409091, 0, False, 0, Nothing) Part.HideDimension Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2435940818182, 0.09682422272727, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch2@Winch Base-6@Drawing View11", "DIMENSION", 0.3149981, 0.2503094954545, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch8@Winch Base-6@Drawing View11", "DIMENSION", 0.3106604727273, 0.2409669136364, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D3@Sketch8@Winch Base-6@Drawing View11", "DIMENSION", 0.3069901727273, 0.2292886863636, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch8@Winch Base-6@Drawing View11", "DIMENSION", 0.3353515818182, 0.2346273045455, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem135@Drawing View7", "NOTE", 0.2746248, 0.2616540590909, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2485990363636, 0.2436362227273, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Plane1@Winch Base-1@Drawing View7", "DIMENSION", 0.08109989090909, 0.1975906409091, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch3@Winch Base-1@Drawing View7", "DIMENSION", 0.0773897193892, 0.1795728045455, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch3@Winch Base-1@Drawing View7", "DIMENSION", 0.1234353012074, 0.1368638590909, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D3@Sketch3@Winch Base-1@Drawing View7", "DIMENSION", 0.137782837571, 0.2329589863636, 0, True, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2X", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2X ", "", 1,"", "", 0 Part.ClearSelection2 True ' 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 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch5@Winch Base-6@Drawing View11", "DIMENSION", 0.3740166921165, 0.2179441227273, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.222199737571, 0.07413509545455, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch5@Winch Base-6@Drawing View11", "DIMENSION", 0.3820246193892, 0.23329265, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch Base.SLDPRT") boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.EditDelete Part.ClearSelection2 True Part.ShowNamedView2 "*Isometric", 7 Part.ShowNamedView2 "*Trimetric", 8 Part.ShowNamedView2 "*Dimetric", 9 Part.ShowNamedView2 "*Isometric", 7 Part.NameView "Display", -1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount - Sheet2") ' MSGBOX ' Some dimensions are no longer in the model. Missing dimensions will be deleted from drawing. Part.CreateDrawViewFromModelView "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\Winch Base.SLDPRT", "Display", 0.372682037571, 0.09582323181818, 0 Part.EditSketch Part.EditSketch Part.CreateDrawViewFromModelView "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\Winch Base.SLDPRT", "*Isometric", 0.2645750193892, 0.09949353181818, 0 Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View13", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.ViewPropertySheet Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View14", "DRAWINGVIEW", 0.2191967648437, 0.1385321772727, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View14", "DRAWINGVIEW", 0.2292066739347, 0.1485420863636, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.2425532193892, 0.131858904542, -499.871560833, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View14", "DRAWINGVIEW", 0.2292066739347, 0.1565500136364, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View13", "DRAWINGVIEW", 0.4083840466619, 0.1502104045455, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View14", "DRAWINGVIEW", 0.2415522284801, 0.08080836818182, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View13", "DRAWINGVIEW", 0.3483245921165, 0.09115194090909, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View14", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View13", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cosmetic Thread1@Winch Base-9@Drawing View13", "CTHREAD", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cosmetic Thread2@Winch Base-9@Drawing View13", "CTHREAD", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cosmetic Thread3@Winch Base-9@Drawing View13", "CTHREAD", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cosmetic Thread3@Winch Base-9@Drawing View13", "CTHREAD", 0, 0, 0, False, 0, Nothing) Part.HideCosmeticThread Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1020808284801, 0.02108257727273, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View14", "DRAWINGVIEW", 0.2492264921165, 0.1181786954545, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True ' 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 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.211188837571, 0.1125064136364, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D5@Sketch8@Winch Base-6@Drawing View11", "DIMENSION", 0.255232437571, 0.1839104318182, 0, False, 0, Nothing) Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2X", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2X ", "", 1,"", "", 0 Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.CreateLine2( -0.08549763394886, 0, 0, 0.07599556605114, 0, 0 ).ConstructionGeometry = TRUE Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch8@Winch Base-6@Drawing View11", "DIMENSION", 0.369011737571, 0.1772371590909, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.3569998466619, 0.1528797136364, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch8@Winch Base-6@Drawing View11", "DIMENSION", 0.3713473830256, 0.1759025045455, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@mount block@Winch Base-8@Drawing View12", "DIMENSION", 0.1888333739347, 0.07780539545455, 0, True, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D2@Sketch1@Winch Base-1@Drawing View7", "DIMENSION", 0.1384501648438, 0.2423015681818, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch1@Winch Base-1@Drawing View7", "DIMENSION", 0.05069662848011, 0.18924905, 0, True, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 2, 2, 1, 11, 11,"", "", 1,"", "", 0 Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.02066690120739, 0.08881629545455, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Plane3@Winch Base-8@Drawing View12", "DIMENSION", 0.08072635575284, 0.07213311363636, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1958403102983, 0.01541029545455, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@u bolt sweep@Winch Base-8@Drawing View12", "DIMENSION", 0.07505407393466, 0.03776575909091, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@u bolt sweep@Winch Base-8@Drawing View12", "DIMENSION", 0.07505407393466, 0.03776575909091, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1651432557528, 0.02642119545455, 0, False, 0, Nothing) Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch Base.SLDPRT") boolstatus = Part.Extension.SelectByID("u bolt sweep", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("u bolt sweep", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditDelete Part.ClearSelection2 True 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 ("Winch_Mount - Sheet2") ' MSGBOX ' Some dimensions are no longer in the model. Missing dimensions will be deleted from drawing. Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Plane2@Winch Base-8@Drawing View12", "DIMENSION", 0.07238476484375, 0.1031638318182, 0, False, 0, Nothing) Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch Base.SLDPRT") boolstatus = Part.Extension.SelectByID("Plane2", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Plane2", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ParentChildRelationship boolstatus = Part.Extension.SelectByID("Plane2", "PLANE", 0, 0, 0, False, 0, Nothing) Part.EditDelete Part.ClearSelection2 True 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 ("Winch_Mount - Sheet2") ' MSGBOX ' Some dimensions are no longer in the model. Missing dimensions will be deleted from drawing. Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.0490283102983, 0.08614698636364, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Fillet1@Winch Base-1@Drawing View7", "DIMENSION", 0.06070653757102, 0.2359619590909, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"8R", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"8XR", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"8X R", "", 1,"", "", 0 Part.ClearSelection2 True ' 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 Part.EditSketch Part.EditSketch swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\CoreSystems\wind gen_Mast.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\CoreSystems\wind gen_Mast.SLDDRW", 3, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("wind gen_Mast - Sheet1") Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Cut-Extrude3@wind gen_Mast-SectionPart-1-1@Drawing View6", "DIMENSION", 0.04443382410917, 0.1351921258529, 0, False, 0, Nothing) Part.HideDimension Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1983693783169, 0.07041230477635, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D2@Sketch3@wind gen_Mast.SLDDRW", "DIMENSION", 0.1883518802123, 0.227687025019, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("", "FACE", 0.1532906368461, 0.1405347915017, -999.7770457346, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1626403017437, 0.05338255799848, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\CoreSystems\wind gen.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\CoreSystems\wind gen.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 ("wind gen.SLDPRT") Part.FileSummaryInfo Part.FileSummaryInfo Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "wind gen.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("wind gen_Mast - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.FileSummaryInfo Part.EditSketch Part.EditSketch Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Note = Part.InsertNote("8. Air Industrial 403 ver. 3.1") If Not Note is Nothing Then Note.Angle = 0 boolstatus = Note.SetBalloon(0, 0) Set Annotation = Note.GetAnnotation() If Not Annotation is Nothing Then longstatus = Annotation.SetLeader2(False, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.03805728181818, 0.03242714090909, 0) boolstatus = Annotation.SetTextFormat(0, True, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.309326, 0.0784727, -5.67483e-016, 0.424773, 0.000729095, -2.46017e-017 boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.4032581984298, 0.02731273457989, 0, False, 0, Nothing) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem85@Sheet Format1", "NOTE", 0.3814805795455, 0.01603035371212, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem94@Sheet Format1", "NOTE", 0.3688862939256, 0.02652559172865, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem94@Sheet Format1", "NOTE", 0.3688862939256, 0.02652559172865, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem6@Sheet Format1", "NOTE", 0.3357388338567, 0.02145289335399, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem6@Sheet Format1", "NOTE", 0.3421234369835, 0.02145289335399, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem5@Sheet Format1", "NOTE", 0.3370507386088, 0.02591336951102, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem5@Sheet Format1", "NOTE", 0.3419485163499, 0.02573844887741, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem22@Sheet Format1", "NOTE", 0.3788567700413, 0.02232749652204, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.361539627314, 0.025476067927, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem4@Sheet Format1", "NOTE", 0.3471961353581, 0.03588384562672, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem84@Sheet Format1", "NOTE", 0.3465839131405, 0.04095654400138, 0, False, 0, Nothing) Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.943396 Part.ActiveView().ZoomByFactor 0.934579 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.900901 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.934579 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.943396 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().TranslateBy 0, -0.000327121 Part.ActiveView().TranslateBy 0.000981364, -0.00163561 Part.ActiveView().TranslateBy 0.0045797, -0.00752379 Part.ActiveView().TranslateBy 0.00588818, -0.00686955 Part.ActiveView().TranslateBy 0.0045797, -0.00490682 Part.ActiveView().TranslateBy 0.00359833, -0.00327121 Part.ActiveView().TranslateBy 0.0045797, -0.00523394 Part.ActiveView().TranslateBy 0.00719667, -0.00719667 Part.ActiveView().TranslateBy 0.00883227, -0.00948652 Part.ActiveView().TranslateBy 0.0062153, -0.00556106 Part.ActiveView().TranslateBy 0.00523394, -0.00523394 Part.ActiveView().TranslateBy 0.00425258, -0.00327121 Part.ActiveView().TranslateBy 0.00523394, -0.00163561 Part.ActiveView().TranslateBy 0.00490682, -0.00163561 Part.ActiveView().TranslateBy 0.00327121, -0.000981364 Part.ActiveView().TranslateBy 0.00752379, -0.00163561 Part.ActiveView().TranslateBy 0.00392545, -0.000327121 Part.ActiveView().TranslateBy 0.00261697, 0 Part.ActiveView().TranslateBy 0.00654242, -0.00130848 Part.ActiveView().TranslateBy 0.00719667, -0.00130848 Part.ActiveView().TranslateBy 0.000654242, 0 Part.ActiveView().TranslateBy 0.00392545, -0.000327121 Part.ActiveView().TranslateBy 0.00327121, 0 Part.ActiveView().TranslateBy 0.00130848, 0 Part.ActiveView().TranslateBy 0.00130848, 0 Part.ActiveView().TranslateBy 0.000654242, 0 Part.ActiveView().TranslateBy 0.000327121, 0.000654242 Part.ActiveView().TranslateBy 0.000654242, 0.000981364 Part.ActiveView().TranslateBy 0.000327121, 0.000981364 Part.ActiveView().TranslateBy 0.00130848, 0.00196273 Part.ActiveView().TranslateBy 0.00163561, 0.00196273 Part.ActiveView().TranslateBy 0.000327121, 0.000654242 Part.ActiveView().TranslateBy 0.000327121, 0 Part.ActiveView().TranslateBy -0.000327121, 0 Part.ActiveView().TranslateBy -0.000654242, 0.000654242 Part.ActiveView().TranslateBy -0.00130848, 0.000654242 Part.ActiveView().TranslateBy -0.000327121, 0 Part.ActiveView().TranslateBy -0.00196273, 0 Part.ActiveView().TranslateBy -0.000981364, 0 Part.ActiveView().TranslateBy -0.000981364, 0.000327121 Part.ActiveView().TranslateBy -0.00261697, 0 Part.ActiveView().TranslateBy -0.0045797, 0 Part.ActiveView().TranslateBy -0.000327121, 0 Part.SetPickMode Part.ClearSelection2 True Part.CreateLine2( 0.2533967907574, 0.0582701530096, 0, 0.2240006166723, 0.0582701530096, 0 ).ConstructionGeometry = TRUE Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line138", "SKETCHSEGMENT", 0.2347093135552, 0.05806142386672, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line119", "SKETCHSEGMENT", 0.356181099093, 0.05294682237039, 0, True, 0, Nothing) Part.SketchMirror Part.ClearSelection2 True Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line128", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 1, 0.2530899126827, 0.05646311089912 Part.EditUndo 1 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line128", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 2, 1, 0.2538890691665, 0.05678277349264 Part.CreateLine2( 0.2533967907574, 0.06322466044091, 0, 0.2246399418593, 0.06322466044091, 0 ).ConstructionGeometry = TRUE Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line138", "SKETCHSEGMENT", 0.2287955555751, 0.05870074905376, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line140", "SKETCHSEGMENT", 0.2403034089418, 0.06365551925333, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line130", "SKETCHSEGMENT", 0.3040760963492, 0.05870074905376, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line119", "SKETCHSEGMENT", 0.3042359276459, 0.05310665366715, 0, True, 0, Nothing) Part.SketchMirror Part.ClearSelection2 True Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line137", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 2, 0, 0.3777583241557, 0.05678277349264 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line137", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 2, 0, 0.3771189989686, 0.06125804980193 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line137", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 2, 0, 0.3767993363751, 0.06525383222093 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line136", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 2, 1, 0.3510664975967, 0.05630327960236 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line136", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 2, 1, 0.3517058227837, 0.06077855591164 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line136", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 2, 1, 0.3517058227837, 0.06557349481445 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line136", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 2, 1, 0.3513861601902, 0.0710077589043 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line135", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 2, 1, 0.3080718787682, 0.0561434483056 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line135", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 2, 1, 0.3082317100649, 0.06141788109869 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line135", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 2, 1, 0.3083915413617, 0.06477433833065 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line133", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 2, 1, 0.2797817392416, 0.05726226738292 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line133", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 2, 1, 0.2801014018351, 0.06109821850516 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line133", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 2, 1, 0.2809005583189, 0.06573332611121 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line134", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 2, 1, 0.2669952355008, 0.05630327960236 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line134", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 2, 1, 0.2671550667976, 0.06077855591164 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line134", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 2, 1, 0.2671550667976, 0.06525383222093 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line128", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 2, 1, 0.2538890691665, 0.06061872461488 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line128", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 2, 1, 0.2540489004632, 0.06589315740797 Part.SetPickMode Part.SetPickMode Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line136", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, 0.3510664975967, 0.08299510616132 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line140", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, 0.2415820593159, 0.06397518184685 Part.SetPickMode Part.ViewZoomTo2 0.248455, 0.0807575, -5.5644e-016, 0.286974, 0.0491109, -3.35453e-016 boolstatus = Part.Extension.SelectByID("DetailItem96@Sheet Format1", "NOTE", 0.2736809240162, 0.05518199344879, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem112@Sheet Format1", "NOTE", 0.2744136456611, 0.06062506852523, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem112@Sheet Format1", "NOTE", 0.2738204900438, 0.06055528551143, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem114@Sheet Format1", "NOTE", 0.2595847552285, 0.06079952605973, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem115@Sheet Format1", "NOTE", 0.2602128023527, 0.06533542195676, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem115@Sheet Format1", "NOTE", 0.259410297694, 0.06582390305337, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem113@Sheet Format1", "NOTE", 0.2739600560714, 0.06512607291536, 0, False, 0, Nothing) Part.ViewOrientationUndo boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.2363076265228, 0.09737992286975, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem94@Sheet Format1", "NOTE", 0.3911841530835, 0.02577550192115, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3616153631829, 0.02545583932763, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem94@Sheet Format1", "NOTE", 0.3718445661755, 0.02657465840495, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3544229548287, 0.1002568862114, 0, False, 0, Nothing) Part.ViewZoomTo2 0.298482, 0.0828353, -5.70949e-016, 0.365451, 0.0452749, -3.08666e-016 boolstatus = Part.Extension.SelectByID("DetailItem98@Sheet Format1", "NOTE", 0.3305460964417, 0.05520195720866, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem116@Sheet Format1", "NOTE", 0.3235447591377, 0.06042759302251, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem116@Sheet Format1", "NOTE", 0.3229866815266, 0.05986951541132, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem116@Sheet Format1", "NOTE", 0.3226315412285, 0.05956510944158, 0, False, 0, Nothing) Part.EditDelete Part.EditUndo 1 boolstatus = Part.Extension.SelectByID("DetailItem116@Sheet Format1", "NOTE", 0.3214646516779, 0.06134081093172, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("DetailItem118@Sheet Format1", "NOTE", 0.3221749322739, 0.06002171839619, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3158331412377, 0.06255843481068, 0, False, 0, Nothing) Part.ViewOrientationUndo Part.ViewZoomTo2 0.368968, 0.0799583, -5.50859e-016, 0.418995, 0.0500699, -3.42149e-016 boolstatus = Part.Extension.SelectByID("DetailItem100@Sheet Format1", "NOTE", 0.3944359934667, 0.05476230005825, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem119@Sheet Format1", "NOTE", 0.3928442190522, 0.05984081842849, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem120@Sheet Format1", "NOTE", 0.3850748439335, 0.0655257270519, 0, False, 0, Nothing) Part.ViewOrientationUndo boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3077522161747, 0.09322430915398, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.308871035252, 0.08954818932849, 0, False, 0, Nothing) Part.EditSheet Part.EditSketch Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2989614948529, 0.09690042897946, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1795306636364, 0.06012122272727, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem109@Drawing View6", "NOTE", 0.1031216909091, 0.07380143181818, 0, False, 0, Nothing) Part.ViewZoomTo2 0.0807662, 0.0988262, -7.09611e-016, 0.152838, 0.016745, -1.3644e-016 boolstatus = Part.Extension.SelectByID("DetailItem109@Drawing View6", "NOTE", 0.09933587780896, 0.07439187298286, 0, False, 0, Nothing) Part.ActiveView().TranslateBy 0, -0.000327121 Part.ActiveView().TranslateBy -0.0153747, -0.0045797 Part.ActiveView().TranslateBy -0.0183188, 0 Part.ActiveView().TranslateBy -0.0143933, 0.000327121 Part.ActiveView().TranslateBy -0.00294409, 0.000654242 Part.ActiveView().TranslateBy -0.0186459, 0.00523394 Part.ActiveView().TranslateBy -0.00588818, 0.00228985 Part.ActiveView().TranslateBy -0.00196273, 0.000654242 Part.ActiveView().TranslateBy 0, 0.000327121 Part.ActiveView().TranslateBy -0.000327121, 0 Part.ActiveView().TranslateBy 0, -0.000327121 Part.ActiveView().TranslateBy -0.00294409, -0.000981364 Part.ActiveView().TranslateBy -0.00130848, -0.000981364 Part.ActiveView().TranslateBy -0.00523394, -0.000327121 Part.ActiveView().TranslateBy -0.00261697, 0.000654242 Part.ActiveView().TranslateBy -0.00785091, 0.00392545 Part.ActiveView().TranslateBy -0.0176645, 0.00883227 Part.ActiveView().TranslateBy -0.00752379, 0.00228985 Part.ActiveView().TranslateBy -0.00981364, 0.000981364 Part.ActiveView().TranslateBy -0.00425258, 0.000654242 Part.ActiveView().TranslateBy -0.000981364, 0 Part.ActiveView().TranslateBy -0.000327121, 0 Part.ActiveView().TranslateBy 0, 0.000327121 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.862069 Part.ActiveView().ZoomByFactor 0.884956 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.934579 Part.ActiveView().ZoomByFactor 0.877193 Part.ActiveView().ZoomByFactor 0.909091 Part.ActiveView().ZoomByFactor 1 boolstatus = Part.Extension.SelectByID("DetailItem109@Drawing View6", "NOTE", 0.1105739193787, 0.07521845625366, 0, False, 0, Nothing) Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 0.892857 Part.ActiveView().ZoomByFactor 0.775194 Part.ActiveView().ZoomByFactor 0.847458 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.917431 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.13 Part.ActiveView().ZoomByFactor 1.15 Part.ActiveView().ZoomByFactor 1.05 Part.ActiveView().ZoomByFactor 1.09 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.07 Part.ActiveView().ZoomByFactor 1.04 Part.ActiveView().ZoomByFactor 1.06 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 boolstatus = Part.Extension.SelectByID("DetailItem109@Drawing View6", "NOTE", 0.114072704477, 0.07608273661907, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem109@Drawing View6", "NOTE", 0.114072704477, 0.07608273661907, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.133796392471, 0.01925508111152, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem111@Drawing View6", "NOTE", 0.06876680730257, 0.03116740752375, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.ViewZoomTo2 0.299316, 0.0924866, -6.65341e-016, 0.42177, 0.00907069, -8.28507e-017 boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3285380186983, 0.08218081266185, 0, False, 0, Nothing) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem118@Sheet Format1", "NOTE", 0.3260332664463, 0.06065849701446, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem118@Sheet Format1", "NOTE", 0.3294657047176, 0.06038019120868, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem117@Sheet Format1", "NOTE", 0.3267754152617, 0.06511138990702, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem117@Sheet Format1", "NOTE", 0.3263115722521, 0.06548246431474, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem117@Sheet Format1", "NOTE", 0.3232502083884, 0.06576077012052, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.334104134814, 0.08097482083678, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem119@Sheet Format1", "NOTE", 0.397650627135, 0.06028742260675, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem120@Sheet Format1", "NOTE", 0.4003409165909, 0.06529692711088, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("DetailItem119@Sheet Format1", "NOTE", 0.3947748004752, 0.06102957142218, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem121@Sheet Format1", "NOTE", 0.3951458748829, 0.06557523291667, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem119@Sheet Format1", "NOTE", 0.3879099239325, 0.06010188540289, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem121@Sheet Format1", "NOTE", 0.3920845110193, 0.06455477829545, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3739946336433, 0.08310849868113, 0, False, 0, Nothing) Part.ViewZoomtofit2 boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3490317909091, 0.1565500136364, 0, False, 0, Nothing) Part.EditSheet Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.ViewZoomTo2 0.205223, 0.259318, -1.83032e-015, 0.361044, 0.119847, -8.56398e-016 Part.EditSketch boolstatus = Part.Extension.SelectByID("", "SILHOUETTE", 0.2629890624186, 0.2024226936735, -999.78, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.3069679162223, 0.2011925159447, -999.7755923716, False, 0, Nothing) Part.SetPickMode boolstatus = Part.Extension.SelectByID("DetailItem123@Drawing View1", "NOTE", 0.3066603717901, 0.2010387437356, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2931284167736, 0.1871992442869, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem123@Drawing View1", "NOTE", 0.2857473504009, 0.1888907386639, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem123@Drawing View1", "NOTE", 0.3066603717901, 0.2007311993034, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem123@Drawing View1", "NOTE", 0.2869775281297, 0.1887369664478, 0, False, 0, Nothing) Part.EditBalloonProperties 1, 0, 0, "2", 2, "1" boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2156272198607, 0.1864303832064, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.EditSketch Part.ViewZoomTo2 0.241258, 0.0854797, -6.16412e-016, 0.42444, -0.0129511, 7.09268e-017 Part.Save2 FALSE Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.0123652, 0.103497, -7.4223e-016, 0.172857, -0.0139521, 7.79167e-017 boolstatus = Part.Extension.SelectByID("DetailItem110@Drawing View6", "NOTE", 0.05544696971535, 0.02295322731783, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem109@Drawing View6", "NOTE", 0.06049717302295, 0.0356434817831, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem109@Drawing View6", "NOTE", 0.06049717302295, 0.0356434817831, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem109@Drawing View6", "NOTE", 0.06477042197554, 0.03667942092312, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem111@Drawing View6", "NOTE", 0.06451143719054, 0.03137023283051, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem111@Drawing View6", "NOTE", 0.06477042197554, 0.02800343062544, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.07072707203067, 0.05170053845344, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem110@Drawing View6", "NOTE", 0.0673602698256, 0.07008845818883, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem110@Drawing View6", "NOTE", 0.06697179264809, 0.06931150383382, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem110@Drawing View6", "NOTE", 0.06839620896562, 0.06879353426381, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem110@Drawing View6", "NOTE", 0.06205108173299, 0.0685345494788, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem110@Drawing View6", "NOTE", 0.05972021866794, 0.03279464914804, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.06075615780796, 0.04004622312819, 0, False, 0, Nothing) Part.ViewZoomtofit2 boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1955465181818, 0.06512617727273, 0, False, 0, Nothing) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.2042217727273, 0.03643110454545, 0, False, 0, Nothing) Part.EditSheet Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.Save2 FALSE Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Tower_V3\TowerWeldment_V3\WindGenMount_Assem.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Tower_V3\TowerWeldment_V3\WindGenMount_Assem.SLDDRW", 3, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("WindGenMount_Assem - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.PrintDirect swApp.PageSetup Part.PrintDirect Part.EditSketch Part.EditSketch Part.EditSketch ' MSGBOX ' Save changes to WindGenMount_Assem - Sheet2? Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "WindGenMount_Assem - Sheet2" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("wind gen_Mast - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.PrintDirect swApp.PageSetup Part.PrintDirect Part.EditSketch Part.EditSketch swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 769 swApp.ActiveDoc.ActiveView.FrameHeight = 461 Part.EditSketch Part.EditSketch Part.EditSketch Part.PrintDirect swApp.PageSetup Part.PrintDirect Part.EditSketch 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 boolstatus = Part.Extension.SelectByID("D2@Sketch31@wind gen_Mast-SectionPart-1-1@Drawing View6", "DIMENSION", 0.3697189363636, 0.1165103772727, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.03338599090909, 0.09582323181818, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.3557050636364, 0.2142738227273, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\CoreSystems\wind gen.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\CoreSystems\wind gen.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 ("wind gen.SLDPRT") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("WindGen Mast@wind gen.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "WindGen Mast" 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 ("wind gen_Mast - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D2@Sketch31@wind gen_Mast-SectionPart-1-1@Drawing View6", "DIMENSION", 0.3740565636364, 0.1178450318182, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2X", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2X ", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2X ", " ", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2X ", " T", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2X ", " TH", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2X ", " THR", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2X ", " THRU", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2X ", " THRU ", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2X ", " THRU A", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2X ", " THRU AL", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2X ", " THRU ALL", 1,"", "", 0 Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch30@wind gen-1@Drawing View1", "DIMENSION", 0.1288137909091, 0.1949213318182, 0, False, 0, Nothing) Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"", " ", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"", " T", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"", " TH", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"", " THR", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"", " THRU", 1,"", "", 0 Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.07342562727273, 0.09315392272727, 0, False, 0, Nothing) Part.EditSketch ' 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 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1448296454545, 0.09348758636364, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "wind gen_Mast - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("wind gen.SLDPRT") boolstatus = Part.Extension.SelectByID("Default", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Default" Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "wind gen.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount - Sheet2") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D2@Sketch1@Winch Base-1@Drawing View7", "DIMENSION", 0.1327778830256, 0.2396322590909, 0, False, 0, Nothing) Part.DragModelDimension "Drawing View12", 1, 0.1447897739347, 0.05845290454545, 0 Part.DeSelectByID "D2@Sketch1@Winch Base-1@Drawing View7", "DIMENSION", 0.1327778830256, 0.2396322590909, 0 Part.EditSketch boolstatus = Part.Extension.SelectByID("D2@Sketch1@Winch Base-8@Drawing View12", "DIMENSION", 0.1441224466619, 0.05878656818182, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.134112537571, 0.02909050454545, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch1@Winch Base-8@Drawing View12", "DIMENSION", 0.1364481830256, 0.04477269545455, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2058502193892, 0.02608753181818, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View12", "DRAWINGVIEW", 0.1768214830256, 0.08581332272727, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.InsertModelAnnotations2(0, False, 8, True, False, False) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch2@Winch Base-6@Drawing View11", "DIMENSION", 0.3162928830256, 0.1348618772727, 0, False, 0, Nothing) Part.DragModelDimension "Drawing View12", 1, 0.1467917557528, 0.06746182272727, 0 Part.DeSelectByID "D1@Sketch2@Winch Base-6@Drawing View11", "DIMENSION", 0.3149582284801, 0.1358628681818, 0 Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch2@Winch Base-8@Drawing View12", "DIMENSION", 0.1467917557528, 0.06746182272727, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch2@Winch Base-8@Drawing View12", "DIMENSION", 0.1477927466619, 0.06545984090909, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch2@Winch Base-8@Drawing View12", "DIMENSION", 0.1507957193892, 0.06445885, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1661442466619, 0.02275089545455, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch2@Winch Base-8@Drawing View12", "DIMENSION", 0.1411194739347, 0.06579350454545, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.0516976193892, 0.03042515909091, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch1@Winch Base-8@Drawing View12", "DIMENSION", 0.1407858102983, 0.04544002272727, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1134253921165, 0.01674495, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch1@Winch Base-8@Drawing View12", "DIMENSION", 0.1371155102983, 0.04577368636364, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1447897739347, 0.03242714090909, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch2@Winch Base-8@Drawing View12", "DIMENSION", 0.1424541284801, 0.06479251363636, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch2@Winch Base-8@Drawing View12", "DIMENSION", 0.1424541284801, 0.06445885, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2095205193892, 0.02041525, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.CreateLine2( 0, 0.0440436, 0, 0, -0.05538816363636, 0 ).ConstructionGeometry = TRUE Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.145123437571, 0.02675485909091, 0, False, 0, Nothing) Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch Base.SLDPRT") Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Winch_Mount - Sheet2") Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.3546642012074, 0.08180935909091, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View13", "DRAWINGVIEW", 0.3776869921165, 0.08014104090909, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem139@Sheet2", "ANNOTATIONTABLES", 0.2712482921165, 0.07580341363636, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem139@Sheet2", "ANNOTATIONTABLES", 0.3289721012074, 0.07613707727273, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2302076648437, 0.03576377727273, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem139@Sheet2", "ANNOTATIONTABLES", 0.3316414102983, 0.07546975, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2065175466619, 0.1291895954545, 0, False, 0, Nothing) Part.ViewZoomTo2 0.22954, 0.107168, -7.6786e-016, 0.420396, 0.016745, -1.3644e-016 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem139@Sheet2", "ANNOTATIONTABLES", 0.3852611566619, 0.06636629378788, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem139@Sheet2", "ANNOTATIONTABLES", 0.314268656965, 0.07735494954545, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem139@Sheet2", "ANNOTATIONTABLES", 0.2661209942377, 0.06665546893939, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem139@Sheet2", "ANNOTATIONTABLES", 0.2792784636316, 0.06535418075758, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem139@Sheet2", "ANNOTATIONTABLES", 0.3014003627225, 0.06636629378788, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem139@Sheet2", "ANNOTATIONTABLES", 0.3015449502983, 0.06636629378788, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem139@Sheet2", "ANNOTATIONTABLES", 0.3533073024195, 0.06578794348485, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem139@Sheet2", "ANNOTATIONTABLES", 0.3815018796922, 0.06651088136364, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem139@Sheet2", "ANNOTATIONTABLES", 0.3950931118134, 0.06607711863636, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem139@Sheet2", "ANNOTATIONTABLES", 0.324389787268, 0.07619824893939, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.3261248381771, 0.09065700651515, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.3567774042377, 0.02602636015152, 0, False, 0, Nothing) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem22@Sheet Format2", "NOTE", 0.3773088399953, 0.0219779080303, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem22@Sheet Format2", "NOTE", 0.3823694051468, 0.02212249560606, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem22@Sheet Format2", "NOTE", 0.3692119357528, 0.0219779080303, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem94@Sheet Format2", "NOTE", 0.3719590996922, 0.025737185, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem6@Sheet Format2", "NOTE", 0.3356676181771, 0.02154414530303, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem6@Sheet Format2", "NOTE", 0.3414511212074, 0.02139955772727, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem5@Sheet Format2", "NOTE", 0.3352338554498, 0.02588177257576, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem5@Sheet Format2", "NOTE", 0.3414511212074, 0.025737185, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format2", "SHEET", 0.3081959787831, 0.07431861045455, 0, False, 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("Line28", "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("Line107", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line136", "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("DetailItem12@Sheet Format2", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem13@Sheet Format2", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem16@Sheet Format2", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem23@Sheet Format2", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem24@Sheet Format2", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem25@Sheet Format2", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem26@Sheet Format2", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem27@Sheet Format2", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem54@Sheet Format2", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem4@Sheet Format2", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem11@Sheet Format2", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem12@Sheet Format2", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem1@Sheet Format2", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem3@Sheet Format2", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem4@Sheet Format2", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem5@Sheet Format2", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem6@Sheet Format2", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem83@Sheet Format2", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem84@Sheet Format2", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem98@Sheet Format2", "NOTE", 0, 0, 0, True, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.SetPickMode Part.SetPickMode Part.SetPickMode Part.ViewZoomTo2 0.312389, 0.0714269, -4.97312e-016, 0.374562, 0.00101271, -5.61247e-018 boolstatus = Part.Extension.SelectByID("DetailItem4@Sheet Format2", "NOTE", 0.3465030780578, 0.03625860130383, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem84@Sheet Format2", "NOTE", 0.3444845908646, 0.0409942827956, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.SetPickMode Part.ClearSelection2 True Part.ViewZoomTo2 0.272623, 0.080141, -5.79133e-016, 0.423105, -0.000939223, -1.29518e-017 boolstatus = Part.Extension.SelectByID("DetailItem85@Sheet Format2", "NOTE", 0.3821784926515, 0.0169715632197, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format2", "SHEET", 0.4029268097727, 0.07328842397727, 0, False, 0, Nothing) Part.EditSheet Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch ' 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 Part.EditSketch swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 1538 swApp.ActiveDoc.ActiveView.FrameHeight = 307 Part.EditSketch Set Part = swApp.ActivateDoc ("Winch_Mount.SLDASM") Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("Winch_Mount - Sheet2") Set Part = Nothing swApp.CloseDoc "Winch_Mount - Sheet2" Set Part = swApp.ActivateDoc ("Winch_Mount.SLDASM") Set Part = swApp.ActivateDoc ("Winch Base.SLDPRT") Set Part = Nothing swApp.CloseDoc "Winch Base.SLDPRT" Set Part = swApp.ActivateDoc ("Winch_Mount.SLDASM") Set Part = Nothing swApp.CloseDoc "Winch_Mount.SLDASM" Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\BuoyStructure_V2\Elevator\Elevator Winch\Winch_Mount.SLDDRW", 3, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("Winch_Mount - Sheet2") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.03708765883245, 0.1799369507202, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "Winch_Mount - Sheet2" Set Part = swApp.OpenDoc6 ("X:\900303.MBARI-CIMT\MBARI-CIMT.Drawings\MBARI-CIMT.ME.Dwgs\CIMT_200405-Drawings\CoreSystems\MiniSpec-Assem.SLDDRW", 3, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("MiniSpec-Assem - Sheet2") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch boolstatus = Part.Extension.SelectByID("D9@Sketch1@MiniSpec_Clamp_V2-1@Drawing View3", "DIMENSION", 0.2280879560273, 0.2180034435178, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D9@Sketch1@MiniSpec_Clamp_V2-1@Drawing View3", "DIMENSION", 0.2280879560273, 0.2180034435178, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.3239220212282, 0.09545605003791, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch ' MSGBOX ' Save changes to MiniSpec-Assem - Sheet2? Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "MiniSpec-Assem - Sheet2" swApp.ExitApp End Sub