' ****************************************************************************** ' swxJRNL.swj - journal recorded on 05/28/04 by jaha ' ***************************************************************************** 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 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\ContrHousing.SLDDRW", 3, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("ContrHousing - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "FACE", 0.3239254235808, 0.2271073453871, -1499.67549275, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\LOBOcont-logPCB.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\LOBOcont-logPCB.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 ("LOBOcont-logPCB.SLDPRT") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "LOBOcont-logPCB.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 ("ContrHousing - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "FACE", 0.2064506458182, 0.2353916452229, -2499.424035791, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View37", "DRAWINGVIEW", 0.2026068407273, 0.2629389150585, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View37", "DRAWINGVIEW", 0.2026068407273, 0.2638998663312, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("ISUS-1000mHousing-5@Drawing View37", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\ISUS-1000mHousing.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\ISUS-1000mHousing.SLDASM", 2, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ISUS-1000mHousing.SLDASM") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.1085852530107, -0.02209691643562, 0.03104957902147, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\LOBOcont-logPCBsupport.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\LOBOcont-logPCBsupport.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 ("LOBOcont-logPCBsupport.SLDPRT") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D2@Sketch1@LOBOcont-logPCBsupport.SLDPRT", "DIMENSION", 0.0008477872790221, -0.1344310464431, 0.180556823093, False, 0, Nothing) Part.Parameter("D2@Sketch1").SystemValue = 0.00889 boolstatus = Part.Extension.SelectByID("D2@Sketch1@LOBOcont-logPCBsupport.SLDPRT", "DIMENSION", -0.003505998619578, -0.1332060172552, 0.1801523291191, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch1@LOBOcont-logPCBsupport.SLDPRT", "DIMENSION", -0.09503014594956, 0.04108218390482, 0.1235951582002, False, 0, Nothing) Part.EditRebuild Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ShowNamedView2 "*Front", 1 Part.InsertSketch2 True Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.InsertSketch2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0.0005092267735909, 0.022405978038, 0.003175, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -0.003904071930864, -0.002036907094364, 0.003175, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.0575426, -0.0115425, 0) Part.ClearSelection2 True Part.Parameter("D3@Sketch1").SystemValue = 0.00635 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", -0.001188195805045, 0.1520890630458, 0.003174999999999, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0259706, 0.0828342, 0) Part.ClearSelection2 True Part.Parameter("D4@Sketch1").SystemValue = 0.1524 Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True Part.Save2 FALSE Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "LOBOcont-logPCBsupport.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 ("ISUS-1000mHousing.SLDASM") boolstatus = Part.Extension.SelectByID("Concentric2@LOBOcont-log-1@ISUS-1000mHousing", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("", "FACE", 0.1755725046945, -0.02209691643562, -0.03252054003634, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Distance4@LOBOcont-log-1@ISUS-1000mHousing", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Concentric4@LOBOcont-log-1@ISUS-1000mHousing", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditDelete Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2156195254344, -0.02192719452835, -0.03038904279569, False, 0, Nothing) Part.ClearSelection2 True Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "FACE", 0.1822589315601, -0.02209691643562, -0.0298727435468, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.2059571747852, -0.02209691643562, -0.02889205509652, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Concentric3@LOBOcont-log-1@ISUS-1000mHousing", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditDelete Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "FACE", 0.1834859574892, -0.02209691643562, -0.03029287065494, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.1797773716237, -0.02209691643562, -0.03052405727522, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.1797773716237, -0.02209691643562, -0.03052405727522, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.1996440665454, -0.02209691643562, -0.03091029809862, False, 0, Nothing) Part.TranslateComponent Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "FACE", 0.1693479232773, -0.02209691643562, -0.03012405132117, False, 0, Nothing) Part.TranslateComponent Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "FACE", 0.1693244445213, -0.02209691643562, -0.03123744991422, False, 0, Nothing) Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "FACE", 0.267046635174, -0.02209691643562, -0.02924840637432, False, 0, Nothing) Part.TranslateComponent Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2532671356561, -0.02216012547505, -0.02644353379815, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.2513449405769, -0.02209691643562, -0.02943882799087, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("LOBOcont-log-1@ISUS-1000mHousing/LOBOcont-logPCBsupport-2@LOBOcont-log", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.EditDelete Part.EditUndo 1 boolstatus = Part.Extension.SelectByID("LOBOcont-log-1@ISUS-1000mHousing/LOBOcont-logPCBsupport-2@LOBOcont-log", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("LOBOcont-log-1@ISUS-1000mHousing", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.2789180424323, -0.02209691643562, -0.03045723273756, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("LOBOcont-log-1@ISUS-1000mHousing", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("LOBOcont-log-1@ISUS-1000mHousing", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\LOBOcont-log.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\LOBOcont-log.SLDASM", 2, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("LOBOcont-log.SLDASM") Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ISUS-1000mHousing.SLDASM") Set Part = Nothing swApp.CloseDoc "ISUS-1000mHousing.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("LOBOcont-log.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ContrHousing - Sheet1") Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("LOBOcont-log.SLDASM") boolstatus = Part.Extension.SelectByID("LOBOcont-logPCBsupport-2@LOBOcont-log", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "FACE", 0.03241018425058, 0.03080730664527, -0.009524999999996, False, 0, Nothing) Part.RotateComponent boolstatus = Part.Extension.SelectByID("", "FACE", 0.07284264381047, -0.01464593482217, -0.0004269411384143, False, 0, Nothing) Part.ClearSelection2 True Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "FACE", 0.03085715962783, -0.001682813439004, 0.0008926216390819, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.06445917313869, -0.01050799750277, -0.002424894727142, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.03053049695552, -0.001463501733838, 0.0008720021011754, True, 1, Nothing) Set Feature = Part.AddMate2 (1, 1, False, 0.03174573372994, 0, 0, 1, 1, 1.120017256625, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.09787007532969, -0.1090251726185, -0.005491031948338, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.03091043227147, -0.1287100149208, 0.0008118308815028, True, 1, Nothing) Set Feature = Part.AddMate2 (1, 1, False, 0.07014405134683, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Distance3", "MATE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Distance1", "MATE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.03556, 0.1524, 0, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.0381, 0.1524, -0.003175, True, 1, Nothing) Part.EditMate2 5, 1, True, 0.003175, 0.003175, 0.003175, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.03627271921479, -0.1117098866765, -0.0008032028021461, True, 1, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.01515870894416, -0.07399124585925, 0, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.03671429158298, -0.1168041613982, -0.0008032028021603, True, 1, Nothing) Set Feature = Part.AddMate2 (5, 1, True, 0.003175, 0.003175, 0.003175, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "LOBOcont-log.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ContrHousing - Sheet1") Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1356605687273, 0.2763922328767, 0, False, 0, Nothing) 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 boolstatus = Part.Extension.SelectByID("", "FACE", 0.2042084261818, 0.2318681572229, -2499.383636478, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("ISUS-1000mHousing-5@Drawing View37", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("ISUS-1000mHousing-5@Drawing View37", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\ISUS-1000mHousing.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\ISUS-1000mHousing.SLDASM", 2, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ISUS-1000mHousing.SLDASM") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.1343401433855, -0.00523732043198, 0.041275, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\New_Bracket.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\New_Bracket.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 ("New_Bracket.SLDPRT") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("LPattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "New_Bracket.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 ("ISUS-1000mHousing.SLDASM") boolstatus = Part.Extension.SelectByID("", "FACE", 0.1135251006717, -0.01955895206822, -0.02921, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\LOBOcont-logPCBsupport.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\LOBOcont-logPCBsupport.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 ("LOBOcont-logPCBsupport.SLDPRT") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ContrHousing - Sheet1") Part.EditSketch boolstatus = Part.Extension.SelectByID("", "FACE", 0.1556431828549, 0.2355819244577, -2499.397384149, False, 0, Nothing) Part.EditSketch Part.ViewDisplayHidden Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View44", "DRAWINGVIEW", 0.1267048411637, 0.2068517722925, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View44", "DRAWINGVIEW", 0.1258720831294, 0.212160604761, 0, False, 0, Nothing) Part.EditSketch Part.ViewDisplayShadedWithEdges Part.ViewDisplayShaded Part.ViewDisplayShadedWithEdges Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1554349933463, 0.2746174573319, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View44", "DRAWINGVIEW", 0.1394044011864, 0.2618138025549, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View44", "DRAWINGVIEW", 0.1347201372436, 0.2587950546806, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View44", "DRAWINGVIEW", 0.1325341474036, 0.2524452746693, 0, False, 0, Nothing) Part.SelectionManager.GetSelectedObject3(1).SetDisplayTangentEdges2 0 boolstatus = Part.Extension.SelectByID("Drawing View44", "DRAWINGVIEW", 0.1350324215065, 0.245783210395, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View44", "DRAWINGVIEW", 0.1294113047751, 0.2477610107264, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View44", "DRAWINGVIEW", 0.1328464316665, 0.250883853355, 0, False, 0, Nothing) Part.SelectionManager.GetSelectedObject3(1).SetDisplayTangentEdges2 0 boolstatus = Part.Extension.SelectByID("Drawing View44", "DRAWINGVIEW", 0.1638666684434, 0.2190308585438, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View44", "DRAWINGVIEW", 0.1225410509923, 0.2433890310465, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View44", "DRAWINGVIEW", 0.1267048411637, 0.2473446317093, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1273294096894, 0.2672267297777, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.34802488265, 0.09704799926502, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.2231071345455, 0.06177978196759, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.2100947666007, 0.04374119638917, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View72", "DRAWINGVIEW", 0.1961191825527, 0.08100942051707, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View72", "DRAWINGVIEW", 0.1961191825527, 0.08100942051707, 0, False, 0, Nothing) Part.SelectionManager.GetSelectedObject3(1).SetDisplayTangentEdges2 0 boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.2128350771983, 0.04620747592705, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.2133831393178, 0.03332801611814, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.1675658867404, 0.1173830111453, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.02416633548999, 0.135560735759, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View70", "DRAWINGVIEW", 0.04840143138391, 0.1349623383296, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View70", "DRAWINGVIEW", 0.04840143138391, 0.1349623383296, 0, False, 0, Nothing) Part.SelectionManager.GetSelectedObject3(1).SetDisplayTangentEdges2 2 Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View70", "DRAWINGVIEW", 0.05827498897033, 0.135560735759, 0, False, 0, Nothing) Part.SelectionManager.GetSelectedObject3(1).SetDisplayTangentEdges2 0 Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.1827416543021, 0.05118669820243, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.1972099058227, 0.03939705030306, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View72", "DRAWINGVIEW", 0.2096600976341, 0.1499840481572, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.2034350017284, 0.1507164123814, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View72", "DRAWINGVIEW", 0.2027026375042, 0.149251683933, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.ViewDisplayShaded Part.EditSketch Part.ViewDisplayShadedWithEdges Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.2048997301768, 0.02877776905216, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View53", "DRAWINGVIEW", 0.2048490603636, 0.06402200160396, 0, False, 0, Nothing) 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 Set Part = swApp.ActivateDoc ("LOBOcont-logPCBsupport.SLDPRT") Part.ShowNamedView2 "*Front", 1 Part.ShowNamedView2 "*Left", 3 boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.InsertSketch2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D5@Sketch3@LOBOcont-logPCBsupport.SLDPRT", "DIMENSION", -0.001904999999999, 0.07774195410155, 0.02676917384305, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D6@Sketch3@LOBOcont-logPCBsupport.SLDPRT", "DIMENSION", -0.001905, -0.05499649154782, 0.02541123578014, False, 0, Nothing) Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ContrHousing - Sheet4") ' MSGBOX ' One of the models of this drawing is in rollback state. The drawing is inaccessible now. swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ISUS-1000mHousing.SLDASM") ' MSGBOX ' One of the components of this assembly is in rollback state. The assembly is inaccessible now. swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("LOBOcont-logPCBsupport.SLDPRT") boolstatus = Part.Extension.SelectByID("D2@Sketch3@LOBOcont-logPCBsupport.SLDPRT", "DIMENSION", -0.001905, -0.03734329673, -0.05606504799441, False, 0, Nothing) Part.EditDelete Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch3@LOBOcont-logPCBsupport.SLDPRT", "DIMENSION", -0.001905, 0.03836175027718, -0.06115731573032, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("D5@Sketch3@LOBOcont-logPCBsupport.SLDPRT", "DIMENSION", -0.001904999999999, 0.07366813991282, 0.03831164737777, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("D6@Sketch3@LOBOcont-logPCBsupport.SLDPRT", "DIMENSION", -0.001905, -0.05703339864218, 0.03559577125196, False, 0, Nothing) Part.EditDelete Part.EditUndo 1 boolstatus = Part.Extension.SelectByID("Arc4", "SKETCHSEGMENT", -0.001905000000001, -0.141904527574, 0.002326288710682, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", -0.001905, -0.06619948056682, 0.002665773226409, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.00635, -0.100487, -0.0255114) Part.ClearSelection2 True Part.Parameter("D1@Sketch3").SystemValue = 0.0762 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", -0.001905, -0.06110721283091, 0.004023711289318, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.001905, 0.06042824379946, 0.003344742257864, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.00635, -0.00339485, -0.025172) Part.ClearSelection2 True Part.Parameter("D2@Sketch3").SystemValue = 0.1143 boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.001905, 0.048546285749, 0.004363195805045, False, 0, Nothing) Set Annotation = Part.AddDimension2(-0.00635, 0.136133, 0.00334474) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch3@LOBOcont-logPCBsupport.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch is no longer over defined. boolstatus = Part.Extension.SelectByID("D2@Sketch3@LOBOcont-logPCBsupport.SLDPRT", "DIMENSION", -0.001905, -0.009505566440364, -0.02415350351605, False, 0, Nothing) Part.ClearSelection2 True Part.EditUndo 1 Part.EditUndo 1 Part.EditUndo 1 Part.EditUndo 1 Part.EditUndo 1 Part.EditUndo 1 Part.EditUndo 1 Part.EditUndo 1 Part.EditUndo 1 boolstatus = Part.Extension.SelectByID("D1@Sketch3@LOBOcont-logPCBsupport.SLDPRT", "DIMENSION", -0.001905, 0.03598535866709, -0.0584414396045, False, 0, Nothing) Part.Parameter("D1@Sketch3").SystemValue = 0.05715 boolstatus = Part.Extension.SelectByID("D2@Sketch3@LOBOcont-logPCBsupport.SLDPRT", "DIMENSION", -0.001905, -0.03904071930864, -0.05640453251014, False, 0, Nothing) Part.Parameter("D2@Sketch3").SystemValue = 0.05715 boolstatus = Part.Extension.SelectByID("D2@Sketch3@LOBOcont-logPCBsupport.SLDPRT", "DIMENSION", -0.001905, -0.03530638963564, -0.05606504799441, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D6@Sketch3@LOBOcont-logPCBsupport.SLDPRT", "DIMENSION", -0.001905, -0.05839133670509, 0.03559577125196, False, 0, Nothing) Part.Parameter("D6@Sketch3").SystemValue = 0.09525 boolstatus = Part.Extension.SelectByID("D6@Sketch3@LOBOcont-logPCBsupport.SLDPRT", "DIMENSION", -0.001905, -0.04005917285582, 0.03457731770477, False, 0, Nothing) Part.Parameter("D6@Sketch3").SystemValue = 0.13335 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D5@Sketch3@LOBOcont-logPCBsupport.SLDPRT", "DIMENSION", -0.001904999999999, 0.07332865539709, 0.03355886415759, False, 0, Nothing) Part.Parameter("D5@Sketch3").SystemValue = 0.13335 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D4@Sketch3@LOBOcont-logPCBsupport.SLDPRT", "DIMENSION", -0.001905, 0.07129174830273, 0.01488721579259, False, 0, Nothing) Part.ClearSelection2 True Part.InsertSketch2 True Part.EditRebuild Part.Save2 FALSE Part.ShowNamedView2 "*Trimetric", 8 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ISUS-1000mHousing.SLDASM") boolstatus = Part.Extension.SelectByID("", "FACE", 0.361494012164, -0.01206104390651, -0.01687672351906, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.378956512164, 0.001409920724528, 0.03953980726899, True, 0, Nothing) Part.ShowNamedView2 "*Top", 5 Part.ActiveView.RemovePerspective Part.ShowNamedView2 "*Front", 1 Part.ShowNamedView2 "*Top", 5 Part.ViewZoomtofit2 Part.ViewZoomTo2 0.315682, 0.0645006, -0.00542817, 0.400823, -0.0639846, -0.00542817 boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3613953611457, -0.01092091643562, 0.02136574194801, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3791218028607, 0.03874765119792, 0.01558264748781, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.392322, -0.00542817, 0.0125654) Part.ClearSelection2 True Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 1, 1, 11, 11,"", "", 1,"", "", 0 Part.ClearSelection2 True Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx boolstatus = Part.Extension.SelectByID("RD1@Annotations@ISUS-1000mHousing.moAssembly_c", "DIMENSION", 0.3918194667842, -0.005428166435621, 0.01181106414419, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("", "FACE", 0.361494012164, -0.0192923658671, -0.03287305633036, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.378962862164, -0.00898319907202, -0.03273601205393, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.391013, -0.0601058, -0.0444187) Part.ClearSelection2 True Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 1, 1, 11, 11,"", "", 1,"", "", 0 Part.ShowNamedView2 "*Front", 1 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Annotations@ISUS-1000mHousing.moAssembly_c", "DIMENSION", 0.3899866893361, -0.01523226353954, 0, False, 0, Nothing) Part.ViewZoomTo2 0.322906, 0.0472044, -3.67531e-016, 0.456551, -0.0812809, 5.29677e-016 Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ShowNamedView2 "*Isometric", 7 Part.ClearSelection2 True Part.SetPickMode boolstatus = Part.Extension.SelectByID("", "FACE", 0.2851930981688, -0.007123018061804, 0.04127499999981, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\New_Bracket.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\New_Bracket.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 ("New_Bracket.SLDPRT") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.04127499999993, -0.0009461747777095, 0.2725957202469, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.04127499999993, 0.003409785022541, 0.275537113175, False, 0, Nothing) Part.InsertSketch2 True Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.04127499999993, -0.003074623904979, 0.3035796832967, False, 0, Nothing) Part.ShowNamedView2 "*Front", 1 Part.ShowNamedView2 "*Left", 3 Part.ViewZoomTo2 0.165365, 0.0324714, -2.26747e-016, 0.375793, -0.0410668, 2.86768e-016 Part.ClearSelection2 True Part.SketchRectangle 0.27686, 0.00254, 0, 0.3302, -0.00508, 0, 1 Part.ClearSelection2 True Part.CreateTangentArc2 0.3302, 0.00254, 0, 0.3302, -0.00508, 0, 1 Part.CreateTangentArc2 0.27686, 0.00254, 0, 0.27686, -0.00508, 0, 1 Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point6", "SKETCHPOINT", 0.27686, -0.00127, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", -0.04127499999998, -0.002830724693267, 0.2768544550054, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", -0.04127499999998, -0.002830724693267, 0.330154045604, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0, -0.00511266435192, 0.3138544766136, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0, 0.003037120143267, 0.3151584421328, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.041275, 0.0353103, 0.311736) Part.ClearSelection2 True Part.Parameter("D1@Sketch10").SystemValue = 0.0127 boolstatus = Part.Extension.SelectByID("D1@Sketch10@New_Bracket.SLDPRT", "DIMENSION", 0, 0.06204155988842, 0.2975549076232, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.04127499999987, -0.01929328937354, 0.2815813300126, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0, -0.00120076779423, 0.2703346274093, True, 0, Nothing) Part.EditDelete ' MSGBOX ' Some of the selected entities cannot be deleted. Part.ClearSelection2 True Part.EditUndo 1 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", -0.04127499999998, -0.01440341867643, 0.3356958990607, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0, 0.0005921847947108, 0.3363478818203, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.041275, -0.00527566, 0.352321) Part.ClearSelection2 True Part.Parameter("D2@Sketch10").SystemValue = 0.0257175 boolstatus = Part.Extension.SelectByID("D2@Sketch10@New_Bracket.SLDPRT", "DIMENSION", 0, 0.0002661934149033, 0.3508544982217, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch10@New_Bracket.SLDPRT", "DIMENSION", 0, -0.002015746243749, 0.3505285068419, False, 0, Nothing) Part.ClearSelection2 True Part.CreateLine2( 0.27686, 0.01222375, 0, 0.32258, 0.01016, 0 ).ConstructionGeometry = TRUE Part.EditDelete boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0, 0.01167589170816, 0.270823614479, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0, 0.01558778826585, 0.3355329033708, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.041275, 0.0599226, 0.306031) Part.ClearSelection2 True Part.Parameter("D3@Sketch10").SystemValue = 0.05715 boolstatus = Part.Extension.SelectByID("D3@Sketch10@New_Bracket.SLDPRT", "DIMENSION", 0, 0.05992261591967, 0.3060306834982, False, 0, Nothing) Part.Parameter("D3@Sketch10").SystemValue = 0.05715 boolstatus = Part.Extension.SelectByID("D3@Sketch10@New_Bracket.SLDPRT", "DIMENSION", 0, 0.06024860729948, 0.3019557912506, False, 0, Nothing) Part.Parameter("D3@Sketch10").SystemValue = 0.05715 boolstatus = Part.Extension.SelectByID("", "EDGE", -0.04127499999987, -0.002178741933652, 0.3695990025607, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0, 0.00841597791009, 0.3356958990607, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.041275, -0.0352669, 0.350854) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D3@Sketch10@New_Bracket.SLDPRT", "DIMENSION", 0, 0.06024860729948, 0.3019557912506, False, 0, Nothing) Part.Parameter("D4@Sketch10").SystemValue = 0.0396875 boolstatus = Part.Extension.SelectByID("D4@Sketch10@New_Bracket.SLDPRT", "DIMENSION", 0, -0.03608184543363, 0.3505285068419, False, 0, Nothing) Part.Parameter("D4@Sketch10").SystemValue = 0.0396875 boolstatus = Part.Extension.SelectByID("D4@Sketch10@New_Bracket.SLDPRT", "DIMENSION", 0, -0.0346148842245, 0.3441716749357, False, 0, Nothing) Part.Parameter("D4@Sketch10").SystemValue = 0.0460375 boolstatus = Part.Extension.SelectByID("D4@Sketch10@New_Bracket.SLDPRT", "DIMENSION", 0, -0.03705981957305, 0.3531364378804, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch10@New_Bracket.SLDPRT", "DIMENSION", 0, 0.04867591331631, 0.2959249507242, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D3@Sketch10@New_Bracket.SLDPRT", "DIMENSION", 0, 0.06041160298938, 0.3091276016064, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch10@New_Bracket.SLDPRT", "DIMENSION", 0, 0.04166709865045, 0.3539514163299, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch10@New_Bracket.SLDPRT", "DIMENSION", 0, 0.02732347793892, 0.3531364378804, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch10@New_Bracket.SLDPRT", "DIMENSION", 0, 0.02732347793892, 0.3534624292602, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch10@New_Bracket.SLDPRT", "DIMENSION", 0, 0.02732347793892, 0.3536254249501, False, 0, Nothing) Part.Parameter("D4@Sketch10").SystemValue = 0.0301752 Part.ClearSelection2 True Part.CreateLine2 0.2825623, 0.01222375, 0, 0.2825623, 0.01905, 0 Part.CreateLine2 0.3397123, 0.01222375, 0, 0.3397123, 0.01905, 0 Part.CreateLine2 0.3397123, 0.01905, 0, 0.2825623, 0.01905, 0 Part.ClearSelection2 True Part.SetPickMode boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, 0.2854932265703, 0.01721774516489 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, 0.2908720843372, 0.01803272361441 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, 0.3342289378516, 0.01803272361441 boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0, 0.008578973599994, 0.2835372782915, False, 0, Nothing) Set Annotation = Part.AddDimension2(-0.041275, -0.031681, 0.235128) Part.ClearSelection2 True Part.Parameter("D1@Sketch10").SystemValue = 0.00635 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point6", "SKETCHPOINT", 0.2889123, 0.01222375, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point5", "SKETCHPOINT", 0.3333623, 0.01222375, 0, True, 0, Nothing) Part.SketchAddConstraints "sgHORIZPOINTS" boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0, 0.008578973599994, 0.2828852955319, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0, 0.007763995150475, 0.3381408344092, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0, 0.00841597791009, 0.2835372782915, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0, 0.01542479257595, 0.2825593041521, True, 0, Nothing) Part.SketchAddConstraints "sgTANGENT" boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0, 0.00711201239086, 0.3381408344092, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0, 0.01607677533557, 0.3399337869982, True, 0, Nothing) Part.SketchAddConstraints "sgTANGENT" Part.ClearSelection2 True Part.ClearSelection2 True Part.FeatureManager.FeatureCut True, False, False, 2, 0, 0.00254, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.ClearSelection2 True Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "New_Bracket.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 ("ISUS-1000mHousing.SLDASM") boolstatus = Part.Extension.SelectByID("", "FACE", 0.179532633604, -0.008360946903395, 0.04127499999987, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\New_Bracket.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\New_Bracket.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 ("New_Bracket.SLDPRT") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", -0.03950825263087, 0.01912492345235, 0.2827147529769, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.04002242275675, 0.01900337591201, 0.3396174300913, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", -0.03950825263087, 0.01912492345235, 0.2827147529769, False, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.04002242275675, 0.01900337591201, 0.3396174300913, True, 1, Nothing) Part.FeatureFillet5 195, 0.003175, 0, 0, 0, 0, 0 Part.ClearSelection2 True Part.Save2 FALSE Part.Save2 FALSE Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "New_Bracket.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 ("ISUS-1000mHousing.SLDASM") boolstatus = Part.Extension.SelectByID("RD1@Annotations@ISUS-1000mHousing.moAssembly_c", "DIMENSION", 0.3096700530224, -0.1114306517348, -0.1602471660753, False, 0, Nothing) Part.EditDelete ' 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.Save2 FALSE Set Part = Nothing swApp.CloseDoc "ISUS-1000mHousing.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("LOBOcont-logPCBsupport.SLDPRT") Set Part = Nothing swApp.CloseDoc "LOBOcont-logPCBsupport.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 ("ContrHousing - Sheet4") Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View51", "DRAWINGVIEW", 0.4210493948619, 0.1490606746312, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View51", "DRAWINGVIEW", 0.4347817398715, 0.2463314517826, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View51", "DRAWINGVIEW", 0.4344002858435, 0.1692777381176, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View51", "DRAWINGVIEW", 0.4187606706937, 0.1486792206032, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2150642197179, 0.04530517900313, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View51", "DRAWINGVIEW", 0.01136776874213, 0.1482977665751, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View51", "DRAWINGVIEW", 0.198661696512, 0.2535790783154, 0, False, 0, Nothing) Part.ViewDisplayHiddenGreyed Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View51", "DRAWINGVIEW", 0.1605162937075, 0.2547234403996, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View51", "DRAWINGVIEW", 0.4340188318154, 0.2253514802401, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View51", "DRAWINGVIEW", 0.4340188318154, 0.2253514802401, 0, False, 0, Nothing) Part.CreateUnfoldedViewAt2 0.4519471711335, 0.1973960200486, 0, 0 Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View75", "DRAWINGVIEW", 0.5084871474148, 0.1723144413385, 0, False, 0, Nothing) Part.CreateUnfoldedViewAt2 0.6030275290469, 0.1973960200486, 0, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View76", "DRAWINGVIEW", 0.5540065904229, 0.1398005534757, 0, False, 0, Nothing) Dim DrawView As Object Set DrawView = Part.SelectionManager.GetSelectedObject5(1) boolstatus = DrawView.AlignWithView(0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View76", "DRAWINGVIEW", 0.5364991123429, 0.1403007671351, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View75", "DRAWINGVIEW", 0.5024845835017, 0.1398005534757, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View76", "DRAWINGVIEW", 0.03978694852974, 0.306871915725, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.03128084870436, 0.3436209502453, -0.02644542913703, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3977394431968, 0.3082953408444, 0.04127499999987, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.201843, 0.347546, -1.67437e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Drawing View76", "DIMENSION", 0.2025565306483, 0.3468323692817, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD1@Drawing View76", "DIMENSION", 0.1968473412501, 0.3471891936191, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"2X", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"2X ", "", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Drawing View76", "DIMENSION", 0.1968473412501, 0.3493301396434, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View76", "DIMENSION", 0.2007724089613, 0.3450482475948, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Drawing View76", "DIMENSION", 0.2007724089613, 0.3450482475948, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3973826188595, 0.2975906107229, 0.04127499999987, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem512@Drawing View76", "CENTERMARKSYM", 0.3927439024735, 0.2883131779509, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.374546, 0.27404, -1.67437e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Drawing View76", "DIMENSION", 0.2007724089613, 0.3450482475948, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD2@Drawing View76", "DIMENSION", 0.3745458612669, 0.2740402044556, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1643763265483, 0.2843881102397, 0.04127499999987, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1629490291987, 0.3225683143397, 0.04127499999998, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.151887, 0.335771, -1.67437e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD2@Drawing View76", "DIMENSION", 0.3745458612669, 0.2740402044556, 0, False, 0, Nothing) Part.ClearSelection2 True Part.CreateLine2( -0.1794576651323, 0, 0, 0.1941374161079, 0, 0 ).ConstructionGeometry = TRUE Part.CreateLine2( -0.1794576651323, 0, 0, -0.1955147603145, -0.008206634927664, 0 ).ConstructionGeometry = TRUE Part.EditDelete Part.CreateLine2( -0.15636875, 0.01349375, 0, 0.18098135, 0.01349375, 0 ).ConstructionGeometry = TRUE Part.CreateLine2( 0.18098135, -0.01349375, 0, -0.15636875, -0.01349375, 0 ).ConstructionGeometry = TRUE Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.1950632195632, 0.3043702731332, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1947063952258, 0.3229251386771, 0.04127499999998, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.186499, 0.335414, -1.67437e-015) Part.ClearSelection2 True ' MSGBOX ' The sketch is no longer over defined. Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0.1897108545025, 0.2915245969874, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0.1922086248642, 0.3168591249416, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.190068, 0.335414, -1.67437e-015) Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.03199449737913, 0.3329162201238, -0.02482379971633, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem511@Drawing View76", "CENTERMARKSYM", -0.15636875, 0.01349375, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0598268, 0.336484, -1.67437e-015) Part.ClearSelection2 True Part.EditDelete boolstatus = Part.Extension.SelectByID("", "EDGE", 0.03114588286887, 0.273750718622, -0.02314728543348, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05821064811238, 0.2886679410257, 0.04127499999998, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0806926, 0.252526, -1.67437e-015) Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.09585919641245, 0.2926475395556, 0.04127499999998, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem510@Drawing View76", "CENTERMARKSYM", -0.15636875, -0.01349375, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.110275, 0.262896, -1.67437e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD4@Drawing View76", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch114@ContrHousing.SLDDRW", "DIMENSION", 0.2007324700898, 0.3350443842293, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"1", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"18", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"18 ", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"18 X", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"18 ", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"18", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"18X", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"18X ", "", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD3@Drawing View76", "DIMENSION", 0.164293942725, 0.3354942425919, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD3@Drawing View76", "DIMENSION", 0.1665432345377, 0.3363939593169, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"3", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"3X", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"3X ", "", 1,"", "", 0 Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("RD3@Drawing View76", "DIMENSION", 0.1620446509124, 0.337293676042, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD3@Drawing View76", "DIMENSION", 0.1629443676375, 0.3341446675043, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch114@ContrHousing.SLDDRW", "DIMENSION", 0.2007324700898, 0.3354942425919, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View76", "DRAWINGVIEW", 0.1638440843625, 0.3395429678546, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD3@Drawing View76", "DIMENSION", 0.1651936594501, 0.337293676042, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch114@ContrHousing.SLDDRW", "DIMENSION", 0.2011823284523, 0.3359441009544, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View76", "DIMENSION", 0.20433133699, 0.3440415514799, 0, False, 0, Nothing) Part.InsertBreakVertical boolstatus = Part.Extension.SelectByID("Break Line2", "BREAKLINE", 0.2164775127783, 0.2986058568646, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Break Line2", "BREAKLINE", 0.2016321868149, 0.3089525992027, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1332220089953, 0.2884631803867, 0.04127499999998, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.172198, 0.262023, -1.67437e-015) Part.ClearSelection2 True Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("RD6@Drawing View76", "DIMENSION", 0.1752548513755, 0.2616940331862, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD6@Drawing View76", "DIMENSION", 0.1738647711877, 0.2635474734365, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD6@Drawing View76", "DIMENSION", 0.170157890687, 0.2644741935617, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"3", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"38", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"38X", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"38X ", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"38X t", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"38X th", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"38X thr", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"38X thru", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"3", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"38", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"38X", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"38X ", "", 1,"", "", 0 Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"38X ", " ", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"38X ", " t", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"38X ", " th", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"38X ", " thr", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"38X ", " thru", 1,"", "", 0 Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD6@Drawing View76", "DIMENSION", 0.1673777303115, 0.2644741935617, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View76", "DRAWINGVIEW", 0.2007396548177, 0.2598405929359, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("RD4@Drawing View76", "DIMENSION", 0.08258283885826, 0.2515001118093, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"4", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"4X", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"4X ", "", 1,"", "", 0 Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD5@Drawing View76", "DIMENSION", 0.1099210825508, 0.2635474734365, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD5@Drawing View76", "DIMENSION", 0.1099210825508, 0.2635474734365, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD5@Drawing View76", "DIMENSION", 0.1099210825508, 0.2635474734365, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD5@Drawing View76", "DIMENSION", 0.1099210825508, 0.2635474734365, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"3", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"30", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"30X", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"30X ", "", 1,"", "", 0 Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View76", "DRAWINGVIEW", 0.02836971153569, 0.3613164466422, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD5@Drawing View76", "DIMENSION", 0.1131646029889, 0.306639959257, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD6@Drawing View76", "DIMENSION", 0.1752548513755, 0.3071033193196, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD4@Drawing View76", "DIMENSION", 0.08258283885826, 0.2969093979427, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.05941483572895, 0.3474156447646, 0.04127499999998, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point13", "SKETCHPOINT", -0.1794576651323, 0, 0, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameState = 1 Dim Note As Object Dim Annotation As Object Dim TextFormat As Object Set Note = Part.InsertNote("") 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.01179355380001, 0.3408289436075, 0) boolstatus = Annotation.SetTextFormat(0, True, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("DetailItem518@Drawing View76", "NOTE", -0.01037352389053, 0.339408913698, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View76", "DRAWINGVIEW", 0.02039379081499, 0.3360955105759, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem518@Drawing View76", "NOTE", 0.01802707429918, 0.3484024364581, 0, False, 0, Nothing) Part.EditCopy boolstatus = Part.Extension.SelectByID("", "FACE", 0.248545262939, 0.354082556096, 0.04127499999998, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View76", "DRAWINGVIEW", 0.4232089418057, 0.3498224663676, 0, False, 0, Nothing) Part.Paste boolstatus = Part.Extension.SelectByID("DetailItem519@Drawing View76", "NOTE", 0.426995688231, 0.3479290931549, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View76", "DRAWINGVIEW", 0.4222622551994, 0.3337287940601, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View51", "DRAWINGVIEW", 0.4336224944753, 0.2210730879076, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3222357124259, 0.3557376485573, 0.04127499999998, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.363968, 0.380026, -1.67437e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD7@Drawing View76", "DIMENSION", 0.3639683050345, 0.3800264590702, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"2R", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"2XR", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"2X R", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3421083755729, 0.353308767506, 0.04127499999998, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3432124124144, 0.3663364022357, -0.0381000000001, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.351603, 0.373623, -1.67437e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD7@Drawing View76", "DIMENSION", 0.3639683050345, 0.3800264590702, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD8@Drawing View76", "DIMENSION", 0.3418875682046, 0.3727398159164, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD8@Drawing View76", "DIMENSION", 0.3412251460997, 0.3747270822311, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3775527220893, 0.3623324698797, 0.04127499999998, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.4076972503211, 0.355883640457, 0.04127499999987, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.39375, 0.380329, -1.67437e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD8@Drawing View76", "DIMENSION", 0.3412251460997, 0.3747270822311, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD9@Drawing View76", "DIMENSION", 0.3937497820348, 0.3797293120433, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3205630667257, 0.3620325243251, 0.04127499999998, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0.3777026948666, 0.3618825515479, 0.04127499999998, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD9@Drawing View76", "DIMENSION", 0.3937497820348, 0.3797293120433, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3205630667257, 0.362482442657, 0.04127499999998, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3777026948666, 0.3621824971024, 0.04127499999998, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.346058, 0.383629, -1.67437e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD9@Drawing View76", "DIMENSION", 0.3937497820348, 0.3797293120433, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD10@Drawing View76", "DIMENSION", 0.3446654634799, 0.3832356462473, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View76", "DIMENSION", 0.2097135069982, 0.3873517009765, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD10@Drawing View76", "DIMENSION", 0.3458913901577, 0.3823997779526, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD7@Drawing View76", "DIMENSION", 0.3601969455603, 0.3799238164406, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD8@Drawing View76", "DIMENSION", 0.3491926721736, 0.3733212524086, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD8@Drawing View76", "DIMENSION", 0.350568206347, 0.3735963592433, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD9@Drawing View76", "DIMENSION", 0.3888080563655, 0.3799238164406, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Drawing View76", "DIMENSION", 0.2108139343368, 0.3903778761579, 0, False, 0, Nothing) Part.ClearSelection2 True Set Note = Part.InsertNote("This recess front side only") 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(True, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.4284234405573, 0.3724959319046, 0) boolstatus = Annotation.SetTextFormat(0, True, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("DetailItem520@Drawing View76", "NOTE", 0.4520826283386, 0.3700199703926, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem520@Drawing View76", "NOTE", 0.428698547392, 0.3727710387393, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem520@Drawing View76", "NOTE", 0.3978865819094, 0.4192640937978, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Drawing View76", "DIMENSION", 0.2107371614126, 0.3947276317886, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View76", "DRAWINGVIEW", 0.05497275272978, 0.39609000271, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD3@Drawing View76", "DIMENSION", 0.1626000555223, 0.3697508315625, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem520@Drawing View76", "NOTE", 0.2852134384505, 0.3892781481029, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View76", "DRAWINGVIEW", 0.2974747767433, 0.3956358790695, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem520@Drawing View76", "NOTE", 0.2947500349005, 0.3942735081481, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.03786850739751, 0.3168162719177, 0.03636498583921, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.04063071831272, 0.3172766404035, 0.03674935920401, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0567436, 0.295639, -1.67437e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD11@Drawing View76", "DIMENSION", 0.05674361531812, 0.2951789530818, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD11@Drawing View76", "DIMENSION", 0.05628324683225, 0.2960996900536, 0, False, 0, Nothing) Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.SetPickMode Part.SetPickMode Part.SetPickMode boolstatus = Part.Extension.SelectByID("Drawing View51", "DRAWINGVIEW", 0.4374683531315, 0.2242822062581, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View76", "DRAWINGVIEW", 0.1000182529898, 0.2914960051949, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD1@Drawing View76", "DIMENSION", 0.2095859526265, 0.2624927905852, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View53", "DRAWINGVIEW", 0.1661078111504, 0.07672016885555, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View54", "DRAWINGVIEW", 0.1618941598071, 0.05450273449989, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View76", "DRAWINGVIEW", -0.004353538647296, 0.1954685248944, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View76", "DIMENSION", 0.2109257390747, 0.2533104660617, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View76", "DRAWINGVIEW", 0.1354630741081, 0.2460323410141, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.02858955367316, 0.2019805315159, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem518@Drawing View76", "NOTE", -0.1960937498899, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View76", "DRAWINGVIEW", 0.0251420207559, 0.1924040511902, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem518@Drawing View76", "NOTE", -0.1924842479243, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.0305048497383, 0.2019805315159, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point13", "SKETCHPOINT", -0.1960937498899, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem518@Drawing View76", "NOTE", 0.02705731682104, 0.1935532288292, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View76", "DRAWINGVIEW", 0.02590813918196, 0.1970007617465, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem519@Drawing View76", "NOTE", 0.4204591286013, 0.2004482946638, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.3986247534587, 0.203512768368, 0.04127499999998, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem519@Drawing View76", "NOTE", 0.1941374161079, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.4108826482756, 0.203512768368, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point14", "SKETCHPOINT", 0.1941374161079, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point14", "SKETCHPOINT", 0.1941374161079, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point14", "SKETCHPOINT", 0.1941374161079, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem519@Drawing View76", "NOTE", 0.4078181745714, 0.1958515841074, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem512@Drawing View76", "CENTERMARKSYM", 0.4043706416541, 0.1889565182729, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1829624165236, 0.270548130648, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2463761449642, 0.04705675316043, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.1908917681025, 0.04112988608539, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D2@Sketch1@LOBOcont-logPCBsupport-1@Drawing View69", "DIMENSION", 0.313587260344, 0.105096133565, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"", "", 1,"", "", 0 Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.2484987979964, 0.0497335334072, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.2282989303712, 0.04225210095345, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View66", "DRAWINGVIEW", 0.1564771788152, 0.01718930223339, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.1777992613084, 0.02654109280058, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View66", "DRAWINGVIEW", 0.1572253220606, 0.01943373196952, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View66", "DRAWINGVIEW", 0.1572253220606, 0.01943373196952, 0, False, 0, Nothing) Part.SelectionManager.GetSelectedObject3(1).SetDisplayTangentEdges2 0 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.2099694208595, 0.04187802933077, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.195006555952, 0.0407558144627, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3610932045375, 0.1034617921427, 0, False, 0, Nothing) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True Set Note = Part.InsertNote("A") 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.3421714168141, 0.128764182703, 0) boolstatus = Annotation.SetTextFormat(0, True, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw Set Note = Part.InsertNote("A") 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.3432715207515, 0.1267839956157, 0) boolstatus = Annotation.SetTextFormat(0, True, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("DetailItem522@Sheet Format1", "NOTE", 0.3432715207515, 0.1243637669534, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem521@Sheet Format1", "NOTE", 0.3432715207515, 0.1261239332533, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("DetailItem522@Sheet Format1", "NOTE", 0.361313225325, 0.1149028730917, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3819951793482, 0.09378087749351, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3616016097143, 0.2272843837117, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem296@Sheet Format1", "NOTE", 0.3262411260119, 0.2624091308561, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem296@Sheet Format1", "NOTE", 0.3254640237107, 0.2630102453526, 0, False, 0, Nothing) Part.EditCopy boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3243881175943, 0.2595869077096, 0, False, 0, Nothing) Part.Paste boolstatus = Part.Extension.SelectByID("DetailItem523@Sheet Format1", "NOTE", 0.3258552622985, 0.2583153822994, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem523@Sheet Format1", "NOTE", 0.3254640237107, 0.2594890980627, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem1@Sheet Format1", "NOTE", 0.3357340366397, 0.2626190067648, 0, False, 0, Nothing) Part.EditCopy boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3357340366397, 0.2591956691218, 0, False, 0, Nothing) Part.Paste boolstatus = Part.Extension.SelectByID("DetailItem524@Sheet Format1", "NOTE", 0.3372011813439, 0.2586088112402, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem524@Sheet Format1", "NOTE", 0.3336800340539, 0.2594890980627, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem524@Sheet Format1", "NOTE", 0.3429719505135, 0.2593912884157, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem301@Sheet Format1", "NOTE", 0.4050810763223, 0.2627168164118, 0, False, 0, Nothing) Part.EditCopy boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.4066460306733, 0.2591956691218, 0, False, 0, Nothing) Part.Paste boolstatus = Part.Extension.SelectByID("DetailItem525@Sheet Format1", "NOTE", 0.4074285078489, 0.2582175726524, 0, False, 0, Nothing) Part.EditCopy boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3963760177443, 0.2591956691218, 0, False, 0, Nothing) Part.Paste boolstatus = Part.Extension.SelectByID("DetailItem526@Sheet Format1", "NOTE", 0.3981365913893, 0.2582175726524, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem526@Sheet Format1", "NOTE", 0.3974519238607, 0.2590978594749, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem526@Sheet Format1", "NOTE", 0.3984300203301, 0.2590978594749, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem525@Sheet Format1", "NOTE", 0.4060591727917, 0.2594890980627, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem301@Sheet Format1", "NOTE", 0.4058635534978, 0.2622277681771, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line94", "SKETCHSEGMENT", 0.402146786914, 0.2616409102954, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem78@Sheet Format1", "NOTE", 0.4071350789081, 0.2660423444079, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem77@Sheet Format1", "NOTE", 0.3983322106832, 0.2660423444079, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3590127326121, 0.2447198413743, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3492317679178, 0.2479475597234, 0, False, 0, Nothing) Part.EditSheet Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SaveTemplate Part.EditSketch Part.EditSketch 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 View3", "DRAWINGVIEW", 0.3036508654581, 0.1219772224065, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2996621897555, 0.2572598066545, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.SaveTemplate 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 boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.02145205949619, 0.1289574048862, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.FileFind Part.EditSketch Part.EditSketch Part.SaveTemplate Part.ClearSelection2 True Part.EditSketch Set Part = swApp.NewDrawing2 (13, """", 2, 0.279400, 0.431800) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1331137384844, 0.05821072136513, 0, False, 0, Nothing) Part.ClearSelection2 True ' MSGBOX ' The current sheet format has notes and sketch data. ' Do you want to delete these items? Part.SetupSheet4 "Sheet2", 12, 12, 1, 1, True, "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\Cont.slddrt", 0.4318, 0.2794, "Default", True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1563462466568, 0.03595986846766, 0, False, 0, Nothing) Part.ClearSelection2 True ' MSGBOX ' The current sheet format has notes and sketch data. ' Do you want to delete these items? Part.SetupSheet4 "Sheet3", 12, 12, 1, 1, False, "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\Cont.slddrt", 0.4318, 0.2794, "Default", True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2230956694202, 0.04705675316043, 0, False, 0, Nothing) Part.ClearSelection2 True ' MSGBOX ' The current sheet format has notes and sketch data. ' Do you want to delete these items? Part.SetupSheet4 "Sheet4", 12, 12, 1, 4, False, "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\Cont.slddrt", 0.4318, 0.2794, "Default", True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.2073509195007, 0.05310017801139, 0, False, 0, Nothing) Part.ClearSelection2 True ' MSGBOX ' The current sheet format has notes and sketch data. ' Do you want to delete these items? Part.SetupSheet4 "Sheet5", 12, 12, 1, 4, False, "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Controller\Cont.slddrt", 0.4318, 0.2794, "Default", True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.2077249911234, 0.03888545634927, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.Save2 FALSE Part.PrintDirect Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD3@Drawing View76", "DIMENSION", 0.1763456326155, 0.2319981938711, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"3X ", " ", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"3X ", " O", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"3X ", " OC", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch114@ContrHousing.SLDDRW", "DIMENSION", 0.2195562860608, 0.2296714663779, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"18X ", " ", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"18X ", " O", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"18X ", " OC", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem518@Drawing View76", "NOTE", 0.02510834555695, 0.202747905385, 0, False, 0, Nothing) Part.EditCopy Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.01846055271921, 0.09139737535295, 0, False, 0, Nothing) Part.Paste boolstatus = Part.Extension.SelectByID("DetailItem527@Drawing View54", "NOTE", 0.02145205949619, 0.08807347893408, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.0364095933811, 0.1223096120484, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem422@Drawing View54", "CENTERMARKSYM", 0.03707437266487, 0.09106498571106, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem527@Drawing View54", "NOTE", 0.01979011128676, 0.09073259606917, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.03175613839468, 0.09438888212993, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.Save2 FALSE Part.EditSketch Set Part = Nothing swApp.CloseDoc "ContrHousing - Sheet1" swApp.ExitApp End Sub