' ****************************************************************************** ' swxJRNL.swj - journal recorded on 04/16/04 by jaha ' ***************************************************************************** Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Dim FeatureData As Object Dim Feature As Object Dim Component As Object Sub main() Set swApp = Application.SldWorks Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\Lg ProbeCell\EndCap1acrylic.SLDPRT", 1, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("EndCap1acrylic") swApp.ActiveDoc.ActiveView.FrameWidth = 1525 swApp.ActiveDoc.ActiveView.FrameHeight = 1052 Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "EndCap1acrylic" Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\Lg ProbeCell\screenP.SLDPRT", 1, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("screenP") swApp.ActiveDoc.ActiveView.FrameWidth = 1525 swApp.ActiveDoc.ActiveView.FrameHeight = 1052 boolstatus = Part.Extension.SelectByID("", "FACE", 0.02352368465947, 0.002794000000108, -0.01071459224499, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditSuppress Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditSuppress Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude7", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch12", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch12", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude6", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch11", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch11", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("CirPattern3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch9", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch9", "SKETCH", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("CirPattern3", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) Part.EditDelete ' MSGBOX ' Some of the selected entities cannot be deleted. Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("CirPattern2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("CirPattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Axis1", "AXIS", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("CirPattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Axis1", "AXIS", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("CirPattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("CirPattern2", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Sketch8", "SKETCH", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' Save changes to screenP? Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "screenP" Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\Lg ProbeCell\screenP.SLDPRT", 1, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("screenP") swApp.ActiveDoc.ActiveView.FrameWidth = 1525 swApp.ActiveDoc.ActiveView.FrameHeight = 1052 boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch7", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch7", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch7", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Boss-Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch8", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ShowNamedView2 "*Front", 1 Part.InsertSketch2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line10", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch9", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch9", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Sketch9", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Cut-Extrude5", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude5", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Sketch10@screenP.SLDPRT", "DIMENSION", 0.0284202345936, 0.03001919999281, 0.01658439399632, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch10@screenP.SLDPRT", "DIMENSION", 0.04638169165427, 0.03012517256182, 0.005862515001771, False, 0, Nothing) Part.Parameter("D1@Sketch10").SystemValue = 0.0084328 boolstatus = Part.Extension.SelectByID("D1@Sketch10@screenP.SLDPRT", "DIMENSION", 0.04638169165427, 0.03012517256182, 0.005862515001771, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"tap 1-2B thru", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"tap 1/-2B thru", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"tap 1/8-2B thru", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"tap 1/8"-2B thru", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"tap 1/8" -2B thru", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"tap 1/8" N-2B thru", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"tap 1/8" NP-2B thru", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"tap 1/8" NPT-2B thru", "", 0,"", "", 0 Part.ClearSelection2 True Part.EditRebuild Part.ShowNamedView2 "*Front", 1 boolstatus = Part.Extension.SelectByID("Front", "PLANE", 0, 0, 0, True, 0, Nothing) Part.ClearSelection2 True Part.SaveAs2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\Lg ProbeCell\screenTestFixture.SLDPRT", 0, FALSE, FALSE boolstatus = Part.Extension.SelectByID("", "EDGE", -0.02082496499322, -0.0001252820473908, -0.01087822862559, False, 0, Nothing) ' MSGBOX ' Select a plane, a planar, cylindrical, or conical face, or a feature that contains a single sketch. Set Annotation = Part.AddDimension2(-0.041567, 0.019953, -4.57697e-017) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", -0.02016122108905, -0.0001252820473908, -0.01206400386263, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0006637439041664, 0.04459446349582, -0.004163829125901, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.00157639, 0.0214464, -5.61982e-017) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Annotations@screenTestFixture.moPart_c", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Base-Extrude", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Base-Extrude@screenTestFixture.SLDPRT", "DIMENSION", 0.02572007628645, 0.02559479423906, 0, False, 0, Nothing) Part.Parameter("D1@Base-Extrude").SystemValue = 0.0635 Part.EditRebuild Part.ClearSelection2 True Part.ViewZoomtofit2 boolstatus = Part.Extension.SelectByID("Boss-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Cut-Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Cut-Extrude3@screenTestFixture.SLDPRT", "DIMENSION", -0.03699594882535, 0.04208201241425, 0, False, 0, Nothing) Part.Parameter("D1@Cut-Extrude3").SystemValue = 0.0508 Part.EditRebuild Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Cut-Extrude5", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Cut-Extrude6", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Cut-Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.EditRebuild Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Cut-Extrude3@screenTestFixture.SLDPRT", "DIMENSION", -0.03563651763492, 0.03887763889395, 0, False, 0, Nothing) Part.Parameter("D1@Cut-Extrude3").SystemValue = 0.05715 Part.EditRebuild Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude7", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Chamfer1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude8", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Revolve2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.ShowNamedView2 "*Trimetric", 8 boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ShowNamedView2 "*Front", 1 boolstatus = Part.Extension.SelectByID("Right", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ShowNamedView2 "*Back", 2 Part.ShowNamedView2 "*Left", 3 Part.InsertSketch2 True Part.ClearSelection2 True Part.CreateCircle 0, 0.04023707008438, 0, -0.003204373520306, 0.03547906091787, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0, 0.03645008319675, 0.004660906938627, False, 0, Nothing) Set Annotation = Part.AddDimension2(0, 0.0210108, 0.0435018) Part.ClearSelection2 True Part.Parameter("D1@Sketch15").SystemValue = 0.0084328 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"1", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"18", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"18"", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"18", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"1", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"1/", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"1/8", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"1/8"", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"1/8" ", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"1/8" N", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"1/8" NP", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"1/8" NPT", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"1/8" NPT-", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"1/8" NPT-2", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"1/8" NPT-2B", "", 0,"", "", 0 boolstatus = Part.Extension.SelectByID("D1@Sketch15@screenTestFixture.SLDPRT", "DIMENSION", 0, 0.0213992378741, 0.04020032234566, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch15@screenTestFixture.SLDPRT", "DIMENSION", 0, 0.0213992378741, 0.04058873125721, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"1/8"- NPT-2B", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"1/8"-2 NPT-2B", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"1/8"-27 NPT-2B", "", 0,"", "", 0 boolstatus = Part.Extension.SelectByID("", "EDGE", -0.02441046330813, 0.06325029809385, -0.0122348807139, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0, 0.04441246588357, 0.0005826133673284, True, 0, Nothing) Set Annotation = Part.AddDimension2(0, 0.0517922, -0.0466091) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch15@screenTestFixture.SLDPRT", "DIMENSION", 0, 0.0213992378741, 0.04058873125721, False, 0, Nothing) Part.Parameter("D2@Sketch15").SystemValue = 0.0254 boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0, 0.037973, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing) Part.SketchAddConstraints "sgVERTPOINTS" Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch15@screenTestFixture.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0, 0.037973, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing) Part.FeatureManager.FeatureCut True, False, False, 1, 0, 0.00254, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.ClearSelection2 True Part.ShowNamedView2 "*Front", 1 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Right", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ShowNamedView2 "*Left", 3 Part.ClearSelection2 True Part.CreateCircle 0, -0.003556034693134, 0, -0.001844942329873, -0.004818363655679, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0, -0.003556034693134, 0.002330453469313, False, 0, Nothing) Set Annotation = Part.AddDimension2(0, 0.0158644, 0.0268973) Part.ClearSelection2 True Part.Parameter("D1@Sketch16").SystemValue = 0.0036576 Part.ShowNamedView2 "*Front", 1 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.00301016906453, -0.0001574567170523, -0.01881067202953, False, 0, Nothing) Part.ShowNamedView2 "*Left", 3 boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0, -0.002099501274813, -0.001068124506769, True, 0, Nothing) Set Annotation = Part.AddDimension2(0, -0.0108387, 0.0232074) Part.ClearSelection2 True Part.Parameter("D2@Sketch16").SystemValue = 0.00355603 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0, -0.003556034693134, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing) Part.SketchAddConstraints "sgVERTPOINTS" Part.ClearSelection2 True Part.CreateLine2( -0.002815964608754, -0.01753875550901, 0, -0.0276741349481, -0.01753875550901, 0 ).ConstructionGeometry = TRUE Part.DeSelectByID "Line2", "SKETCHSEGMENT", -0.007185564863716, -0.01753875550901, 0 boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0, -0.01744165328113, 0.007768178231045, False, 0, Nothing) Part.EditDelete Part.ViewRotateminusy Part.SetPickMode Part.SetPickMode boolstatus = Part.Extension.SelectByID("D2@Sketch16@screenTestFixture.SLDPRT", "DIMENSION", 0.006132185039433, -0.01054739510107, 0.02288562612858, False, 0, Nothing) Part.EditDelete Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Base-Extrude", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Base-Extrude@screenTestFixture.SLDPRT", "DIMENSION", 0.001884892942449, 0.03169207403023, 0.007034516228046, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Boss-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Boss-Extrude1@screenTestFixture.SLDPRT", "DIMENSION", 0.001683837695254, -0.0120039285194, 0.006284167830388, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Boss-Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Cut-Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Sketch16", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.InsertSketch2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.0004021104943889, -0.004332852516239, 0.001500696795317, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02677529882567, -0.02394750254963, -0.004661229107512, True, 0, Nothing) Set Annotation = Part.AddDimension2(0, -0.0141402, 0.018296) Part.ClearSelection2 True Part.Parameter("D2@Sketch16").SystemValue = 0.02032 Part.EditDelete boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01880765792282, -6.035448916422e-005, -0.003028944279976, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.0004775062120868, -0.003944443604686, 0.001782077444438, True, 0, Nothing) Set Annotation = Part.AddDimension2(0, -0.0148199, 0.0211108) Part.ClearSelection2 True Part.Parameter("D2@Sketch16").SystemValue = 0.01143 boolstatus = Part.Extension.SelectByID("D2@Sketch16@screenTestFixture.SLDPRT", "DIMENSION", 0.005414291888805, -0.0482392494548, 0.02020641241603, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "", 0 Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch16", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch16", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.FeatureManager.FeatureCut True, False, False, 1, 0, 0.00254, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1 Part.SelectionManager.EnableContourSelection = 0 boolstatus = Part.Extension.SelectByID("Axis1", "AXIS", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude10", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude10", "BODYFEATURE", 0, 0, 0, False, 4, Nothing) boolstatus = Part.Extension.SelectByID("Axis1", "AXIS", 0, 0, 0, True, 1, Nothing) Part.FeatureCirPattern 4, 0.2617993877992, False, "NULL" Part.ClearSelection2 True Part.ShowNamedView2 "*Left", 3 Part.ShowNamedView2 "*Front", 1 boolstatus = Part.Extension.SelectByID("Cut-Extrude10", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Cut-Extrude9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D2@Sketch15@screenTestFixture.SLDPRT", "DIMENSION", 0.0009710222788806, 0.05072411069629, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch15@screenTestFixture.SLDPRT", "DIMENSION", -0.0001942044557761, 0.05082121292418, 0, False, 0, Nothing) Part.Parameter("D2@Sketch15").SystemValue = 0.0381 Part.EditRebuild Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Annotations@screenTestFixture.moPart_c", "DIMENSION", -0.04175395799187, -6.035448916408e-005, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Annotations@screenTestFixture.moPart_c", "DIMENSION", -0.04165685576398, 0.0006193611060523, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Cut-Revolve2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True ' MSGBOX ' Select a plane, a planar, cylindrical, or conical face, or a feature that contains a single sketch. boolstatus = Part.Extension.SelectByID("Sketch14", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Revolve2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ShowNamedView2 "*Back", 2 Part.ShowNamedView2 "*Top", 5 boolstatus = Part.Extension.SelectByID("D2@Sketch14@screenTestFixture.SLDPRT", "DIMENSION", -0.001521128179445, 0.0197485, -7.067119933628e-005, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD2@Annotations@screenTestFixture.moPart_c", "DIMENSION", -0.00180381297679, 0.0197485, -7.067119933628e-005, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Cut-Revolve2@screenTestFixture.SLDPRT", "DIMENSION", 0.0005990078006435, 0.0197485, -0.0003533559966814, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D3@Sketch14@screenTestFixture.SLDPRT", "DIMENSION", 0.02328446278759, 0.0197485, 0.01413423986726, False, 0, Nothing) Part.ClearSelection2 True Part.ShowNamedView2 "*Front", 1 boolstatus = Part.Extension.SelectByID("Cut-Extrude9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D2@Sketch15@screenTestFixture.SLDPRT", "DIMENSION", -0.0008739200509925, 0.04373275028835, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch15@screenTestFixture.SLDPRT", "DIMENSION", -0.0001942044557761, 0.04480087479512, 0, False, 0, Nothing) Part.Parameter("D2@Sketch15").SystemValue = 0.0508 Part.EditRebuild Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D2@Sketch15@screenTestFixture.SLDPRT", "DIMENSION", 0, 0.03800371884296, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch15@screenTestFixture.SLDPRT", "DIMENSION", -0.0001942044557761, 0.03829502552662, 0, False, 0, Nothing) Part.Parameter("D2@Sketch15").SystemValue = 0.04699 Part.EditRebuild Part.ClearSelection2 True Part.Save2 FALSE Part.ShowNamedView2 "*Isometric", 7 boolstatus = Part.Extension.SelectByID("Cut-Extrude9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.SelectionManager.EnableContourSelection = 0 Part.ClearSelection2 True Part.Save2 FALSE Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "screenTestFixture" Set Part = swApp.NewDocument ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Assembly.asmdot", 0, 0.000000, 0.000000) Set Part = swApp.ActivateDoc ("Assem1") swApp.ActiveDoc.ActiveView.FrameWidth = 1525 swApp.ActiveDoc.ActiveView.FrameHeight = 1052 Part.AddComponent "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\Lg ProbeCell\screenTestFixture.SLDPRT", 0, 0.0001933067464274, 0 boolstatus = Part.SetUserPreferenceToggle(5, False) boolstatus = Part.SetUserPreferenceToggle(6, False) Part.ShowNamedView2 "*Dimetric", 9 Part.AddComponent "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\Lg ProbeCell\EndCap1acrylic.SLDPRT", -0.02707629302262, -0.001870464311622, 0.02966728937719 Part.RotateComponent boolstatus = Part.Extension.SelectByID("", "EDGE", -0.02112877809776, 0.05205073853588, 0.02545177461849, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.009628047962792, 0, -0.0185489842514, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.05709222680535, 0.01855490967495, 0.0288743846296, True, 1, Nothing) Set Feature = Part.AddMate2 (0, 1, False, 0.01775261433695, 0, 0, 1, 1, 0.02587729330128, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.02391706769826, -0.01288427146906, 0.0208814839682, True, 1, Nothing) Part.DeSelectByID "", "FACE", 0.01188156433612, -0.004418103064438, 0.02944301154645 boolstatus = Part.Extension.SelectByID("", "FACE", 0.007070291534149, -0.004137963407032, 0.03095276203533, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.05936271613719, -0.004740167002993, 0.05089430621382, True, 1, Nothing) Set Feature = Part.AddMate2 (1, 0, False, 0.0513936785358, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True Part.ShowNamedView2 "*Isometric", 7 Part.ViewDisplayHiddengreyed Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "FACE", 0.04799120784156, -0.02405379999999, -0.01413406098243, False, 0, Nothing) Part.DeSelectByID "", "FACE", 0.04799120784156, -0.02405379999999, -0.01413406098243 boolstatus = Part.Extension.SelectByID("", "FACE", 0.02396505358934, -0.01234163069306, -0.0009395393139755, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.02997743588151, -0.01271569710403, -0.001300573872101, True, 1, Nothing) ' MSGBOX ' Warning: This mate is over defining the assembly. Consider deleting some of the over defining mates. Set Feature = Part.AddMate2 (1, -1, False, 0.0001905, 0, 0, 1, 1, 0.02121410225902, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Coincident1", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditDelete Part.ShowNamedView2 "*Front", 1 boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, True, 0, Nothing) Part.ClearSelection2 True Part.SaveAs2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\Lg ProbeCell\LgProbeCellAssy.SLDASM", 0, FALSE, FALSE Set Part = Nothing swApp.CloseDoc "LgProbeCellAssy" Set Part = swApp.NewDocument ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Drawing.drwdot", 2, 0.279400, 0.431800) Set Part = swApp.ActivateDoc ("Draw1 - Sheet1") swApp.ActiveDoc.ActiveView.FrameWidth = 1525 swApp.ActiveDoc.ActiveView.FrameHeight = 1052 Part.CreateDrawViewFromModelView "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\Lg ProbeCell\LgProbeCellAssy.SLDASM", "*Front", 0.05956084745763, 0.1463728813559, 0 boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.CreateUnfoldedViewAt2 0.05956084745763, 0.069088, 0, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.04265477966102, 0.1165128135593, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1001793220339, 0.02363922033898, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.09842284745763, 0.08533538983051, 0, False, 0, Nothing) Part.ViewDisplayShaded Part.ViewDisplayHiddenGreyed Part.ViewDisplayHidden boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1054487457627, 0.1887478305085, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.08481016949153, 0.1865522372881, 0, False, 0, Nothing) Part.ClearSelection2 True Part.CreateLine2 -0.07333281355932, -0.06674603389831, 0, 0.06850250847458, -0.06674603389831, 0 boolstatus = Part.Extension.SelectByID("Point1@Origin@LgProbeCellAssy-2@Drawing View2", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing) Part.SketchAddConstraints "sgATMIDDLE" boolstatus = Part.Extension.SelectByID("Point1@Origin@LgProbeCellAssy-2@Drawing View2", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing) Part.DeSelectByID "Point1@Origin@LgProbeCellAssy-2@Drawing View2", "EXTSKETCHPOINT", 0, 0, 0 boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.01389250847458, 0.1665723389831, 0, True, 0, Nothing) Part.SketchConstraintsDel 1, "sgATMIDDLE" boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.0464676806515, -0.004602027646728, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.02970077966102, 0.1665723389796, -499.8386285, False, 0, Nothing) ' MSGBOX ' The section line does not completely cut through the bounding box of the model in this view. ' Do you want this to be a partial section cut? Part.CreateSectionViewAt2 0.04594816949153, 0.08357891525424, 0, 0, 0, "A", 0, 0, 1, 0 Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1339914576271, 0.1564726101695, 0, False, 0, Nothing) Part.CreateDrawViewFromModelView "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\Lg ProbeCell\screenTestFixture.SLDPRT", "*Front", 0.1407977966102, 0.06886844067797, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.CreateUnfoldedViewAt2 0.1407977966102, 0.1683288135593, 0, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.178781559322, 0.09763071186441, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.178562, 0.08797010169492, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.178562, 0.08797010169492, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2395994915254, 0.07655301694915, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.178342440678, 0.08906789830508, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.178781559322, 0.08950701694915, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.1636319661017, 0.1448359661017, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.1792206779661, 0.1430794915254, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.1792206779661, 0.1430794915254, 0, False, 0, Nothing) Dim DrawView As Object Set DrawView = Part.SelectionManager.GetSelectedObject5(1) boolstatus = DrawView.AlignWithView(0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2103981016949, 0.08775054237288, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1796597966102, 0.08709186440678, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.178781559322, 0.08643318644068, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1205983389831, 0.05854915254237, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.1807575932203, 0.03000644067797, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.178562, 0.08599406779661, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.1645102033898, 0.1301254915254, 0, False, 0, Nothing) Part.EditCopy boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2567251186441, 0.08292023728814, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2273041694915, 0.08950701694915, 0, False, 0, Nothing) Part.Paste Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View6", "DRAWINGVIEW", 0.1888812881356, 0.05240149152542, 0, False, 0, Nothing) Part.ViewPropertySheet Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View6", "DRAWINGVIEW", 0.2016157288136, 0.05174281355932, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1673644745763, 0.06228166101695, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.CreateDrawViewFromModelView "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\Lg ProbeCell\screenTestFixture.SLDPRT", "*Front", 0.2165457627119, 0.1042174915254, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View7", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.CreateUnfoldedViewAt2 0.2165457627119, -0.0005123050847458, 0, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View7", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.CreateUnfoldedViewAt2 0.2165457627119, 0.02759128813559, 0, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View7", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1776837627119, 0.02495657627119, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View8", "DRAWINGVIEW", 0.178562, 0.02583481355932, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View7", "DRAWINGVIEW", 0.178342440678, 0.05854915254237, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View9", "DRAWINGVIEW", 0.1781228813559, 0.04032572881356, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1392608813559, 0.08555494915254, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1816358305085, 0.06601416949153, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.CreateLine2 -0.03622728813559, 0, 0, 0.038862, 0, 0 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Point1", "SKETCHPOINT", -0.03622728813559, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point1", "SKETCHPOINT", -0.03622728813559, 0, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1309176271186, 0.08379847457627, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem4@Drawing View5", "CENTERMARKSYM", -0.01075840677966, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1014966779661, 0.1481293559322, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.1014966779661, 0.1685483728814, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Point1@Origin@screenTestFixture-2@Drawing View5", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing) Part.EditSketch Part.SketchAddConstraints "sgATMIDDLE" Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.06658674576271, 0.1347362372881, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.1792206779661, 0.1685483728814, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1811967118644, 0.1683288135593, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.1041313898305, 0.1685483728814, 0, False, 0, Nothing) Part.EditSketch Part.CreateSectionViewAt2 0.1407977966102, 0.07282050847458, 0, 0, 0, "B", 0, 0, 0, 0 Part.EditSketch boolstatus = Part.Extension.SelectByID("Section Line2", "SECTIONLINE", 0.1045705084746, 0.1683288135593, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1910768813559, 0.08401803389831, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.1713165423729, 0.1305646101695, 0, False, 0, Nothing) boolstatus = Part.InsertModelAnnotations2(0, False, 32776, False, True, False) boolstatus = Part.Extension.SelectByID("D1@Sketch3@screenTestFixture-2@Drawing View5", "DIMENSION", 0.1906377627119, 0.1891869491525, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("D3@Sketch14@screenTestFixture-2@Drawing View5", "DIMENSION", 0.2136914915254, 0.1872109152542, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("D1@Plane1@screenTestFixture-2@Drawing View5", "DIMENSION", 0.1539713559322, 0.1830392881356, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("D2@Sketch14@screenTestFixture-2@Drawing View5", "DIMENSION", 0.1715361016949, 0.1847957627119, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("D1@Sketch10@screenTestFixture-2@Drawing View5", "DIMENSION", 0.1941507118644, 0.1430794915254, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch10@screenTestFixture-2@Drawing View5", "DIMENSION", 0.1886617288136, 0.1894065084746, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch2@screenTestFixture-2@Drawing View5", "DIMENSION", 0.1970049830508, 0.1334188813559, 0, False, 0, Nothing) Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch2@screenTestFixture-2@Drawing View5", "DIMENSION", 0.09732505084746, 0.198847559322, 0, False, 0, Nothing) Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 2, 0, 1, 11, 11,"", "", 1,"", "", 0 Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch10@screenTestFixture-2@Drawing View5", "DIMENSION", 0.198102779661, 0.1931390169492, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch10@screenTestFixture-2@Drawing View5", "DIMENSION", 0.1963463050847, 0.2008235932203, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1965658644068, 0.1823806101695, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View10", "DRAWINGVIEW", 0.178781559322, 0.09082437288136, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.InsertModelAnnotations2(0, False, 32776, False, True, False) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD2@Annotations@screenTestFixture.moPart_c", "DIMENSION", 0.1937115932203, 0.08226155932203, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditDelete boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1987614576271, 0.08050508474576, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View10", "DRAWINGVIEW", 0.178781559322, 0.08577450847458, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.InsertModelAnnotations2(0, False, 32776, False, True, False) Part.EditSketch boolstatus = Part.Extension.SelectByID("RD2@Annotations@screenTestFixture.moPart_c", "DIMENSION", 0.1972245423729, 0.08094420338983, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD2@Annotations@screenTestFixture.moPart_c", "DIMENSION", 0.1972245423729, 0.08094420338983, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1210374576271, 0.1160736949153, 0.01555587373338, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1247699661017, 0.02912820338983, -0.006392983485, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0854688, 0.0750161, -1.19051e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD2@Annotations@screenTestFixture.moPart_c", "DIMENSION", 0.1972245423729, 0.08094420338983, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.120378779661, 0.1162932542373, 0.01555587373338, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1249895254237, 0.05284061016949, 0.004925677963968, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0971055, 0.0822616, -1.19051e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Drawing View10", "DIMENSION", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1241112881356, 0.05327972881356, 0.006365501873233, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1205983389831, 0.02912820338983, -0.002627239189621, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0971055, 0.0423018, -1.19051e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD3@Drawing View10", "DIMENSION", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD2@Annotations@screenTestFixture.moPart_c", "DIMENSION", 0.1535322372881, 0.05306016949153, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1660471186441, 0.05635355932203, 0.01555587373338, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.200737, 0.0438387, -1.19051e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD2@Annotations@screenTestFixture.moPart_c", "DIMENSION", 0.1535322372881, 0.05306016949153, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("RD2@Annotations@screenTestFixture.moPart_c", "DIMENSION", 0.1504584067797, 0.05327972881356, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1339914576271, 0.05306016949153, -0.002236716006394, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1660471186441, 0.0554753220339, 0.01555587373338, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.188003, 0.041204, -1.19051e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD2@Annotations@screenTestFixture.moPart_c", "DIMENSION", 0.1504584067797, 0.05327972881356, 0, False, 0, Nothing) Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1337718983051, 0.05284061016949, -0.002151165912096, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1421151525424, 0.04339955932203, -0.01160081422734, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.211057, 0.0363737, -1.19051e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD5@Drawing View10", "DIMENSION", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1260873220339, 0.05327972881356, 0.00345197197646, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1159875932203, 0.03439762711864, 0.001645374276734, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.207105, 0.0284695, -1.19051e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD6@Drawing View10", "DIMENSION", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1313567457627, 0.05327972881356, -0.0009900943221623, False, 0, Nothing) ' MSGBOX ' The selected entity could not be converted into a line or a circular arc. Set Annotation = Part.AddDimension2(0.141017, 0.0934591, -1.19051e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD7@Drawing View10", "DIMENSION", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1170853898305, 0.05327972881356, 0.01555587373338, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1645102033898, 0.05284061016949, 0.01555587373338, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.139041, 0.0249566, -1.19051e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD8@Drawing View10", "DIMENSION", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.114011559322, 0.04581471186441, 0.01555587373338, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1678035932203, 0.04559515254237, 0.01555587373338, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.139041, 0.0181502, -1.19051e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD9@Drawing View10", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1291611525424, 0.05306016949153, 0.0004730684624974, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1699991864407, 0.05920783050847, 0.01555587373326, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.211276, 0.069088, -1.19051e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD10@Drawing View10", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.113572440678, 0.1108042711864, 0.01555587373338, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1678035932203, 0.1050957288136, 0.01555587373338, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.140798, 0.123539, -1.19051e-015) Part.ClearSelection2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD5@Drawing View10", "DIMENSION", 0.2002983728814, 0.04164308474576, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD7@Drawing View10", "DIMENSION", 0.2158870847458, 0.02934776271186, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD2@Annotations@screenTestFixture.moPart_c", "DIMENSION", 0.1974441016949, 0.08094420338983, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD11@Drawing View10", "DIMENSION", 0.2209369491525, 0.069088, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD6@Drawing View10", "DIMENSION", 0.2244498983051, 0.03747145762712, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.CreateLine2( 0.02195593220339, -0.0033655, 0, 0.04215538983051, -0.0033655, 0 ).ConstructionGeometry = TRUE Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", 0.1730730169492, 0.06930755932203, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1631928474576, 0.1165128135593, 0.01555587373338, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.180318, 0.0884092, -1.19051e-015) Part.ClearSelection2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD2@Annotations@screenTestFixture.moPart_c", "DIMENSION", 0.1961267457627, 0.0807246440678, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD2@Annotations@screenTestFixture.moPart_c", "DIMENSION", 0.1504584067797, 0.08028552542373, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD8@Drawing View10", "DIMENSION", 0.1392608813559, 0.09236128813559, 0, False, 0, Nothing) Part.EditSketch Part.SetPickMode Part.ClearSelection2 True Part.SetPickMode boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.1792206779661, 0.1375905084746, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View10", "DRAWINGVIEW", 0.178781559322, 0.1213431186441, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View10", "DRAWINGVIEW", 0.1779033220339, 0.121123559322, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("D2@Sketch2@screenTestFixture-2@Drawing View5", "DIMENSION", 0.1598994576271, 0.1364927118644, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View10", "DRAWINGVIEW", 0.1781228813559, 0.1250756271186, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem10@Drawing View10", "NOTE", 0.1421151525424, 0.02012627118644, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD10@Drawing View10", "DIMENSION", 0.1370652881356, 0.02978688135593, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD9@Drawing View10", "DIMENSION", 0.139919559322, 0.03571498305085, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD8@Drawing View10", "DIMENSION", 0.1423347118644, 0.04054528813559, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD8@Drawing View10", "DIMENSION", 0.1414564745763, 0.03242159322034, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD9@Drawing View10", "DIMENSION", 0.1397, 0.02495657627119, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD10@Drawing View10", "DIMENSION", 0.1401391186441, 0.01902847457627, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1864661355932, 0.01749155932203, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch20@LgProbeCellAssy.SLDDRW", "DIMENSION", 0.1805380338983, 0.09938718644068, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2117154576271, 0.1009241016949, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("RD1@Drawing View10", "DIMENSION", 0.08437105084746, 0.08555494915254, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("RD3@Drawing View10", "DIMENSION", 0.09842284745763, 0.09236128813559, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD12@Drawing View10", "DIMENSION", 0.1361870508475, 0.133858, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch20@LgProbeCellAssy.SLDDRW", "DIMENSION", 0.1779033220339, 0.09872850847458, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD2@Annotations@screenTestFixture.moPart_c", "DIMENSION", 0.1976636610169, 0.09016569491525, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD11@Drawing View10", "DIMENSION", 0.2114958983051, 0.07852905084746, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD6@Drawing View10", "DIMENSION", 0.2132523728814, 0.04625383050847, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD7@Drawing View10", "DIMENSION", 0.2086416271186, 0.03703233898305, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD5@Drawing View10", "DIMENSION", 0.1871248135593, 0.05569488135593, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD8@Drawing View10", "DIMENSION", 0.1383826440678, 0.03505630508475, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD9@Drawing View10", "DIMENSION", 0.1390413220339, 0.02759128813559, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD10@Drawing View10", "DIMENSION", 0.1392608813559, 0.01968715254237, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD4@Drawing View10", "DIMENSION", 0.09754461016949, 0.05196237288136, 0, True, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, -1, 1, 11, 11,"", "", 1,"", "", 0 Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.08305369491525, 0.02210230508475, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD12@Drawing View10", "DIMENSION", 0.1421151525424, 0.134077559322, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD8@Drawing View10", "DIMENSION", 0.1388217627119, 0.03439762711864, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD9@Drawing View10", "DIMENSION", 0.139480440678, 0.02737172881356, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD10@Drawing View10", "DIMENSION", 0.1418955932203, 0.01990671186441, 0, True, 0, Nothing) Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 3, 1, 11, 11,"", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 3, 1, 11, 11,"", "", 1,"", "", 0 Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2349887457627, 0.1024610169492, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch10@screenTestFixture-2@Drawing View5", "DIMENSION", 0.1901986440678, 0.2065321355932, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch10@screenTestFixture-2@Drawing View5", "DIMENSION", 0.1891008474576, 0.2060930169492, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2079829491525, 0.1799654576271, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Dim Note As Object Dim Annotation As Object Dim TextFormat As Object Set Note = Part.InsertNote("tap ") If Not Note is Nothing Then Note.Angle = 0 boolstatus = Note.SetBalloon(0, 0) Set Annotation = Note.GetAnnotation() If Not Annotation is Nothing Then longstatus = Annotation.SetLeader2(False, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.2051286779661, 0.1127803050847, 0) boolstatus = Annotation.SetTextFormat(0, True, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch10@screenTestFixture-2@Drawing View5", "DIMENSION", 0.1860270169492, 0.2006040338983, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch10@screenTestFixture-2@Drawing View5", "DIMENSION", 0.1860270169492, 0.2006040338983, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem11@Drawing View10", "NOTE", 0.2073242711864, 0.1103651525424, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem11@Drawing View10", "NOTE", 0.2075438305085, 0.1103651525424, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem11@Drawing View10", "NOTE", 0.217424, 0.1114629491525, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem11@Drawing View10", "NOTE", 0.2055677966102, 0.1127803050847, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1673644745763, 0.08401803389831, 0.01555587373338, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem11@Drawing View10", "NOTE", 0.1686818305085, 0.08709186440678, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1673644745763, 0.08401803389831, 0.01555587373338, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem11@Drawing View10", "NOTE", 0.1689013898305, 0.08643318644068, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1673644745763, 0.08445715254237, 0.01555587373338, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem11@Drawing View10", "NOTE", 0.2191804745763, 0.1290276949153, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem11@Drawing View10", "NOTE", 0.2038113220339, 0.1101455932203, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem11@Drawing View10", "NOTE", 0.2060069152542, 0.1099260338983, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.06285423728814, 0.03747145762712, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.0613173220339, 0.05284061016949, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.05143715254237, 0.01705244067797, 0, False, 0, Nothing) Part.EditSketch ' 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.SaveAs2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\Lg ProbeCell\LgProbeCell.SLDDRW", 0, FALSE, FALSE Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2132523728814, 0.159546440678, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch20@LgProbeCell.SLDDRW", "DIMENSION", 0.1818553898305, 0.09916762711864, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem11@Drawing View10", "NOTE", 0.2244498983051, 0.1022414576271, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD2@Annotations@screenTestFixture.moPart_c", "DIMENSION", 0.1945898305085, 0.09323952542373, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem11@Drawing View10", "NOTE", 0.1998592542373, 0.09982630508475, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2248890169492, 0.0677706440678, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.CreateLine2 -0.03600772881356, -0.0375285, 0, 0.038862, -0.0375285, 0 Part.EditSketch Part.CreateSectionViewAt2 0.1401391186441, 0.01331993220339, 0, 0, 0, "C", 0, 0, 0, 0 boolstatus = Part.Extension.SelectByID("Drawing View11", "DRAWINGVIEW", 0.1779033220339, 0.0185893559322, 0, False, 0, Nothing) Set DrawView = Part.SelectionManager.GetSelectedObject5(1) boolstatus = DrawView.AlignWithView(0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View11", "DRAWINGVIEW", 0.1779033220339, 0.01749155932203, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch10@screenTestFixture-2@Drawing View5", "DIMENSION", 0.1875639322034, 0.2001649152542, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"tap 1/8" NPT-2B thru", "", 0,"t", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"tap 1/8" NPT-2B thru", "", 0,"ta", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"tap 1/8" NPT-2B thru", "", 0,"tap", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"1/8" NPT-2B thru", "", 0,"tap", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"1/8" NPT-2B", "", 0,"tap", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"1/8" NPT-2B", "", 0,"tap", " thru", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"1/8" NPT-2B", "", 0,"tap", "thru", 0 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch10@screenTestFixture-2@Drawing View5", "DIMENSION", 0.1882226101695, 0.1997257966102, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch10@screenTestFixture-2@Drawing View5", "DIMENSION", 0.1822945084746, 0.1999453559322, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View11", "DRAWINGVIEW", 0.2055677966102, 0.1329797627119, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.InsertModelAnnotations2(0, False, 32776, False, True, False) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.CreateLine2( -0.027178, 0.00790413559322, 0, -0.027178, 0.0382033220339, 0 ).ConstructionGeometry = TRUE Part.CreateLine2( -0.008693792605284, 0.02606431425684, 0, -0.04599458947151, 0.01948717736739, 0 ).ConstructionGeometry = TRUE Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2325735932203, 0.1979693220339, 0.000885960334756, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.2062264745763, 0.2006040338983, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.246406, 0.209386, -1.19051e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.1998592542373, 0.192041220339, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2294997627119, 0.1979693220339, 0.000885960334756, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.191077, 0.176453, -1.19051e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch22@LgProbeCell.SLDDRW", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.2022744067797, 0.1926998983051, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.2068851525424, 0.1999453559322, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.225328, 0.179307, -1.19051e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch22@LgProbeCell.SLDDRW", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D3@Sketch22").SystemValue = 4.53786 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D3@Sketch22@LgProbeCell.SLDDRW", "DIMENSION", 0.2218151864407, 0.1786481016949, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.2062264745763, 0.1898456271186, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.2097394237288, 0.1940172542373, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.223352, 0.178648, -1.19051e-015) Part.ClearSelection2 True Part.Parameter("D3@Sketch22").SystemValue = 1.74533 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Plane1@LgProbeCell-SectionPart-2-1@Drawing View11", "DIMENSION", 0.249918779661, 0.1555943728814, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("D3@Sketch22@LgProbeCell.SLDDRW", "DIMENSION", 0.2207173898305, 0.1788676610169, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.CreateLine2( 0, 0, 0, -0.03600772881356, 0, 0 ).ConstructionGeometry = TRUE Part.CreateLine2( 0, 0, 0, -0.004719410172632, 0.02676510511137, 0 ).ConstructionGeometry = TRUE Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", 0.2299388813559, 0.1889673898305, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0.2139110508475, 0.1718417627119, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.21962, 0.182381, -1.19051e-015) Part.ClearSelection2 True Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 0, 1, 1, 11, 11,"", "", 1,"", "", 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2194000338983, 0.1981888813559, 0.002790960334721, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2123741355932, 0.1933585762712, 0.002790960334664, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.197005, 0.208947, -1.19051e-015) Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch10@screenTestFixture-2@Drawing View5", "DIMENSION", 0.1926137966102, 0.2096059661017, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch10@screenTestFixture-2@Drawing View5", "DIMENSION", 0.09798372881356, 0.1935781355932, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"1/8" NPT-2B", "", 0,"tap", "thru", 0 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch10@screenTestFixture-2@Drawing View5", "DIMENSION", 0.09710549152542, 0.192260779661, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch10@screenTestFixture-2@Drawing View5", "DIMENSION", 0.09798372881356, 0.1918216610169, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch2@screenTestFixture-2@Drawing View5", "DIMENSION", 0.09842284745763, 0.2054343389831, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.08283413559322, 0.1463728813559, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2453080338983, 0.09521555932203, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD1@Drawing View11", "DIMENSION", 0.1945898305085, 0.2093864067797, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2505774576271, 0.09170261016949, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2082025084746, 0.1876500338983, 0.002790960334721, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.204250440678, 0.179306779661, 0.002790960334607, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.177025, 0.202361, -1.19051e-015) Part.ClearSelection2 True Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1686818305085, 0.04427779661017, 0.01555587373338, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.210398, 0.0297869, -1.19051e-015) Part.ClearSelection2 True Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"R", "", 1,"", "", 0 Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "a", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "al", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "all", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "all ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "all a", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "all ar", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "all aro", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "all arou", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "all aroun", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "all around", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "all around", 0 Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD13@Drawing View10", "DIMENSION", 0.2066655932203, 0.02649349152542, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D2@Sketch22@LgProbeCell.SLDDRW", "DIMENSION", 0.1908573220339, 0.1757938305085, 0, True, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("RD2@Drawing View11", "DIMENSION", 0.1770250847458, 0.2021409491525, 0, True, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("RD1@Drawing View11", "DIMENSION", 0.1952485084746, 0.2098255254237, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch22@LgProbeCell.SLDDRW", "DIMENSION", 0.2477231864407, 0.2100450847458, 0, True, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, -1, 1, 11, 11,"", "", 1,"", "", 0 Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2411364067797, 0.05284061016949, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem13@Drawing View11", "NOTE", 0.2273041694915, 0.1257343050847, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem13@Drawing View11", "NOTE", 0.2189609152542, 0.1246365084746, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem13@Drawing View11", "NOTE", 0.2196195932203, 0.1248560677966, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.01235559322034, 0.2074103728814, 0, False, 0, Nothing) boolstatus = Part.SetUserPreferenceToggle(6, False) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2543099661017, 0.06359901694915, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.06966057627119, 0.1301254915254, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2411364067797, 0.07062491525424, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Note = Part.InsertNote("Lg ISUS Probe Cell" & Chr(13) & Chr(10) & _ "MBARI" & Chr(13) & Chr(10) & _ "Ver 1; 4/16/04" & Chr(13) & Chr(10) & _ "Scale 1:1") If Not Note is Nothing Then Note.Angle = 0 boolstatus = Note.SetBalloon(0, 0) Set Annotation = Note.GetAnnotation() If Not Annotation is Nothing Then longstatus = Annotation.SetLeader2(False, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.2297193220339, 0.06996623728814, 0) boolstatus = Annotation.SetTextFormat(0, True, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw Set Note = Part.InsertNote("Lg ISUS Probe Cell" & Chr(13) & Chr(10) & _ "MBARI" & Chr(13) & Chr(10) & _ "Ver 1; 4/16/04" & Chr(13) & Chr(10) & _ "Scale 1:1") If Not Note is Nothing Then Note.Angle = 0 boolstatus = Note.SetBalloon(0, 0) Set Annotation = Note.GetAnnotation() If Not Annotation is Nothing Then longstatus = Annotation.SetLeader2(False, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.2290606440678, 0.03395850847458, 0) boolstatus = Annotation.SetTextFormat(0, True, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem14@Drawing View10", "NOTE", 0.236745220339, 0.05635355932203, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2336713898305, 0.056134, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem15@Drawing View10", "NOTE", 0.2343300677966, 0.02407833898305, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2356474237288, 0.06250122033898, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("RD1@Drawing View10", "DIMENSION", 0.08546884745763, 0.08577450847458, 0, False, 0, Nothing) Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 2, 1, 1, 11, 11,"", "", 1,"", "", 0 Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.05758481355932, 0.03461718644068, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("RD3@Drawing View10", "DIMENSION", 0.09644681355932, 0.09170261016949, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD3@Drawing View10", "DIMENSION", 0.09644681355932, 0.09236128813559, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.06834322033898, 0.02912820338983, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.03628755932203, 0.01683288135593, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View11", "DRAWINGVIEW", 0.217643559322, 0.1327602033898, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem13@Drawing View11", "NOTE", 0.2330127118644, 0.1053152881356, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2422342033898, 0.08818966101695, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem15@Drawing View10", "NOTE", 0.2411364067797, 0.03834969491525, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2444297966102, 0.03615410169492, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.00511013559322, 0.1224409152542, 0, False, 0, Nothing) Part.EditSketch ' 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.ClearSelection2 True Part.SaveAs2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\Lg ProbeCell\LgProbeCell.PDF", 0, TRUE, FALSE Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem1@Drawing View3", "NOTE", 0.04045918644068, 0.04954722033898, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.05341318644068, 0.04603427118644, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem1@Drawing View3", "NOTE", 0.05341318644068, 0.04779074576271, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem1@Drawing View3", "NOTE", 0.04550905084746, 0.04713206779661, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.04155698305085, 0.01880891525424, 0, False, 0, Nothing) Set Note = Part.InsertNote("Assembly with ISUS endcap" & Chr(13) & Chr(10) & _ "(use -225 O-ring)") If Not Note is Nothing Then Note.Angle = 0 boolstatus = Note.SetBalloon(0, 0) Set Annotation = Note.GetAnnotation() If Not Annotation is Nothing Then longstatus = Annotation.SetLeader2(False, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.03453108474576, 0.03637366101695, 0) boolstatus = Annotation.SetTextFormat(0, True, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SetPickMode Part.SetPickMode Part.EditSketch Part.SetPickMode Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SetPickMode Part.SetPickMode Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem16@Drawing View3", "NOTE", 0.03123769491525, 0.03373894915254, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.03826359322034, 0.02715216949153, 0, False, 0, Nothing) ' 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.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Note = Part.InsertNote("Knurl inside surface" & Chr(13) & Chr(10) & _ "to avoid reflectance") If Not Note is Nothing Then Note.Angle = 0 boolstatus = Note.SetBalloon(0, 0) Set Annotation = Note.GetAnnotation() If Not Annotation is Nothing Then longstatus = Annotation.SetLeader2(True, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.05758481355932, 0.02122406779661, 0) boolstatus = Annotation.SetTextFormat(0, True, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem17@Drawing View3", "NOTE", 0.06439115254237, 0.01529596610169, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem17@Drawing View3", "NOTE", 0.04221566101695, 0.02012627118644, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem17@Drawing View3", "NOTE", 0.05714569491525, 0.02144362711864, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem17@Drawing View10", "NOTE", 0.03387240677966, 0.01156345762712, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem17@Drawing View10", "NOTE", 0.04590396774918, 0.02191472268288, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem17@Drawing View10", "NOTE", 0.1396928508396, 0.09270299872966, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem17@Drawing View10", "NOTE", 0.2305787446914, 0.08980000949115, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem17@Drawing View10", "NOTE", 0.06912788165728, 0.1391508265458, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem17@Drawing View10", "NOTE", 0.1403627714331, 0.09046993008465, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem17@Drawing View10", "NOTE", 0.08766235141085, 0.1364711441718, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem17@Drawing View10", "NOTE", 0.09056534064936, 0.1387042128168, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem17@Drawing View10", "NOTE", 0.09436155734587, 0.1373643716298, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem17@Drawing View10", "NOTE", 0.08967211319136, 0.1389275196813, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2475500663935, 0.004496787251812, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem17@Drawing View10", "NOTE", 0.08989542005586, 0.1351313029848, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem17@Drawing View10", "NOTE", 0.07158425716679, 0.1344613823913, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.06555497182526, 0.1163735263668, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2363847231684, 0.02303125700538, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem15@Drawing View10", "NOTE", 0.2328118133364, 0.05652728668052, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem15@Drawing View10", "NOTE", 0.2372779506264, 0.05652728668052, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.245093690884, 0.06590617498955, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.Save2 FALSE Part.ClearSelection2 True Part.SaveAs2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\Lg ProbeCell\LgProbeCell.pdf", 0, TRUE, FALSE ' MSGBOX ' Save changes to LgProbeCell - Sheet1? Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "LgProbeCell - Sheet1" Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\Lg ProbeCell\LgProbeCell.SLDDRW", 3, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("LgProbeCell - Sheet1") swApp.ActiveDoc.ActiveView.FrameWidth = 1525 swApp.ActiveDoc.ActiveView.FrameHeight = 1052 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.PageSetup Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD3@Drawing View10", "DIMENSION", 0.09771116031339, 0.09270299872966, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("D1@Sketch20@LgProbeCell.SLDDRW", "DIMENSION", 0.1740821079727, 0.09917889780019, 0, False, 0, Nothing) Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 2, 1, 1, 11, 11,"", "", 1,"", "", 0 Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2379478712199, 0.06501294753155, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.CreateDrawViewFromModelView "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\Lg ProbeCell\screenTestFixture.SLDPRT", "*Isometric", 0.241967394781, 0.06702270931206, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View12", "DRAWINGVIEW", 0.254919192922, 0.06010019651253, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2654146155535, 0.1011886595807, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2654146155535, 0.1014119664452, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.01866053028008, 0.1228494254373, 0, False, 0, Nothing) Part.EditSketch Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.Save2 FALSE Part.ClearSelection2 True Part.SaveAs2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\Lg ProbeCell\LgProbeCell.pdf", 0, TRUE, FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.01486431358356, 0.1226261185728, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "LgProbeCell - Sheet1" swApp.ExitApp End Sub