' ****************************************************************************** ' swxJRNL.swj - journal recorded on 01/31/03 by jon ' ****************************************************************************** Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long Dim Annotation As Object Dim Gtol As Object Dim DatumTag As Object Dim FeatureData As Object Dim Feature As Object Dim Component As Object Sub main() Set swApp = CreateObject ("SldWorks.Application") Set Part = swApp.OpenDoc4 ("C:\Jon\SW_files\Keck_BroadBand_Seis\guralp housing\drawings\Assembly_100252.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("Assembly_100252 - 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 Set Part = Nothing swApp.CloseDoc "Assembly_100252 - Sheet1" Set Part = swApp.OpenDoc4 ("C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Ball_Case_Assembly.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("Ball_Case_Assembly - Sheet2") 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.SelectByID "Drawing View8", "DRAWINGVIEW", 0.3259303863813, 0.1702760993438, 0 Part.OpenCompFile swApp.LoadFile2 "C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Ball_Case.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Ball_Case.SLDASM", 2, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Part.ClearSelection Part.SelectByID "Section@Ball_Case.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Section" Part.SelectByID "", "FACE", -0.1211704124572, -0.1277385216177, 0 Part.ClearSelection Part.SelectByID "Socket Head Cap Screw_AI-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.SelectByID "Socket Head Cap Screw_AI-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.SelectByID "Socket Head Cap Screw_AI-2@Ball_Case", "COMPONENT", 0, 0, 0 Part.SelectByID "Socket Head Cap Screw_AI-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.SelectByID "Socket Head Cap Screw_AI-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.SelectByID "Socket Head Cap Screw_AI-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.SelectByID "Socket Head Cap Screw_AI-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.AndSelectByID "", "FACE", -0.1158858299537, -0.1242492000001, -0.00140177472997 Part.AndSelectByID "", "FACE", -0.1121435208526, -0.1555750000001, -0.00435690771684 Part.ClearSelection Part.SelectByID "Socket Head Cap Screw_AI-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.SelectByID "Socket Head Cap Screw_AI-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.EditPart Part.ClearSelection Part.SelectByID "Equations", "EQNFOLDER", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Equations", "EQNFOLDER", 0, 0, 0 Part.SelectByID "Equations", "EQNFOLDER", 0, 0, 0 Part.SelectByID "Equations", "EQNFOLDER", 0, 0, 0 Part.SelectByID "Equations", "EQNFOLDER", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "BodySke@Socket Head Cap Screw_AI-1@Ball_Case", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.EditAssembly Part.ClearSelection Part.SelectByID "Section", "CONFIGURATIONS", 0, 0, 0 Part.SelectByID "Section", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowNamedView2 "*Front", 1 Part.SelectByID "Socket Head Cap Screw_AI-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.OpenCompFile swApp.LoadFile2 "C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Socket Head Cap Screw_AI.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Socket Head Cap Screw_AI.SLDPRT", 1, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Socket Head Cap Screw_AI.SLDPRT") Part.ClearSelection Part.SelectByID "Equations", "EQNFOLDER", 0, 0, 0 Part.SelectByID "BodySke", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "BodySke", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Thread_length@BodySke@Socket Head Cap Screw_AI.SLDPRT", "DIMENSION", 0.0303525416993, -0.01334173914928, 0.1631999940146 Part.SelectByID "Thread_nom@BodySke@Socket Head Cap Screw_AI.SLDPRT", "DIMENSION", 0.03280704985638, -0.004478237470926, 0.1631999940146 Part.SelectByID "Thread_nom@BodySke@Socket Head Cap Screw_AI.SLDPRT", "DIMENSION", 0.03280704985638, -0.004478237470926, 0.1631999940146 Part.Parameter("Thread_nom@BodySke").SystemValue = 0.0508 Part.SelectByID "Thread_nom@BodySke@Socket Head Cap Screw_AI.SLDPRT", "DIMENSION", 0.03348885767779, -0.004614599035209, 0.1631999940146 Part.SelectByID "Length@BodySke@Socket Head Cap Screw_AI.SLDPRT", "DIMENSION", 0.03294341142066, 0.02988487672822, 0.1631999940146 Part.SelectByID "Length@BodySke@Socket Head Cap Screw_AI.SLDPRT", "DIMENSION", 0.03294341142066, 0.02988487672822, 0.1631999940146 Part.SelectByID "Thread_length@BodySke@Socket Head Cap Screw_AI.SLDPRT", "DIMENSION", 0.0295343723136, -0.01375082384213, 0.1631999940146 Part.SelectByID "Thread_length@BodySke@Socket Head Cap Screw_AI.SLDPRT", "DIMENSION", 0.0295343723136, -0.01375082384213, 0.1631999940146 Part.SelectByID "Thread_length@BodySke@Socket Head Cap Screw_AI.SLDPRT", "DIMENSION", 0.03103434952071, -0.01334173914928, 0.1631999940146 Part.Parameter("Thread_length@BodySke").SystemValue = 0.0381 Part.ClearSelection Part.InsertSketch Part.SelectByID "Socket Head Cap Screw_AI.SLDPRT", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.AddConfiguration "HX-SHCS0.25-28x1.5x.75-N","","",0,0,0,1,0 Part.SelectByID "BodySke", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Thread_length@BodySke@Socket Head Cap Screw_AI.SLDPRT", "DIMENSION", 0.0318525189064, -0.01306901602071, 0.1631999940146 Part.EditRebuild Part.SelectByID "Thread_nom@BodySke@Socket Head Cap Screw_AI.SLDPRT", "DIMENSION", 0.03103434952071, -0.004614599035209, 0.1631999940146 Part.EditRebuild Part.SelectByID "Length@BodySke@Socket Head Cap Screw_AI.SLDPRT", "DIMENSION", 0.03307977298495, 0.02961215359966, 0.1631999940146 Part.EditRebuild Part.ClearSelection Part.SelectByID "BodySke", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.Save2 FALSE Part.SelectByID "Thread_nom@BodySke@Socket Head Cap Screw_AI.SLDPRT", "DIMENSION", 0.02707986415652, -0.005569129985185, 0.1631999940146 Part.EditRebuild Part.SelectByID "Length@BodySke@Socket Head Cap Screw_AI.SLDPRT", "DIMENSION", 0.02585261007798, 0.03056668454963, 0.1631999940146 Part.EditRebuild Part.ClearSelection Part.SelectByID "HX-SHCS 0.25-28x2x2-N@Socket Head Cap Screw_AI.SLDPRT", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "HX-SHCS 0.25-28x2x2-N" Part.SelectByID "HX-SHCS0.25-28x1.5x.75-N@Socket Head Cap Screw_AI.SLDPRT", "CONFIGURATIONS", 0, 0, 0 Part.SelectByID "HX-SHCS0.25-28x1.5x.75-N@Socket Head Cap Screw_AI.SLDPRT", "CONFIGURATIONS", 0, 0, 0 Part.EditConfiguration "HX-SHCS0.25-28x1.5x.75-N","HX-SHCS0.25-28x1.375x.75-N","","",0,0,0,1,0 Part.ClearSelection Part.SelectByID "HX-SHCS0.25-28x1.375x.75-N@Socket Head Cap Screw_AI.SLDPRT", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "HX-SHCS0.25-28x1.375x.75-N" Part.SelectByID "Base-Revolve", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Base-Revolve", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Base-Revolve", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Equations", "EQNFOLDER", 0, 0, 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Part.SelectByID "Socket Head Cap Screw_AI-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.CompConfigProperties3 2, 0, 1, 1 Part.ClearSelection Part.ViewZoomTo2 -0.164722, -0.0989386, 1.19194e-015, -0.0705949, -0.19166, 1.83941e-015 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Socket Head Cap Screw_AI.SLDPRT") Part.SelectByID "HX-SHCS 0.25-28x2x2-N@Socket Head Cap Screw_AI.SLDPRT", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "HX-SHCS 0.25-28x2x2-N" Part.SelectByID "HX-SHCS0.25-28x1.375x.75-N@Socket Head Cap Screw_AI.SLDPRT", "CONFIGURATIONS", 0, 0, 0 Part.SelectByID "HX-SHCS0.25-28x1.375x.75-N@Socket Head Cap Screw_AI.SLDPRT", "CONFIGURATIONS", 0, 0, 0 ' MSGBOX ' The configuration is being referenced by an open document. Can't change name. Part.ClearSelection Part.SelectByID "HX-SHCS0.25-28x1.375x.75-N@Socket Head Cap Screw_AI.SLDPRT", "CONFIGURATIONS", 0, 0, 0 Part.SelectByID "HX-SHCS0.25-28x1.375x.75-N@Socket Head Cap Screw_AI.SLDPRT", "CONFIGURATIONS", 0, 0, 0 ' MSGBOX ' The configuration is being referenced by an open document. Can't change name. Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Part.SelectByID "Socket Head Cap Screw_AI-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.CompConfigProperties3 2, 0, 1, 1 Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Socket Head Cap Screw_AI.SLDPRT") Part.SelectByID "HX-SHCS0.25-28x1.375x.75-N@Socket Head Cap Screw_AI.SLDPRT", "CONFIGURATIONS", 0, 0, 0 Part.EditConfiguration "HX-SHCS0.25-28x1.375x.75-N","HX-SHCS0.25-28x1.5x.75-N","","",0,0,0,1,0 Part.SelectByID "HX-SHCS0.25-28x1.5x.75-N@Socket Head Cap Screw_AI.SLDPRT", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "HX-SHCS0.25-28x1.5x.75-N" Part.SelectByID "Base-Revolve", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Length@BodySke@Socket Head Cap Screw_AI.SLDPRT", "DIMENSION", 0.02407990974231, 0.03097576924248, 0.1631999940146 Part.EditRebuild Part.SelectByID "Thread_nom@BodySke@Socket Head Cap Screw_AI.SLDPRT", "DIMENSION", 0.02939801074932, -0.005569129985185, 0.1631999940146 Part.SelectByID "Thread_nom@BodySke@Socket Head Cap Screw_AI.SLDPRT", "DIMENSION", 0.02817075667078, -0.01593260887064, 0.1631999940146 Part.SelectByID "Thread_nom@BodySke@Socket Head Cap Screw_AI.SLDPRT", "DIMENSION", 0.02817075667078, -0.01825075546344, 0.1631999940146 Part.EditRebuild Part.ClearSelection Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Part.SelectByID "Socket Head Cap Screw_AI-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.CompConfigProperties3 2, 0, 1, 1 Part.ClearSelection Part.SelectByID "Ball_Cap-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.SelectByID "1/4-28 Tapped Hole1@Ball_Cap-1@Ball_Case", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Sketch4@Ball_Cap-1@Ball_Case", "SKETCH", 0, 0, 0 Part.SelectByID "GuralpBoltHoles@Ball_Cap-1@Ball_Case", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D2@Sketch4@Ball_Cap-1@Ball_Case", "DIMENSION", -0.09877615713253, -0.1555336349465, 0 Part.EditRebuild Part.ClearSelection Part.EditUndo 1 Part.EditRebuild Part.SelectByID "Ball_Cap-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.OpenCompFile swApp.LoadFile2 "C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Ball_Cap.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Ball_Cap.SLDPRT", 1, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Cap.SLDPRT") Part.ClearSelection Part.SelectByID "GuralpBoltHoles", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D1@GuralpBoltHoles@Ball_Cap.SLDPRT", "DIMENSION", 0.07726102359132, 0.2024953364774, 0 Part.EditRebuild Part.EditRebuild Part.ClearSelection Part.ViewDisplayShaded Part.SelectByID "GuralpBoltHoles", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Sketch4", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch4", "SKETCH", 0, 0, 0 Part.AndSelectByID "", "FACE", -0.1287328407012, 0.155575, 0 Part.ClearSelection Part.SelectByID "GuralpBoltHoles", "BODYFEATURE", 0, 0, 0 Part.SelectByID "GuralpBoltHoles", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "GuralpBoltHoles", "BODYFEATURE", 0, 0, 0 Part.EditDelete Part.SelectByID "Sketch4", "SKETCH", 0, 0, 0 Part.ClearSelection Part.SelectByID "Sketch4", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch4", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D1@Sketch4@Ball_Cap.SLDPRT", "DIMENSION", 0.2065368873515, 0.1546844631318, 0.1061906096105 Part.SelectByID "D1@Sketch4@Ball_Cap.SLDPRT", "DIMENSION", 0.095592859121, 0.1594407647807, 0.0351184140687 Part.ClearSelection Part.SelectByID "", "FACE", -0.107414654953, 0.1555750000001, -0.001227097411828 Part.HoleWizard 0.0124714, 0, 0, 0, 220, 0.0054102, 0.0124714, 2.059488517353, -1, -1, -1, -1, -1, -1, -1, -1, -1 Part.SelectByID "Sketch4", "SKETCH", 0, 0, 0 Part.SetPickMode Part.ClearSelection Part.ViewDispHideAll Part.ViewDispSketches Part.SelectByID "Sketch4", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch18", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Line2@Sketch4", "EXTSKETCHSEGMENT", -0.07014870352619, 0, 0 Part.SketchUseEdge Part.ClearSelection Part.SelectByID "Arc1@Sketch4", "EXTSKETCHSEGMENT", -0.07306644981954, -0.09645542567492, 0 Part.SketchUseEdge Part.ClearSelection Part.AndSelectByID "Point6@Sketch4", "EXTSKETCHPOINT", -0.1210056, 0, 0 Part.AndSelectByID "Point1", "SKETCHPOINT", -0.107414654953, -0.001227097411828, 0 Part.SketchAddConstraints "sgCOINCIDENT" Part.EditRebuild Part.ClearSelection Part.SelectByID "Sketch4", "SKETCH", 0, 0, 0 Part.EditDelete Part.SelectByID "Sketch18", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Line2", "SKETCHSEGMENT", -0.04844366509785, 0, 0 Part.SketchConstraintsDel 0, "sgUSEEDGE" Part.SketchAddConstraints "sgHORIZONTAL" Part.SelectByID "Arc2", "SKETCHSEGMENT", -0.114861540188, 0.03806812074423, 0 Part.SketchConstraintsDel 0, "sgUSEEDGE" Part.ClearSelection Part.SelectByID "Arc2", "SKETCHSEGMENT", 0.02768918135443, 0.1177950103667, 0 Part.AddDimension 0.0205202, 0.155575, 0.0906321 Part.ClearSelection Part.Parameter("D1@Sketch18").SystemValue = 0.242011 Part.SetPickMode Part.ClearSelection Part.SelectByID "Arc2", "SKETCHSEGMENT", 0.06265850877941, 0.1035194016062, 0 Part.CreateConstructionGeometry Part.SelectByID "Line2", "SKETCHSEGMENT", -0.01118400419115, 0, 0 Part.CreateConstructionGeometry Part.EditRebuild Part.SelectByID "Sketch18", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Point1", "SKETCHPOINT", -0.1210056, 0, 0 Part.SketchConstraintsDel 0, "sgCOINCIDENT" Part.ViewZoomTo2 -0.126281, 0.157329, -0.3848, -0.0753947, 0.11472, -0.3848 Part.SelectByID "Point1", "SKETCHPOINT", -0.1210056, 0, 0 Part.DeSelectByID "Point1", "SKETCHPOINT", -0.1174843614566, -0.003121201052267, 0 Part.AndSelectByID "Point1", "SKETCHPOINT", -0.1174843614566, -0.003121201052267, 0 Part.AndSelectByID "Line2", "SKETCHSEGMENT", -0.1193066965981, 0, 0 Part.SketchAddConstraints "sgCOINCIDENT" Part.AndSelectByID "Point1", "SKETCHPOINT", -0.1174843614566, 0, 0 Part.AndSelectByID "Arc2", "SKETCHSEGMENT", -0.1210027274401, -0.0008337766061026, 0 Part.SketchAddConstraints "sgCOINCIDENT" Part.ViewOrientationUndo Part.SetPickMode Part.ClearSelection Part.SelectByID "Arc2", "SKETCHSEGMENT", -0.04028742650401, -0.1127969684793, 0 Part.AndSelectByID "Point2", "SKETCHPOINT", 0.003521238543381, 0, 0 Part.AndSelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0 Part.AndSelectByID "Point2", "SKETCHPOINT", 0.003521238543381, 0, 0 Part.SketchAddConstraints "sgCOINCIDENT" Part.EditRebuild Part.ClearSelection Part.SelectByID "CirPattern2", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.AndSelectByID "", "AXIS", 0, 0.2414924549344, 0 Part.ActivateSelectedFeature Part.AndSelectByID "1/4-28 Tapped Hole2", "BODYFEATURE", -0.1228927303038, 0.1577717321894, 0.001938118991802 Part.ViewDispHideAll Part.ClearSelection Part.EditRebuild swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Cap.SLDPRT") Part.SelectByID "1/4-28 Tapped Hole2", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "1/4-28 Tapped Hole2", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.SelectByID "1/4-28 Tapped Hole2", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Cap.SLDPRT") Part.SelectByID "1/4-28 Tapped Hole2", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.EditRebuild Part.ClearSelection Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Part.AndSelectByID "", "FACE", -0.1140721619475, -0.1555750000001, -0.002666663826062 Part.AndSelectByID "", "EDGE", -0.119959227263, -0.1623919207125, 1.918063691164e-005 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Cap.SLDPRT") Part.SelectByID "1/4-28 Tapped Hole2", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.SelectByID "1/4-28 Tapped Hole2", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Part.ClearSelection Part.ShowNamedView2 "*Front", 1 Part.ViewZoomTo2 -0.152078, -0.115797, 1.30966e-015, -0.0769169, -0.190958, 1.83451e-015 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Cap.SLDPRT") Part.SelectByID "1/4-28 Tapped Hole2", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.SelectByID "1/4-28 Tapped Hole2", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "1/4-28 Tapped Hole2", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.ClearSelection Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Part.Save2 FALSE Part.ViewZoomtofit Part.SelectByID "Ball_Case.SLDASM", "COMPONENT", 0, 0, 0 Part.ViewFeatureManagerByDependencies Part.SelectByID "Ball_Case.SLDASM", "COMPONENT", 0, 0, 0 Part.EditRebuild Part.ClearSelection Part.SelectByID "domed@Ball_Case.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "domed" Part.SelectByID "Dome-handle-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.AndSelectByID "Clevis-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.AndSelectByID "Clevis-2@Ball_Case", "COMPONENT", 0, 0, 0 Part.AndSelectByID "Socket Head Cap Screws (U.S.)-15@Ball_Case", "COMPONENT", 0, 0, 0 Part.AndSelectByID "Regular Spring Lock Washers (U.S.)-15@Ball_Case", "COMPONENT", 0, 0, 0 Part.AndSelectByID "Socket Head Cap Screws (U.S.)-16@Ball_Case", "COMPONENT", 0, 0, 0 Part.AndSelectByID "Regular Spring Lock Washers (U.S.)-16@Ball_Case", "COMPONENT", 0, 0, 0 Part.AndSelectByID "Socket Head Cap Screws (U.S.)-18@Ball_Case", "COMPONENT", 0, 0, 0 Part.AndSelectByID "Regular Spring Lock Washers (U.S.)-18@Ball_Case", "COMPONENT", 0, 0, 0 Part.AndSelectByID "Socket Head Cap Screws (U.S.)-22@Ball_Case", "COMPONENT", 0, 0, 0 Part.AndSelectByID "Regular Spring Lock Washers (U.S.)-21@Ball_Case", "COMPONENT", 0, 0, 0 Part.AndSelectByID "handle_bushing-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.AndSelectByID "handle_bushing-2@Ball_Case", "COMPONENT", 0, 0, 0 Part.AndSelectByID "Socket Head Cap Screws (U.S.)-20@Ball_Case", "COMPONENT", 0, 0, 0 Part.AndSelectByID "Regular Spring Lock Washers (U.S.)-19@Ball_Case", "COMPONENT", 0, 0, 0 Part.AndSelectByID "Flat Washers (U.S.)-14@Ball_Case", "COMPONENT", 0, 0, 0 Part.AndSelectByID "Hex Machine Screw Nuts (U.S.)-14@Ball_Case", "COMPONENT", 0, 0, 0 Part.AndSelectByID "Socket Head Cap Screws (U.S.)-21@Ball_Case", "COMPONENT", 0, 0, 0 Part.AndSelectByID "Flat Washers (U.S.)-15@Ball_Case", "COMPONENT", 0, 0, 0 Part.AndSelectByID "Hex Machine Screw Nuts (U.S.)-15@Ball_Case", "COMPONENT", 0, 0, 0 Part.AndSelectByID "Regular Spring Lock Washers (U.S.)-20@Ball_Case", "COMPONENT", 0, 0, 0 Part.SelectByID "Regular Spring Lock Washers (U.S.)-20@Ball_Case", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.FileFind Part.SelectByID "Dome-handle-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.EditRebuild Part.SelectByID "Socket Head Cap Screws (U.S.)-15@Ball_Case", "COMPONENT", 0, 0, 0 Part.SelectByID "", "FACE", 0.05208538025602, 0.1194937106479, 0.1820623624065 Part.SelectByID "Ball_Cap-2@Ball_Case", "COMPONENT", 0, 0, 0 Part.HideComponent2 Part.ClearSelection Part.SelectByID "Clevis-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.SelectByID "Ball_Case.SLDASM", "COMPONENT", 0, 0, 0 Part.ViewFeatureManagerByFeatures Part.SelectByID "Ball_Case.SLDASM", "COMPONENT", 0, 0, 0 Part.ViewFeatureManagerByDependencies Part.SelectByID "Coincident98", "MATE", 0, 0, 0 Part.SelectByID "Coincident99", "MATE", 0, 0, 0 Part.SelectByID "Coincident100", "MATE", 0, 0, 0 Part.SelectByID "Coincident100", "MATE", 0, 0, 0 Part.SelectByID "Coincident100", "MATE", 0, 0, 0 Part.ClearSelection Part.SelectByID "Coincident100", "MATE", 0, 0, 0 Part.SelectByID "Coincident99", "MATE", 0, 0, 0 Part.SelectByID "Coincident98", "MATE", 0, 0, 0 Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Cap.SLDPRT") Part.SelectByID "Cntr Bore", "BODYFEATURE", 0, 0, 0 Part.SelectByID "FlangeBoltHoles", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Part.SelectByID "Clevis-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.OpenCompFile swApp.LoadFile2 "C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Clevis.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Clevis.SLDPRT", 1, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Clevis.SLDPRT") Part.ClearSelection Part.ShowNamedView2 "*Top", 5 Part.ViewZoomtofit Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.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 Set Part = swApp.ActivateDoc ("Ball_Cap.SLDPRT") Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Clevis.SLDPRT") Part.SelectByID "D3@Sketch1@Clevis.SLDPRT", "DIMENSION", 0.1039935530332, 1.86258269769, -0.2247688410986 Part.Parameter("D3@Sketch1").SystemValue = 0.231775 Part.SelectByID "D1@Sketch1@Clevis.SLDPRT", "DIMENSION", 0.08381167125257, 1.862753716613, -0.1326393707055 Part.Parameter("D1@Sketch1").SystemValue = 0.225425 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.SelectByID "D6@Sketch1@Clevis.SLDPRT", "DIMENSION", -0.1166568483947, 1.8608681892, -0.1042384935848 Part.Parameter("D6@Sketch1").SystemValue = 0.2032 Part.EditRebuild Part.ClearSelection Part.ViewZoomtofit Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D4@Sketch3@Clevis.SLDPRT", "DIMENSION", 0.7716594212611, 1.05665372857, 0.2371341172935 Part.EditRebuild Part.ClearSelection Part.SelectByID "Cut-Revolve1", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Sketch4", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch4", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Sketch4", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "D2@Sketch4@Clevis.SLDPRT", "DIMENSION", 1.4959628036, 0.08216000642265, 0.1875305698797 Part.Parameter("D2@Sketch4").SystemValue = 0.2286 Part.ClearSelection Part.EditRebuild Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Part.SelectByID "Ball_Cap-2@Ball_Case", "COMPONENT", 0, 0, 0 Part.ShowComponent2 Part.ClearSelection Part.SelectByID "Dome-handle-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.SelectByID "Ball_Cap-2@Ball_Case", "COMPONENT", 0, 0, 0 Part.HideComponent2 Part.ClearSelection Part.SelectByID "Ball_Case.SLDASM", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.SelectByID "Socket Head Cap Screws (U.S.)-20@Ball_Case", "COMPONENT", 0, 0, 0 Part.SelectByID "Regular Spring Lock Washers (U.S.)-19@Ball_Case", "COMPONENT", 0, 0, 0 Part.SelectByID "Coincident52", "MATE", 0, 0, 0 Part.SelectByID "Coincident58", "MATE", 0, 0, 0 Part.SelectByID "Coincident52", "MATE", 0, 0, 0 Part.SelectByID "handle_bushing-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.SelectByID "Coincident52", "MATE", 0, 0, 0 Part.SelectByID "Coincident52", "MATE", 0, 0, 0 Part.ClearSelection Part.SelectByID "Coincident52", "MATE", 0, 0, 0 Part.SelectByID "Regular Spring Lock Washers (U.S.)-19@Ball_Case", "COMPONENT", 0, 0, 0 Part.SetPickMode Part.ClearSelection Part.SmartMateComponent Part.SelectByID "", "FACE", -0.005314679417609, 0.07272366331955, -0.1853311 Part.ClearSelection Part.SelectByID "", "FACE", -0.005314679417609, 0.07272366331955, -0.1853311 Part.ClearSelection Part.SelectByID "", "FACE", 0.01216192006649, 0.0725204246516, 0.2075557466027 Part.SelectByID "Concentric11", "MATE", 0, 0, 0 Part.EditUnsuppress Part.ClearSelection Part.SelectByID "Coincident85", "MATE", 0, 0, 0 Part.EditUnsuppress Part.ClearSelection Part.SelectByID "Coincident86", "MATE", 0, 0, 0 Part.EditUnsuppress Part.ClearSelection Part.SelectByID "", "FACE", 0.0101212916274, 0.07107492880408, 0.1837963142289 Part.SelectByID "Coincident83", "MATE", 0, 0, 0 Part.EditUnsuppress Part.ClearSelection Part.SelectByID "Concentric12", "MATE", 0, 0, 0 Part.EditUnsuppress Part.ClearSelection Part.SmartMateComponent Part.SelectByID "", "FACE", 0.009041839617169, 0.0697432134881, 0.2111375000001 Part.ClearSelection Part.SelectByID "", "FACE", 0.009041839617169, 0.0697432134881, 0.2111375000001 Part.ClearSelection Part.SelectByID "", "FACE", -0.03155599991607, 0.03267669019843, 0.1990029518158 Part.SelectByID "Concentric14", "MATE", 0, 0, 0 Part.EditUnsuppress Part.ClearSelection Part.SelectByID "", "FACE", -0.02250180571019, 0.03332479999997, -0.2017323196523 Part.SelectByID "Coincident60", "MATE", 0, 0, 0 Part.SelectByID "Coincident110", "MATE", 0, 0, 0 Part.SetPickMode Part.ClearSelection Part.AndSelectByID "", "FACE", -0.0232914440395, 0.0325906486413, -0.1958646461708 Part.AndSelectByID "", "FACE", -0.02525904128305, 0.03229423921439, -0.227161312534 Part.AddMate 1, 2, 0, 0.01910669565084, 0.5235987755983 Part.ClearSelection Part.ClearSelection Part.Save2 FALSE swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 783 swApp.ActiveDoc.ActiveView.FrameHeight = 461 Set Part = swApp.ActivateDoc ("Clevis.SLDPRT") Set Part = Nothing swApp.CloseDoc "Clevis.SLDPRT" Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Set Part = swApp.ActivateDoc ("Socket Head Cap Screw_AI.SLDPRT") Set Part = Nothing swApp.CloseDoc "Socket Head Cap Screw_AI.SLDPRT" Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Set Part = swApp.ActivateDoc ("Ball_Cap.SLDPRT") Part.ClearSelection Set Part = Nothing swApp.CloseDoc "Ball_Cap.SLDPRT" Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.SelectByID "Ball_Cap-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.SelectByID "Ball_Cap-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.OpenCompFile swApp.LoadFile2 "C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Ball_Cap.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Ball_Cap.SLDPRT", 1, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 783 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Cap.SLDPRT") Part.ClearSelection Part.SelectByID "FlangeBoltHoles", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "1/4-28 Tapped Hole2", "BODYFEATURE", 0, 0, 0 Part.SelectByID "1/4-28 Tapped Hole1", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Sketch14", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch14", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "D1@Sketch14@Ball_Cap.SLDPRT", "DIMENSION", 0.05083276938379, 0.7448724975031, -0.1486100935117 Part.Parameter("D1@Sketch14").SystemValue = 0.0254 Part.ClearSelection Part.EditRebuild Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Part.SelectByID "Dome-handle-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.SelectByID "Dome-handle-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.AndSelectByID "", "FACE", -0.00594944940201, 0.05274316209347, -0.2174874999999 Part.AndSelectByID "", "FACE", -0.00912587338388, 0.05690597602751, 0.2174874999999 Part.SelectByID "Dome-handle-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.OpenCompFile swApp.LoadFile2 "C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Dome-handle.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Dome-handle.SLDPRT", 1, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Dome-handle.SLDPRT") Part.ClearSelection Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Cut-Extrude1", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Boss-Extrude1", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Sketch4", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "D3@Sketch4@Dome-handle.SLDPRT", "DIMENSION", -0.06837085334178, -0.1615834012519, 0.4297212857354 Part.Parameter("D3@Sketch4").SystemValue = 0.219075 Part.EditRebuild Part.ClearSelection Part.SelectByID "Sketch4", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.ClearSelection Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Part.SelectByID "Clevis-1@Ball_Case", "COMPONENT", 0, 0, 0 Part.OpenCompFile swApp.LoadFile2 "C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Clevis.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Clevis.SLDPRT", 1, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Clevis.SLDPRT") Part.ClearSelection Part.SelectByID "", "FACE", -0.005478273136475, 0.02797657643148, -0.2111375000001 Part.SelectByID "Tabs", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Cut-Revolve1", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Cut-Extrude1", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Tabs", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Tabs", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D1@Tabs@Clevis.SLDPRT", "DIMENSION", 0.07500672260462, 0.05655746319134, 0.2701658274196 Part.EditRebuild Part.ClearSelection Part.SelectByID "Cut-Extrude1", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Sketch5", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D2@Sketch5@Clevis.SLDPRT", "DIMENSION", 0.06999286645552, 0.02943885243844, 0.5151181625821 Part.EditRebuild Part.ClearSelection Part.SelectByID "Boss-Extrude1", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D1@Boss-Extrude1@Clevis.SLDPRT", "DIMENSION", 0.09305500825075, 0.03381294954898, 0.4133410987623 Part.EditRebuild Part.ClearSelection Part.SelectByID "Boss-Extrude1", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Line2", "SKETCHSEGMENT", -0.004695369110806, -0.2032, 0 Part.SketchConstraintsDel 0, "sgUSEEDGE" Part.SelectByID "Line2", "SKETCHSEGMENT", -0.002203287216332, -0.2032, 0 Part.ClearSelection Part.SelectByID "Point3", "SKETCHPOINT", 0, 0, 0 Part.AndSelectByID "Line2", "SKETCHSEGMENT", -0.003934950654866, -0.2071533348487, 0 Part.AddDimension 0.0237276, 0.00635, -0.144916 Part.ClearSelection Part.Parameter("D3@Sketch2").SystemValue = 0.204787 Part.ClearSelection Part.InsertSketch Part.SelectByID "Cut-Extrude1", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D2@Sketch5@Clevis.SLDPRT", "DIMENSION", 0.5599252656412, 0.2809584182849, 0.6033309727297 Part.SelectByID "D2@Sketch5@Clevis.SLDPRT", "DIMENSION", 0.3882028552835, 0.278661497246, 0.6979879022805 Part.EditRebuild Part.ClearSelection Part.SelectByID "Tabs", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D1@Tabs@Clevis.SLDPRT", "DIMENSION", 0.3421705881003, 0.2717290184519, 0.7171260449746 Part.EditRebuild Part.ClearSelection ' MSGBOX ' C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Clevis.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 Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D3@Sketch2@Clevis.SLDPRT", "DIMENSION", 0.7129294961732, 0.3722665606405, -0.1584837660035 Part.EditRebuild Part.ClearSelection Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Part.SelectByID "", "FACE", -0.009523526133478, 0.1176425559062, -0.2425264182409 Part.SelectByID "Coincident51", "MATE", 0, 0, 0 Part.ClearSelection Part.SelectByID "", "FACE", -0.008981000091467, 0.06984789494908, 0.2365832564579 Part.ClearSelection Part.SelectByID "", "FACE", -0.009499225124785, 0.0659747521666, 0.2414117198878 Part.SelectByID "Concentric9", "MATE", 0, 0, 0 Part.EditUnsuppress Part.ClearSelection Part.SelectByID "Concentric13", "MATE", 0, 0, 0 Part.SelectByID "Concentric13", "MATE", 0, 0, 0 Part.EditUnsuppress Part.ClearSelection Part.Save2 FALSE Part.SelectByID "Ball_Cap-2@Ball_Case", "COMPONENT", 0, 0, 0 Part.ShowComponent2 Part.ClearSelection Part.AndSelectByID "", "FACE", -0.01295935184618, 0.3932612363973, -0.04949078573451 Part.AndSelectByID "", "FACE", 0.01224120110567, 0.329329, -0.004530063723823 Part.ClearSelection Part.TranslateComponent Part.SelectByID "", "FACE", -0.002226631841086, 0.358101406393, 0.1040813928807 Part.ClearSelection Part.TranslateComponent Part.SelectByID "", "FACE", -0.2441835226538, 0.03017801435982, 0.0933375069261 Part.ClearSelection Part.EditRebuild Part.Save2 FALSE Part.ShowNamedView2 "*Front", 1 Part.ShowNamedView2 "*Right", 4 Part.ViewZoomTo2 -0.267989, 0.143733, -3.25685e-016, -0.13495, -0.0206536, 8.22222e-016 Part.ViewDisplayHiddengreyed Part.SetPickMode Part.ViewDisplayShaded Part.SelectByID "", "EDGE", 0.02834629567559, 0.02538479606756, 0.2300526509103 Part.AndSelectByID "", "FACE", 0.01070440339925, 0.01911762194413, 0.234706025163 Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 783 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Cap.SLDPRT") Part.SelectByID "1/4-28 Tapped Hole1", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Sketch14", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.1745107706924, -0.142696957001, 0 Part.ClearSelection Part.SketchConstraintsDel 3, "sgCOINCIDENT" Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.171581209888, 0.1462064261186, 0 Part.AddDimension 0.122255, -3.1719e-019, 0.0979942 Part.ClearSelection Part.Parameter("D3@Sketch14").SystemValue = 0.4572 Part.ClearSelection Part.EditRebuild Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Part.SelectByID "Ball_Cap-2@Ball_Case", "COMPONENT", 0, 0, 0 Part.SelectByID "Ball_Cap-2@Ball_Case", "COMPONENT", 0, 0, 0 Part.HideComponent2 Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Clevis.SLDPRT") Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 783 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Cap.SLDPRT") Part.SelectByID "Sketch14", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Clevis.SLDPRT") Part.SelectByID "D3@Sketch1@Clevis.SLDPRT", "DIMENSION", 0.08131955892266, 1.65290779632, -0.1805430650978 Part.Parameter("D3@Sketch1").SystemValue = 0.23495 Part.SelectByID "D1@Sketch1@Clevis.SLDPRT", "DIMENSION", 0.05570601984731, 1.647815540122, -0.06861700357155 Part.Parameter("D1@Sketch1").SystemValue = 0.2286 Part.ClearSelection Part.InsertSketch Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Part.SelectByID "Ball_Cap-2@Ball_Case", "COMPONENT", 0, 0, 0 Part.ShowComponent2 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Clevis.SLDPRT") Part.SelectByID "Cut-Extrude1", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Cut-Revolve1", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Sketch4", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D2@Sketch4@Clevis.SLDPRT", "DIMENSION", 0.7447258108058, -0.1130094467325, -0.05510499783111 Part.EditRebuild Part.ClearSelection Part.Save2 FALSE Part.SelectByID "Boss-Extrude1", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D3@Sketch2@Clevis.SLDPRT", "DIMENSION", 0.5840084091204, 0.2858663331017, -0.1336587423667 Part.EditRebuild Part.ClearSelection Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Part.ClearSelection Part.SelectByID "Ball_Case.SLDASM", "COMPONENT", 0, 0, 0 Part.ViewFeatureManagerByFeatures Part.SelectByID "RIGHT SIDE", "PLANE", 0, 0, 0 Part.SelectByID "Section@Ball_Case.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.SelectByID "Section@Ball_Case.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.SelectByID "Ball_Case.SLDASM", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.AddConfiguration "Section-Right","","",0,0,0,1,0 Part.ShowNamedView2 "*Right", 4 Part.SelectByID "RIGHT SIDE", "PLANE", 0, 0, 0 Part.InsertSketch Part.SketchRectangle -0.3452122946664, 0.4342773631969, 0, 0.3345080374675, -0.2339741219381, 0, 1 Part.FeatureCut5 1, 0, 1, 0, 0, 0.4009940827113, 0.003175, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, 0, 0, -1, 0 Part.ClearSelection Part.ShowNamedView2 "*Right", 4 Part.ViewZoomTo2 -0.269653, 0.139489, -2.74695e-016, -0.140166, -0.0260573, 8.81312e-016 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Clevis.SLDPRT") Part.ShowNamedView2 "*Right", 4 Part.SelectByID "Sketch4", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D2@Sketch4@Clevis.SLDPRT", "DIMENSION", 0.4371999841242, 0.05515537456689, -0.1219287654771 Part.Parameter("D2@Sketch4").SystemValue = 0.233363 Part.EditRebuild Part.ClearSelection Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Clevis.SLDPRT") Part.SelectByID "Tabs", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Boss-Extrude1", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D4@Sketch3@Clevis.SLDPRT", "DIMENSION", 0.2917325673837, 0.07042870550562, -0.1302627309039 Part.EditRebuild Part.SetPickMode Part.ClearSelection Part.SelectByID "Boss-Extrude1", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D3@Sketch2@Clevis.SLDPRT", "DIMENSION", 0.2921100957363, 0.006662954563833, -0.1448759419722 Part.Parameter("D3@Sketch2").SystemValue = 0.211138 Part.EditRebuild Part.ClearSelection Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Clevis.SLDPRT") Part.SelectByID "Sketch4", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D2@Sketch4@Clevis.SLDPRT", "DIMENSION", 0.3182563982174, 0.05361851225157, -0.1127559244891 Part.Parameter("D2@Sketch4").SystemValue = 0.232569 Part.EditRebuild Part.ClearSelection Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Dome-handle.SLDPRT") Part.SelectByID "Sketch4", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D3@Sketch4@Dome-handle.SLDPRT", "DIMENSION", -0.0916515649621, -0.1473692197865, 0.4884848184631 Part.EditRebuild Part.ClearSelection Part.EditRebuild Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Part.Save2 FALSE Part.AndSelectByID "", "FACE", -0.01032719851491, 0.3969407699283, -0.0264339789781 Part.AndSelectByID "", "FACE", -0.01047400688094, 0.3293289999999, -0.003919523690342 Part.ClearSelection Part.SelectByID "domed@Ball_Case.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "domed" Part.SelectByID "Cut-Extrude1", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Cut-Extrude1", "BODYFEATURE", 0, 0, 0 Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Section-Right" Part.SelectByID "Section-Right", "BODYFEATURE", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.TranslateComponent Part.SelectByID "", "FACE", -0.007192975312782, 0.3512004083184, -0.1080581286531 Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Dome-handle.SLDPRT") Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Base-Extrude", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Cut-Extrude1", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Boss-Extrude1", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D4@Sketch4@Dome-handle.SLDPRT", "DIMENSION", -0.1898445550104, -0.3022836639382, 0.3633418477958 Part.EditRebuild Part.Parameter("D4@Sketch4").SystemValue = 0.1016 Part.ClearSelection Part.SelectByID "Sketch4", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Sketch4", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D1@Sketch2@Dome-handle.SLDPRT", "DIMENSION", -0.07914422580855, 0.04034921416673, 0.3807891001812 Part.EditRebuild Part.ClearSelection Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Part.TranslateComponent Part.SelectByID "", "FACE", 0.252738041151, 0.07327962836051, -0.09800311728122 Part.ShowNamedView2 "*Top", 5 Part.ClearSelection Part.SelectByID "Ball_Case.SLDASM", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.AddConfiguration "Handle Down_OnBottom","","",0,0,0,1,0 Part.SelectByID "Ball_Case.SLDASM", "COMPONENT", 0, 0, 0 Part.ViewFeatureManagerByDependencies Part.SelectByID "Coincident102", "MATE", 0, 0, 0 Part.SelectByID "Concentric25", "MATE", 0, 0, 0 Part.ClearSelection Part.SelectByID "Concentric25", "MATE", 0, 0, 0 Part.AndSelectByID "RIGHT SIDE", "PLANE", 0, 0, 0 Part.AndSelectByID "Front@Dome-handle-1@Ball_Case", "PLANE", 0, 0, 0 Part.AddMate 6, 2, 0, 0, 1.378810109076 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.2742666350553, 0.1707870333082, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.396263401595 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.2751552861916, 0.1659923008401, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.413716694115 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.2759601223623, 0.1611827895322, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.431169986635 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.2766808984064, 0.1563599644082, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.448623279155 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.2773173947686, 0.1515252945474, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.466076571675 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.2778694175659, 0.146680252637, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.483529864195 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.2783367986468, 0.1418263145237, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.500983156715 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.2787193956426, 0.1369649587641, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.675516081915 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.2778694175659, 0.08826974736302, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.692969374435 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.2773173947686, 0.0834247054526, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.710422666954 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.2766808984064, 0.07859003559176, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.727875959474 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.2759601223623, 0.07376721046776, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.745329251994 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.2751552861916, 0.06895769915986, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.762782544514 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.2742666350553, 0.06416296669179, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.780235837034 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.273294439645, 0.05938447358552, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.797689129554 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.272238996101, 0.05462367541633, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.815142422074 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.2711006259215, 0.04988202236945, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.832595714594 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.2698796758652, 0.04516095879836, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.850049007114 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.2685765178452, 0.04046192278473, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.867502299634 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.2671915488161, 0.03578634570047, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.884955592154 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.2657251906529, 0.03113565177164, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.902408884674 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.2641778900224, 0.02651125764467, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.919862177194 Part.ClearSelection Part.ClearSelection Part.SelectByMark "Front@Dome-handle-1@Ball_Case", "PLANE", 0.2625501182476, 0.02191457195481, 0, 8 Part.AndSelectByMark "RIGHT SIDE", "PLANE", 0, 0, 0, 8 Part.AndSelectByID "Angle4", "MATE", 0, 0, 0 Part.EditMate 6, 0, 1, 0.01, 1.937315469714 Part.ClearSelection Part.ClearSelection Part.ShowNamedView2 "*Top", 5 Part.SelectByID "Ball_Case.SLDASM", "COMPONENT", 0, 0, 0 Part.ViewFeatureManagerByFeatures Part.SelectByID "TOP", "PLANE", 0, 0, 0 Part.InsertSketch Part.CreateCircle 0, 0, 0, 0.2853797740478, -0.1074261133186, 0 Part.CreateConstructionGeometry Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.304449691643, 0.01709884548224, 0 Part.ClearSelection Part.SelectByMark "Arc1", "SKETCHSEGMENT", 0.304449691643, 0.01709884548224, 0, 1 boolstatus = Part.SketchOffset2 (-0.017145, 0, 1) Part.ClearSelection Part.SetPickMode Part.SelectByID "D1@Sketch3@Ball_Case.SLDASM", "DIMENSION", -0.204534812134, 0.2024485494659, 0 Part.SelectByID "D1@Sketch3@Ball_Case.SLDASM", "DIMENSION", -0.1919339794474, 0.0573495, -0.1940994547462 Part.Parameter("D1@Sketch3").SystemValue = 0.0174625 Part.SelectByID "Arc2", "SKETCHSEGMENT", 0.22795476327, 0.1751396246487, 0 Part.CreateConstructionGeometry Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.2264719461609, 0.2041872739924, 0 Part.AddDimension -0.257244, 0, -0.224618 Part.ClearSelection Part.Parameter("D2@Sketch3").SystemValue = 0.6096 Part.ClearSelection Part.EditRebuild Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "PVC Pipe_Sketch3" Part.ClearSelection Part.ViewDispHideAll Part.ViewDispSketches Part.SelectByID "domed@Ball_Case.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "domed" Part.ViewDispHideAll Part.SelectByID "PVC Pipe_Sketch3", "SKETCH", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.ShowNamedView2 "*Right", 4 Part.ShowNamedView2 "*Front", 1 Part.SelectByID "Ball_Case.SLDASM", "COMPONENT", 0, 0, 0 Part.ViewFeatureManagerByDependencies Part.SelectByID "Angle4", "MATE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D1@Angle4@Ball_Case.SLDASM", "DIMENSION", 0.1773796877125, 0.2408039088791, 0 Part.EditRebuild Part.ClearSelection Part.SelectByID "Section@Ball_Case.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Section" Part.SelectByID "Ball_Case.SLDASM", "COMPONENT", 0, 0, 0 Part.ViewFeatureManagerByFeatures Part.SelectByID "PVC Pipe_Sketch3", "SKETCH", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "Section-Right", "BODYFEATURE", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.Save2 FALSE Part.SelectByID "Section-Right@Ball_Case.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Section-Right" Part.ShowNamedView2 "*Right", 4 Part.SelectByID "PVC Pipe_Sketch3", "SKETCH", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "Ball_Case.SLDASM", "COMPONENT", 0, 0, 0 Part.ViewFeatureManagerByDependencies Part.SelectByID "Angle4", "MATE", 0, 0, 0 Part.SelectByID "Angle4", "MATE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D1@Angle4@Ball_Case.SLDASM", "DIMENSION", 0, -0.05605868003434, 0.001667767353446 Part.EditRebuild Part.ClearSelection ' MSGBOX ' C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Ball_Case.SLDASM 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 Part.ViewZoomtofit2 swApp.ActiveDoc.ActiveView.FrameLeft = 783 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Cap.SLDPRT") Part.SelectByID "", "FACE", -0.2001936923444, -0.01005839999999, 0.08574401136082 Part.SelectedFaceProperties 8421631, 1, 0.96, 0.6, 0.02, 0, 0, 0, "" Part.ClearSelection Part.Save2 FALSE Part.SelectByID "Sketch9", "SKETCH", 0, 0, 0 Part.AndSelectByID "Plane2", "PLANE", 0, 0, 0 Part.ClearSelection Part.SelectByID "Sketch9", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch9", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.ShowNamedView2 "*Normal To", 0 Part.ClearSelection Part.SelectByID "", "FACE", -0.2093806559502, -0.01269999999997, -0.004243018203567 Part.ClearSelection ' MSGBOX ' C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Ball_Cap.SLDPRT ' is in rollback mode and must be rebuilt before saving. ' Select "OK" to rebuild and save the part. Select "Cancel" to stop the operation (part will not be saved). Part.Save2 FALSE Part.SelectByID "", "FACE", -0.208318312052, -0.01269999999997, -0.009424492771075 Part.EditRebuild Part.ClearSelection Part.SelectByID "Plane3", "PLANE", 0, 0, 0 Part.InsertSketch Part.ClearSelection Part.CreateLine2( 0, 0.05, 0, 0, -0.05, 0 ).ConstructionGeometry = TRUE Part.ClearSelection Part.InsertSketch Part.FeatureRevolveCut 6.28318530718, 1, 6.28318530718, 0 Part.WindowRedraw Part.ClearSelection Part.EditRebuild Part.SelectByID "Plane3", "PLANE", 0, 0, 0 Part.BlankRefGeom Part.EditRebuild Part.EditRebuild Part.SelectByID "Groove for AS 568-461, O-Ring1", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.ClearSelection Part.SelectByID "Groove for AS 568-461, O-Ring1", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.SelectByID "Groove for AS 568-461, O-Ring1", "BODYFEATURE", 0, 0, 0 Part.EditDelete Part.SelectByID "", "FACE", -0.2067346595869, -0.01269999999997, -0.005837657010943 Part.ClearSelection Part.EditRebuild Part.EditRebuild Part.SelectByID "Sketch9", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Groove for AS 568-281, O-Ring1", "BODYFEATURE", 0, 0, 0 Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Groove for AS 568-283, O-Ring1" Part.ClearSelection Part.SelectByID "Sketch9", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.ClearSelection Part.SelectByID "", "FACE", -0.2081789837736, -0.01269999999995, -0.0006782690070963 Part.EditRebuild Part.ClearSelection Part.EditRebuild Part.EditRebuild Part.EditRebuild Part.SelectByID "Sketch9", "SKETCH", 0, 0, 0 Part.ClearSelection Part.SelectByID "Sketch9", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.ClearSelection Part.SelectByID "Groove for AS 568-282, O-Ring1", "BODYFEATURE", 0, 0, 0 Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Groove for AS 568-283, O-Ring1" Part.ClearSelection Part.SelectByID "", "FACE", -0.2055329874102, -0.01269999999995, -0.002272907814472 Part.EditRebuild Part.ClearSelection Part.SelectByID "Plane5", "PLANE", 0, 0, 0 Part.InsertSketch Part.ClearSelection Part.CreateLine2( 0, 0.05, 0, 0, -0.05, 0 ).ConstructionGeometry = TRUE Part.ClearSelection Part.InsertSketch Part.FeatureRevolveCut 6.28318530718, 1, 6.28318530718, 0 Part.WindowRedraw Part.ClearSelection Part.EditRebuild Part.SelectByID "Plane5", "PLANE", 0, 0, 0 Part.BlankRefGeom Part.EditRebuild Part.EditRebuild Part.SelectByID "Sketch20", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.ClearSelection Part.SelectByID "Sketch20", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.ShowNamedView2 "*Normal To", 0 Part.ViewDisplayHiddengreyed Part.ViewZoomTo2 0.192596, 0.0146466, -7.21421e-016, 0.228666, -0.0285484, -4.19793e-016 Part.ViewZoomTo2 0.19168, 0.00806721, -6.75478e-016, 0.219856, -0.0207294, -4.74392e-016 Part.ViewZoomTo2 0.199459, 0.00393525, -6.46624e-016, 0.212713, -0.0120841, -5.34762e-016 Part.ViewZoomTo2 0.201179, 0.00154826, -6.29956e-016, 0.209613, -0.00614313, -5.76247e-016 Part.CreateLine2( 0.2026285, -0.002235840727651, 0, 0.2027067599953, -0.003130356567528, 0 ).ConstructionGeometry = TRUE Part.CreateLine2( 0.2030713085433, -0.0026416, 0, 0.2007227721761, -0.0026416, 0 ).ConstructionGeometry = TRUE Part.CreateLine2( 0.2072513, -0.002235840727651, 0, 0.2071486191786, -0.00340948788707, 0 ).ConstructionGeometry = TRUE Part.CreateLine2( 0.2068084914567, -0.0026416, 0, 0.2092376336526, -0.0026416, 0 ).ConstructionGeometry = TRUE Part.CreateLine2( 0.2072158006635, -0.0026416, 0, 0.2072158006635, 0.001285092037267, 0 ).ConstructionGeometry = TRUE Part.CreateLine2( 0.2026639993365, -0.0026416, 0, 0.2026639993365, 0.001234155677487, 0 ).ConstructionGeometry = TRUE Part.ClearSelection Part.SelectByID "Line2", "SKETCHSEGMENT", 0.2057909399741, 0, 0 Part.AndSelectByID "Line4", "SKETCHSEGMENT", 0.2057484930077, -0.0026416, 0 Part.AddDimension -0.209891, -0.0113364, 0 Part.ClearSelection Part.Parameter("D1@Sketch20").SystemValue = 0.0026416 Part.ClearSelection Part.SelectByID "Line11", "SKETCHSEGMENT", 0.2026639993365, 0.0006653663266134, 0 Part.AndSelectByID "Line10", "SKETCHSEGMENT", 0.2072158006635, 0.0005040678539777, 0 Part.AddDimension -0.204815, -0.0131871, 0 Part.ClearSelection Part.Parameter("D2@Sketch20").SystemValue = 0.0045518 Part.ClearSelection Part.SelectByID "Line3", "SKETCHSEGMENT", 0.2073760369408, -0.0008100909698497, 0 Part.AndSelectByID "Line1", "SKETCHSEGMENT", 0.2025209413604, -0.001006439851235, 0 Part.AddDimension -0.20495, -0.0139596, 0 Part.ClearSelection Part.Parameter("D3@Sketch20").SystemValue = 0.174533 Part.AndSelectByID "Arc1", "SKETCHSEGMENT", 0.2071149365388, -0.002519080840516, 0 Part.AndSelectByID "Line3", "SKETCHSEGMENT", 0.2072847952505, -0.00185298826285, 0 Part.SketchAddConstraints "sgTANGENT" Part.AndSelectByID "Arc1", "SKETCHSEGMENT", 0.2071048029806, -0.002528430244359, 0 Part.AndSelectByID "Line4", "SKETCHSEGMENT", 0.2064785808312, -0.0026416, 0 Part.SketchAddConstraints "sgTANGENT" Part.AndSelectByID "Arc2", "SKETCHSEGMENT", 0.2027869573712, -0.002538749909899, 0 Part.AndSelectByID "Line4", "SKETCHSEGMENT", 0.2035072931774, -0.0026416, 0 ' MSGBOX ' The sketch is over defined. Consider deleting some over defining dimensions or relations. Part.SketchAddConstraints "sgTANGENT" ' MSGBOX ' The sketch is no longer over defined. Part.SketchConstraintsDel 0, "sgTANGENT" Part.SelectByID "", "FACE", -0.2015886902923, -0.008781093946439, 0.1206793372795 Part.AndSelectByID "Arc2", "SKETCHSEGMENT", 0.2027661850025, -0.002520333468028, 0 Part.AndSelectByID "Line1", "SKETCHSEGMENT", 0.2025758079968, -0.001633568374863, 0 Part.SketchAddConstraints "sgTANGENT" Part.SetPickMode Part.ClearSelection Part.AndSelectByID "Arc1", "SKETCHSEGMENT", 0.2071031418959, -0.002529908306245, 0 Part.AndSelectByID "Arc2", "SKETCHSEGMENT", 0.2028071279285, -0.002554575667388, 0 Part.SketchAddConstraints "sgSAMELENGTH" Part.SetPickMode Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.2071591804939, -0.00247022533605, 0 Part.AddDimension -0.208626, -0.0091801, 0 Part.ClearSelection Part.Parameter("D4@Sketch20").SystemValue = 0.000381 Part.SetPickMode Part.ClearSelection Part.SetPickMode Part.SelectByID "Line9", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 1, 0, 0.2077435004324, -0.002620028879179 Part.SetPickMode Part.SelectByID "Line8", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 1, 1, 0.2071832004748, -0.00312090308368 Part.SetPickMode Part.SelectByID "Line7", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 1, 1, 0.2015292645392, -0.002637007665772 Part.SetPickMode Part.SelectByID "Line6", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 1, 1, 0.2026753326343, -0.002951115217747 Part.SetPickMode Part.SelectByID "D1@Sketch20@Ball_Cap.SLDPRT", "DIMENSION", -0.2098488699699, -0.01130244375553, 0 Part.Parameter("D1@Sketch20").SystemValue = 0.0025654 Part.SelectByID "", "FACE", -0.205043873364, -0.008339645495015, 0.1147105596528 Part.SetPickMode Part.ClearSelection Part.SelectByID "D1@Sketch20@Ball_Cap.SLDPRT", "DIMENSION", -0.2098743381498, -0.01125999678905, 0 Part.SelectByID "", "FACE", -0.2037025492232, -0.008288709135235, 0.1170759323686 Part.SelectByID "D2@Sketch20@Ball_Cap.SLDPRT", "DIMENSION", -0.2048740854981, -0.01317859967409, 0 Part.Parameter("D2@Sketch20").SystemValue = 0.0044958 Part.SelectByID "", "FACE", -0.2040166567752, -0.009146137858194, 0.1165277059685 Part.SetPickMode Part.ClearSelection Part.SelectByID "D2@Sketch20@Ball_Cap.SLDPRT", "DIMENSION", -0.2047807021718, -0.01318708906738, 0 Part.SelectByID "", "FACE", -0.2038468689092, -0.008322666708421, 0.1168244689092 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ClearSelection Part.SelectByID "Line3", "SKETCHSEGMENT", 0.2073283465958, -0.0006571303998966, 0 Part.AndSelectByID "Line10", "SKETCHSEGMENT", 0.2071547280027, -0.0007090199963369, 0 Part.AddDimension -0.207366, -0.0146976, 0 Part.ClearSelection Part.Parameter("D5@Sketch20").SystemValue = 0.0872665 Part.ClearSelection Part.SelectByID "Line11", "SKETCHSEGMENT", 0.2026589280027, -0.0005104685041406, 0 Part.AndSelectByID "Line1", "SKETCHSEGMENT", 0.2024744736437, -0.0005332770294042, 0 Part.AddDimension -0.202465, -0.0149379, 0 Part.ClearSelection ' MSGBOX ' This dimension is over defined. Its value cannot be changed. ' MSGBOX ' The sketch is no longer over defined. Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().TranslateBy -0.0002383, -0.0011915 Part.ActiveView().TranslateBy -0.0004766, -0.0011915 Part.ActiveView().TranslateBy 0, -0.0016681 Part.ActiveView().TranslateBy -0.0004766, -0.002383 Part.ActiveView().TranslateBy -0.0004766, -0.0016681 Part.ActiveView().TranslateBy 0, -0.0028596 Part.ActiveView().TranslateBy 0, -0.002383 Part.ActiveView().TranslateBy 0, -0.0021447 Part.ActiveView().TranslateBy 0, -0.002383 Part.ActiveView().TranslateBy -0.0004766, -0.0021447 Part.ActiveView().TranslateBy 0, -0.0019064 Part.ActiveView().TranslateBy 0, -0.0016681 Part.ActiveView().TranslateBy 0, -0.0021447 Part.ActiveView().TranslateBy 0, -0.0019064 Part.ActiveView().TranslateBy 0, -0.0021447 Part.ActiveView().TranslateBy 0, -0.0016681 Part.ActiveView().TranslateBy 0, -0.0030979 Part.ActiveView().TranslateBy 0.0002383, -0.0021447 Part.ActiveView().TranslateBy 0, -0.0030979 Part.ActiveView().TranslateBy 0, -0.0021447 Part.ActiveView().TranslateBy 0.0004766, -0.002383 Part.ActiveView().TranslateBy 0, -0.0021447 Part.ActiveView().TranslateBy 0, -0.0014298 Part.ActiveView().TranslateBy 0, -0.0016681 Part.ActiveView().TranslateBy 0, -0.0016681 Part.ActiveView().TranslateBy 0.0004766, -0.0011915 Part.ActiveView().TranslateBy 0, -0.0016681 Part.ActiveView().TranslateBy 0, -0.0011915 Part.ActiveView().TranslateBy 0.0004766, -0.0019064 Part.ActiveView().TranslateBy 0, -0.0011915 Part.ActiveView().TranslateBy 0.0002383, -0.0011915 Part.ActiveView().TranslateBy 0.0004766, -0.0011915 Part.ActiveView().TranslateBy 0, -0.000714901 Part.ActiveView().TranslateBy 0, -0.0011915 Part.ActiveView().TranslateBy 0, -0.000953201 Part.ActiveView().TranslateBy 0, -0.0002383 Part.ActiveView().TranslateBy 0, -0.0011915 Part.ActiveView().TranslateBy 0, -0.0011915 Part.ActiveView().TranslateBy 0, -0.000953201 Part.ActiveView().TranslateBy 0, -0.000714901 Part.ActiveView().TranslateBy 0, -0.000714901 Part.ActiveView().TranslateBy 0, -0.000714901 Part.ActiveView().TranslateBy 0, -0.0014298 Part.ActiveView().TranslateBy 0, -0.0011915 Part.ActiveView().TranslateBy 0, -0.0016681 Part.ActiveView().TranslateBy 0, -0.0011915 Part.ActiveView().TranslateBy -0.0002383, -0.0016681 Part.ActiveView().TranslateBy 0, -0.0016681 Part.ActiveView().TranslateBy 0, -0.002383 Part.ActiveView().TranslateBy 0, -0.0021447 Part.ActiveView().TranslateBy -0.0004766, -0.002383 Part.ActiveView().TranslateBy 0, -0.0011915 Part.ActiveView().TranslateBy 0, -0.0016681 Part.ActiveView().TranslateBy 0, -0.000953201 Part.ActiveView().TranslateBy 0, -0.0002383 Part.ActiveView().TranslateBy 0, -0.0002383 Part.ActiveView().TranslateBy 0, -0.0002383 Part.CreateLine2( 0.211747526078, 0.0183091472273, 0, 0.1918081586954, 0.0183091472273, 0 ).ConstructionGeometry = TRUE Part.SetPickMode Part.ClearSelection Part.SetPickMode Part.SelectByID "Line10", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 2, 1, 0.207128367611, 0.001166936916358 Part.SetPickMode Part.SelectByID "Line11", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 2, 1, 0.2027145050758, 0.0008589930185564 Part.SetPickMode Part.SelectByID "Line12", "SKETCHSEGMENT", 0.198582924447, 0.0183091472273, 0 Part.EditDelete Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().TranslateBy 0.000714901, -0.0014298 Part.ActiveView().TranslateBy 0.0019064, -0.0011915 Part.ActiveView().TranslateBy 0.0026213, -0.0028596 Part.ActiveView().TranslateBy 0.0040511, -0.0028596 Part.ActiveView().TranslateBy 0.0033362, -0.0026213 Part.ActiveView().TranslateBy 0.0033362, -0.0028596 Part.ActiveView().TranslateBy 0.0033362, -0.0026213 Part.ActiveView().TranslateBy 0.0040511, -0.0030979 Part.ActiveView().TranslateBy 0.0050043, -0.0038128 Part.ActiveView().TranslateBy 0.00619581, -0.0040511 Part.ActiveView().TranslateBy 0.004766, -0.0021447 Part.ActiveView().TranslateBy 0.0045277, -0.002383 Part.ActiveView().TranslateBy 0.004766, -0.002383 Part.ActiveView().TranslateBy 0.004766, -0.002383 Part.ActiveView().TranslateBy 0.004766, -0.0019064 Part.ActiveView().TranslateBy 0.0038128, -0.0014298 Part.ActiveView().TranslateBy 0.0028596, -0.0011915 Part.ActiveView().TranslateBy 0.0038128, -0.0004766 Part.ActiveView().TranslateBy 0.0038128, -0.0004766 Part.ActiveView().TranslateBy 0.0030979, 0 Part.ActiveView().TranslateBy 0.0021447, 0 Part.ActiveView().TranslateBy 0.0016681, 0 Part.ActiveView().TranslateBy 0.0011915, 0 Part.ActiveView().TranslateBy 0.0011915, 0.0002383 Part.ActiveView().TranslateBy 0.0014298, 0 Part.ActiveView().TranslateBy 0.0011915, 0.0002383 Part.ActiveView().TranslateBy 0.000714901, 0 Part.ActiveView().TranslateBy 0.0011915, 0.0004766 Part.ActiveView().TranslateBy 0.0011915, 0.0004766 Part.ActiveView().TranslateBy 0.0016681, 0.000714901 Part.ActiveView().TranslateBy 0.0014298, 0.000953201 Part.ActiveView().TranslateBy 0.0016681, 0.0004766 Part.ActiveView().TranslateBy 0.0011915, 0.0002383 Part.ActiveView().TranslateBy 0.0011915, 0.000953201 Part.ActiveView().TranslateBy 0.002383, 0.0004766 Part.ActiveView().TranslateBy 0.0011915, 0.0002383 Part.ActiveView().TranslateBy 0.0016681, 0.0004766 Part.ActiveView().TranslateBy 0.0016681, 0.0004766 Part.ActiveView().TranslateBy 0.002383, 0 Part.ActiveView().TranslateBy 0.0021447, 0.0004766 Part.ActiveView().TranslateBy 0.0011915, 0.0004766 Part.ActiveView().TranslateBy 0.0011915, 0 Part.ActiveView().TranslateBy 0.0014298, 0.0002383 Part.ActiveView().TranslateBy 0.0002383, 0 Part.ActiveView().TranslateBy 0, 0.0002383 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.934579 Part.ActiveView().ZoomByFactor 0.934579 Part.ActiveView().ZoomByFactor 0.909091 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1 Part.SelectByID "Line11", "SKETCHSEGMENT", 0.2026589280027, 0.01388196414228, 0 Part.CreateConstructionGeometry Part.SetPickMode Part.SelectByID "Line5", "SKETCHSEGMENT", 0, 0.02366041617212, 0 Part.AndSelectByID "Line11", "SKETCHSEGMENT", 0.2026589280027, 0.01412046297228, 0 Part.SketchMirror Part.ClearSelection Part.SetPickMode Part.SelectByID "Line11", "SKETCHSEGMENT", 0.2026589280027, 0.01173547467232, 0 Part.CreateConstructionGeometry Part.ViewZoomtofit2 Part.SelectByID "Line13", "SKETCHSEGMENT", -0.2026589280027, 0.01197471949071, 0 Part.CreateConstructionGeometry Part.SelectByID "Line11", "SKETCHSEGMENT", 0.2026589280027, 0.01464657045064, 0 Part.AndSelectByID "Line13", "SKETCHSEGMENT", -0.2026589280027, 0.01197471949071, 0 Part.AddDimension 0.00155858, -0.0847914, 0 Part.ClearSelection Part.Parameter("D6@Sketch20").SystemValue = 0.405318 Part.ClearSelection Part.SelectByID "D6@Sketch20@Ball_Cap.SLDPRT", "DIMENSION", -0.002894505206591, -0.08345544060918, 0 Part.Parameter("D6@Sketch20").SystemValue = 0.405257 Part.ClearSelection Part.EditRebuild Part.ViewDisplayShaded swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Part.ViewZoomTo2 0.177857, 0.059767, 2.61748e-016, 0.25053, -0.00525599, 7.15802e-016 swApp.ActiveDoc.ActiveView.FrameLeft = 783 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Cap.SLDPRT") Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "Ball_Cap.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "Ball_Case.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Dome-handle.SLDPRT") Set Part = Nothing swApp.CloseDoc "Dome-handle.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Clevis.SLDPRT") Set Part = Nothing swApp.CloseDoc "Clevis.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 783 swApp.ActiveDoc.ActiveView.FrameTop = 614 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case_Assembly - Sheet1")