' ****************************************************************************** ' swxJRNL.swj - journal recorded on 10/07/99 by magene ' ****************************************************************************** Dim swApp As Object Dim Part As Object Dim Gtol As Object Dim FeatureData As Object Dim Feature As Object Dim Component As Object Sub main() Set swApp = CreateObject ("SldWorks.Application") Set Part = swApp.OpenDoc ("C:\GENE\tiburon\tautLineHook\hook.SLDASM", 2) ' MSGBOX ' Lightweight parts will not be used in this assembly until you save ' the assembly in shaded mode, in SolidWorks 98Plus or a later version. Set Part = swApp.ActivateDoc ("hook.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 Part.ShowNamedView2 "*Front", 1 Part.SelectByID "pivotBlock-2@hook", "COMPONENT", 0, 0, 0 Part.EditPart ' MSGBOX ' This part has features defined in the context of another assembly . You can edit the part, but cannot create any external references to the components of the current assembly. Part.ClearSelection Part.SelectByID "", "FACE", -0.01908341611521, -0.03745677213078, 0.01904999999999 Part.ClearSelection Part.SelectByID "", "FACE", -0.01908341611521, -0.03745677213078, 0.01904999999999 Part.ClearSelection Set Part = swApp.NewPart swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Part1") swApp.ActiveDoc.ActiveView.FrameState = 1 Part.SelectByID "FRONT", "PLANE", 0, 0, 0 Part.InsertSketch Part.CreateLine2( 0, 0.06858, 0, 0, -0.06858, 0 ).ConstructionGeometry = TRUE Part.SketchMirror Part.ClearSelection Part.CreateLine2 0, 0.04826, 0, -0.06096, 0.04826, 0 Part.CreateLine2 -0.06096, 0.04826, 0, -0.06096, 0.03302, 0 Part.CreateLine2 -0.06096, 0.03302, 0, -0.03048, 0.03302, 0 Part.CreateLine2 -0.03048, 0.03302, 0, -0.03048, 0, 0 Part.SketchMirror Part.CreateLine2( -0.0889, 0, 0, 0.06096, 0, 0 ).ConstructionGeometry = TRUE Part.SketchMirror Part.ClearSelection Part.SelectByID "Point7", "SKETCHPOINT", 0, 0, 0 Part.AndSelectByID "Line2", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line4", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line5", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line6", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line7", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line8", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line9", "SKETCHSEGMENT", 0, 0, 0 Part.SketchMirror Part.ClearSelection Part.SelectByID "Point7", "SKETCHPOINT", 0, 0, 0 Part.AndSelectByID "Line2", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line4", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line5", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line6", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line7", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line8", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line9", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line10", "SKETCHSEGMENT", 0, 0, 0 Part.SketchMirror Part.ClearSelection Part.SelectByID "Line8", "SKETCHSEGMENT", -0.03048, 0.0248952404318, 0 Part.AndSelectByID "Line9", "SKETCHSEGMENT", 0.03048, 0.02277649656526, 0 Part.AddDimension 0.00222468, 0.0880338, 0 Part.ClearSelection Part.Parameter("D1@Sketch1").SystemValue = 0.01905 Part.SelectByID "Line2", "SKETCHSEGMENT", 0.03188709519136, 0.04826, 0 Part.AndSelectByID "Line7", "SKETCHSEGMENT", 0.03421771344455, 0.03302, 0 Part.AddDimension 0.0852794, 0.0401502, 0 Part.ClearSelection Part.Parameter("D2@Sketch1").SystemValue = 0.00635 Part.SelectByID "Line2", "SKETCHSEGMENT", -0.03167522080471, 0.03937, 0 Part.AndSelectByID "Line17", "SKETCHSEGMENT", -0.0308277232581, -0.03937, 0 Part.AddDimension -0.0880338, 0.00201281, 0 Part.ClearSelection Part.Parameter("D3@Sketch1").SystemValue = 0.022225 Part.SelectByID "Line17", "SKETCHSEGMENT", -0.006462168792934, -0.03937, 0 Part.AndSelectByID "Line1", "SKETCHSEGMENT", 0, -0.06154950932287, 0 Part.SetPickMode Part.ClearSelection Part.SetPickMode Part.SelectByID "Line17", "SKETCHSEGMENT", 0.01769151128557, -0.03937, 0 Part.AddDimension 0.0145134, -0.0602783, 0 Part.ClearSelection Part.Parameter("D4@Sketch1").SystemValue = 0.0381 Part.CreateCircle 0, -0.0282575, 0, 0.003072178606477, -0.02425961727184, 0 Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.00437624162081, -0.02465636171935, 0 Part.AddDimension 0.0369721, -0.000105937, 0 Part.ClearSelection Part.Parameter("D5@Sketch1").SystemValue = 0.009525 Part.FeatureExtrusion 1, 0, 0, 0, 0, 0.01905, 0.0254, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0 Part.SaveAs2 "C:\GENE\tiburon\tautLineHook\rodEnd.SLDPRT", 0, FALSE, FALSE swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 1538 swApp.ActiveDoc.ActiveView.FrameHeight = 517 Part.SelectByID "rodEnd.SLDPRT", "COMPONENT", 0, 0, 0 ' MSGBOX ' Dropping a model into a part is not allowed. Use the Base Part function to create a derived part. Part.ClearSelection Part.SelectByID "rodEnd.SLDPRT", "COMPONENT", 0, 0, 0 Set Part = swApp.ActivateDoc ("hook.SLDASM") Part.EditAssembly Set Part = swApp.ActivateDoc ("rodEnd.SLDPRT") Part.SelectByID "rodEnd.SLDPRT", "COMPONENT", 0, 0, 0 Set Part = swApp.ActivateDoc ("hook.SLDASM") Part.ShowNamedView2 "*Isometric", 7 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 517 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.SelectByID "", "EDGE", 0.01232290249123, -0.01998008312574, 0.005692689965315 Part.SelectByID "", "EDGE", 0.01199074174264, -0.02009079737581, 0.005803386222453 Part.SelectByID "", "FACE", 0.004424039004959, -0.02765627041146, -0.00176331651528 Part.AndSelectByID "@rodEnd-1@hook", "AXIS", -0.1927868044923, 0.10904516709, 0.01935434375539 Part.AddMate 1, 2, 0, 0.01, 0.5235987755983 Part.ClearSelection Part.ViewZoomtofit2 Part.ViewZoomtofit2 Part.SelectByID "rodEnd-1@hook", "COMPONENT", 0, 0, 0 Part.TranslateComponent Part.SetPickMode Part.ClearSelection Part.SetPickMode Part.SetPickMode Part.EditRebuild Part.SelectByID "AllenAir.Piston.Rod-2@hook", "COMPONENT", 0, 0, 0 Part.TranslateComponent Part.SetPickMode Part.ClearSelection Part.SelectByID "rodEnd-1@hook", "COMPONENT", 0, 0, 0 Part.TranslateComponent Part.SetPickMode Part.ClearSelection Part.SelectByID "Concentric3", "MATE", 0, 0, 0 Part.EditDelete Part.SelectByID "rodEnd-1@hook", "COMPONENT", 0, 0, 0 Part.TranslateComponent Part.ViewZoomTo2 -0.0591247, 0.0254914, -0.0371863, 0.0709273, -0.121591, -0.0371863 Part.SetPickMode Part.ClearSelection Part.ActiveView().RotateAboutCenter 0.00605317, 0 Part.ActiveView().RotateAboutCenter 0.036319, -0.0308302 Part.ActiveView().RotateAboutCenter 0.0484253, -0.0863244 Part.ActiveView().RotateAboutCenter 0.0181595, -0.129487 Part.ActiveView().RotateAboutCenter 0.0121063, -0.104823 Part.ActiveView().RotateAboutCenter -0.0181595, -0.0924905 Part.ActiveView().RotateAboutCenter -0.108957, -0.135653 Part.ActiveView().RotateAboutCenter -0.072638, -0.0554943 Part.ActiveView().RotateAboutCenter -0.0484253, -0.0184981 Part.ActiveView().RotateAboutCenter -0.0302658, -0.0123321 Part.SetPickMode Part.SelectByID "@rodEnd-1@hook", "AXIS", -0.02259491148861, -0.09865056289797, 0.04172883704815 Part.SetPickMode Part.ClearSelection Part.SetPickMode Part.SetPickMode Part.AndSelectByID "@rodEnd-1@hook", "AXIS", -0.02252338445214, -0.09896903858855, 0.0420478950174 Part.AndSelectByID "", "FACE", 0.001865259983958, -0.04214082942698, -0.00438203279792 Part.AddMate 1, 2, 0, 0.01, 0.5235987755983 Part.ClearSelection Part.SelectByID "AllenAir.Piston.Rod-2@hook", "COMPONENT", 0, 0, 0 Part.TranslateComponent Part.SetPickMode Part.ClearSelection Part.SelectByID "rodEnd-1@hook", "COMPONENT", 0, 0, 0 Part.EditPart Part.ClearSelection Part.SelectByID "Base-Extrude@rodEnd-1@hook", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.SelectByID "Sketch1@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.00119501448007, -0.03286763520869, 0 Part.EditDelete Part.EditRebuild Part.SelectByID "", "FACE", -0.0008469137723637, -0.08816082732281, 0.008536462139574 Part.InsertSketch Part.CreateCircle 0, -0.02794, 0, 0.001116956416183, -0.03178278530041, 0 Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.003341882802492, -0.03176599259466, 0 Part.AddDimension 0.0350055, -0.0561167, 0.0127 Part.ClearSelection Part.Parameter("D1@Sketch2@rodEnd.Part").SystemValue = 0.009525 Part.FeatureCut2 1, 0, 0, 0, 0, 0.009525, 0.01905, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, -1 Part.EditAssembly Part.ClearSelection Part.SelectByID "", "EDGE", 0.004254058496372, -0.09728744969141, -0.00139055633727 Part.AndSelectByID "", "EDGE", 0.003988316168432, -0.06552134798221, -0.0003785648313084 ' MSGBOX ' Non-linear edges cannot be used for mating. Part.ClearSelection Part.AndSelectByID "", "FACE", 0.009524999999996, -0.09529303022018, -0.0006467253437492 Part.DeSelectByID "", "FACE", 0.009524999999996, -0.09529303022018, -0.0006467253437492 Part.ViewZoomTo2 0.0216344, -0.0541843, -0.0371863, 0.0705657, -0.0947439, -0.0371863 Part.AndSelectByID "", "FACE", 0.00245642856072, -0.09768582732281, 0.0006736815239137 Part.AndSelectByID "", "FACE", 0.004337882515188, -0.06364376634255, 0.001965752154746 Part.DeSelectByID "", "FACE", 0.004337882515188, -0.06364376634255, 0.001965752154746 Part.AndSelectByID "", "FACE", -0.00104515709927, -0.06518652103793, 0.001952481665093 Part.AddMate 0, 2, 0, 0.01, 0.5235987755983 Part.ClearSelection Part.ViewZoomtofit2 Part.SelectByID "AllenAir.Piston.Rod-2@hook", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.SelectByID "AllenAir.Piston.Rod-2@hook", "COMPONENT", 0, 0, 0 Part.TranslateComponent Part.SetPickMode Part.ClearSelection Part.ShowNamedView2 "*Bottom", 6 Part.SelectByID "Concentric4", "MATE", 0, 0, 0 Part.ClearSelection Part.SelectByID "Concentric4", "MATE", 0, 0, 0 Part.ShowNamedView2 "*Isometric", 7 Part.SelectByID "Concentric4", "MATE", 0, 0, 0 Part.SelectByID "Concentric4", "MATE", 0, 0, 0 Part.EditDelete Part.SelectByID "rodEnd-1@hook", "COMPONENT", 0, 0, 0 Part.TranslateComponent Part.SetPickMode Part.ClearSelection Part.AndSelectByID "@rodEnd-1@hook", "AXIS", 0.07037801127042, -0.06029821813879, 0.02006800565219 Part.AndSelectByID "", "FACE", -0.003315892951548, -0.08865311071634, 0.003418517249315 Part.AddMate 1, 2, 0, 0.01, 0.5235987755983 Part.ClearSelection Part.EditRebuild ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE Part.ShowNamedView2 "*Right", 4 Part.ViewZoomTo2 -0.0158321, -0.0751933, 6.68323e-016, 0.0248346, -0.112135, 9.26285e-016 Part.SelectByID "rodEnd-1@hook", "COMPONENT", 0, 0, 0 Part.EditPart Part.ClearSelection Part.SelectByID "Sketch2@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.ShowNamedView2 "*Normal To", 0 Part.ShowNamedView2 "*Isometric", 7 Part.ShowNamedView2 "*Right", 4 Part.ViewZoomTo2 -0.0322286, -0.0553256, 0.0123326, 0.0286163, -0.107478, 0.0123326 Part.ShowNamedView2 "*Bottom", 6 Part.ViewZoomTo2 -0.0211929, 0.0135689, -0.0165396, 0.0206814, -0.012361, -0.0165396 Part.ShowNamedView2 "*Isometric", 7 Part.SetPickMode Part.InsertSketch Part.SelectByID "", "FACE", 0.001607370611907, -0.09083557460275, 0.01142999999996 Part.ShowNamedView2 "*Normal To", 0 Part.ViewZoomTo2 -0.0356998, -0.0781286, -0.03937, 0.0369415, -0.109482, -0.03937 Part.InsertSketch Part.CreateLine2( -0.01905, 0.00635, 0, 0.02364493321165, 0.00635, 0 ).ConstructionGeometry = TRUE Part.CreateCircle -0.01666468048392, 0.00635, 0, -0.01582489686526, 0.007598027116432, 0 Part.CreateCircle 0.01783642984926, 0.00635, 0, 0.01643679048484, 0.007668009084654, 0 Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.01601936009084, 0.008146155915151, 0 Part.AddDimension -0.00665726, -0.03937, 0.0186552 Part.ClearSelection Part.Parameter("D1@Sketch3@rodEnd.Part").SystemValue = 0.0079375 Part.SetPickMode Part.ClearSelection Part.SelectByID "D1@Sketch3@rodEnd-1@hook", "DIMENSION", -0.004627781949824, -0.07608333844695, 0 Part.Parameter("D1@Sketch3@rodEnd.Part").SystemValue = 0.0047625 Part.SelectByID "", "FACE", -0.01148601483553, -0.09322892066121, 0.01143000000002 Part.HoleWizard Part.ClearSelection Part.EditRebuild Part.WindowRedraw Part.WindowRedraw Part.EditAssembly Part.SelectByID "pivotBlock-2@hook", "COMPONENT", 0, 0, 0 Part.OpenCompFile Set Part = swApp.OpenDoc ("C:\GENE\tiburon\tautLineHook\pivotBlock.SLDPRT", 1) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("pivotBlock.SLDPRT") swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ClearSelection Part.SelectByID "", "FACE", -0.01081133106106, 1.749819585674, 0.01904999999999 Part.HoleWizard Part.ClearSelection Part.EditRebuild Part.EditRebuild Part.WindowRedraw Part.WindowRedraw swApp.AppAbout swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 1538 swApp.ActiveDoc.ActiveView.FrameHeight = 345 Set Part = swApp.ActivateDoc ("rodEnd.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 690 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 690 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("hook.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 690 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.SelectByID "Sketch3@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Arc2", "SKETCHSEGMENT", 0.0195874195284, 0.008649648474381, 0 Part.AddDimension 0.0239948, -0.03937, 0.0227841 Part.ClearSelection Part.Parameter("D2@Sketch3@rodEnd.Part").SystemValue = 0.0047625 Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.01502129208257, 0.004626739681647, 0 Part.SelectByID "", "EDGE", -0.01897408543522, -0.09357883050231, 0.01143000000002 Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.0144988628156, 0.005360259938119, 0 Part.AndSelectByID "", "EDGE", -0.01904406740345, -0.09315893869298, 0.01143000000002 Part.AddDimension 0.0016706, -0.03937, -0.0106673 Part.ClearSelection Part.Parameter("D3@Sketch3@rodEnd.Part").SystemValue = 0.0047752 Part.SelectByID "Arc2", "SKETCHSEGMENT", 0.01648975856428, 0.004386119144983, 0 Part.AndSelectByID "", "EDGE", 0.01895614134081, -0.09427865018453, 0.01143000000002 Part.AddDimension 0.0281238, -0.03937, -0.011787 Part.ClearSelection Part.Parameter("D4@Sketch3@rodEnd.Part").SystemValue = 0.0047752 Part.SetPickMode Part.ClearSelection Part.SelectByID "D3@Sketch3@rodEnd-1@hook", "DIMENSION", 0.005449621474066, -0.1065954765915, 0 Part.Parameter("D3@Sketch3@rodEnd.Part").SystemValue = 0.003175 Part.SelectByID "D4@Sketch3@rodEnd-1@hook", "DIMENSION", 0.03008327428802, -0.1071553323373, 0 Part.Parameter("D4@Sketch3@rodEnd.Part").SystemValue = 0.003175 Part.SelectByID "D3@Sketch3@rodEnd-1@hook", "DIMENSION", 0.001040757476114, -0.1054057831317, 0 ' MSGBOX ' Please enter a number between 0 and 39370.079 Part.Parameter("D3@Sketch3@rodEnd.Part").SystemValue = 0.0047752 Part.SelectByID "D4@Sketch3@rodEnd-1@hook", "DIMENSION", 0.02896356279648, -0.1087649176064, 0 ' MSGBOX ' Please enter a number between 0 and 39370.079 Part.Parameter("D4@Sketch3@rodEnd.Part").SystemValue = 0.0047752 Part.ShowNamedView2 "*Isometric", 7 Part.ViewZoomTo2 -0.0413273, -0.0368746, 0.012458, 0.0397305, -0.108356, 0.012458 Part.ShowNamedView2 "*Right", 4 Part.ShowNamedView2 "*Isometric", 7 Part.ShowNamedView2 "*Isometric", 7 Part.ViewZoomTo2 -0.0382669, -0.0501368, 0.0187103, 0.0527786, -0.0997336, 0.0187103 Part.FeatureCut2 1, 0, 0, 0, 0, 0.015875, 0.009525, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, -1 Part.ShowNamedView2 "*Right", 4 Part.SelectByID "Cut-Extrude2@rodEnd-1@hook", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.ViewZoomTo2 -0.0294911, -0.0658803, 6.03291e-016, 0.0403563, -0.113687, 9.37123e-016 Part.AndSelectByID "", "FACE", 0.01904999999999, -0.09035562254288, -0.004894251751898 Part.AndSelectByID "", "EDGE", 0.01620162633577, -0.09055749360506, -0.007653156268321 Part.ClearSelection Part.ShowNamedView2 "*Front", 1 Part.ViewZoomTo2 -0.0335267, -0.0689847, 5.76396e-016, 0.0409771, -0.110272, 8.64706e-016 Part.SetPickMode Part.SelectByID "", "FACE", -0.01357291301608, -0.0898796554385, -0.007619999999974 Part.InsertSketch Part.CreateCircle -0.01524, 0.00762, 0, -0.01378824214907, 0.006561755663922, 0 Part.CreateCircle 0.0127, 0.00762, 0, 0.01470697978316, 0.007853730461857, 0 Part.SetPickMode Part.ClearSelection Part.SelectByID "Point4", "SKETCHPOINT", 0.0127, 0.00762, 0 Part.AndSelectByID "", "EDGE", 0.01513763804913, -0.09131518299177, 0.01143000000002 Part.SketchAddConstraints "sgCONCENTRIC" Part.ClearSelection Part.AndSelectByID "Arc1", "SKETCHSEGMENT", -0.01494176222354, 0.00509756977724, 0 Part.AndSelectByID "", "EDGE", -0.01364468939374, -0.09160228850242, 0.01143000000002 Part.SketchAddConstraints "sgCONCENTRIC" Part.ClearSelection Part.SelectByID "Arc2", "SKETCHSEGMENT", 0.01669264533557, 0.007128218435429, 0 Part.AddDimension 0.025617, -0.02032, 0.0184049 Part.ClearSelection Part.Parameter("D1@Sketch4@rodEnd.Part").SystemValue = 0.0034544 Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.01278422955887, 0.004293352300459, 0 Part.AddDimension -0.0104148, -0.02032, 0.0165387 Part.ClearSelection Part.Parameter("D2@Sketch4@rodEnd.Part").SystemValue = 0.0034544 Part.FeatureCut2 1, 0, 0, 1, 0, 0.015875, 0.015875, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, -1 Part.ShowNamedView2 "*Isometric", 7 Part.ShowNamedView2 "*Bottom", 6 Part.SelectByID "Sketch1@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.ViewZoomtofit2 Part.SelectByID "D3@Sketch1@rodEnd-1@hook", "DIMENSION", -0.06631327848708, 0.0165395909036, -0.002083965224484 Part.Parameter("D3@Sketch1@rodEnd.Part").SystemValue = 0.0238125 Part.EditRebuild Part.ClearSelection Part.EditAssembly Part.SelectByID "pivotBlock-2@hook", "COMPONENT", 0, 0, 0 Part.EditPart ' MSGBOX ' This part has features defined in the context of another assembly . You can edit the part, but cannot create any external references to the components of the current assembly. Part.ClearSelection Part.SelectByID "Base-Extrude@pivotBlock-2@hook", "BODYFEATURE", 0, 0, 0 ' MSGBOX ' This part has features defined in the context of another assembly . You can edit the part, but cannot create any external references to the components of the current assembly. Part.ClearSelection Part.EditAssembly Part.ClearSelection Part.SelectByID "Cut-Extrude2@rodEnd-1@hook", "BODYFEATURE", 0, 0, 0 Part.FeatEdit Part.ClearSelection Part.ShowNamedView2 "*Normal To", 0 Part.SelectByID "D3@Sketch3@rodEnd-1@hook", "DIMENSION", 0.005952495439256, -0.1062365947032, 0 ' MSGBOX ' Please enter a number between 0 and 39370.079 Part.Parameter("D3@Sketch3@rodEnd.Part").SystemValue = 0.00381 Part.SelectByID "D4@Sketch3@rodEnd-1@hook", "DIMENSION", 0.02644106244317, -0.1087200573703, 0 Part.Parameter("D4@Sketch3@rodEnd.Part").SystemValue = 0.00381 Part.ViewZoomTo2 -0.0399916, 0.0314906, -0.01143, 0.0553113, -0.0243873, -0.01143 Part.EditRebuild Part.ClearSelection Part.EditAssembly Part.ShowNamedView2 "*Isometric", 7 Part.SelectByID "AllenAir.Piston.Rod-2@hook", "COMPONENT", 0, 0, 0 Part.TranslateComponent Part.ShowNamedView2 "*Front", 1 Part.SetPickMode Part.ClearSelection Part.EditRebuild Part.SelectByID "pivotBlock-2@hook", "COMPONENT", 0, 0, 0 Part.EditPart ' MSGBOX ' This part has features defined in the context of another assembly . You can edit the part, but cannot create any external references to the components of the current assembly. Part.ClearSelection Part.ShowNamedView2 "*Isometric", 7 Part.AndSelectByID "", "EDGE", -0.02113052004233, -0.02730653997321, 0.0130189881246 Part.DeSelectByID "", "EDGE", -0.02113052004233, -0.02730653997321, 0.0130189881246 Part.AndSelectByID "", "EDGE", 0.03175072282028, -0.004763222937811, -0.001982327930023 Part.AndSelectByID "", "FACE", -0.03174999999999, -0.02019703241251, 0.00323242300027 Part.DeSelectByID "", "FACE", -0.03174999999999, -0.02019703241251, 0.00323242300027 Part.DeSelectByID "", "EDGE", 0.03175072282028, -0.004763222937811, -0.001982327930023 Part.AndSelectByID "", "EDGE", 0.031321251218, -0.004333681528522, -0.005743458865652 Part.AndSelectByID "", "EDGE", -0.03193901015391, -0.004573459124515, 0.002210498013085 Part.FeatureChamferType 1, 0.00635, 0.7853981633975, 0, 0, 0, 0, 0 Part.ShowNamedView2 "*Isometric", 7 Part.ClearSelection Part.ViewDisplayShaded Part.EditUndo 1 Part.ViewDisplayHiddengreyed Part.ShowNamedView2 "*Front", 1 Part.EditAssembly Part.SelectByID "rodEnd-1@hook", "COMPONENT", 0, 0, 0 Part.EditPart Part.ClearSelection Part.SelectByID "Sketch1@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Cut-Extrude1@rodEnd-1@hook", "BODYFEATURE", 0, 0, 0 Part.EditDelete Part.ClearSelection Part.SelectByID "Sketch2@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.EditDelete Part.SelectByID "Cut-Extrude2@rodEnd-1@hook", "BODYFEATURE", 0, 0, 0 Part.EditDelete Part.EditUndo 1 Part.SelectByID "Cut-Extrude2@rodEnd-1@hook", "BODYFEATURE", 0, 0, 0 Part.EditDelete Part.SelectByID "Sketch3@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.EditDelete Part.SelectByID "Sketch1@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.ShowNamedView2 "*Normal To", 0 Part.SelectByID "Point7", "SKETCHPOINT", 0, 0, 0 Part.AndSelectByID "Point23", "SKETCHPOINT", 0, 0, 0 Part.AndSelectByID "Point24", "SKETCHPOINT", 0, 0, 0 Part.AndSelectByID "Point22", "SKETCHPOINT", 0, 0, 0 Part.AndSelectByID "Line2", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line4", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line5", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line6", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line7", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line8", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line9", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line13", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line14", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line15", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line16", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line17", "SKETCHSEGMENT", 0, 0, 0 Part.EditDelete Part.SelectByID "Line10", "SKETCHSEGMENT", 0.04251867637604, -0.02746375, 0 Part.SketchMirror Part.ClearSelection Part.CreateLine2 -0.01148303251382, -0.02794, 0, -0.01148303251382, -0.01943866948434, 0 Part.CreateLine2 -0.01148303251382, -0.01943866948434, 0, 0, -0.01943866948434, 0 Part.SketchMirror Part.SelectByID "Line1", "SKETCHSEGMENT", 0, -0.06092258219889, 0 Part.SketchMirror Part.ClearSelection Part.SelectByID "Line18", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line20", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line21", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line23", "SKETCHSEGMENT", 0, 0, 0 Part.SketchMirror Part.SelectByID "Line1", "SKETCHSEGMENT", 0, -0.06258417324165, 0 Part.SetPickMode Part.ClearSelection Part.SelectByID "Line1", "SKETCHSEGMENT", 0, -0.05926099115612, 0 Part.AndSelectByID "Line21", "SKETCHSEGMENT", -0.006996736698355, -0.01943866948434, 0 Part.AndSelectByID "Line18", "SKETCHSEGMENT", -0.01148303251382, -0.02320446552812, 0 Part.AndSelectByID "Line20", "SKETCHSEGMENT", -0.01148303251382, -0.03151242074195, 0 Part.AndSelectByID "Line23", "SKETCHSEGMENT", -0.007162895802631, -0.03548883051566, 0 Part.SketchMirror Part.ClearSelection Part.ViewZoomTo2 -0.026105, -0.0132349, 0.068213, 0.00247433, -0.0418143, 0.068213 Part.SetPickMode Part.SelectByID "Line18", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 1, 0, -0.01153488589474, -0.02720206768753 Part.SetPickMode Part.SelectByID "Line18", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 1, 1, -0.01153488589474, -0.02765081141174 Part.SetPickMode Part.SelectByID "Line20", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 1, 0, -0.01145074644645, -0.0272301141703 Part.SetPickMode Part.SelectByID "Line28", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 2, 0, -0.01145074644645, -0.02641676617017 Part.ViewZoomtofit2 Part.ViewZoomTo2 0.00842874, -0.0254536, 0.068213, 0.0111558, -0.0310681, 0.068213 Part.SetPickMode Part.SelectByID "Line25", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 1, 0, 0.01146726245754, -0.02757485441144 Part.SetPickMode Part.SelectByID "Line25", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 1, 1, 0.01148379200563, -0.02730487179261 Part.SetPickMode Part.SelectByID "Line26", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 1, 0, 0.0114727723069, -0.02767403169999 Part.SetPickMode Part.SelectByID "Line29", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 2, 0, 0.0114727723069, -0.02820297723893 Part.ViewZoomtofit2 Part.SelectByID "Line21", "SKETCHSEGMENT", 0.006343338685506, -0.01943866948434, 0 Part.AddDimension -0.00103577, 0.0034212, 0 Part.ClearSelection Part.Parameter("D1@Sketch1@rodEnd.Part").SystemValue = 0.01905 Part.SelectByID "Line23", "SKETCHSEGMENT", -0.004564903660886, -0.03334088728848, 0 Part.SetPickMode Part.ClearSelection Part.SelectByID "D1@Sketch1@hook.SLDASM", "DIMENSION", 0, 0, 0 Part.AndSelectByID "Point43", "SKETCHPOINT", 0, 0, 0 Part.AndSelectByID "Point44", "SKETCHPOINT", 0, 0, 0 Part.AndSelectByID "Line29", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line20", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line21", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line23", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line26", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line28", "SKETCHSEGMENT", 0, 0, 0 Part.EditDelete Part.CreateCircle 0, -0.02794, 0, 0.02703691607793, -0.04999710768572, 0 Part.ClearSelection Part.SelectByID "Arc3", "SKETCHSEGMENT", 0.02685606869355, -0.003815846660927, 0 Part.AddDimension 0.0411535, 0.00935656, 0 Part.ClearSelection Part.Parameter("D1@Sketch1@rodEnd.Part").SystemValue = 0.01905 Part.EditRebuild Part.ClearSelection Part.ShowNamedView2 "*Isometric", 7 Part.SelectByID "", "EDGE", 0.00912280003979, -0.03138866015888, -0.0008721779602752 Part.InsertSketch Part.ViewZoomTo2 -0.0250308, 0.00339473, 0.0137467, 0.0320983, -0.0502006, 0.0137467 ' MSGBOX ' Please select a planar face. Part.ShowNamedView2 "*Normal To", 0 Part.SelectByID "", "FACE", 0.01034852750223, -0.01763769338322, 0.01905000000005 Part.ShowNamedView2 "*Normal To", 0 Part.ShowNamedView2 "*Top", 5 Part.CreateCircle 0, -0.02794, 0, 0.005573752943695, -0.02634264397345, 0 Part.SetPickMode Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.005430651460607, -0.02627686299019, 0 Part.AndSelectByID "", "EDGE", 0.0198479982873, -0.01428750000002, -0.01906631342325 Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.005480284460795, -0.02644853017839, 0 Part.AddDimension 0.0167213, -0.00275615, 0 Part.ClearSelection Part.Parameter("D1@Sketch5@rodEnd.Part").SystemValue = 0.009525 Part.FeatureCut2 1, 0, 1, 0, 0, 0.009525, 0.015875, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, -1 Part.ShowNamedView2 "*Isometric", 7 Part.EditAssembly Part.ClearSelection Part.SelectByID "Coincident2", "MATE", 0, 0, 0 Part.EditDelete Part.SelectByID "Concentric5", "MATE", 0, 0, 0 Part.EditDelete Part.SelectByID "rodEnd-1@hook", "COMPONENT", 0, 0, 0 Part.TranslateComponent Part.ClearSelection Part.SelectByID "", "FACE", 0.01197022391659, -0.03190693391167, 0.01904999999999 Part.SetPickMode Part.ClearSelection Part.SetPickMode Part.SetPickMode Part.SelectByID "rodEnd-1@hook", "COMPONENT", 0, 0, 0 Part.TranslateComponent Part.SetPickMode Part.ClearSelection Part.SelectByID "", "FACE", 0.0196636303088, -0.03144585162471, 0.01300031164209 Part.SelectByID "", "FACE", 0.01966363030891, -0.03108520845876, 0.01300031164214 Part.SelectByID "", "FACE", 0.003822321346661, -0.046923942972, -0.002840997320106 Part.AndSelectByID "@rodEnd-1@hook", "AXIS", 0.01880862677929, -0.07753920947388, 0.08252661152984 Part.AddMate 1, 2, 0, 0.01, 0.5235987755983 Part.ClearSelection Part.ViewZoomTo2 -0.0527119, -0.0195747, 0.0137467, 0.0530064, -0.110863, 0.0137467 Part.ActiveView().RotateAboutCenter -0.0242127, 0 Part.ActiveView().RotateAboutCenter -0.302658, 0 Part.ActiveView().RotateAboutCenter -0.121063, 0.0123321 Part.ActiveView().RotateAboutCenter -0.0847443, 0.00616603 Part.ActiveView().RotateAboutCenter -0.0242127, 0 Part.ActiveView().RotateAboutCenter -0.0121063, 0.00616603 Part.ActiveView().RotateAboutCenter -0.0181595, 0.00616603 Part.ActiveView().RotateAboutCenter -0.036319, 0.00616603 Part.ActiveView().RotateAboutCenter -0.0121063, 0 Part.ActiveView().RotateAboutCenter 0, 0.00616603 Part.ActiveView().RotateAboutCenter -0.0242127, 0.0123321 Part.ActiveView().RotateAboutCenter -0.0181595, 0.0554943 Part.ActiveView().RotateAboutCenter -0.0302658, 0.0493282 Part.ActiveView().RotateAboutCenter -0.0484253, 0.0493282 Part.ActiveView().RotateAboutCenter -0.0242127, 0.0123321 Part.ActiveView().RotateAboutCenter -0.00605317, 0 Part.SetPickMode Part.SelectByID "", "EDGE", -0.003086929442816, -0.05589585737954, -0.002423786521206 Part.AndSelectByID "", "EDGE", -0.003766835810552, -0.09321959562973, -0.002632308789032 ' MSGBOX ' Non-linear edges cannot be used for mating. Part.DeSelectByID "", "EDGE", -0.003086929442816, -0.05589585737954, -0.002423786521206 Part.DeSelectByID "", "EDGE", -0.003766835810552, -0.09321959562973, -0.002632308789032 Part.AndSelectByID "", "FACE", 0.0001226831976737, -0.09330605628612, -0.001819612484383 Part.AndSelectByID "", "EDGE", -0.0004353269004014, -0.05614703986647, -0.003944463372591 ' MSGBOX ' Non-linear edges cannot be used for mating. ' MSGBOX ' Non-linear edges cannot be used for mating. Part.DeSelectByID "", "EDGE", -0.0004353269004014, -0.05614703986647, -0.003944463372591 Part.AndSelectByID "", "FACE", -0.002121843272676, -0.05589327781816, -0.001661339496593 Part.AddMate 0, 2, 0, 0.01, 0.5235987755983 ' MSGBOX ' This mate has over defined the assembly. Consider deleting some of the over defining mates. Part.ClearSelection Part.SelectByMark "", "FACE", 0.0001226831976737, -0.09330605628612, -0.001819612484383, 8 Part.AndSelectByMark "", "FACE", -0.002121843272676, -0.05589327781816, -0.001661339496593, 8 Part.EditMate 0, 1, 0, 0.01, 0.5235987755983 ' MSGBOX ' Nothing has been changed. Part.ClearSelection Part.SelectByID "Coincident3", "MATE", 0, 0, 0 Part.ClearSelection Part.SelectByID "Coincident3", "MATE", 0, 0, 0 Part.ClearSelection Part.SelectByMark "", "FACE", 0, -0.09330605628614, 0, 8 Part.AndSelectByMark "", "FACE", 0, -0.09330605628614, 0, 8 Part.EditMate 0, 0, 0, 0.01, 0.5235987755983 Part.ClearSelection Part.SelectByID "Concentric6", "MATE", 0, 0, 0 ' MSGBOX ' This mate has over defined the assembly. Consider deleting some of the over defining mates. Part.ClearSelection Part.SelectByMark "", "FACE", 0, -0.09330605628614, 0, 8 Part.AndSelectByMark "@rodEnd-1@hook", "AXIS", 0, -0.02794, 0.0127, 8 Part.EditMate 1, 0, 0, 0.01, 0.5235987755983 Part.ClearSelection Part.SelectByID "Concentric6", "MATE", 0, 0, 0 Part.EditDelete Part.SelectByID "Coincident3", "MATE", 0, 0, 0 Part.EditDelete Part.SelectByID "rodEnd-1@hook", "COMPONENT", 0, 0, 0 Part.EditPart ' MSGBOX ' The part you are editing is not mated or fixed in space. Adding in-context features may produce undesirable results. It is recommended that you position the component before doing so. Part.ClearSelection Part.SelectByID "Sketch5@rodEnd-1@hook", "SKETCH", 0, 0, 0 ' MSGBOX ' The part you are editing is not mated or fixed in space. Adding in-context features may produce undesirable results. It is recommended that you position the component before doing so. Part.AndSelectByID "FRONT@rodEnd-1@hook", "PLANE", 0, 0, 0 Part.SelectByID "", "FACE", -0.007903597485836, -0.09013105628613, 0.0003137150318366 Part.SelectByID "Sketch5@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.AndSelectByID "", "FACE", 0, -0.02794, 0.0127 Part.ChangeSketchPlane Part.SelectByID "Cut-Extrude5@rodEnd-1@hook", "BODYFEATURE", 0, 0, 0 ' MSGBOX ' The part you are editing is not mated or fixed in space. Adding in-context features may produce undesirable results. It is recommended that you position the component before doing so. Part.ClearSelection Part.EditRebuild Part.ClearSelection Part.EditAssembly Part.SelectByID "rodEnd-1@hook", "COMPONENT", 0, 0, 0 Part.TranslateComponent Part.SetPickMode Part.ClearSelection Part.AndSelectByID "", "FACE", -0.00167274269711, -0.1042727097687, -0.0005146924638666 Part.AndSelectByID "", "EDGE", 0.0005815753874003, -0.0931772559756, -0.003761806990099 ' MSGBOX ' Non-linear edges cannot be used for mating. ' MSGBOX ' Non-linear edges cannot be used for mating. Part.DeSelectByID "", "EDGE", 0.0005815753874003, -0.0931772559756, -0.003761806990099 Part.ActiveView().RotateAboutCenter 0.00605317, 0 Part.ActiveView().RotateAboutCenter 0.0544785, 0 Part.ActiveView().RotateAboutCenter 0.072638, 0 Part.ActiveView().RotateAboutCenter 0.0302658, -0.00616603 Part.ActiveView().RotateAboutCenter 0.0121063, 0 Part.ActiveView().RotateAboutCenter 0.0242127, -0.00616603 Part.ActiveView().RotateAboutCenter -0.0121063, 0 Part.ActiveView().RotateAboutCenter -0.0665848, -0.00616603 Part.ActiveView().RotateAboutCenter -0.121063, -0.0123321 Part.ActiveView().RotateAboutCenter -0.0907975, -0.0123321 Part.ActiveView().RotateAboutCenter -0.0605317, -0.00616603 Part.ActiveView().RotateAboutCenter -0.072638, -0.00616603 Part.ActiveView().RotateAboutCenter -0.036319, 0 Part.ActiveView().RotateAboutCenter -0.00605317, 0 Part.SetPickMode Part.ClearSelection Part.SelectByID "", "EDGE", 0.003532017210205, -0.09348262835283, 0.001599907008995 Part.DeSelectByID "", "EDGE", 0.003532017210205, -0.09348262835283, 0.001599907008995 Part.AndSelectByID "", "FACE", 0.001145102239775, -0.09330605628611, -0.0006959483574178 Part.AndSelectByID "", "FACE", 0.0004494684920928, -0.1042727097688, -0.003591967781858 Part.AddMate 0, 2, 0, 0.01, 0.5235987755983 Part.ClearSelection Part.EditRebuild Part.SelectByID "Base-Extrude@rodEnd-1@hook", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.EditRebuild Part.ClearSelection Part.SelectByID "", "FACE", -0.004336713105033, -0.1218810562862, -0.005026442412031 Part.InsertSketch Part.ClearSelection Part.InsertSketch Part.SelectByID "rodEnd-1@hook", "COMPONENT", 0, 0, 0 Part.SelectByID "", "FACE", -0.00121421194558, -0.1218810562863, -0.006962685773487 Part.InsertSketch Part.ShowNamedView2 "*Normal To", 0 Part.CreateLine2( -0.01191548980269, -0.0286539169921, 0, 0.01574679239518, -0.0286539169921, 0 ).ConstructionGeometry = TRUE Part.ClearSelection Part.SelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0 Part.SelectByID "", "EDGE", 0.007697330698535, -0.1218810562862, -0.005492366175518 Part.ClearSelection Part.SelectByID "", "EDGE", -0.008098233339084, -0.1218810562862, -0.005251824591189 Part.ShowNamedView2 "*Isometric", 7 Part.ActiveView().RotateAboutCenter -0.0181595, 0 Part.ActiveView().RotateAboutCenter -0.387403, 0.0123321 Part.ActiveView().RotateAboutCenter -0.314765, 0.0123321 Part.ActiveView().RotateAboutCenter -0.13317, 0.00616603 Part.ActiveView().RotateAboutCenter -0.121063, 0 Part.ActiveView().RotateAboutCenter -0.11501, 0.0123321 Part.ActiveView().RotateAboutCenter -0.108957, 0.0184981 Part.ActiveView().RotateAboutCenter -0.0968506, 0.0123321 Part.ActiveView().RotateAboutCenter -0.0665848, 0.00616603 Part.ActiveView().RotateAboutCenter -0.102904, 0.00616603 Part.ActiveView().RotateAboutCenter -0.0847443, 0 Part.ActiveView().RotateAboutCenter -0.0484253, 0 Part.ActiveView().RotateAboutCenter -0.0423722, -0.00616603 Part.ActiveView().RotateAboutCenter -0.0302658, -0.00616603 Part.ActiveView().RotateAboutCenter -0.0181595, -0.00616603 Part.ActiveView().RotateAboutCenter 0, -0.00616603 Part.ActiveView().RotateAboutCenter -0.00605317, -0.00616603 Part.ActiveView().RotateAboutCenter -0.0484253, -0.0184981 Part.ActiveView().RotateAboutCenter -0.0242127, -0.00616603 Part.ActiveView().RotateAboutCenter 0, -0.00616603 Part.ViewZoomTo2 -0.028128, -0.00925341, 0.00193577, 0.0156662, -0.0801074, 0.00193577 ' MSGBOX ' Please select a planar face. Part.ShowNamedView2 "*Normal To", 0 Part.ClearSelection Part.ShowNamedView2 "*Normal To", 0 Part.InsertSketch Part.EditAssembly Part.ClearSelection Part.ShowNamedView2 "*Isometric", 7 Part.SelectByID "", "FACE", 0.02579993934989, -0.01580780136902, -0.02168658999057 Part.AndSelectByID "@AllenAir.Cyl-2@hook", "AXIS", -0.03534999698717, 0.07204367567855, -0.03332929361098 Part.AndSelectByID "", "FACE", 0.004762500000027, 0.1121496537866, 0.006783203376244 Part.AddMate 3, 2, 0, 0.01, 0.5235987755983 Part.ClearSelection Part.ShowNamedView2 "*Bottom", 6 Part.SelectByID "Sketch7@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.EditDelete Part.SelectByID "rodEnd-1@hook", "COMPONENT", 0, 0, 0 Part.EditPart Part.ClearSelection Part.ActiveView().RotateAboutCenter 0.0181595, -0.0123321 Part.ActiveView().RotateAboutCenter 0.072638, -0.0739924 Part.ActiveView().RotateAboutCenter 0.036319, -0.0678263 Part.ActiveView().RotateAboutCenter 0.0302658, -0.0554943 Part.ActiveView().RotateAboutCenter 0.0181595, -0.0493282 Part.ActiveView().RotateAboutCenter -0.00605317, -0.0123321 Part.ActiveView().RotateAboutCenter -0.0484253, -0.0123321 Part.ActiveView().RotateAboutCenter -0.0665848, 0.0123321 Part.ActiveView().RotateAboutCenter -0.0544785, 0.0369962 Part.ActiveView().RotateAboutCenter -0.0242127, 0.0369962 Part.ActiveView().RotateAboutCenter -0.00605317, 0.0431622 Part.ActiveView().RotateAboutCenter 0.00605317, 0.0431622 Part.ActiveView().RotateAboutCenter 0.036319, 0.0246641 Part.ActiveView().RotateAboutCenter 0.0484253, 0.00616603 Part.ActiveView().RotateAboutCenter 0.036319, -0.00616603 Part.ActiveView().RotateAboutCenter 0.0423722, 0 Part.ActiveView().RotateAboutCenter 0.036319, 0.0184981 Part.ActiveView().RotateAboutCenter -0.00605317, 0 Part.ActiveView().RotateAboutCenter -0.0242127, 0.00616603 Part.ActiveView().RotateAboutCenter -0.0242127, 0.0123321 Part.ActiveView().RotateAboutCenter -0.0181595, 0.0184981 Part.ActiveView().RotateAboutCenter -0.00605317, 0.0246641 Part.ActiveView().RotateAboutCenter 0, 0.0123321 Part.ActiveView().RotateAboutCenter 0.0181595, 0.0431622 Part.ActiveView().RotateAboutCenter 0.0181595, 0.0431622 Part.ActiveView().RotateAboutCenter 0.0121063, 0.0246641 Part.ActiveView().RotateAboutCenter 0.00605317, 0.0184981 Part.ActiveView().RotateAboutCenter 0, -0.00616603 Part.ActiveView().RotateAboutCenter 0, -0.00616603 Part.SetPickMode Part.SelectByID "", "EDGE", 0.004041787398428, -0.1218853678589, -0.008649180508215 Part.InsertSketch ' MSGBOX ' Please select a planar face. Part.ShowNamedView2 "*Normal To", 0 Part.ShowNamedView2 "*Bottom", 6 Part.CreateLine2( -0.03160337077436, -0.04057295404221, 0, 0.03285188600571, -0.01654493512843, 0 ).ConstructionGeometry = TRUE Part.ClearSelection Part.CreateLine2 -0.01016, -0.03556, 0, 0.0254, -0.02286, 0 Part.SketchAddConstraints "sgHORIZONTAL" Part.ClearSelection Part.SelectByID "", "FACE", -0.02440216227788, -0.0809625, 0.01695916292015 Part.ClearSelection Part.InsertSketch Part.SelectByID "Sketch8@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.EditDelete Part.EditAssembly Part.ShowNamedView2 "*Isometric", 7 Part.SelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0 Part.SelectByID "Point1@Origin@rodEnd-1@hook", "EXTSKETCHPOINT", 0, 0, 0 Part.SelectByID "rodEnd-1@hook", "COMPONENT", 0, 0, 0 Part.EditPart Part.ClearSelection Part.SelectByID "Point1@Origin@rodEnd-1@hook", "EXTSKETCHPOINT", 0, 0, 0 Part.EditAssembly Part.ClearSelection Part.SelectByID "rodEnd-1@hook", "COMPONENT", 0, 0, 0 Part.OpenCompFile Set Part = swApp.OpenDoc ("C:\GENE\tiburon\tautLineHook\rodEnd.SLDPRT", 1) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("rodEnd.SLDPRT") swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ClearSelection Part.ViewDispOrigins Part.SelectByID "FRONT", "PLANE", 0, 0, 0 Part.ShowNamedView2 "*Front", 1 Part.ViewDisplayHiddengreyed Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.892857 Part.ActiveView().ZoomByFactor 0.847458 Part.ActiveView().ZoomByFactor 0.847458 Part.ActiveView().ZoomByFactor 0.884956 Part.ActiveView().ZoomByFactor 0.862069 Part.ActiveView().ZoomByFactor 0.900901 Part.ActiveView().ZoomByFactor 0.854701 Part.ActiveView().ZoomByFactor 0.917431 Part.ActiveView().ZoomByFactor 0.909091 Part.ActiveView().ZoomByFactor 0.917431 Part.ActiveView().ZoomByFactor 0.862069 Part.ActiveView().ZoomByFactor 0.943396 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 1 Part.SetPickMode Part.ClearSelection Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Arc3", "SKETCHSEGMENT", 0.007283005576909, -0.0352059379999, 0 Part.AndSelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0 ' MSGBOX ' The sketch is over defined. Consider deleting some over defining dimensions or relations. Part.SketchAddConstraints "sgCOINCIDENT" Part.ClearSelection Part.SketchConstraintsDel 0, "sgCOINCIDENT" ' MSGBOX ' The sketch is no longer over defined. Part.SketchConstraintsDel 0, "sgCOINCIDENT" Part.SelectByID "Line10", "SKETCHSEGMENT", -0.006349927167098, -0.02531580677282, 0 Part.EditDelete Part.SelectByID "Line1", "SKETCHSEGMENT", 0, -0.0272912372247, 0 Part.EditDelete Part.SelectByID "Arc3", "SKETCHSEGMENT", 0.001804346260617, -0.01889960567254, 0 Part.AndSelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0 Part.SketchAddConstraints "sgCOINCIDENT" Part.ClearSelection Part.EditRebuild Part.SelectByID "D1@Cut-Extrude5@rodEnd.SLDPRT", "DIMENSION", 0.008404605486761, -0.02982864092951, 0.01905 Part.SelectByID "Sketch5", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Point2", "SKETCHPOINT", 0.0003694937548825, -0.0286539169921, 0 Part.AndSelectByID "", "EDGE", 0.006713003016892, -0.01676571074552, 0.03809999999999 ' MSGBOX ' The sketch is over defined. Consider deleting some over defining dimensions or relations. Part.SketchAddConstraints "sgCONCENTRIC" Part.ClearSelection ' MSGBOX ' The sketch is no longer over defined. Part.SketchConstraintsDel 0, "sgCOINCIDENT" Part.EditRebuild Part.ShowNamedView2 "*Isometric", 7 Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Arc3", "SKETCHSEGMENT", 0.009265756404972, -0.006853580833557, 0 Part.AndSelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0 Part.SketchAddConstraints "sgCOINCIDENT" Part.ClearSelection Part.SketchConstraintsDel 0, "sgCOINCIDENT" Part.SelectByID "Point50", "SKETCHPOINT", 0.0001228151614767, -0.009524208178957, 0 Part.AndSelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0 Part.SketchAddConstraints "sgCOINCIDENT" Part.ClearSelection Part.EditRebuild swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 690 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("hook.SLDASM") ' MSGBOX ' Models contained within the assembly have changed. Would you like to rebuild the assembly now? swApp.ActiveDoc.ActiveView.FrameState = 1 Part.SelectByID "", "FACE", 0.0127851302255, -0.06231910027213, 0.01904999999999 Part.DeSelectByID "", "FACE", 0.0127851302255, -0.06231910027213, 0.01904999999999 Part.SetPickMode Part.AndSelectByID "", "FACE", -0.001896087524187, -0.07115536327831, 0.00436878225031 Part.AndSelectByID "@rodEnd-1@hook", "AXIS", 0.05377857213759, -0.06662607645118, 0.0161893534906 Part.AddMate 1, 2, 0, 0.01, 0.5235987755983 Part.ClearSelection Part.SelectByID "", "FACE", 0.009094872658466, -0.1144225705773, 0.002830002883968 Part.ClearSelection Part.ViewZoomTo2 -0.0388471, 0.0264211, 0.00193577, 0.036121, -0.0229896, 0.00193577 Part.ViewZoomtofit2 Part.SelectByID "", "FACE", 0.009175926694809, -0.1146143805336, 0.002554993989691 Part.SelectByID "", "FACE", 0.009175926694809, -0.1146143805336, 0.002554993989691 Part.SelectByID "", "FACE", 0.009175926694923, -0.1141852061166, 0.002554993989747 Part.ClearSelection Part.SelectByID "FRONT@rodEnd-1@hook", "PLANE", 0, 0, 0 Part.SelectByID "TOP@rodEnd-1@hook", "PLANE", 0, 0, 0 Part.SelectByID "RIGHT@rodEnd-1@hook", "PLANE", 0, 0, 0 Part.AndSelectByID "RIGHT", "PLANE", 0, 0, 0 Part.AddMate 3, 2, 0, 0.01, 0.5235987755983 Part.ClearSelection Part.SelectByID "Right@AllenAir.Piston.Rod-2@hook", "PLANE", 0, 0, 0 Part.AndSelectByID "RIGHT", "PLANE", 0, 0, 0 Part.DeSelectByID "Right@AllenAir.Piston.Rod-2@hook", "PLANE", 0, 0, 0 Part.SelectByID "Right@AllenAir.Piston.Rod-2@hook", "PLANE", 0, 0, 0 Part.AndSelectByID "RIGHT", "PLANE", 0, 0, 0 Part.AddMate 3, 2, 0, 0.01, 0.5235987755983 Part.ClearSelection Part.SelectByID "rodEnd-1@hook", "COMPONENT", 0, 0, 0 Part.EditPart Part.ClearSelection Part.ShowNamedView2 "*Bottom", 6 Part.ActiveView().RotateAboutCenter 0, -0.00616603 Part.ActiveView().RotateAboutCenter 0.036319, -0.0924905 Part.ActiveView().RotateAboutCenter 0.0605317, -0.154151 Part.ActiveView().RotateAboutCenter 0.0484253, -0.160317 Part.ActiveView().RotateAboutCenter 0.0423722, -0.0863244 Part.ActiveView().RotateAboutCenter 0.00605317, -0.00616603 Part.ActiveView().RotateAboutCenter -0.0242127, 0.0184981 Part.ActiveView().RotateAboutCenter -0.0786911, 0.104823 Part.ActiveView().RotateAboutCenter -0.0423722, 0.110989 Part.ActiveView().RotateAboutCenter -0.0242127, 0.0678263 Part.ActiveView().RotateAboutCenter 0.0423722, -0.00616603 Part.ActiveView().RotateAboutCenter 0.0423722, -0.0123321 Part.ActiveView().RotateAboutCenter 0.0544785, -0.0431622 Part.ActiveView().RotateAboutCenter 0.0423722, -0.0369962 Part.ActiveView().RotateAboutCenter 0.0121063, -0.00616603 Part.ActiveView().RotateAboutCenter 0.0121063, -0.0184981 Part.ActiveView().RotateAboutCenter -0.00605317, -0.0123321 Part.ActiveView().RotateAboutCenter -0.0302658, -0.0184981 Part.ActiveView().RotateAboutCenter 0, -0.0123321 Part.ActiveView().RotateAboutCenter 0, -0.00616603 Part.SetPickMode Part.SelectByID "", "FACE", -0.004379230183133, -0.121881056286, 0.005571636053816 Part.InsertSketch Part.CreateLine2( 0.02032, 0, 0, -0.03048, 0, 0 ).ConstructionGeometry = TRUE Part.CreateLine2 0.009105829108761, -0.002794548486256, 0, -0.009105829108761, -0.002794548486256, 0 Part.SetPickMode Part.ClearSelection Part.SelectByID "Line2", "SKETCHSEGMENT", 0.005332964960786, -0.002794548486256, 0 Part.AndSelectByID "Line1", "SKETCHSEGMENT", 0.005236811349363, 0, 0 Part.SketchAddConstraints "sgPARALLEL" Part.ClearSelection Part.SetPickMode Part.SetPickMode Part.SetPickMode Part.SetPickMode Part.SetPickMode Part.SelectByID "Point5", "SKETCHPOINT", -0.009105829108761, -0.002794548486256, 0 Part.ClearSelection Part.CreateArcVB 0, 0, 0, -0.009167126580085, -0.002586390392943, 0, 0.009167126580085, -0.002586390392943, 0, 1 Part.SetPickMode Part.ClearSelection Part.SelectByID "Point5", "SKETCHPOINT", -0.009167126580085, -0.002586390392943, 0 Part.AndSelectByID "Arc2", "SKETCHSEGMENT", -0.008367759348725, -0.004550409704832, 0 Part.SelectByID "", "FACE", 0.004757302550018, -0.06272718461742, -0.0002224380753404 Part.ViewZoomTo2 -0.0398017, -0.0197378, -0.00335322, -0.0347155, -0.0229671, -0.00335322 Part.ViewZoomTo2 -0.0371214, -0.0208502, -0.00335322, -0.0369352, -0.021203, -0.00335322 Part.SetPickMode Part.ClearSelection Part.SelectByID "Point5", "SKETCHPOINT", -0.009167126580085, -0.002586390392943, 0 Part.AndSelectByID "", "FACE", 0.009163471444452, -0.1218810562861, 0.00257299428317 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.943396 Part.ActiveView().ZoomByFactor 0.884956 Part.ActiveView().ZoomByFactor 0.900901 Part.ActiveView().ZoomByFactor 0.925926 Part.ActiveView().ZoomByFactor 0.854701 Part.ActiveView().ZoomByFactor 0.862069 Part.ActiveView().ZoomByFactor 0.900901 Part.ActiveView().ZoomByFactor 0.900901 Part.ActiveView().ZoomByFactor 0.900901 Part.ActiveView().ZoomByFactor 0.869565 Part.ActiveView().ZoomByFactor 0.869565 Part.ActiveView().ZoomByFactor 0.595238 Part.ActiveView().ZoomByFactor 0.675676 Part.ActiveView().ZoomByFactor 0.847458 Part.ActiveView().ZoomByFactor 0.813008 Part.ActiveView().ZoomByFactor 0.649351 Part.ActiveView().ZoomByFactor 0.862069 Part.ActiveView().ZoomByFactor 0.862069 Part.ActiveView().ZoomByFactor 0.884956 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.917431 Part.ActiveView().ZoomByFactor 0.819672 Part.ActiveView().ZoomByFactor 0.884956 Part.ActiveView().ZoomByFactor 0.877193 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 1.01 Part.SetPickMode Part.ClearSelection Part.SelectByID "Point5", "SKETCHPOINT", -0.009167126580085, -0.002586390392943, 0 Part.AndSelectByID "", "EDGE", 0.009463031619276, -0.1218861457918, 0.0009720264181539 Part.SketchAddConstraints "sgCOINCIDENT" Part.ClearSelection Part.ViewZoomTo2 -0.037272, -0.0208672, -0.00335322, -0.0368033, -0.0212797, -0.00335322 Part.SetPickMode Part.SelectByID "", "FACE", 0.009181165253779, -0.121881056286, 0.002510602825538 Part.AndSelectByID "Point5", "SKETCHPOINT", -0.009167126580085, -0.002586390392943, 0 Part.SketchConstraintsDel 0, "sgCOINCIDENT" Part.ClearSelection Part.ShowNamedView2 "*Right", 4 Part.ViewZoomTo2 -0.0128097, -0.118952, 8.54056e-016, 0.0090492, -0.125892, 9.02513e-016 Part.ShowNamedView2 "*Bottom", 6 Part.SetPickMode Part.SelectByID "Line2", "SKETCHSEGMENT", -0.00589356031551, -0.002586390392943, 0 Part.EditDelete Part.ViewZoomTo2 -0.0100917, 0.00327133, -0.00335322, -0.00823484, 0.00197959, -0.00335322 Part.ViewOrientationUndo Part.SelectByID "Arc2", "SKETCHSEGMENT", -0.006509724674884, -0.006953352404215, 0 Part.AndSelectByID "Point8", "SKETCHPOINT", 0, 0, 0 Part.SelectByID "Arc2", "SKETCHSEGMENT", -0.008148865310725, -0.004931695362415, 0 Part.DeSelectByID "Point8", "SKETCHPOINT", 0, 0, 0 Part.ClearSelection Part.SelectByID "Arc2", "SKETCHSEGMENT", -0.007686661906193, -0.005625020332398, 0 Part.AndSelectByID "Point1@Origin@rodEnd-1@hook", "EXTSKETCHPOINT", 0, 0, 0 ' MSGBOX ' The sketch is over defined. Consider deleting some over defining dimensions or relations. Part.SketchAddConstraints "sgCOINCIDENT" Part.ClearSelection Part.SketchConstraintsDel 0, "sgCOINCIDENT" ' MSGBOX ' A solution cannot be determined for this sketch. Consider: ' o Moving the sketch closer to the desired solution by dragging or changing dimension values. ' o Adding more dimensions or relations to further define the sketch. ' o Changing the dimensioning scheme. Part.SketchConstraintsDel 0, "sgCOINCIDENT" ' MSGBOX ' The sketch can now find a valid solution. Part.SketchConstraintsDel 0, "sgCOINCIDENT" Part.SelectByID "Arc2", "SKETCHSEGMENT", 0.01787576852883, -0.004581516122184, 0 Part.EditDelete Part.ViewZoomTo2 -0.00121101, 0.000849321, -0.00335322, 0.000968804, -0.000523152, -0.00335322 Part.ViewOrientationUndo Part.CreateArcVB 0, 0, 0, -0.003893361160771, -0.002742835234169, 0, 0.003900776330098, -0.002732279318179, 0, 1 Part.CreateLine2 0.004478857109501, -0.001619026016677, 0, -0.004478857109501, -0.001619026016677, 0 Part.SetPickMode Part.ClearSelection Part.SelectByID "Line3", "SKETCHSEGMENT", -0.001130271841331, -0.001619026016677, 0 Part.AndSelectByID "Line1", "SKETCHSEGMENT", -0.006700897345031, 0, 0 Part.SketchAddConstraints "sgPARALLEL" Part.ClearSelection Part.ViewZoomTo2 -0.0071853, 0.00545114, -0.00335322, 0.00581283, -0.00165342, -0.00335322 Part.SetPickMode Part.SelectByID "", "EDGE", 0.004548076377774, -0.09330605628617, 0.001279005912723 Part.AndSelectByID "Point17", "SKETCHPOINT", -0.004478857109501, -0.001619026016677, 0 Part.SketchAddConstraints "sgCOINCIDENT" Part.ClearSelection Part.ViewZoomTo2 0.00426006, 0.00191764, -0.00335322, 0.00466078, 0.00125396, -0.00335322 Part.SetPickMode Part.SelectByID "Line3", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 1, 1, -0.00447279523495, -0.001618692714868 Part.EditUndo 1 Part.ViewOrientationUndo Part.SelectByID "Line3", "SKETCHSEGMENT", -0.0007538256734225, -0.001619026016677, 0 Part.EditDelete Part.CreateLine2 0.004413112623598, -0.001790486867151, 0, -0.004413112623598, -0.001790486867151, 0 Part.ViewZoomTo2 -0.00473093, 0.00194269, -0.00335322, -0.00401716, 0.0015545, -0.00335322 Part.ViewOrientationUndo Part.ShowNamedView2 "*Isometric", 7 Part.ViewZoomTo2 -0.0370205, -0.0668365, -0.00389006, 0.0306142, -0.121855, -0.00389006 Part.ViewZoomTo2 -0.00711267, -0.102979, -0.00389006, -0.00633077, -0.109821, -0.00389006 Part.ViewOrientationUndo Part.ActiveView().RotateAboutCenter -0.0121063, 0 Part.ActiveView().RotateAboutCenter -0.0847443, -0.0369962 Part.ActiveView().RotateAboutCenter -0.199754, -0.135653 Part.ActiveView().RotateAboutCenter -0.0847443, -0.0493282 Part.ActiveView().RotateAboutCenter -0.072638, -0.0431622 Part.ActiveView().RotateAboutCenter -0.0544785, -0.0184981 Part.ActiveView().RotateAboutCenter -0.0302658, -0.0123321 Part.ActiveView().RotateAboutCenter -0.0181595, 0 Part.ActiveView().RotateAboutCenter -0.0605317, -0.00616603 Part.ActiveView().RotateAboutCenter -0.102904, -0.00616603 Part.ActiveView().RotateAboutCenter -0.102904, -0.00616603 Part.ActiveView().RotateAboutCenter -0.072638, 0 Part.ActiveView().RotateAboutCenter -0.0786911, 0 Part.ActiveView().RotateAboutCenter -0.0544785, -0.00616603 Part.ActiveView().RotateAboutCenter -0.036319, -0.00616603 Part.ActiveView().RotateAboutCenter -0.0665848, -0.0184981 Part.ActiveView().RotateAboutCenter -0.0544785, -0.0246641 Part.ActiveView().RotateAboutCenter -0.0302658, -0.0184981 Part.ActiveView().RotateAboutCenter -0.0423722, -0.0493282 Part.ActiveView().RotateAboutCenter -0.0302658, -0.0369962 Part.ActiveView().RotateAboutCenter -0.00605317, -0.00616603 Part.ActiveView().RotateAboutCenter -0.00605317, -0.0123321 Part.ActiveView().RotateAboutCenter -0.00605317, -0.0246641 Part.ActiveView().RotateAboutCenter 0, -0.0246641 Part.ActiveView().RotateAboutCenter -0.0181595, -0.0184981 Part.ActiveView().RotateAboutCenter -0.0423722, -0.0308302 Part.ActiveView().RotateAboutCenter -0.0423722, -0.0184981 Part.ActiveView().RotateAboutCenter -0.0423722, -0.0123321 Part.ActiveView().RotateAboutCenter -0.0544785, 0 Part.ActiveView().RotateAboutCenter -0.0181595, 0 Part.ActiveView().RotateAboutCenter 0.00605317, 0.00616603 Part.ActiveView().RotateAboutCenter 0.0544785, 0.0308302 Part.ActiveView().RotateAboutCenter 0.00605317, 0 Part.ActiveView().RotateAboutCenter 0.0121063, 0.00616603 Part.ActiveView().RotateAboutCenter 0.0181595, 0.0123321 Part.ActiveView().RotateAboutCenter -0.00605317, 0 Part.ShowNamedView2 "*Bottom", 6 Part.SetPickMode Part.ClearSelection Part.SelectByID "Arc3", "SKETCHSEGMENT", -0.002849982878165, -0.003815626271553, 0 Part.EditDelete Part.SelectByID "Line4", "SKETCHSEGMENT", -0.00258347849447, -0.001790486867151, 0 Part.EditDelete Part.SelectByID "AllenAir.Cyl-2@hook", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.InsertSketch Part.SelectByID "AllenAir.Cyl-2@hook", "COMPONENT", 0, 0, 0 Part.EditAssembly Part.ClearSelection Part.SelectByID "AllenAir.Cyl-2@hook", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.SelectByID "AllenAir.Piston.Rod-2@hook", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.SelectByID "Sketch9@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.CreateArcVB 0, 0, 0, -0.009007169646066, -0.00309782503815, 0, 0.007099515828562, -0.00635, 0, 1 Part.CreateLine2 -0.009007169646066, -0.00309782503815, 0, 0.009007169646066, -0.00309782503815, 0 Part.SetPickMode Part.ClearSelection Part.SelectByID "Line6", "SKETCHSEGMENT", 0.006781631047984, -0.00309782503815, 0 Part.AndSelectByID "Line1", "SKETCHSEGMENT", 0.01445133282844, 0, 0 Part.SketchAddConstraints "sgPARALLEL" Part.ClearSelection Part.AndSelectByID "Point28", "SKETCHPOINT", 0.009007169646066, -0.00309782503815, 0 Part.AndSelectByID "Point21", "SKETCHPOINT", 0.007099515828562, -0.00635, 0 Part.SketchAddConstraints "sgMERGEPOINTS" Part.ClearSelection Part.ViewZoomTo2 -0.00896144, 0.0105374, -0.00335322, 0.0102532, 0.0044016, -0.00335322 Part.ViewZoomTo2 0.00651392, 0.00664574, -0.00335322, 0.00736543, 0.00597933, -0.00335322 Part.ViewZoomtofit2 Part.InsertSketch Part.SelectByID "Sketch9@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.EditDelete Part.EditAssembly Part.SelectByID "AllenAir.Cyl-2@hook", "COMPONENT", 0, 0, 0 Part.SelectByID "AllenAir.Piston.Rod-2@hook", "COMPONENT", 0, 0, 0 Part.ShowNamedView2 "*Isometric", 7 Part.ClearSelection Part.ShowNamedView2 "*Right", 4 Part.ViewZoomTo2 -0.0156135, -0.0728058, 5.31816e-016, 0.0235937, -0.102992, 7.42604e-016 Part.ViewOrientationUndo Part.ShowNamedView2 "*Front", 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("rodEnd.SLDPRT") swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ShowNamedView2 "*Front", 1 Part.ActiveView().RotateAboutCenter 0.00453005, 0 Part.ActiveView().RotateAboutCenter 0.0679508, -0.104823 Part.ActiveView().RotateAboutCenter 0.0271803, -0.104823 Part.ActiveView().RotateAboutCenter 0.0135902, -0.0493282 Part.ActiveView().RotateAboutCenter 0.0135902, -0.0369962 Part.ShowNamedView2 "*Back", 2 Part.ActiveView().RotateAboutCenter 0.00453005, 0 Part.ActiveView().RotateAboutCenter 0.0453005, 0.0616603 Part.ActiveView().RotateAboutCenter 0.081541, 0.129487 Part.ActiveView().RotateAboutCenter 0.0453005, 0.0801584 Part.ActiveView().RotateAboutCenter 0.0453005, 0.0924905 Part.ActiveView().RotateAboutCenter 0.00453005, 0.0123321 Part.ActiveView().RotateAboutCenter -0.00453005, 0 Part.ActiveView().RotateAboutCenter -0.0181202, -0.00616603 Part.ActiveView().RotateAboutCenter -0.0271803, -0.0184981 Part.ViewZoomtofit2 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.917431 Part.ActiveView().ZoomByFactor 0.862069 Part.ActiveView().ZoomByFactor 0.909091 Part.ActiveView().ZoomByFactor 0.943396 Part.ActiveView().ZoomByFactor 1 Part.SetPickMode Part.SelectByID "", "FACE", -0.005470932661012, 0.004598562372664, 0 Part.InsertSketch Part.ShowNamedView2 "*Back", 2 Part.CreateLine2( -0.0127, 0, 0, 0.0127, 0, 0 ).ConstructionGeometry = TRUE Part.CreateLine2 -0.008578734409621, 0.004138954086383, 0, 0.008578734409621, 0.004138954086383, 0 Part.ClearSelection Part.CreateArcVB 0, 0, 0, 0.008578734409621, 0.004138954086383, 0, -0.008578734409621, 0.004138954086383, 0, 1 Part.ClearSelection Part.SelectByID "Line1", "SKETCHSEGMENT", 0.008381501472031, 0, 0 Part.AndSelectByID "Line2", "SKETCHSEGMENT", 0.007384445534838, 0.004138954086383, 0 Part.AddDimension -0.0113519, 0.00769603, 1.24939e-032 Part.ClearSelection Part.Parameter("D1@Sketch10").SystemValue = 0.0047625 Part.SetPickMode Part.ClearSelection Part.SelectByID "Line1", "SKETCHSEGMENT", 0.006823601570167, 0, 0 Part.SketchMirror Part.ClearSelection Part.SelectByID "Line2", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Arc2", "SKETCHSEGMENT", 0, 0, 0 Part.SetPickMode Part.ClearSelection Part.SetPickMode Part.SetPickMode Part.SketchMirror Part.SelectByID "Line2", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Arc2", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line1", "SKETCHSEGMENT", 0, 0, 0 Part.SketchMirror Part.ClearSelection Part.FeatureCut2 1, 0, 0, 0, 0, 0.015875, 0.009525, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, -1 Part.ShowNamedView2 "*Isometric", 7 Part.SelectByID "Cut-Extrude6", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.ShowNamedView2 "*Top", 5 Part.SelectByID "", "FACE", 0.002097971867844, 0.004762500000027, 0.01146822047759 Part.InsertSketch Part.CreateCircle 0, 0.0127, 0, -0.002139515865227, 0.00885094864246, 0 Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.004301539733343, 0.008991259523441, 0 Part.AddDimension 0.0200865, 0.0047625, 0.00577669 Part.ClearSelection Part.Parameter("D1@Sketch11").SystemValue = 0.0034544 Part.SelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0 Part.AndSelectByID "Arc1", "SKETCHSEGMENT", -0.0006330075828716, 0.01430702247652, 0 Part.SelectByID "Point2", "SKETCHPOINT", 0, 0.0127, 0 Part.AndSelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0 Part.SketchAddConstraints "sgVERTPOINTS" Part.ClearSelection Part.SelectByID "", "EDGE", 0.007166339548577, 0.004762500000027, -3.946679751394e-005 Part.AndSelectByID "Point2", "SKETCHPOINT", 0, 0.0127, 0 Part.AddDimension 0.0192556, 0.0047625, 0.00444728 Part.ClearSelection Part.Parameter("D2@Sketch11").SystemValue = 0.009525 Part.EditRebuild Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 690 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("hook.SLDASM") ' MSGBOX ' Models contained within the assembly have changed. Would you like to rebuild the assembly now? swApp.ActiveDoc.ActiveView.FrameState = 1 Part.SelectByID "rodEnd-1@hook", "COMPONENT", 0, 0, 0 Part.TranslateComponent ' MSGBOX ' C:\GENE\tiburon\tautLineHook\hook.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? ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE Part.ShowNamedView2 "*Bottom", 6 Part.ClearSelection Part.ViewDisplayShaded Part.SelectByID "AllenAir.Piston.Rod-2@hook", "COMPONENT", 0, 0, 0 Part.CompConfigProperties2 2, 1, 1 Part.SelectByID "pivotBlock-2@hook", "COMPONENT", 0, 0, 0 Part.CompConfigProperties2 2, 1, 1 Part.SelectByID "rodEnd-1@hook", "COMPONENT", 0, 0, 0 Part.CompConfigProperties2 2, 1, 1 Part.ShowNamedView2 "*Isometric", 7 Part.ActiveView().RotateAboutCenter 0.00605317, 0 Part.ActiveView().RotateAboutCenter 0.0544785, -0.0246641 Part.ActiveView().RotateAboutCenter 0.0242127, -0.0739924 Part.ActiveView().RotateAboutCenter 0, -0.0739924 Part.ActiveView().RotateAboutCenter -0.0121063, -0.0431622 Part.ActiveView().RotateAboutCenter -0.036319, -0.0493282 Part.ActiveView().RotateAboutCenter -0.0605317, -0.0493282 Part.ActiveView().RotateAboutCenter -0.0544785, -0.0246641 Part.ActiveView().RotateAboutCenter -0.0423722, -0.0246641 Part.ActiveView().RotateAboutCenter -0.0484253, -0.0431622 Part.ActiveView().RotateAboutCenter -0.00605317, -0.0308302 Part.ActiveView().RotateAboutCenter -0.00605317, -0.0369962 Part.ActiveView().RotateAboutCenter -0.0242127, -0.0369962 Part.ActiveView().RotateAboutCenter -0.0665848, -0.0431622 Part.ActiveView().RotateAboutCenter -0.0302658, -0.0123321 Part.ActiveView().RotateAboutCenter -0.0544785, -0.0123321 Part.ActiveView().RotateAboutCenter -0.0847443, -0.0184981 Part.ActiveView().RotateAboutCenter -0.0665848, -0.0123321 Part.ActiveView().RotateAboutCenter -0.0181595, -0.00616603 Part.ActiveView().RotateAboutCenter -0.00605317, -0.00616603 Part.ActiveView().RotateAboutCenter 0.00605317, 0 Part.ActiveView().RotateAboutCenter 0.0423722, 0.0308302 Part.ActiveView().RotateAboutCenter 0.0302658, 0.0308302 Part.ActiveView().RotateAboutCenter 0.0181595, 0.0369962 Part.SelectByID "AllenAir.Cyl-2@hook", "COMPONENT", 0, 0, 0 Part.CompConfigProperties2 2, 1, 1 Part.ViewDisplayHiddengreyed Part.ShowNamedView2 "*Front", 1 Part.SelectByID "pivotBlock-2@hook", "COMPONENT", 0, 0, 0 Part.EditPart ' MSGBOX ' This part has features defined in the context of another assembly . You can edit the part, but cannot create any external references to the components of the current assembly. Part.ClearSelection Part.SelectByID "", "FACE", -0.02293235483018, -0.06515923108164, 0.01904999999999 Part.InsertSketch Part.CreateCircle -0.02286, 1.72974, 0, -0.02090037402244, 1.73480389359, 0 ' MSGBOX ' Cannot use selection. Allowing this selection would have created conflict of contexts as mentioned earlier. Part.CreateCircle 0.02032, 1.72974, 0, 0.02293235483018, 1.73480389359, 0 Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.02379609844398, 1.735341938924, 0 Part.AddDimension -0.0661845, 1.75309, 0.01905 Part.ClearSelection Part.Parameter("D1@Sketch5@pivotBlock.Part").SystemValue = 0.00635 Part.SelectByID "Arc2", "SKETCHSEGMENT", 0.02523244221303, 1.732590598447, 0 Part.AddDimension 0.0693776, 1.74554, 0.01905 Part.ClearSelection Part.Parameter("D2@Sketch5@pivotBlock.Part").SystemValue = 0.00635 Part.SelectByID "", "EDGE", -0.03193112697873, -0.07270658836752, 0.01904999999999 Part.AndSelectByID "Point2", "SKETCHPOINT", -0.02286, 1.72974, 0 Part.AddDimension -0.0528315, 1.7049, 0.01905 Part.ClearSelection Part.Parameter("D3@Sketch5@pivotBlock.Part").SystemValue = 0.009525 Part.SelectByID "", "EDGE", 0.0316408440062, -0.07444828620273, 0.01904999999999 Part.AndSelectByID "Point4", "SKETCHPOINT", 0.02032, 1.72974, 0 Part.AddDimension 0.0560246, 1.70607, 0.01905 Part.ClearSelection Part.Parameter("D4@Sketch5@pivotBlock.Part").SystemValue = 0.009525 Part.FeatureCut2 1, 0, 0, 1, 0, 0.015875, 0.015875, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, -1 Part.ShowNamedView2 "*Isometric", 7 Part.SelectByID "Cut-Extrude4@pivotBlock-2@hook", "BODYFEATURE", 0, 0, 0 ' MSGBOX ' This part has features defined in the context of another assembly . You can edit the part, but cannot create any external references to the components of the current assembly. Part.ClearSelection Part.ShowNamedView2 "*Front", 1 Part.ViewZoomTo2 -0.0438327, -0.0500645, 5.15881e-016, 0.0539926, -0.0901236, 7.95612e-016 Part.SetPickMode Part.ClearSelection Part.SelectByID "", "FACE", 0.02242086392771, -0.06646564428607, -0.0127 Part.ShowNamedView2 "*Isometric", 7 Part.InsertSketch Part.ShowNamedView2 "*Front", 1 Part.ViewZoomTo2 -0.0432522, -0.0448394, 4.79394e-016, 0.0444133, -0.0822859, 7.40882e-016 Part.CreateCircle -0.02286, 1.72974, 0, -0.02137802654372, 1.730964216121, 0 ' MSGBOX ' Cannot use selection. Allowing this selection would have created conflict of contexts as mentioned earlier. ' MSGBOX ' Cannot use selection. Allowing this selection would have created conflict of contexts as mentioned earlier. Part.CreateCircle 0.02286, 1.72974, 0, 0.02287698293368, 1.73163986512, 0 Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.02299401653484, 1.732276462018, 0 Part.AddDimension -0.0365801, 1.74237, -0.0127 Part.ClearSelection Part.Parameter("D1@Sketch6@pivotBlock.Part").SystemValue = 0.0037973 Part.SelectByID "Arc2", "SKETCHSEGMENT", 0.02190161267103, 1.727387747095, 0 Part.AddDimension 0.0113909, 1.71129, -0.0127 Part.ClearSelection Part.Parameter("D2@Sketch6@pivotBlock.Part").SystemValue = 0.0037973 Part.SetPickMode Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.02134442397371, 1.728596364948, 0 Part.AndSelectByID "", "EDGE", -0.01994227241945, -0.06723651616833, 0.01904999999999 Part.SketchAddConstraints "sgCONCENTRIC" Part.ClearSelection Part.AndSelectByID "Arc2", "SKETCHSEGMENT", 0.02319405898628, 1.727870969124, 0 Part.AndSelectByID "", "EDGE", 0.0212723165595, -0.0680810774179, 0.01904999999999 Part.SketchAddConstraints "sgCONCENTRIC" Part.ClearSelection Part.FeatureCut2 1, 0, 0, 2, 0, 0.015875, 0.015875, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, -1 Part.ShowNamedView2 "*Isometric", 7 Part.ShowNamedView2 "*Isometric", 7 Part.ViewZoomTo2 -0.0503561, -0.022814, 0.0137467, 0.06508, -0.0861272, 0.0137467 Part.SetPickMode Part.ClearSelection Part.SetPickMode Part.EditAssembly Part.SelectByID "Sketch11@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch11@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.FeatureCut2 1, 0, 0, 2, 0, 0.015875, 0.015875, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, -1 Part.EditRebuild Part.ClearSelection Part.ShowNamedView2 "*Bottom", 6 Part.AndSelectByID "", "EDGE", -0.005709698137444, -0.06948916741095, 0.004588150289018 Part.AndSelectByID "", "EDGE", -0.005505780346821, -0.0809625, 0.01247297152644 Set Part = swApp.NewPart swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Part2") swApp.ActiveDoc.ActiveView.FrameState = 1 Part.SelectByID "FRONT", "PLANE", 0, 0, 0 Part.InsertSketch Part.SketchRectangle 0, 0, 0, -0.13208, 0.06858, 0, 1 Part.SketchRectangle 0, 0.03302, 0, -0.0635, 0.03048, 0, 1 Part.EditDelete Part.CreateLine2 0, 0.04064, 0, -0.0635, 0.04064, 0 Part.CreateLine2 -0.0635, 0.04064, 0, -0.0635, 0, 0 Part.ClearSelection Part.SetPickMode Part.SelectByID "Line1", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 1, 0, -0.003072178606477, -0.0001059371933268 Part.SetPickMode Part.SelectByID "Line2", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 1, 0, -0.0003178115799804, 0.004343424926398 Part.SelectByID "Line2", "SKETCHSEGMENT", 0, 0.05625264965653, 0 Part.AddDimension 0.0687532, 0.055617, 0 Part.ClearSelection Part.Parameter("D1@Sketch1").SystemValue = 0.0127 Part.SelectByID "Line1", "SKETCHSEGMENT", -0.07214322865554, 0, 0 Part.AndSelectByID "Line3", "SKETCHSEGMENT", -0.02425961727184, 0.06858, 0 Part.AddDimension 0.0232002, 0.0293446, 0 Part.ClearSelection Part.Parameter("D2@Sketch1").SystemValue = 0.03175 Part.SelectByID "Line3", "SKETCHSEGMENT", -0.06705824337586, 0.03175, 0 Part.AddDimension -0.0662107, 0.0598545, 0 Part.ClearSelection Part.Parameter("D3@Sketch1").SystemValue = 0.0508 Part.SelectByID "Line10", "SKETCHSEGMENT", -0.0635, 0.006038420019627, 0 Part.SetPickMode Part.ClearSelection Part.SelectByID "Line10", "SKETCHSEGMENT", -0.0635, 0.009852158979392, 0 Part.ClearSelection Part.SelectByID "Line9", "SKETCHSEGMENT", -0.08888130520118, 0.01905, 0 Part.AddDimension -0.0912119, -0.0174796, 0 Part.ClearSelection Part.Parameter("D4@Sketch1").SystemValue = 0.0127 Part.SelectByID "Point4", "SKETCHPOINT", -0.13208, 0, 0 Part.AndSelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0 Part.SetPickMode Part.ClearSelection Part.SetPickMode Part.SelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0 Part.AndSelectByID "Point4", "SKETCHPOINT", -0.13208, 0, 0 Part.SketchAddConstraints "sgCOINCIDENT" Part.ClearSelection Part.FeatureExtrusion 1, 0, 0, 0, 0, 0.0254, 0.0254, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0 Part.ShowNamedView2 "*Front", 1 Part.ViewDisplayHiddengreyed Part.SelectByID "", "FACE", 0.02400890554217, 0.01097406721781, 0.02539999999999 Part.InsertSketch Part.CreateCircle 0.01524, 0.01524, 0, 0.02233959219278, 0.02265926066355, 0 Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.02299803844999, 0.02271941437604, 0 Part.AddDimension 0.0408733, 0.0278384, 0.0254 Part.ClearSelection Part.Parameter("D1@Sketch2").SystemValue = 0.0107163 Part.FeatureCut2 1, 0, 0, 2, 0, 0.0254, 0.0254, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, -1 Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.01303826681742, 0.01035513274596, 0 Part.SelectByID "Point2", "SKETCHPOINT", 0.01524, 0.01524, 0 Part.EditRebuild Part.ClearSelection Part.ShowNamedView2 "*Isometric", 7 Part.SelectByID "", "FACE", 0.04222934735691, 0.03174999999993, 0.01673355732947 Part.InsertSketch Part.CreateCircle -0.0381, 0.01524, 0, -0.04065549957181, 0.007948336470463, 0 Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.03943740418458, 0.007319940022508, 0 Part.AddDimension 0.0241188, 0.03175, -0.0113147 Part.ClearSelection Part.Parameter("D1@Sketch3").SystemValue = 0.00635 Part.CreateLine2( 0, 0.0127, 0, -0.07366, 0.0127, 0 ).ConstructionGeometry = TRUE Part.SetPickMode Part.ClearSelection Part.SelectByID "Point2", "SKETCHPOINT", -0.0381, 0.01524, 0 Part.AndSelectByID "Line1", "SKETCHSEGMENT", -0.04484170478315, 0.0127, 0 Part.SketchAddConstraints "sgCOINCIDENT" Part.ClearSelection Part.EditRebuild Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.FeatureCut2 1, 0, 0, 2, 0, 0.0254, 0.0254, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, -1 Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.03669564627308, 0.01554752798225, 0 Part.SelectByID "Point2", "SKETCHPOINT", -0.0381, 0.0127, 0 Part.EditRebuild Part.ClearSelection Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Point2", "SKETCHPOINT", -0.03556, 0.0127, 0 Part.EditRebuild Part.ClearSelection Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.CreateLine2( 0, 0.015875, 0, 0.06663768978615, 0.015875, 0 ).ConstructionGeometry = TRUE Part.SetPickMode Part.ClearSelection Part.SelectByID "Point2", "SKETCHPOINT", 0.01016, 0.01524, 0 Part.AndSelectByID "Line1", "SKETCHSEGMENT", 0.02609570213917, 0.015875, 0 Part.SketchAddConstraints "sgCOINCIDENT" Part.ClearSelection Part.EditRebuild Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "D2@Sketch1@Part2.SLDPRT", "DIMENSION", 0.009546707209354, 0.02854386067363, 0.01588649099587 Part.EditDelete Part.SelectByID "D4@Sketch1@Part2.SLDPRT", "DIMENSION", 0.05417157301544, -0.009792771825735, 0.009592027414464 Part.EditDelete Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.909091 Part.ActiveView().ZoomByFactor 0.862069 Part.ActiveView().ZoomByFactor 0.862069 Part.ActiveView().ZoomByFactor 0.877193 Part.ActiveView().ZoomByFactor 0.862069 Part.ActiveView().ZoomByFactor 0.862069 Part.ActiveView().ZoomByFactor 0.892857 Part.ActiveView().ZoomByFactor 0.909091 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1.01 Part.SetPickMode Part.SelectByID "D3@Sketch1@Part2.SLDPRT", "DIMENSION", 0.0153489394572, 0.04922071054184, -0.01058923082362 Part.EditDelete Part.SelectByID "D1@Sketch1@Part2.SLDPRT", "DIMENSION", 0.08886448059746, -0.00587950637364, -0.02901350965564 Part.EditDelete Part.EditRebuild swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 769 swApp.ActiveDoc.ActiveView.FrameHeight = 517 Part.SelectByID "Part2.SLDPRT", "COMPONENT", 0, 0, 0 ' MSGBOX ' Dropping a model into a part is not allowed. Use the Base Part function to create a derived part. Set Part = swApp.ActivateDoc ("hook.SLDASM") Part.EditAssembly Part.ClearSelection Set Part = swApp.ActivateDoc ("Part2") Part.SelectByID "Part2.SLDPRT", "COMPONENT", 0, 0, 0 Part.SaveAs2 "C:\GENE\tiburon\tautLineHook\pivotBar.SLDPRT", 0, FALSE, FALSE Part.SelectByID "pivotBar.SLDPRT", "COMPONENT", 0, 0, 0 Set Part = swApp.ActivateDoc ("hook.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 517 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ShowNamedView2 "*Isometric", 7 Part.SelectByID "", "FACE", -0.01622290440804, 0.03968750000001, 0.03526564664179 Part.AndSelectByID "", "FACE", 0.01921202048118, -0.05505959490762, -0.0127 Part.AddMate 3, 2, 0, 0.01, 0.5235987755983 Part.ClearSelection Part.ViewZoomTo2 -0.0796343, 0.0230893, 0.021037, -0.00275309, -0.066451, 0.021037 Part.SetPickMode Part.SelectByID "", "FACE", -0.01658987568101, -0.06400921193938, 0.01904999999999 Part.SelectByID "", "FACE", -0.01671414372817, -0.06385610895308, 0.01904999999999 Part.AndSelectByID "", "FACE", -0.0195027542112, -0.0666320455062, 0.01564004928127 Part.DeSelectByID "", "FACE", -0.0195027542112, -0.0666320455062, 0.01564004928127 Part.AndSelectByID "@pivotBar-1@hook", "AXIS", -0.01582081058813, 0.001867244100528, 0.05038900468577 Part.DeSelectByID "", "FACE", -0.01671414372817, -0.06385610895308, 0.01904999999999 Part.AndSelectByID "", "FACE", -0.01671414372817, -0.0642865627774, 0.01904999999999 Part.DeSelectByID "", "FACE", -0.0164656076339, -0.06340902073299, 0.01904999999999 Part.AndSelectByID "", "FACE", -0.0164656076339, -0.06340902073299, 0.01904999999999 ' MSGBOX ' This mate has over defined the assembly. Consider deleting some of the over defining mates. Part.AddMate 0, -1, 0, 0.01, 0.5235987755983 Part.DeSelectByID "", "FACE", -0.0164656076339, -0.06340902073299, 0.01904999999999 Part.AndSelectByID "@pivotBlock-2@hook", "AXIS", 0.01292138717553, -0.02977453988661, 0.05328344864732 ' MSGBOX ' Nothing has been changed. Part.ClearSelection Part.SelectByID "pivotBar-1@hook", "COMPONENT", 0, 0, 0 Part.TranslateComponent Part.SetPickMode Part.ClearSelection Part.SelectByID "@pivotBlock-2@hook", "AXIS", 0.01300272998519, -0.03006154019489, 0.0534890595041 Part.AndSelectByID "@pivotBar-1@hook", "AXIS", -0.01025088984528, -0.01126302000298, 0.05794721418264 Part.AddMate 0, 2, 0, 0.01, 0.5235987755983 Part.ShowNamedView2 "*Bottom", 6 Part.ClearSelection Part.SelectByID "@pivotBar-1@hook", "AXIS", -0.0449790120705, 0.0238125, 0.0672160470465 Part.AndSelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0 Part.ClearSelection Part.SelectByID "", "EDGE", -0.03943127314923, -0.07769803116565, 0.05185307772606 Part.AndSelectByID "", "EDGE", -0.02762454672704, -0.0809625, -0.01301279273801 ' MSGBOX ' The assembly cannot be solved with the addition of this mate. Consider : ' o Removing the mate. ' o Moving the assembly closer to the desired solution by dragging or changing dimension values. ' o Adding more mates to further define the assembly. ' o Changing the mating scheme. Part.AddMate 5, -1, 0, 0.000396875, 0.5235987755983 Part.ClearSelection Part.SelectByID "pivotBar-1@hook", "COMPONENT", 0, 0, 0 Part.TranslateComponent Part.SetPickMode Part.ClearSelection Part.SelectByID "Distance1", "MATE", 0, 0, 0 Part.EditDelete Part.SelectByID "pivotBar-1@hook", "COMPONENT", 0, 0, 0 Part.TranslateComponent Part.ShowNamedView2 "*Isometric", 7 Part.SetPickMode Part.ClearSelection Part.SelectByID "", "EDGE", -0.0150665368318, -0.04470081940264, 0.02023444054646 Part.SelectByID "", "FACE", -0.01557093765229, -0.04520513825048, 0.01973003972597 Part.AndSelectByID "", "FACE", 0.02621055489914, -0.004762500000027, -0.0004131323555043 Part.AddMate 3, 2, 0, 0.01, 0.5235987755983 Part.ClearSelection Part.ShowNamedView2 "*Bottom", 6 Part.ViewZoomtofit2 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.649351 Part.ActiveView().ZoomByFactor 0.917431 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 1.01 Part.SetPickMode Part.SelectByID "", "EDGE", -0.03959294305954, -0.07769803116565, -0.01079378890257 Part.AndSelectByID "", "EDGE", -0.02787012853376, -0.0809625, -0.01274759132354 ' MSGBOX ' The assembly cannot be solved with the addition of this mate. Consider : ' o Removing the mate. ' o Moving the assembly closer to the desired solution by dragging or changing dimension values. ' o Adding more mates to further define the assembly. ' o Changing the mating scheme. Part.AddMate 5, -1, 0, 0.000396875, 0.5235987755983 Part.ClearSelection Part.ActiveView().RotateAboutCenter 0.005615, -0.00616603 Part.ActiveView().RotateAboutCenter 0.050535, -0.0801584 Part.ActiveView().RotateAboutCenter 0.02246, -0.0678263 Part.ActiveView().RotateAboutCenter 0.01123, -0.0554943 Part.ActiveView().RotateAboutCenter 0.028075, -0.0493282 Part.ActiveView().RotateAboutCenter 0.005615, -0.00616603 Part.ActiveView().RotateAboutCenter 0, -0.00616603 Part.ActiveView().RotateAboutCenter 0, 0.00616603 Part.ActiveView().RotateAboutCenter 0.005615, 0 Part.ActiveView().RotateAboutCenter 0.016845, 0 Part.ActiveView().RotateAboutCenter 0, -0.00616603 Part.SelectByID "Distance2", "MATE", 0, 0, 0 Part.EditDelete Part.SelectByID "", "FACE", -0.03860112810634, -0.07769803116565, -0.009419407328849 Part.SelectByID "", "FACE", -0.04097308049998, -0.06922182838952, -0.01070239143783 Part.AndSelectByID "", "FACE", 0.00964483698607, -0.07009014895971, -0.01270000000001 Part.AddMate 5, 2, 0, 0.000396875, 0.5235987755983 Part.ClearSelection Part.ShowNamedView2 "*Bottom", 6 Part.ViewOrientationUndo Part.SelectByID "pivotBar-1@hook", "COMPONENT", 0, 0, 0 Part.EditPart Part.ClearSelection Part.SelectByID "Sketch1@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Line1", "SKETCHSEGMENT", 0.0102713279704, 0, 0 Part.SelectByID "Line1", "SKETCHSEGMENT", 0.01389389943355, 0, 0 Part.SelectByID "Line1", "SKETCHSEGMENT", 0.01837947989517, 0, 0 Part.SelectByID "Line3", "SKETCHSEGMENT", 0.01442547194765, 0.03175, 0 Part.EditRebuild Part.ClearSelection Part.ShowNamedView2 "*Bottom", 6 Part.AndSelectByID "", "EDGE", 0.02975890204548, -0.0809625, -0.01256853589514 Part.AndSelectByID "", "EDGE", 0.02811764993546, -0.0809625, 0.01256853589515 Part.SelectByID "Sketch1@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Line4", "SKETCHSEGMENT", 0, 0.012794539085, 0 Part.AddDimension 0.007174, -0.0165752, 0 Part.ClearSelection Part.Parameter("D1@Sketch1@pivotBar.Part").SystemValue = 0.0246063 Part.EditRebuild Part.ClearSelection Part.SelectByID "Sketch1@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Line2", "SKETCHSEGMENT", 0.0508, 0.02262573695512, 0 Part.SelectByID "Line10", "SKETCHSEGMENT", 0.0381, 0.008977429934961, 0 Part.EditRebuild Part.ClearSelection Part.ActiveView().RotateAboutCenter 0.005615, 0 Part.ActiveView().RotateAboutCenter 0.02246, -0.0246641 Part.ActiveView().RotateAboutCenter 0.028075, -0.0308302 Part.ActiveView().RotateAboutCenter 0.039305, -0.0308302 Part.ActiveView().RotateAboutCenter 0.028075, -0.0184981 Part.ActiveView().RotateAboutCenter 0.028075, -0.0123321 Part.ActiveView().RotateAboutCenter 0.039305, -0.00616603 Part.ActiveView().RotateAboutCenter 0.02246, 0 Part.ActiveView().RotateAboutCenter 0.03369, 0.00616603 Part.ActiveView().RotateAboutCenter 0.028075, 0.00616603 Part.ActiveView().RotateAboutCenter 0.016845, 0.00616603 Part.ActiveView().RotateAboutCenter 0.03369, 0 Part.ActiveView().RotateAboutCenter 0.028075, -0.00616603 Part.ActiveView().RotateAboutCenter 0.028075, -0.00616603 Part.ActiveView().RotateAboutCenter 0.028075, -0.00616603 Part.ActiveView().RotateAboutCenter 0.016845, 0 Part.ActiveView().RotateAboutCenter -0.028075, 0.00616603 Part.ActiveView().RotateAboutCenter -0.050535, 0.0184981 Part.ActiveView().RotateAboutCenter -0.04492, 0.00616603 Part.ActiveView().RotateAboutCenter -0.016845, 0 Part.SetPickMode Part.SelectByID "", "FACE", -0.01068806997232, -0.0660964097616, -0.006746875000005 Part.InsertSketch Part.ShowNamedView2 "*Normal To", 0 Part.ViewZoomTo2 0.053286, -0.0335429, 0.01905, 0.100102, -0.0745332, 0.01905 Part.SketchRectangle 0.06349389197105, 0.01602584928369, 0, 0.04318, 0.00762, 0, 1 Part.CreateLine2( 0.04318, 0.01182292464184, 0, 0.06710426642221, 0.01182292464184, 0 ).ConstructionGeometry = TRUE Part.CreateLine2( 0.04064, 0.0127, 0, 0.06858, 0.0127, 0 ).ConstructionGeometry = TRUE Part.CreateLine2( 0.06858, 0.0127, 0, 0.06604, 0.0127, 0 ).ConstructionGeometry = TRUE Part.SetPickMode Part.ClearSelection Part.SelectByID "Line6", "SKETCHSEGMENT", 0.05626830962432, 0.01182292464184, 0 Part.AndSelectByID "Line7", "SKETCHSEGMENT", 0.05668668633466, 0.0127, 0 Part.SketchAddConstraints "sgCOLINEAR" Part.ClearSelection Part.SetPickMode Part.ClearSelection Part.SetPickMode Part.AndSelectByID "", "EDGE", -0.001528788308772, -0.05920375929094, 0.004762500000027 Part.ClearSelection Part.AndSelectByID "Point4", "SKETCHPOINT", 0.04318, 0.01602584928369, 0 ' MSGBOX ' At least one segment being filleted has a midpoint or equal length relation. Geometry may have to move to satisfy this relation when the fillet is created. Do you want to continue? Part.ClearSelection Part.SelectByMark "Line1", "SKETCHSEGMENT", 0.04318, 0.01602584928369, 0, 1 Part.AndSelectByMark "Line4", "SKETCHSEGMENT", 0.04318, 0.01602584928369, 0, 1 Part.SketchFillet2 0.003175, 2 Part.ClearSelection Part.AndSelectByID "Point2", "SKETCHPOINT", 0.04318, 0.010795, 0 ' MSGBOX ' At least one segment being filleted has a midpoint or equal length relation. Geometry may have to move to satisfy this relation when the fillet is created. Do you want to continue? ' MSGBOX ' The fillet could not be added because the specified radius would eliminate one of the elements. Part.ClearSelection Part.AndSelectByID "Point2", "SKETCHPOINT", 0.04318, 0.010795, 0 ' MSGBOX ' At least one segment being filleted has a midpoint or equal length relation. Geometry may have to move to satisfy this relation when the fillet is created. Do you want to continue? ' MSGBOX ' The fillet could not be added because the specified radius would eliminate one of the elements. Part.ClearSelection Part.SelectByID "D1@Sketch4@pivotBar-1@hook", "DIMENSION", 0.04398558246287, 0.01496425542893, 0 Part.SelectByID "D1@Sketch4@pivotBar-1@hook", "DIMENSION", 0.04414916452616, 0.01513446809215, 0 Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.04523187951351, 0.01582056734654, 0 Part.EditDelete Part.SelectByID "Line4", "SKETCHSEGMENT", 0.04318, 0.01134003012784, 0 Part.EditDelete Part.SelectByID "Line6", "SKETCHSEGMENT", 0.05036919800848, 0.01182292464184, 0 Part.EditDelete Part.SelectByID "", "FACE", 0.01537363078909, -0.05941294764611, 0.01904999999999 Part.ClearSelection Part.SelectByID "Line1", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line2", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line3", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line7", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line9", "SKETCHSEGMENT", 0, 0, 0 Part.EditDelete Part.CreateLine2( 0.04064, 0.0127, 0, 0.06858, 0.0127, 0 ).ConstructionGeometry = TRUE Part.SketchMirror Part.ClearSelection Part.CreateLine2 0.06349389197105, 0.01477071915266, 0, 0.0480681261016, 0.01477071915266, 0 Part.ClearSelection Part.CreateArcVB 0.0480681261016, 0.0127, 0, 0.0480681261016, 0.01477071915266, 0, 0.04599740694894, 0.0127, 0, 1 Part.ViewZoomTo2 0.0745395, -0.0583683, 0.01905, 0.0764641, -0.0599163, 0.01905 Part.ViewOrientationUndo Part.CreateLine2 0.06349389197105, 0.01477071915266, 0, 0.06349389197105, 0.01062928084734, 0 ' MSGBOX ' Unable to create the symmetric element. Part.EditDelete Part.CreateLine2 0.06349389197105, 0.01477071915266, 0, 0.06349389197105, 0.0127, 0 Part.FeatureCut2 1, 0, 0, 2, 0, 0.0254, 0.0254, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, -1 Part.SelectByID "", "FACE", 0.01273785751393, -0.04376565867928, 0.01904999999999 Part.EditAssembly Part.ClearSelection Part.SelectByID "Cut-Extrude7@rodEnd-1@hook", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Sketch11@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch11@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "D1@Sketch11@rodEnd-1@hook", "DIMENSION", 0.01470422805254, -0.06631616336677, 0 Part.Parameter("D1@Sketch11@rodEnd.Part").SystemValue = 0.0063246 Part.EditRebuild Part.ClearSelection Part.SelectByID "", "FACE", 0.003868271254655, -0.04305441827169, 0.01904999999999 Part.EditAssembly Part.ClearSelection Part.SelectByID "Sketch4@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Line12", "SKETCHSEGMENT", 0.06158169384568, 0.01477071915266, 0 Part.AndSelectByID "Line10", "SKETCHSEGMENT", 0.06647670135669, 0.0127, 0 Part.AddDimension 0.0696145, 0.01905, 0.0280751 Part.ClearSelection Part.Parameter("D1@Sketch4@pivotBar.Part").SystemValue = 0.003175 Part.EditRebuild Part.ClearSelection Part.ShowNamedView2 "*Isometric", 7 Part.ShowNamedView2 "*Front", 1 Part.ActiveView().RotateAboutCenter -0.01123, 0 Part.ActiveView().RotateAboutCenter -0.06738, -0.0863244 Part.ActiveView().RotateAboutCenter -0.028075, -0.0493282 Part.ActiveView().RotateAboutCenter -0.028075, -0.0431622 Part.ActiveView().RotateAboutCenter -0.028075, -0.0678263 Part.ActiveView().RotateAboutCenter -0.01123, -0.0616603 Part.ActiveView().RotateAboutCenter 0, -0.0863244 Part.ActiveView().RotateAboutCenter 0, -0.0493282 Part.ActiveView().RotateAboutCenter 0, -0.0308302 Part.ActiveView().RotateAboutCenter -0.005615, -0.00616603 Part.ActiveView().RotateAboutCenter 0, -0.0123321 Part.ActiveView().RotateAboutCenter 0, -0.0184981 Part.ActiveView().RotateAboutCenter -0.016845, 0 Part.ActiveView().RotateAboutCenter -0.061765, -0.0369962 Part.ActiveView().RotateAboutCenter -0.061765, -0.0616603 Part.ActiveView().RotateAboutCenter -0.08984, -0.0184981 Part.ActiveView().RotateAboutCenter -0.04492, -0.00616603 Part.ActiveView().RotateAboutCenter -0.072995, -0.0246641 Part.ActiveView().RotateAboutCenter -0.028075, 0.00616603 Part.ActiveView().RotateAboutCenter -0.02246, 0.0123321 Part.ActiveView().RotateAboutCenter -0.061765, 0 Part.ActiveView().RotateAboutCenter -0.072995, -0.00616603 Part.ActiveView().RotateAboutCenter -0.072995, 0 Part.ActiveView().RotateAboutCenter -0.01123, 0 Part.ActiveView().RotateAboutCenter -0.01123, 0.00616603 Part.ActiveView().RotateAboutCenter -0.050535, 0 Part.ActiveView().RotateAboutCenter -0.04492, -0.0123321 Part.ActiveView().RotateAboutCenter 0, 0.00616603 Part.ActiveView().RotateAboutCenter 0.005615, 0.00616603 Part.ViewZoomTo2 -0.0428482, -0.0107888, 2.41619e-016, 0.0382022, -0.0616809, 5.96998e-016 ' MSGBOX ' No items selected. Part.AndSelectByID "", "EDGE", 0.008064999856231, -0.0778062647077, -0.01004451772036 Part.AndSelectByID "", "EDGE", 0.008170226221864, -0.05234632253075, -0.009879607741482 Part.FeatureFillet3 0.003175, 1, 0, 0, 0, 0, 0, 0, 0 Part.ShowNamedView2 "*Isometric", 7 Part.ShowNamedView2 "*Front", 1 Part.SelectByID "Base-Extrude@pivotBar-1@hook", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.EditRebuild Part.ClearSelection Part.SelectByID "Sketch2@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch3@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch3@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "D1@Sketch3@hook.SLDASM", "DIMENSION", 0, 0, 0 Part.AndSelectByID "Arc1", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "Line1", "SKETCHSEGMENT", 0, 0, 0 Part.ViewZoomTo2 -0.0705831, -0.0522564, 5.31187e-016, 0.0382022, -0.095609, 8.33916e-016 Part.CreateLine2( -0.04064, 0.009525, 0, 0.003963777484661, 0.009525, 0 ).ConstructionGeometry = TRUE Part.SetPickMode Part.ClearSelection Part.SelectByID "Line1", "SKETCHSEGMENT", -0.01654890995384, 0.0127, 0 Part.AndSelectByID "Line3", "SKETCHSEGMENT", -0.017326642179, 0.009525, 0 Part.SketchAddConstraints "sgCOLINEAR" Part.ClearSelection Part.EditRebuild Part.ShowNamedView2 "*Isometric", 7 Part.ShowNamedView2 "*Right", 4 Part.ShowNamedView2 "*Front", 1 Part.EditAssembly Part.SelectByID "rodEnd-1@hook", "COMPONENT", 0, 0, 0 Part.EditPart Part.ClearSelection Part.SelectByID "Sketch5@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch10@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch11@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch10@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.InsertSketch Part.SelectByID "Cut-Extrude6@rodEnd-1@hook", "BODYFEATURE", 0, 0, 0 Part.FeatEdit Part.ClearSelection Part.InsertSketch Part.SelectByID "Cut-Extrude6@rodEnd-1@hook", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.SelectByID "Sketch11@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.ViewZoomTo2 -0.0250764, -0.0274835, 3.58199e-016, 0.0414334, -0.0851074, 7.60584e-016 Part.SetPickMode Part.SelectByID "", "FACE", 0.01890686859424, -0.07183821639052, 0.01904999999999 Part.SelectByID "D2@Sketch11@rodEnd-1@hook", "DIMENSION", 0.02057110005129, -0.0677965114234, 0 Part.SelectByID "D2@Sketch11@rodEnd-1@hook", "DIMENSION", 0.02033335270028, -0.06743989039689, 0 Part.SelectByID "D2@Sketch11@rodEnd-1@hook", "DIMENSION", 0.02960549938956, -0.07683091076167, 0 Part.EditDelete Part.SelectByID "", "EDGE", 0.006900627368386, -0.04408121316045, 0.006565589609693 Part.AndSelectByID "Point2", "SKETCHPOINT", 0, 0.009525, 0 Part.AddDimension 0.0230674, 0.0047625, 0.0176812 Part.ClearSelection Part.Parameter("D2@Sketch11@rodEnd.Part").SystemValue = 0.009525 Part.SetPickMode Part.ClearSelection Part.SelectByID "D2@Sketch11@rodEnd-1@hook", "DIMENSION", 0.02324575775012, -0.04978714958462, 0 Part.SelectByID "D2@Sketch11@rodEnd-1@hook", "DIMENSION", 0.02235420518384, -0.05026264428664, 0 Part.SelectByID "D2@Sketch11@rodEnd-1@hook", "DIMENSION", 0.0225325156971, -0.04978714958462, 0 Part.SetPickMode Part.ClearSelection Part.SelectByID "D2@Sketch11@rodEnd-1@hook", "DIMENSION", 0.02294857356136, -0.04937109172036, 0 Part.Parameter("D2@Sketch11@rodEnd.Part").SystemValue = 0.0127 Part.EditRebuild Part.ClearSelection Part.SelectByID "rodEnd-1@hook", "COMPONENT", 0, 0, 0 Part.SelectByID "Base-Extrude@rodEnd-1@hook", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.SelectByID "Sketch10@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Cut-Extrude6@rodEnd-1@hook", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.SelectByID "Cut-Extrude6@rodEnd-1@hook", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.SelectByID "", "FACE", -0.02032144432192, -0.04794460761432, 0.01904999999999 Part.EditAssembly Part.ClearSelection Part.SelectByID "Cut-Extrude6@rodEnd-1@hook", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.ActiveView().RotateAboutCenter -0.028075, -0.0369962 Part.ActiveView().RotateAboutCenter -0.08984, -0.413124 Part.ActiveView().RotateAboutCenter -0.050535, -0.0801584 Part.ActiveView().RotateAboutCenter -0.050535, -0.0493282 Part.ActiveView().RotateAboutCenter -0.050535, -0.0431622 Part.ActiveView().RotateAboutCenter -0.016845, -0.0246641 Part.ActiveView().RotateAboutCenter -0.005615, -0.00616603 Part.ActiveView().RotateAboutCenter -0.03369, 0.0123321 Part.ActiveView().RotateAboutCenter -0.03369, 0.0493282 Part.ActiveView().RotateAboutCenter -0.016845, 0.0184981 Part.ActiveView().RotateAboutCenter -0.03369, 0.0739924 Part.ActiveView().RotateAboutCenter -0.016845, 0.0616603 Part.ActiveView().RotateAboutCenter 0, 0.0493282 Part.ActiveView().RotateAboutCenter 0, 0.00616603 Part.ActiveView().RotateAboutCenter 0, 0.00616603 Part.ActiveView().RotateAboutCenter 0.04492, 0.0308302 Part.ActiveView().RotateAboutCenter 0.02246, 0.0123321 Part.ActiveView().RotateAboutCenter 0.050535, 0.0431622 Part.ActiveView().RotateAboutCenter 0.039305, 0.0493282 Part.ActiveView().RotateAboutCenter 0.01123, 0.0184981 Part.ActiveView().RotateAboutCenter 0.005615, 0 Part.ActiveView().RotateAboutCenter 0.06738, -0.0369962 Part.ActiveView().RotateAboutCenter 0.050535, -0.0431622 Part.ActiveView().RotateAboutCenter 0.06738, -0.0924905 Part.ActiveView().RotateAboutCenter 0.028075, -0.0369962 Part.ActiveView().RotateAboutCenter 0.072995, -0.0616603 Part.ActiveView().RotateAboutCenter 0.04492, -0.0246641 Part.ActiveView().RotateAboutCenter 0.03369, -0.0123321 Part.ActiveView().RotateAboutCenter -0.01123, 0.0184981 Part.ActiveView().RotateAboutCenter -0.016845, 0.0246641 Part.ActiveView().RotateAboutCenter -0.129145, 0.110989 Part.ActiveView().RotateAboutCenter -0.005615, 0.00616603 Part.ActiveView().RotateAboutCenter 0.07861, 0.00616603 Part.ActiveView().RotateAboutCenter 0.050535, 0 Part.ActiveView().RotateAboutCenter 0, 0.00616603 Part.ActiveView().RotateAboutCenter 0.04492, 0 Part.ActiveView().RotateAboutCenter 0.028075, -0.00616603 Part.ActiveView().RotateAboutCenter 0.04492, -0.0184981 Part.ActiveView().RotateAboutCenter 0, -0.00616603 Part.ActiveView().RotateAboutCenter -0.005615, 0 Part.ActiveView().RotateAboutCenter -0.06738, -0.00616603 Part.ActiveView().RotateAboutCenter -0.072995, 0.0184981 Part.ActiveView().RotateAboutCenter -0.1123, 0.0431622 Part.ActiveView().RotateAboutCenter -0.06738, 0.0369962 Part.ActiveView().RotateAboutCenter -0.03369, 0.0123321 Part.ActiveView().RotateAboutCenter -0.039305, 0.0246641 Part.ActiveView().RotateAboutCenter -0.02246, 0.0184981 Part.ActiveView().RotateAboutCenter -0.02246, 0.0123321 Part.ActiveView().RotateAboutCenter -0.028075, 0.0246641 Part.ActiveView().RotateAboutCenter -0.005615, 0 Part.ClearSelection Part.SelectByMark "", "FACE", -0.002730028749042, -0.05043916741099, 0.001264608970757, 0 Part.ShowNamedView2 "*Front", 1 Part.EditAssembly Part.ClearSelection Part.EditRebuild Part.SelectByID "Coincident4", "MATE", 0, 0, 0 Part.EditDelete Part.EditRebuild Part.SelectByID "Base-Extrude@rodEnd-1@hook", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.EditRebuild Part.ClearSelection Part.EditAssembly Part.SelectByID "Base-Extrude@rodEnd-1@hook", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.SelectByID "Sketch10@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch11@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch11@rodEnd-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "D2@Sketch11@rodEnd-1@hook", "DIMENSION", 0.02069959912562, -0.04606320309625, 0 Part.EditDelete Part.SelectByID "", "EDGE", 0.005351178792339, -0.06975900992658, 0.004762500000027 Part.AndSelectByID "Point2", "SKETCHPOINT", 0, 0.015875, 0 Part.AddDimension 0.0484345, 0.0047625, 0.00915463 Part.ClearSelection Part.Parameter("D2@Sketch11@rodEnd.Part").SystemValue = 0.00635 Part.EditRebuild Part.ClearSelection Part.SelectByID "Base-Extrude@rodEnd-1@hook", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.EditRebuild Part.ClearSelection Part.EditAssembly Part.SelectByID "rodEnd-1@hook", "COMPONENT", 0, 0, 0 Part.TranslateComponent Part.ViewZoomTo2 0.0468188, 0.0883028, -4.50334e-016, 0.0780542, 0.0629914, -2.73585e-016 Part.ViewZoomtofit2 Part.ViewZoomTo2 -0.0693689, -0.0174514, 1.71197e-016, 0.0514955, -0.118952, 8.79977e-016 Part.ActiveView().RotateAboutCenter 0.01123, 0 Part.ActiveView().RotateAboutCenter 0.072995, -0.0678263 Part.ActiveView().RotateAboutCenter 0.061765, -0.0678263 Part.ActiveView().RotateAboutCenter 0.061765, -0.0678263 Part.ActiveView().RotateAboutCenter 0.04492, -0.0616603 Part.ActiveView().RotateAboutCenter 0.039305, -0.0616603 Part.ActiveView().RotateAboutCenter 0.03369, -0.0493282 Part.ActiveView().RotateAboutCenter 0.01123, -0.0184981 Part.ActiveView().RotateAboutCenter 0.016845, -0.0123321 Part.ActiveView().RotateAboutCenter -0.005615, 0 Part.SetPickMode Part.ClearSelection Part.AndSelectByID "", "FACE", 0.002074019316211, -0.08905734628217, 0.0006674338856669 Part.AndSelectByID "", "EDGE", 0.0005268104579557, -0.05049045690691, 0.003908191447294 ' MSGBOX ' Non-linear edges cannot be used for mating. ' MSGBOX ' Non-linear edges cannot be used for mating. Part.DeSelectByID "", "EDGE", 0.0005268104579557, -0.05049045690691, 0.003908191447294 Part.AndSelectByID "", "EDGE", 0.001600791760666, -0.05015389266805, 0.00333147451164 ' MSGBOX ' Non-linear edges cannot be used for mating. Part.DeSelectByID "", "EDGE", 0.001600791760666, -0.05015389266805, 0.00333147451164 Part.AndSelectByID "", "FACE", 0.01045562987244, -0.04234474380468, 0.01904999999982 ' MSGBOX ' This mate has over defined the assembly. Consider deleting some of the over defining mates. Part.AddMate 0, 2, 0, 0.01, 0.5235987755983 Part.DeSelectByID "", "FACE", 0.01045562987244, -0.04234474380468, 0.01904999999982 Part.AndSelectByID "", "FACE", 0.002217533513686, -0.05043916741099, 0.000109505855221 ' MSGBOX ' Nothing has been changed. Part.ClearSelection Part.SelectByID "Coincident7", "MATE", 0, 0, 0 Part.EditDelete Part.EditRebuild Part.AndSelectByID "", "FACE", 0.001570602745318, -0.05043916741096, 0.0002471948926654 Part.AndSelectByID "", "FACE", 0.002218585516943, -0.08905734628217, 0.001288377883895 Part.AddMate 0, 2, 0, 0.01, 0.5235987755983 Part.ClearSelection Part.EditRebuild Part.ViewZoomtofit2 Part.SelectByID "AllenAir.Piston.Rod-2@hook", "COMPONENT", 0, 0, 0 Part.TranslateComponent Part.ShowNamedView2 "*Front", 1 Part.ViewZoomTo2 -0.0703138, -0.00621116, 2.09654e-016, 0.0513964, -0.0915699, 8.05712e-016 Part.DeSelectByID "AllenAir.Piston.Rod-2@hook", "COMPONENT", 0, 0, 0 Part.AndSelectByID "@pivotBlock-2@hook", "AXIS", -0.02245635778157, -0.06525997819773, 0 Part.AndSelectByID "@AllenAir.Cyl-2@hook", "AXIS", -5.035439395119e-005, -0.06493367717752, 0 Part.DeSelectByID "@pivotBlock-2@hook", "AXIS", -0.02245635778157, -0.06525997819773, 0 Part.DeSelectByID "@AllenAir.Cyl-2@hook", "AXIS", -5.035439395119e-005, -0.06493367717752, 0 Part.AndSelectByID "@pivotBlock-2@hook", "AXIS", -0.02256512478831, -0.06493367717752, 0 Part.AndSelectByID "", "EDGE", -0.003313364596031, -0.06047422990135, 0.004762500000027 Part.DeSelectByID "", "EDGE", -0.003313364596031, -0.06047422990135, 0.004762500000027 Part.DeSelectByID "@pivotBlock-2@hook", "AXIS", -0.02256512478831, -0.06493367717752, 0 Part.SetPickMode Part.SelectByID "@rodEnd-1@hook", "AXIS", -0.0001591214006872, -0.06047422990135, 0 Part.DeSelectByID "@rodEnd-1@hook", "AXIS", -0.0001591214006872, -0.06047422990135, 0 Part.AndSelectByID "@rodEnd-1@hook", "AXIS", 0.0001671796195208, -0.06047422990135, 0 Part.AndSelectByID "@pivotBlock-2@hook", "AXIS", -0.0222388237681, -0.06504244418426, 0 Part.DeSelectByID "@rodEnd-1@hook", "AXIS", 0.0001671796195208, -0.06047422990135, 0 Part.DeSelectByID "@pivotBlock-2@hook", "AXIS", -0.0222388237681, -0.06504244418426, 0 Part.SelectByID "@pivotBlock-2@hook", "AXIS", -0.02234759077483, -0.06493367717752, 0 Part.AndSelectByID "@rodEnd-1@hook", "AXIS", -5.035439395119e-005, -0.06047422990135, 0 ' MSGBOX ' Could not create reference dimension from current set of selected items. Part.AddDimension -0.0225651, -0.0680879, 6.41738e-016 Part.ClearSelection Part.SelectByID "", "EDGE", -0.021042386694, -0.06797915336613, 0.01904999999999 Part.AndSelectByID "", "EDGE", 0.001581150707089, -0.06308463806301, 0.004762500000027 Part.AddDimension -0.0514971, -0.0406786, 4.50339e-016 Part.ClearSelection Part.SelectByID "@pivotBar-1@hook", "AXIS", -0.0455149632096, -0.06961065846717, 0 Part.EditDelete ' MSGBOX ' None of the selected entities could be deleted. Part.EditRebuild Part.ClearSelection Part.SelectByID "Annotations@pivotBar-1@hook", "DCABINET", 0, 0, 0 Part.ShowNamedView2 "*Bottom", 6 Part.SelectByID "Sketch3@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch4@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch2@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch2@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SetPickMode Part.SetPickMode Part.InsertSketch Part.SelectByID "Cut-Extrude1@pivotBar-1@hook", "BODYFEATURE", 0, 0, 0 Part.ReorderFeature "Cut-Extrude1", "Cut-Extrude3" Part.SelectByID "Sketch2@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch2@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "@pivotBar-1@hook", "AXIS", -0.02241563871512, 0.0238125, -0.002893786615033 Part.AndSelectByID "Point2", "SKETCHPOINT", 0.01016, 0.012303125, 0 Part.AddDimension 0.0216861, 0.0436165, 0.01905 Part.ClearSelection Part.Parameter("D2@Sketch2@pivotBar.Part").SystemValue = 0.0127 Part.SelectByID "Sketch1@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.ClearSelection Part.InsertSketch Part.SelectByID "Sketch1@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Line4", "SKETCHSEGMENT", 0, 0.01346927781501, 0 Part.SelectByID "Line4", "SKETCHSEGMENT", 0, 0.01372842288502, 0 Part.SelectByID "Line4", "SKETCHSEGMENT", 0, 0.01338289612501, 0 Part.SelectByID "Line4", "SKETCHSEGMENT", 0, 0.01536967499503, 0 Part.ClearSelection Part.SelectByID "Point4", "SKETCHPOINT", 0, 0, 0 Part.SelectByID "Line4", "SKETCHSEGMENT", 0, 0.01390118626502, 0 Part.SketchConstraintsDel 0, "sgVERTICAL" Part.ClearSelection Part.SelectByID "Line4", "SKETCHSEGMENT", 0, 0.01156888063499, 0 Part.ClearSelection Part.EditUndo 1 Part.EditUndo 1 Part.SelectByID "Point1@Origin@pivotBar-1@hook", "EXTSKETCHPOINT", 0, 0, 0 Part.SketchConstraintsDel 0, "sgCOINCIDENT" Part.ClearSelection Part.SelectByID "Line4", "SKETCHSEGMENT", 0, 0.01398756795502, 0 Part.EditRebuild Part.ClearSelection Part.SelectByID "Sketch1@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Line4", "SKETCHSEGMENT", 0.00762, 0.01295098767501, 0 Part.EditRebuild Part.ClearSelection Part.EditAssembly Part.ActiveView().RotateAboutCenter 0.005615, -0.00616603 Part.ActiveView().RotateAboutCenter 0.10107, -0.135653 Part.ActiveView().RotateAboutCenter 0.072995, -0.0924905 Part.ActiveView().RotateAboutCenter 0.05615, -0.0493282 Part.ActiveView().RotateAboutCenter 0.04492, -0.0184981 Part.ActiveView().RotateAboutCenter 0, 0.00616603 Part.ActiveView().RotateAboutCenter 0, 0.00616603 Part.ActiveView().RotateAboutCenter 0.03369, 0.0493282 Part.ActiveView().RotateAboutCenter 0.016845, 0.0308302 Part.ActiveView().RotateAboutCenter 0.061765, 0.0184981 Part.ActiveView().RotateAboutCenter 0.04492, -0.0184981 Part.ActiveView().RotateAboutCenter 0.01123, -0.0369962 Part.ActiveView().RotateAboutCenter 0.01123, -0.129487 Part.ActiveView().RotateAboutCenter -0.02246, -0.0184981 Part.ActiveView().RotateAboutCenter 0, -0.0123321 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.769231 Part.ActiveView().ZoomByFactor 0.684932 Part.ActiveView().ZoomByFactor 0.854701 Part.ActiveView().ZoomByFactor 0.854701 Part.ActiveView().ZoomByFactor 0.925926 Part.ActiveView().ZoomByFactor 0.961538 Part.ShowNamedView2 "*Bottom", 6 Part.ActiveView().RotateAboutCenter 0.005615, -0.00616603 Part.ActiveView().RotateAboutCenter 0.03369, -0.0739924 Part.ActiveView().RotateAboutCenter 0.028075, -0.0863244 Part.ActiveView().RotateAboutCenter 0.02246, -0.0431622 Part.ActiveView().RotateAboutCenter 0.01123, -0.0246641 Part.ActiveView().RotateAboutCenter 0.005615, 0 Part.ActiveView().RotateAboutCenter 0.01123, -0.00616603 Part.ActiveView().RotateAboutCenter 0.01123, 0 Part.ActiveView().RotateAboutCenter 0.01123, -0.00616603 Part.ActiveView().RotateAboutCenter 0.01123, 0 Part.ActiveView().RotateAboutCenter 0.005615, 0 Part.SelectByID "pivotBar-1@hook", "COMPONENT", 0, 0, 0 Part.EditPart Part.ClearSelection Part.SelectByID "", "FACE", -0.01096110924392, -0.06964825741369, -0.006746875000005 Part.ClearSelection Part.SelectByID "Sketch1@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Line9", "SKETCHSEGMENT", 0.05211921240205, 0.01905, 0 Part.ClearSelection Part.SelectByID "Line9", "SKETCHSEGMENT", 0.05565556309453, 0.01905, 0 Part.AndSelectByID "", "EDGE", -0.002961576302368, -0.06665423774217, -0.004899512442563 Part.AddDimension 0.0843575, 0.0131353, 0 Part.ClearSelection Part.Parameter("D2@Sketch1@pivotBar.Part").SystemValue = 0.000396875 Part.EditRebuild Part.ClearSelection Part.ShowNamedView2 "*Bottom", 6 Part.SelectByID "Sketch4@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch3@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Cut-Extrude1@pivotBar-1@hook", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Sketch4@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch3@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch3@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.ShowNamedView2 "*Normal To", 0 Part.SelectByID "D1@Sketch3@pivotBar-1@hook", "DIMENSION", -0.03415085048343, -0.08726159451716, 0 Part.Parameter("D1@Sketch3@pivotBar.Part").SystemValue = 0.009525 Part.EditRebuild Part.ClearSelection Part.SelectByID "Sketch3@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch3@pivotBar-1@hook", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.ViewZoomTo2 -0.0701014, 0.0341145, -0.0123031, 0.0104105, -0.0235094, -0.0123031 Part.EditRebuild Part.SelectByID "", "EDGE", 0.007157751754038, -0.04450569324869, -0.006284283159403 Part.EditAssembly Part.ClearSelection Part.ShowNamedView2 "*Isometric", 7 Part.ShowNamedView2 "*Front", 1 Part.SelectByID "Sketch6@pivotBlock-2@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch6@pivotBlock-2@hook", "SKETCH", 0, 0, 0 Part.EditSketch ' MSGBOX ' This part has features defined in the context of another assembly . You can edit the part, but cannot create any external references to the components of the current assembly. Part.ClearSelection Part.ViewZoomTo2 -0.0789666, -0.0325997, 3.93924e-016, 0.0637467, -0.100725, 8.69642e-016 ' MSGBOX ' Cannot use selection. Allowing this selection would have created conflict of contexts as mentioned earlier. Part.SetPickMode Part.SelectByID "", "FACE", -0.003209936424145, -0.06506819212612, 0.01904999999999 Part.EditDelete ' MSGBOX ' Entities which do not belong to the active sketch cannot be deleted. Part.SelectByID "", "FACE", -0.0160911264033, -0.06519572866057, 0.01904999999999 Part.SelectByID "", "FACE", -0.01621866293775, -0.06481311905722, 0.01904999999999 ' MSGBOX ' Cannot use selection. Allowing this selection would have created conflict of contexts as mentioned earlier. ' MSGBOX ' Cannot use selection. Allowing this selection would have created conflict of contexts as mentioned earlier. ' MSGBOX ' Cannot use selection. Allowing this selection would have created conflict of contexts as mentioned earlier. ' MSGBOX ' Cannot use selection. Allowing this selection would have created conflict of contexts as mentioned earlier. ' MSGBOX ' Cannot use selection. Allowing this selection would have created conflict of contexts as mentioned earlier. Part.SetPickMode Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.02155676047528, 1.727962831533, 0 Part.SelectByID "Point4", "SKETCHPOINT", 0.022225, 1.72974, 0 Part.AndSelectByID "Point2", "SKETCHPOINT", -0.022225, 1.72974, 0 Part.SketchAddConstraints "sgHORIZPOINTS" Part.ClearSelection Part.SelectByID "Sketch5@pivotBlock-2@hook", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch5@pivotBlock-2@hook", "SKETCH", 0, 0, 0 Part.ClearSelection Part.InsertSketch Part.SelectByID "Sketch5@pivotBlock-2@hook", "SKETCH", 0, 0, 0 Part.EditSketch ' MSGBOX ' This part has features defined in the context of another assembly . You can edit the part, but cannot create any external references to the components of the current assembly. Part.ClearSelection Part.SelectByID "Point2", "SKETCHPOINT", -0.022225, 1.72974, 0 Part.AndSelectByID "Point4", "SKETCHPOINT", 0.022225, 1.72974, 0 Part.SketchAddConstraints "sgHORIZPOINTS" Part.ClearSelection Part.AndSelectByID "Point2", "SKETCHPOINT", -0.022225, 1.72974, 0 Part.AndSelectByID "@rodEnd-1@hook", "AXIS", -2.152306296795e-005, -0.06060441342047, 0 ' MSGBOX ' Cannot use selection. Allowing this selection would have created conflict of contexts as mentioned earlier. ' MSGBOX ' The selected item cannot be converted to a line or an arc in the sketch plane. Part.AndSelectByID "", "EDGE", -0.003082399889698, -0.06060441342047, 0.004762500000027 ' MSGBOX ' Cannot use selection. Allowing this selection would have created conflict of contexts as mentioned earlier. ' MSGBOX ' The selected item cannot be converted to a line or an arc in the sketch plane. ' MSGBOX ' Cannot use selection. Allowing this selection would have created conflict of contexts as mentioned earlier. ' MSGBOX ' The selected item cannot be converted to a line or an arc in the sketch plane. Part.DeSelectByID "Point2", "SKETCHPOINT", -0.022225, 1.72974, 0 ' MSGBOX ' Cannot use selection. Allowing this selection would have created conflict of contexts as mentioned earlier. ' MSGBOX ' The selected item cannot be converted to a line or an arc in the sketch plane. ' MSGBOX ' Cannot use selection. Allowing this selection would have created conflict of contexts as mentioned earlier. ' MSGBOX ' The selected item cannot be converted to a line or an arc in the sketch plane. Part.ClearSelection ' MSGBOX ' Cannot use selection. Allowing this selection would have created conflict of contexts as mentioned earlier. ' MSGBOX ' The selected item cannot be converted to a line or an arc in the sketch plane. ' MSGBOX ' Cannot use selection. Allowing this selection would have created conflict of contexts as mentioned earlier. ' MSGBOX ' The selected item cannot be converted to a line or an arc in the sketch plane. Part.SelectByID "Point2", "SKETCHPOINT", -0.022225, 1.72974, 0 Part.AndSelectByID "Point4", "SKETCHPOINT", 0.022225, 1.72974, 0 Part.SketchAddConstraints "sgHORIZPOINTS" Part.ClearSelection Part.ActiveView().RotateAboutCenter 0, -0.0123321 Part.ActiveView().RotateAboutCenter -0.01123, -0.0246641 Part.ActiveView().RotateAboutCenter -0.016845, -0.0308302 Part.ActiveView().RotateAboutCenter -0.02246, -0.0739924 Part.ActiveView().RotateAboutCenter -0.005615, -0.0123321 Part.ActiveView().RotateAboutCenter -0.02246, -0.0308302 Part.ActiveView().RotateAboutCenter -0.016845, -0.0184981 Part.ActiveView().RotateAboutCenter -0.04492, -0.0246641 Part.ActiveView().RotateAboutCenter -0.039305, -0.0184981 Part.ActiveView().RotateAboutCenter -0.005615, 0 Part.ActiveView().RotateAboutCenter -0.016845, 0 Part.SetPickMode Part.SelectByID "Point2", "SKETCHPOINT", -0.022225, 1.73736, 0 Part.AndSelectByID "@rodEnd-1@hook", "AXIS", -0.04413138079278, -0.02398101042423, -0.1703325041536 ' MSGBOX ' Cannot use selection. Allowing this selection would have created conflict of contexts as mentioned earlier. ' MSGBOX ' The selected item cannot be converted to a line or an arc in the sketch plane. Part.ShowNamedView2 "*Front", 1 Part.ViewZoomTo2 -0.0814174, -0.02697, 6.0427e-015, 0.0800193, -0.0981921, 6.54004e-015 Part.SetPickMode Part.ClearSelection Part.SelectByID "Point2", "SKETCHPOINT", -0.022225, 1.73736, 0 Part.EditRebuild Part.ClearSelection Part.ShowNamedView2 "*Isometric", 7 Part.EditRebuild Part.ViewZoomtofit2 Part.EditAssembly ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE Part.ShowNamedView2 "*Front", 1 Part.ShowNamedView2 "*Bottom", 6 Part.SelectByID "pivotBlock-2@hook", "COMPONENT", 0, 0, 0 Part.EditPart ' MSGBOX ' This part has features defined in the context of another assembly . You can edit the part, but cannot create any external references to the components of the current assembly. Part.ClearSelection Part.ShowNamedView2 "*Front", 1 Part.ViewZoomTo2 -0.0587713, -0.0409471, 4.52214e-016, 0.0615926, -0.105033, 8.99727e-016 Part.ActiveView().RotateAboutCenter -0.016845, 0.00616603 Part.ActiveView().RotateAboutCenter -0.106685, 0.0369962 Part.ActiveView().RotateAboutCenter -0.061765, 0.0369962 Part.ActiveView().RotateAboutCenter -0.04492, 0.0493282 Part.ActiveView().RotateAboutCenter -0.028075, 0.0308302 Part.ActiveView().RotateAboutCenter -0.01123, 0.0369962 Part.ActiveView().RotateAboutCenter 0, 0.0431622 Part.ActiveView().RotateAboutCenter -0.01123, 0 Part.ActiveView().RotateAboutCenter -0.04492, 0.0123321 Part.ActiveView().RotateAboutCenter -0.016845, 0 Part.ActiveView().RotateAboutCenter -0.01123, 0 Part.ActiveView().RotateAboutCenter -0.03369, 0.0246641 Part.ActiveView().RotateAboutCenter -0.016845, 0.0123321 Part.AndSelectByID "", "EDGE", 0.03165750700987, -0.0808959663506, 0.01590899133453 Part.AndSelectByID "", "EDGE", 0.03159384300855, -0.08085017046562, -0.01556956952015 Part.AndSelectByID "", "EDGE", -0.03162748864682, -0.08105062697479, -0.01541311457987 Part.AndSelectByID "", "EDGE", -0.03160557998964, -0.08106638668684, 0.01737570043156 Part.FeatureFillet3 0.00635, 1, 0, 0, 0, 0, 0, 0, 0 Part.ViewZoomtofit2 Part.EditAssembly Part.ClearSelection Part.SelectByID "pivotBar-1@hook", "COMPONENT", 0, 0, 0 Part.EditPart Part.ClearSelection Part.ViewOrientationUndo ' MSGBOX ' No items selected. Part.AndSelectByID "", "EDGE", -0.04501690286972, -0.0507597245242, -0.001573279036677 Part.AndSelectByID "", "EDGE", -0.04498978982105, -0.06982922794913, 0.0001296845055663 Part.FeatureChamferType 1, 0.003175, 0.7853981633975, 0, 0, 0, 0, 0 Part.ClearSelection Part.EditUndo 1 Part.AndSelectByID "", "FACE", -0.04508499999997, -0.05141073460612, -0.000315225278257 Part.DeSelectByID "", "FACE", -0.04508499999994, -0.06775553310473, -0.002586882083392 Part.AndSelectByID "", "EDGE", -0.0450060374769, -0.05076754040533, -0.002385724727105 Part.AndSelectByID "", "EDGE", -0.04498978982105, -0.06982922794913, 0.0001296845055663 Part.FeatureFillet3 0.003175, 1, 0, 0, 0, 0, 0, 0, 0 Part.ShowNamedView2 "*Bottom", 6 Part.ClearSelection Part.AndSelectByID "", "EDGE", 0.006493097259458, -0.06663193958025, 0.004768332340384 Part.AndSelectByID "", "EDGE", 0.005730164084997, -0.0809625, 0.01255025071989 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.Save2 FALSE Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("pivotBar.SLDPRT") Part.ClearSelection swApp.ExitApp End Sub