' ****************************************************************************** ' swxJRNL.swj - journal recorded on 06/16/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\OsmoSamplers\JdFseafloorOS\Lock-T-Stem.SLDPRT", 1, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("Lock-T-Stem.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("Chamfer1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ShowNamedView2 "*Front", 1 Part.ShowNamedView2 "*Back", 2 Part.ShowNamedView2 "*Left", 3 boolstatus = Part.Extension.SelectByID("Chamfer1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Chamfer1@Lock-T-Stem.SLDPRT", "DIMENSION", 0, -0.0004811928389163, -0.001016166053947, False, 0, Nothing) Part.ShowNamedView2 "*Front", 1 Part.ShowNamedView2 "*Back", 2 boolstatus = Part.Extension.SelectByID("D2@Chamfer1@Lock-T-Stem.SLDPRT", "DIMENSION", 0.01123240522349, -0.000877065070057, 0.04773149907438, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Chamfer1@Lock-T-Stem.SLDPRT", "DIMENSION", 0.01288908368916, -0.0004385325350285, 0.04773149907438, False, 0, Nothing) Part.ShowNamedView2 "*Isometric", 7 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Chamfer1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Chamfer1@Lock-T-Stem.SLDPRT", "DIMENSION", -0.02417624024942, -0.0373856851157, -0.04751581713926, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Chamfer1@Lock-T-Stem.SLDPRT", "DIMENSION", -0.03125870940457, -0.04241909388534, -0.03537987617941, False, 0, Nothing) Part.ClearSelection2 True ' MSGBOX ' Save changes to Lock-T-Stem.SLDPRT? Set Part = Nothing swApp.CloseDoc "Lock-T-Stem.SLDPRT" Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ElkMoorV2\RadioTop31.SLDPRT", 1, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("RadioTop31.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("", "FACE", -0.02427963398091, 0.009906000000001, -0.01234431887212, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditSuppress Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.02532289802431, 0.01498600000002, 0.009821111573956, False, 0, Nothing) Part.ClearSelection2 True Part.CreateCircle 0.014224, -0.002286, 0, 0.00143891775059, -0.008156984200184, 0 Part.DeSelectByID "Arc1", "SKETCHSEGMENT", 0.02214907094658, -0.01380173768769, 0 boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0161022430014, 0.01475873213735, -0.006346563737623, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.01211156510377, 0.03570426472419, 0.01921914700113, True, 0, Nothing) Part.SketchAddConstraints "sgCONCENTRIC" Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.006065559292898, 0.03172239377706, 0.01471653702332, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0160727, 0.014986, -0.0657594) Part.ClearSelection2 True Part.Parameter("D1@Sketch9").SystemValue = 0.0381 Part.ClearSelection2 True Part.SetPickMode boolstatus = Part.Extension.SelectByID("", "EDGE", -0.01666587161347, 0.01492140850485, -0.006130596780906, False, 0, Nothing) boolstatus = Part.SketchUseEdge2(False) Part.ClearSelection2 True Part.ClearSelection2 True Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.0127, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", -0.02167716196143, 0.0149222048355, 0.01687050915473, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", -0.02167716196143, 0.0149222048355, 0.01687050915473, False, 1, Nothing) Part.FeatureFillet5 195, 0.003175, 0, 0, 0, 0, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Fillet3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Fillet3@RadioTop31.SLDPRT", "DIMENSION", -0.01588984265799, 0.01807929496921, 0.02462594126545, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Fillet3@RadioTop31.SLDPRT", "DIMENSION", -0.01588984265799, 0.01807929496921, 0.02462594126545, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Fillet3@RadioTop31.SLDPRT", "DIMENSION", -0.01588984265799, 0.01807929496921, 0.02462594126545, False, 0, Nothing) Part.Parameter("D1@Fillet3").SystemValue = 0.0015875 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Default", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Default" boolstatus = Part.Extension.SelectByID("Offset antennae@RadioTop31.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Offset antennae" boolstatus = Part.Extension.SelectByID("Default@RadioTop31.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.EditDelete Part.DeleteConfiguration "Default" boolstatus = Part.Extension.SelectByID("", "FACE", -0.005831582890323, 0.0225155368683, 0.00259471842223, False, 0, Nothing) Part.ClearSelection2 True 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.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Sketch4@RadioTop31.SLDPRT", "DIMENSION", -0.02081498630958, -0.0153443022857, -0.01998527047552, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True boolstatus = Part.SetUserPreferenceToggle(6, False) boolstatus = Part.SetUserPreferenceToggle(13, False) boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Sketch9@RadioTop31.SLDPRT", "DIMENSION", 0.005001977092354, 0.03185857227531, -0.04002786435887, False, 0, Nothing) Part.Parameter("D1@Sketch9").SystemValue = 0.04191 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Sketch9@RadioTop31.SLDPRT", "DIMENSION", 0.005027403607749, 0.0322638758934, -0.04024897913003, False, 0, Nothing) Part.Parameter("D1@Sketch9").SystemValue = 0.041275 Part.ClearSelection2 True ' MSGBOX ' C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ElkMoorV2\RadioTop31.SLDPRT has not been rebuilt successfully since the last feature change or an externally referenced model has changed. ' It is safest to rebuild before saving. ' Rebuild now? Part.Save2 FALSE boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Sketch9@RadioTop31.SLDPRT", "DIMENSION", 0.05711617693719, -0.0449175590373, 0.01408239366693, False, 0, Nothing) Part.Parameter("D1@Sketch9").SystemValue = 0.043815 Part.EditRebuild Part.ClearSelection2 True Part.ShowNamedView2 "*Top", 5 boolstatus = Part.Extension.SelectByID("", "FACE", -0.01950150032616, 0.02768600000002, -0.01142143944336, False, 0, Nothing) Part.ClearSelection2 True Part.CreateCircle 0.01397, -0.003556, 0, -0.01804344422701, -0.0132440095673, 0 Part.ClearSelection2 True Part.CreateCircle 0.011938, -0.001778, 0, -0.01330476190476, -0.01458056099152, 0 boolstatus = Part.Extension.SelectByID("", "EDGE", -0.01597786475321, 0.02768600000002, -0.02174933681235, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.01087466840618, 0.008001, -0.03693742117852, True, 0, Nothing) Part.SketchAddConstraints "sgCONCENTRIC" Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.004920939334638, 0.008001, -0.02174933681235, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0258197, 0.027686, -0.0323202) Part.ClearSelection2 True Part.Parameter("D1@Sketch10").SystemValue = 0.04826 boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.01391228527941, 0.008001, -0.02004827136334, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0244832, 0.027686, -0.038031) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D2@Sketch10").SystemValue = 0.0404368 boolstatus = Part.Extension.SelectByID("D2@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.01780043487715, 0.008001, -0.02770306588389, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("D2@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.02047353772559, 0.008001, -0.01895472928898, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("D1@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.01998751902588, 0.008001, -0.02879660795825, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("D1@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.02411867797347, 0.008001, -0.02964714068276, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.0254552293977, 0.008001, -0.01944074798869, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.02642726679713, 0.008001, -0.01871171993912, False, 0, Nothing) 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,"", "", 1,"", "1.", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5"", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5" ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5" S", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5" Sc", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5" Sch", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5" Sche", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5" Sched", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5" Sched ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5" Sched 4", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5" Sched 40", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5" Sched 40 ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5" Sched 40 P", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5" Sched 40 PV", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5" Sched 40 PVC", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5" Sched 40 PV", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5" Sched 40 P", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5" Sched 40 ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5" Sched 40 p", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5" Sched 40 pi", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5" Sched 40 pip", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5" Sched 40 pipe", 0 boolstatus = Part.Extension.SelectByID("D2@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.02241761252446, 0.008001, -0.01737516851489, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.02509071537291, 0.008001, -0.02296438356164, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.03007240704501, 0.008001, -0.006075233746467, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.02436168732333, 0.008001, -0.02478695368558, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.03371754729289, 0.008001, -0.01239347684279, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "1.5" Sched 40 pipe", 0 boolstatus = Part.Extension.SelectByID("D2@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.028371341596, 0.008001, -0.01348701891716, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.03165196781909, 0.008001, -0.02357190693629, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.03007240704501, 0.008001, -0.01640313111546, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.02193159382474, 0.008001, -0.01567410306588, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.02363265927376, 0.008001, -0.02612350510981, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", " ", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", " O", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", " OD", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("D2@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.02691328549685, 0.008001, -0.01944074798869, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " ", 1,"", "1.5" Sched 40 pipe", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " I", 1,"", "1.5" Sched 40 pipe", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", " ID", 1,"", "1.5" Sched 40 pipe", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.02460469667319, 0.008001, -0.02685253315938, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.02752080887149, 0.008001, -0.02551598173516, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.008444574907589, 0.02768600000002, -0.004009654272668, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.009173602957165, 0.02768600000002, -0.004009654272668, False, 0, Nothing) boolstatus = Part.SketchUseEdge2(False) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc4", "SKETCHSEGMENT", 0.008687584257447, 0.02768600000002, -0.004374168297456, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0294649, 0.027686, 0.0290396) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D3@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.03104444444444, 0.008001, 0.02952563600783, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("D3@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.02266062187432, 0.008001, -0.003037616873233, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D3@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.0312874537943, 0.008001, -0.006439747771255, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "B", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "Bo", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "Bos", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "Boss", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "Boss ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "Boss D", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "Boss Di", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "Boss Dia", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "Boss Diam", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "Boss Diame", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "Boss Diamet", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "Boss Diamete", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "Boss Diameter", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "Boss Diameter", 0 boolstatus = Part.Extension.SelectByID("D3@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.02035203305066, 0.008001, -0.004009654272668, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D3@Sketch10@RadioTop31.SLDPRT", "DIMENSION", 0.02387566862361, 0.008001, -0.003159121548163, False, 0, Nothing) Part.ClearSelection2 True Part.InsertSketch2 True Part.Save2 FALSE boolstatus = Part.Extension.SelectByID("Sketch10", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc4@Sketch10", "EXTSKETCHSEGMENT", -0.006206189878828, -0.01106772517348, 0, False, 0, Nothing) Part.ClearSelection2 True swApp.LoadFile2 "\\Tornado\ProjectLibrary\600043-SolidState_OA\100363.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("\\Tornado\ProjectLibrary\600043-SolidState_OA\100363.SLDDRW", 3, 0, "", longstatus, longwarnings) ' MSGBOX ' One or more models referenced by this drawing have rebuild errors. ' The errors are indicated in the FeatureManager design tree of ' the model. swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("100363 - Sheet2") Set Part = Nothing swApp.CloseDoc "100363 - Sheet2" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("RadioTop31.SLDPRT") swApp.LoadFile2 "\\Tornado\ProjectLibrary\600043-SolidState_OA\AlumPart_Test.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("\\Tornado\ProjectLibrary\600043-SolidState_OA\AlumPart_Test.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("AlumPart_Test.SLDPRT") boolstatus = Part.Extension.SelectByID("", "FACE", 0.02289716908649, 0, 0.001864824589916, False, 0, Nothing) Part.ShowNamedView2 "*Front", 1 Part.ClearSelection2 True ' MSGBOX ' Save changes to AlumPart_Test.SLDPRT? Set Part = Nothing swApp.CloseDoc "AlumPart_Test.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("RadioTop31.SLDPRT") swApp.LoadFile2 "\\Tornado\ProjectLibrary\200022-Isus_housing\isusHousing.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("\\Tornado\ProjectLibrary\200022-Isus_housing\isusHousing.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 ("isusHousing.SLDASM") swApp.LoadFile2 "\\Tornado\ProjectLibrary\200022-Isus_housing\isusHousingFEA.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("\\Tornado\ProjectLibrary\200022-Isus_housing\isusHousingFEA.SLDASM", 2, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("isusHousingFEA.SLDASM") Set Part = Nothing swApp.CloseDoc "isusHousingFEA.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("isusHousing.SLDASM") Set Part = Nothing swApp.CloseDoc "isusHousing.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 ("RadioTop31.SLDPRT") ' MSGBOX ' Save changes to RadioTop31.SLDPRT? Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "RadioTop31.SLDPRT" Set Part = swApp.OpenDoc6 ("\\Tornado\ProjectLibrary\200022-Isus_housing\ISUS.SLDASM", 2, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("ISUS.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = Nothing swApp.CloseDoc "ISUS.SLDASM" Set Part = swApp.OpenDoc6 ("\\Tornado\ProjectLibrary\200022-Isus_housing\isusHousingFEA.SLDASM", 2, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("isusHousingFEA.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ExitApp End Sub