' ****************************************************************************** ' swxJRNL.swj - journal recorded on 04/13/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\suctionSampler\GEAR_DRIVE.SLDASM", 2) Set Part = swApp.ActivateDoc ("GEAR_DRIVE.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ShowNamedView2 "*Isometric", 7 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 1507 swApp.ActiveDoc.ActiveView.FrameHeight = 1035 Part.ActiveView().RotateAboutCenter 0, 0.00638535 Part.ActiveView().RotateAboutCenter -0.192289, 0.127707 Part.ActiveView().RotateAboutCenter -0.150713, 0.0574682 Part.ActiveView().RotateAboutCenter -0.0675611, 0 Part.ActiveView().RotateAboutCenter -0.0259851, 0.00638535 Part.ActiveView().RotateAboutCenter -0.0415761, 0.0766242 Part.ActiveView().RotateAboutCenter -0.010394, 0.0957803 Part.ActiveView().RotateAboutCenter -0.00519701, 0.153248 Part.ActiveView().RotateAboutCenter 0.0259851, 0.0255414 Part.ActiveView().RotateAboutCenter 0.0883492, 0.102166 Part.ActiveView().RotateAboutCenter 0.192289, 0.140478 Part.ActiveView().RotateAboutCenter 0.181895, 0.0830096 Part.ActiveView().RotateAboutCenter 0.0623641, 0.0127707 Part.ActiveView().RotateAboutCenter -0.0935462, -0.280955 Part.ActiveView().RotateAboutCenter -0.0987432, -0.0957803 Part.ActiveView().RotateAboutCenter 0, -0.00638535 Part.ActiveView().RotateAboutCenter -0.0831522, 0.0446975 Part.ActiveView().RotateAboutCenter 0, 0.00638535 Part.ActiveView().RotateAboutCenter -0.317018, 0.0446975 Part.ActiveView().RotateAboutCenter -0.0259851, 0.0127707 Part.ActiveView().RotateAboutCenter 0.010394, 0.0127707 Part.ActiveView().RotateAboutCenter 0.0363791, 0.146863 Part.ActiveView().RotateAboutCenter 0, 0.0191561 Part.ViewZoomTo2 -0.453196, 0.132934, -0.244071, -0.153026, -0.0111475, -0.244071 Part.ShowNamedView2 "*Front", 1 Part.ViewZoomtofit Part.ViewZoomTo2 -0.556397, -0.0483897, 5.04437e-016, -0.280576, -0.168154, 1.34075e-015 Part.SelectByID "100398DWG-1@GEAR_DRIVE", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.SelectByID "100398DWG-1@GEAR_DRIVE", "COMPONENT", 0, 0, 0 Part.OpenCompFile Set Part = swApp.OpenDoc ("\\Barnacle\me10\Dropoff\sucsamp\100398DWG.SLDPRT", 1) ' MSGBOX ' \\Barnacle\me10\Dropoff\sucsamp\100398DWG.SLDPRT is not available for write access. Do you want to make a copy? Set Part = swApp.ActivateDoc ("100398DWG.SLDPRT") Part.ClearSelection Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "D1@Sketch2@100398DWG.SLDPRT", "DIMENSION", -0.007814873463063, 0.04463726919885, -0.03999117348338 Part.Parameter("D1@Sketch2").SystemValue = 0.1778 Part.EditRebuild Part.ClearSelection Part.EditUndo 1 Part.SelectByID "Cut-Extrude1", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.ClearSelection Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Cut-Extrude3", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Cut-Extrude8", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Cut-Extrude8", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Cut-Extrude10", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Cut-Extrude11", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Cut-Extrude12", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Cut-Extrude13", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Cut-Extrude16", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Chamfer1", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Cut-Extrude18", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Annotations", "DCABINET", 0, 0, 0 Part.ClearSelection Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "D1@Sketch2@100398DWG.SLDPRT", "DIMENSION", -0.00550843954753, 0.04720291094929, -0.04486283219429 Part.Parameter("D1@Sketch2").SystemValue = 0.1778 Part.EditRebuild Part.ClearSelection Part.SelectByID "Cut-Extrude1", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.ClearSelection Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "D1@Sketch2@100398DWG.SLDPRT", "DIMENSION", -0.03116713365509, 0.05647869266241, -0.02847841234695 Part.Parameter("D1@Sketch2").SystemValue = 0.127 Part.EditRebuild Part.ClearSelection Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.ClearSelection Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.ViewZoomtofit Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.ClearSelection Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D1@Sketch2@100398DWG.SLDPRT", "DIMENSION", -0.01655670448698, 0.04924526846607, -0.03843672277425 Part.SelectByID "D4@Sketch3@100398DWG.SLDPRT", "DIMENSION", 0.009065104775782, 0.03453445678404, -0.04935011108133 Part.SelectByID "D2@Sketch2@100398DWG.SLDPRT", "DIMENSION", -0.028354165731, -0.03485616435762, 0.05744850355601 Part.SelectByID "D1@Sketch2@100398DWG.SLDPRT", "DIMENSION", -0.004344453549087, 0.07866689183013, -0.0800658156235 Part.Parameter("D1@Sketch2").SystemValue = 0.1778 Part.SelectByID "D4@Sketch3@100398DWG.SLDPRT", "DIMENSION", 0.011357273491, 0.03619983169144, -0.05330738405569 Part.Parameter("D4@Sketch3").SystemValue = 0.254 Part.EditRebuild Part.ClearSelection Part.SelectByID "Cut-Extrude1", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.ClearSelection Set Part = Nothing swApp.CloseDoc "100398DWG.SLDPRT" Set Part = swApp.ActivateDoc ("GEAR_DRIVE.SLDASM") Part.SelectByID "100398DWG-1@GEAR_DRIVE", "COMPONENT", 0, 0, 0 Part.SelectByID "100398DWG-1@GEAR_DRIVE", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.SelectByID "100398DWG-1@GEAR_DRIVE", "COMPONENT", 0, 0, 0 Part.OpenCompFile Set Part = swApp.OpenDoc ("\\Barnacle\me10\Dropoff\sucsamp\100398DWG.SLDPRT", 1) ' MSGBOX ' \\Barnacle\me10\Dropoff\sucsamp\100398DWG.SLDPRT is not available for write access. Do you want to make a copy? Set Part = swApp.ActivateDoc ("100398DWG.SLDPRT") Part.ClearSelection Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Cut-Extrude1", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.AndSelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D2@Sketch2@100398DWG.SLDPRT", "DIMENSION", -0.02611715050726, -0.03407776406166, 0.05701334445417 Part.SelectByID "D1@Sketch2@100398DWG.SLDPRT", "DIMENSION", -0.004250016578647, 0.04618613824613, -0.04510464770074 Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.AndSelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.ClearSelection Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.ClearSelection Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.ViewDispOrigins Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.ClearSelection Part.SelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0 Part.AndSelectByID "Point5", "SKETCHPOINT", 0.111125, 0.012954, 0 Part.SetPickMode Part.ClearSelection Part.SetPickMode Part.SetPickMode Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.ClearSelection Part.InsertSketch Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.ClearSelection Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "D4@Sketch3@100398DWG.SLDPRT", "DIMENSION", 0.0169895450616, 0.03376199611986, -0.05392208632317 Part.Parameter("D4@Sketch3").SystemValue = 0.2032 Part.SelectByID "D3@Sketch3@100398DWG.SLDPRT", "DIMENSION", -0.08302085471254, -0.008046228178056, 0.08788974328875 Part.Parameter("D3@Sketch3").SystemValue = 0.161925 Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D1@Sketch2@100398DWG.SLDPRT", "DIMENSION", 0.01122778005653, 0.0586102803724, -0.07300456735375 Part.Parameter("D1@Sketch2").SystemValue = 0.1778 Part.ClearSelection Part.EditUndo 1 Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D3@Sketch3@100398DWG.SLDPRT", "DIMENSION", -0.09403148649279, -0.001735552812333, 0.09259072528217 Part.SelectByID "D2@Sketch2@100398DWG.SLDPRT", "DIMENSION", -0.0483221100519, -0.04295215129471, 0.08809124901154 Part.SelectByID "D1@Sketch2@100398DWG.SLDPRT", "DIMENSION", 0.01503069707677, 0.05920190618793, -0.07739901404151 Part.Parameter("D1@Sketch2").SystemValue = 0.1778 Part.SelectByID "D2@Sketch2@100398DWG.SLDPRT", "DIMENSION", -0.007107950641999, -0.03486659848238, 0.03879285081226 Part.Parameter("D2@Sketch2").SystemValue = 0.28575 Part.EditRebuild Part.ClearSelection Set Part = Nothing swApp.CloseDoc "100398DWG.SLDPRT" Set Part = swApp.ActivateDoc ("GEAR_DRIVE.SLDASM") Part.SelectByID "100398DWG-1@GEAR_DRIVE", "COMPONENT", 0, 0, 0 Part.OpenCompFile Set Part = swApp.OpenDoc ("\\Barnacle\me10\Dropoff\sucsamp\100398DWG.SLDPRT", 1) ' MSGBOX ' \\Barnacle\me10\Dropoff\sucsamp\100398DWG.SLDPRT is not available for write access. Do you want to make a copy? Set Part = swApp.ActivateDoc ("100398DWG.SLDPRT") Part.ClearSelection Set Part = swApp.ActivateDoc ("GEAR_DRIVE.SLDASM") Part.SelectByID "100398DWG-1@GEAR_DRIVE", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.SelectByID "100398DWG-1@GEAR_DRIVE", "COMPONENT", 0, 0, 0 Part.OpenCompFile Set Part = swApp.OpenDoc ("\\Barnacle\me10\Dropoff\sucsamp\100398DWG.SLDPRT", 1) Set Part = swApp.ActivateDoc ("100398DWG.SLDPRT") Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameWidth = 1441 swApp.ActiveDoc.ActiveView.FrameHeight = 898 swApp.ActiveDoc.ActiveView.FrameWidth = 1472 swApp.ActiveDoc.ActiveView.FrameHeight = 988 swApp.ActiveDoc.ActiveView.FrameWidth = 1480 swApp.ActiveDoc.ActiveView.FrameHeight = 1011 swApp.ActiveDoc.ActiveView.FrameWidth = 1481 swApp.ActiveDoc.ActiveView.FrameHeight = 1018 swApp.ActiveDoc.ActiveView.FrameWidth = 1480 swApp.ActiveDoc.ActiveView.FrameHeight = 1018 swApp.ActiveDoc.ActiveView.FrameWidth = 1479 swApp.ActiveDoc.ActiveView.FrameHeight = 1018 Part.ShowNamedView2 "*Top", 5 Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.ViewZoomtofit Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D1@Sketch2@100398DWG.SLDPRT", "DIMENSION", -0.05735713687017, 0.006349999999999, -0.08355755631016 Part.Parameter("D1@Sketch2").SystemValue = 0.1778 Part.SelectByID "D2@Sketch2@100398DWG.SLDPRT", "DIMENSION", 0.007735283882938, 0.006350000000001, 0.09665201596002 Part.Parameter("D2@Sketch2").SystemValue = 0.28575 Part.EditRebuild Part.ClearSelection Part.ViewZoomtofit Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D4@Sketch3@100398DWG.SLDPRT", "DIMENSION", -0.02071704662969, 0.006349999999999, -0.07345004465545 Part.Parameter("D4@Sketch3").SystemValue = 0.254 Part.SelectByID "D3@Sketch3@100398DWG.SLDPRT", "DIMENSION", -0.0539535089781, 0.006350000000001, 0.1079550742691 Part.Parameter("D3@Sketch3").SystemValue = 0.161925 Part.EditRebuild Part.ClearSelection Part.EditRebuild Set Part = swApp.OpenDoc ("C:\GENE\suctionSampler\100398DWG.SLDDRW", 3) ' MSGBOX ' C:\GENE\suctionSampler\100398DWG.SLDDRW is not available for write access. Do you want to make a copy? Set Part = swApp.ActivateDoc ("100398DWG - Sheet1") ' 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? ' MSGBOX ' \\Barnacle\me10\Dropoff\sucsamp\100398DWG.SLDPRT is being referenced by other open documents. "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references. Set Part = swApp.ActivateDoc ("100398aDWG.SLDPRT") Part.SaveAs "C:\GENE\suctionSampler\100398aDWG.SLDPRT" Set Part = swApp.ActivateDoc ("100398DWG - Sheet1") Part.SaveAs "C:\GENE\suctionSampler\100398aDWG.SLDDRW" Part.SelectByID "Sheet1", "SHEET", 0.2392052825054, 0.1931192214139, 0 Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomtofit Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.4619609960752, 0.4013536879145, 0 Part.SelectByID "Sheet1", "SHEET", 0.4619609960752, 0.4013536879145, 0 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.ViewZoomTo2 0.393179, 0.434138, -4.7874e-015, 0.566741, 0.358285, -4.25772e-015 Part.SetPickMode Part.SelectByID "Line140", "SKETCHSEGMENT", 0.495688979395, 0.3992745535511, 0 Part.AndSelectByID "Template1", "SHEET", 0.4249084259541, 0.3946517829502, 0 Part.ClearSelection Part.SelectByID "Line140", "SKETCHSEGMENT", 0, 0, 0 Part.AndSelectByID "DetailItem108@Template1", "NOTE", 0.5206384465083, 0.4008891497285, 0 Part.AndSelectByID "Line139", "SKETCHSEGMENT", 0.5153885260735, 0.4012959345184, 0 Part.AndSelectByID "DetailItem107@Template1", "NOTE", 0.4764344993402, 0.4012959345184, 0 Part.AndSelectByID "DetailItem106@Template1", "NOTE", 0.4387870726053, 0.4010247446584, 0 Part.AndSelectByID "Line141", "SKETCHSEGMENT", 0.4311520807662, 0.4011603395884, 0 Part.SelectByID "Template1", "SHEET", 0.4422645769894, 0.3953297576, 0 Part.SelectByID "Template1", "SHEET", 0.4425357668494, 0.3954653525299, 0 Part.SelectByID "Template1", "SHEET", 0.4428069567093, 0.3956009474599, 0 Part.SelectByID "Template1", "SHEET", 0.4609766773244, 0.4301776546006, 0 Part.SelectByID "Line140", "SKETCHSEGMENT", 0.469925942702, 0.3992745535511, 0 Part.SelectByID "Template1", "SHEET", 0.4529765764566, 0.3770244420549, 0 Part.SetPickMode Part.ClearSelection Part.SetPickMode Part.SetPickMode Part.SetPickMode Part.SetPickMode Part.SelectByID "Template1", "SHEET", 0.4098573887282, 0.4053637824173, 0 Part.EditSheet Part.EditSketch Part.ClearSelection Part.SelectByID "Sheet1", "SHEET", 0.4565020446356, 0.399126415639, 0 Part.SelectByID "Sheet1", "SHEET", 0.4566376395656, 0.3998043902888, 0 Part.SelectByID "Sheet1", "SHEET", 0.4528409815266, 0.3903127451913, 0 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.SelectByID "Line140", "SKETCHSEGMENT", 0.4577223990053, 0.3992745535511, 0 Part.SelectByID "Line140", "SKETCHSEGMENT", 0.4552816902659, 0.3992745535511, 0 Part.EditCopy Part.SelectByID "Template1", "SHEET", 0.4380611341606, 0.3924822640707, 0 Part.Paste Part.ClearSelection Part.SelectByID "Point443", "SKETCHPOINT", 0.4235552804487, 0.3962789221097, 0 Part.SelectByID "Point443", "SKETCHPOINT", 0.4235552804487, 0.3962789221097, 0 Part.AndSelectByID "Point226", "SKETCHPOINT", 0.4311520807662, 0.3992745535511, 0 Part.SketchAddConstraints "sgVERTPOINTS" Part.ClearSelection Part.SelectByID "Point220", "SKETCHPOINT", 0.4311520807662, 0.4031946951313, 0 Part.AndSelectByID "Point226", "SKETCHPOINT", 0.4311520807662, 0.3992745535511, 0 Part.AddDimension 0.417993, 0.412144, 0 Part.ClearSelection Part.Parameter("D1@Sketch2").SystemValue = 0.00392014 Part.SelectByID "Point226", "SKETCHPOINT", 0.4311520807662, 0.3992745535511, 0 Part.AndSelectByID "Point443", "SKETCHPOINT", 0.4311520807662, 0.3962789221097, 0 Part.AddDimension 0.418129, 0.382719, 0 Part.ClearSelection Part.Parameter("D2@Sketch2").SystemValue = 0.0039116 Part.SetPickMode Part.ClearSelection Part.SelectByID "D1@Sketch2@100398aDWG.SLDDRW", "DIMENSION", 0.4109421481679, 0.4125503137053, 0 Part.EditDelete Part.SelectByID "D2@Sketch2@100398aDWG.SLDDRW", "DIMENSION", 0.4117557177477, 0.3825838341834, 0 Part.EditDelete Part.SetPickMode Part.SelectByID "Line141", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 2, 0, 0.4310101978025, 0.4021095040982 Part.SetPickMode Part.SelectByID "Line142", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 2, 1, 0.4388747037404, 0.4008891497285 Part.SetPickMode Part.SelectByID "Line139", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 2, 1, 0.5154858391697, 0.4007535547985 Part.SetPickMode Part.SelectByID "Line143", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 2, 1, 0.5279605727263, 0.4008891497285 Part.SetPickMode Part.SetPickMode Part.SelectByID "Template1", "SHEET", 0.4198914135455, 0.410109604966, 0 Part.EditSheet Part.EditSketch Part.ClearSelection Part.SelectByID "Sheet1", "SHEET", 0.4358916152812, 0.3981772511292, 0 Part.SelectByID "Sheet1", "SHEET", 0.4395526783902, 0.3747193282455, 0 Part.SelectByID "Sheet1", "SHEET", 0.4575868040753, 0.4014315294483, 0 Part.SelectByID "Sheet1", "SHEET", 0.4562308547757, 0.4011603395884, 0 Part.SelectByID "Sheet1", "SHEET", 0.4560952598457, 0.3904483401213, 0 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.SelectByID "DetailItem107@Template1", "NOTE", 0.458671563515, 0.4007535547985, 0 Part.EditCopy Part.SelectByID "Template1", "SHEET", 0.4436205262891, 0.3970924916895, 0 Part.Paste Part.SelectByID "DetailItem110@Template1", "NOTE", 0.4559596649158, 0.3953629535511, 0 Part.InsertNewNote3 "A INCREASE PLATE WIDTH 04/13/99 GENE M", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem110@Template1", "NOTE", 0.4658580948031, 0.3953629535511, 0 Part.SelectByID "Line255", "SKETCHSEGMENT", 0.4602987026746, 0.3953629535511, 0 Part.SelectByID "DetailItem110@Template1", "NOTE", 0.4664004745229, 0.387736441522, 0 Part.SelectByID "DetailItem110@Template1", "NOTE", 0.4573156142154, 0.3972280866195, 0 Part.SelectByID "DetailItem110@Template1", "NOTE", 0.4579935888652, 0.3970924916895, 0 Part.SelectByID "DetailItem110@Template1", "NOTE", 0.4575868040753, 0.3973636815494, 0 Part.SelectByID "DetailItem110@Template1", "NOTE", 0.4555528801259, 0.3974992764794, 0 Part.InsertNewNote3 "A INCREASE PLATE WIDTH 4/13/99 GENE M", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem107@Template1", "NOTE", 0.4575868040753, 0.4014315294483, 0 Part.SelectByID "DetailItem110@Template1", "NOTE", 0.4502646778573, 0.3969568967595, 0 Part.InsertNewNote3 "A INCREASE PLATE WIDTH 4/13/99 GENE M", 1, 1, 1, 0, 0, 0, 0, 1 Part.PrintPreview Part.SelectByID "Template1", "SHEET", 0.4670784491728, 0.3810922899538, 0 Part.EditSheet Part.EditSketch Part.ClearSelection Part.PrintPreview Part.PrintDirect Part.EditSketch Part.PrintPreview Part.PrintDirect ' MSGBOX ' One or more fonts could not be properly shown with a height ' specified in units (e.g. mm). The current printer does not ' support these fonts as True Type. ' If the printed results are not acceptable, you may specify a ' height in points, use another font that is supported as True ' Type with the current printer, or try a PostScript driver for the ' current printer. ' Listed below are the fonts that could not be printed properly. ' Times New Roman MT Extra Bold Part.SelectByID "Sheet1", "SHEET", 0.4135184518372, 0.4080756810165, 0 Set Part = swApp.ActivateDoc ("GEAR_DRIVE.SLDASM") Part.SelectByID "100409DWG-1@GEAR_DRIVE", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.SelectByID "100409DWG-1@GEAR_DRIVE", "COMPONENT", 0, 0, 0 Part.OpenCompFile Set Part = swApp.OpenDoc ("\\Barnacle\me10\Dropoff\sucsamp\100409DWG.SLDPRT", 1) ' MSGBOX ' \\Barnacle\me10\Dropoff\sucsamp\100409DWG.SLDPRT is not available for write access. Do you want to make a copy? Set Part = swApp.ActivateDoc ("100409DWG.SLDPRT") Part.ClearSelection Part.ShowNamedView2 "*Top", 5 Part.SelectByID "Base-Extrude", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Cut-Extrude2", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Cut-Extrude3", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Cut-Extrude4", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Cut-Extrude5", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Cut-Extrude6", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Annotations", "DCABINET", 0, 0, 0 Part.SelectByID "Cut-Extrude6", "BODYFEATURE", 0, 0, 0 Set Part = swApp.ActivateDoc ("100398aDWG - Sheet1") Part.ClearSelection Part.ViewZoomtofit Set Part = swApp.ActivateDoc ("100409DWG.SLDPRT") Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0 Part.ClearSelection Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "D4@Sketch1@100409DWG.SLDPRT", "DIMENSION", -0.03438013915753, 0.006349999999999, -0.08917855266614 Part.Parameter("D4@Sketch1").SystemValue = 0.28575 Part.SelectByID "D3@Sketch1@100409DWG.SLDPRT", "DIMENSION", 0.05479841350861, 0.00635, -0.0639033478998 Part.Parameter("D3@Sketch1").SystemValue = 0.17145 Part.ViewZoomtofit Part.EditRebuild Part.ClearSelection Set Part = swApp.ActivateDoc ("GEAR_DRIVE.SLDASM") Part.ShowNamedView2 "*Isometric", 7 Part.ViewZoomTo2 -0.459199, 0.28542, -0.244071, -0.173438, 0.0344783, -0.244071 Set Part = swApp.ActivateDoc ("100409DWG.SLDPRT") Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "D3@Sketch1@100409DWG.SLDPRT", "DIMENSION", 0.07312304847165, 0.003175, -0.06264817238635 Part.Parameter("D3@Sketch1").SystemValue = 0.12065 Part.EditRebuild Part.ClearSelection Set Part = swApp.ActivateDoc ("100398aDWG.SLDPRT") Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.ViewZoomtofit Part.SelectByID "D1@Sketch2@100398aDWG.SLDPRT", "DIMENSION", -0.08010502650967, 0.006349999999999, -0.08490424736177 Part.Parameter("D1@Sketch2").SystemValue = 0.127 Part.EditRebuild Part.ClearSelection Set Part = swApp.ActivateDoc ("GEAR_DRIVE.SLDASM") Part.EditRebuild Part.SelectByID "100409DWG-1@GEAR_DRIVE", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.SelectByID "100409DWG-1@GEAR_DRIVE", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.SelectByID "", "FACE", -0.477148280296, -0.06909836787275, 0.05080000000004 Part.ActivateSelectedFeature Part.ClearSelection Part.SelectByID "100398aDWG-1@GEAR_DRIVE", "COMPONENT", 0, 0, 0 Part.EditPart Part.ClearSelection Part.SelectByID "Cut-Extrude1@100398aDWG-1@GEAR_DRIVE", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.EditRebuild Part.ClearSelection Part.SelectByID "Cut-Extrude1@100398aDWG-1@GEAR_DRIVE", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.ClearSelection Part.SelectByID "Cut-Extrude1@100398aDWG-1@GEAR_DRIVE", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.SelectByID "Cut-Extrude1@100398aDWG-1@GEAR_DRIVE", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Sketch2@100398aDWG-1@GEAR_DRIVE", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.ViewZoomtofit Part.SelectByID "D2@Sketch2@100398aDWG-1@GEAR_DRIVE", "DIMENSION", -0.3750985616682, -0.1148457895004, 0.03465422764045 Part.SelectByID "D1@Sketch2@100398aDWG-1@GEAR_DRIVE", "DIMENSION", -0.3789010572036, -0.01807019468574, -0.0583031441609 Part.SelectByID "D9@Sketch2@100398aDWG-1@GEAR_DRIVE", "DIMENSION", -0.2611743588289, -0.1519087832591, -0.0422130047294 Part.SelectByID "D10@Sketch2@100398aDWG-1@GEAR_DRIVE", "DIMENSION", -0.3228374873213, -0.1230820103356, -0.009371964379889 Part.SelectByID "D1@Sketch2@100398aDWG-1@GEAR_DRIVE", "DIMENSION", -0.3822450998466, 0.03855382355685, -0.1115739175128 Part.Parameter("D1@Sketch2@100398aDWG.Part").SystemValue = 0.1778 Part.EditRebuild Part.ClearSelection Part.EditAssembly Part.SelectByID "100409DWG-1@GEAR_DRIVE", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.SelectByID "100409DWG-1@GEAR_DRIVE", "COMPONENT", 0, 0, 0 Part.EditPart ' MSGBOX ' Document \\Barnacle\me10\Dropoff\sucsamp\100409DWG.SLDPRT is opened for read-only access and is not available for write access. You must obtain write access to this document to complete the operation. Set Part = swApp.ActivateDoc ("100409DWG.SLDPRT") ' MSGBOX ' \\Barnacle\me10\Dropoff\sucsamp\100409DWG.SLDPRT is being referenced by other open documents. "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references. Part.SaveAs "C:\GENE\suctionSampler\100409aDWG.SLDPRT" Set Part = swApp.ActivateDoc ("GEAR_DRIVE.SLDASM") Part.ClearSelection Part.SelectByID "100409aDWG-1@GEAR_DRIVE", "COMPONENT", 0, 0, 0 Part.EditPart Part.ClearSelection Part.ViewZoomTo2 -0.452387, 0.253233, -0.262865, -0.176263, -0.0430643, -0.262865 Part.ShowNamedView2 "*Front", 1 Set Part = swApp.OpenDoc ("C:\GENE\suctionSampler\100409DWG.SLDDRW", 3) ' MSGBOX ' C:\GENE\suctionSampler\100409DWG.SLDDRW is not available for write access. Do you want to make a copy? ' MSGBOX ' Unable to locate the file N:\Projects\Mba01\Parts\CAROUSEL\100409DWG.SLDPRT. Would you like to find it yourself? Set Part = swApp.ActivateDoc ("100409DWG - Sheet1") Part.SelectByID "Sheet1", "SHEET", 0.4073212613344, 0.364070104209, 0 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.ViewZoomTo2 0.40025, 0.445065, -5.06049e-015, 0.57574, 0.335143, -4.29291e-015 Part.SetPickMode Part.SelectByID "DetailItem95@Template1", "NOTE", 0.466607382342, 0.4058024571259, 0 Part.SelectByID "DetailItem95@Template1", "NOTE", 0.466607382342, 0.4055282540453, 0 Part.EditCopy Part.SelectByID "Template1", "SHEET", 0.4420662066289, 0.4011410047558, 0 Part.Paste Part.SelectByID "DetailItem98@Template1", "NOTE", 0.4613975238107, 0.3992745535511, 0 Part.InsertNewNote3 "B INCREASE PLATE WIDTH 4/13/99 GENE M", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem98@Template1", "NOTE", 0.4674299915838, 0.3992745535511, 0 Part.SelectByID "DetailItem98@Template1", "NOTE", 0.457832883763, 0.401689410917, 0 Part.SelectByID "DetailItem98@Template1", "NOTE", 0.4538569390944, 0.4010039032155, 0 Part.InsertNewNote3 "B INCREASE PLATE WIDTH 4/13/99 GENE M", 1, 1, 1, 0, 0, 0, 0, 1 Part.SaveAs "C:\GENE\suctionSampler\100409aDWG.SLDDRW" Part.PrintDirect ' MSGBOX ' One or more fonts could not be properly shown with a height ' specified in units (e.g. mm). The current printer does not ' support these fonts as True Type. ' If the printed results are not acceptable, you may specify a ' height in points, use another font that is supported as True ' Type with the current printer, or try a PostScript driver for the ' current printer. ' Listed below are the fonts that could not be printed properly. ' Times New Roman MT Extra Bold Part.SelectByID "Template1", "SHEET", 0.4650992653987, 0.3764627275025, 0 Part.EditSheet Part.EditSketch Part.ClearSelection Part.PrintPreview Part.PrintDirect ' MSGBOX ' One or more fonts could not be properly shown with a height ' specified in units (e.g. mm). The current printer does not ' support these fonts as True Type. ' If the printed results are not acceptable, you may specify a ' height in points, use another font that is supported as True ' Type with the current printer, or try a PostScript driver for the ' current printer. ' Listed below are the fonts that could not be printed properly. ' Times New Roman MT Extra Bold Part.EditSketch Set Part = swApp.ActivateDoc ("GEAR_DRIVE.SLDASM") Set Part = swApp.ActivateDoc ("100409aDWG.SLDPRT") swApp.ExitApp End Sub