' ****************************************************************************** ' swxJRNL.swj - journal recorded on 11/10/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\ElkhornMooring\ElkMoorV2\ElkhornSurface4horiz.SLDASM", 2, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("ElkhornSurface4horiz.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID("ElkhornSurface2-1@ElkhornSurface4horiz", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ElkMoorV2\ElkhornSurface2.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ElkMoorV2\ElkhornSurface2.SLDASM", 2, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ElkhornSurface2.SLDASM") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RadioHsgAll-1@ElkhornSurface2", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ElkMoorV2\RadioHsgAll.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ElkMoorV2\RadioHsgAll.SLDASM", 2, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("RadioHsgAll.SLDASM") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RadioHsgTop-1@RadioHsgAll", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RadioHsgTop-1@RadioHsgAll", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RadioHsgTop-1@RadioHsgAll", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ElkMoorV2\RadioHsgTop.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ElkMoorV2\RadioHsgTop.SLDASM", 2, 0, "", longstatus, longwarnings) ' MSGBOX ' File name entered was invalid, not found, locked or of an incompatible type. ' MSGBOX ' File name entered was invalid, not found, locked or of an incompatible type. swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("RadioHsgTop.SLDASM") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RadioTop-1@RadioHsgTop", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ElkMoorV2\RadioTop.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\ElkMoorV2\RadioTop.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("RadioTop.SLDPRT") Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "RadioTop.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("RadioHsgTop.SLDASM") boolstatus = Part.Extension.SelectByID("RadioTop-1@RadioHsgTop", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "RadioHsgTop.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("RadioHsgAll.SLDASM") boolstatus = Part.Extension.SelectByID("RadioHsgTop-1@RadioHsgAll", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "RadioHsgAll.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ElkhornSurface2.SLDASM") boolstatus = Part.Extension.SelectByID("", "FACE", -0.04774252937212, 2.155278739382, -0.04531078366793, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RadioHsgAll-1@ElkhornSurface2", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ShowNamedView2 "*Trimetric", 8 Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "ElkhornSurface2.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ElkhornSurface4horiz.SLDASM") Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "ElkhornSurface4horiz.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks2004\data\templates\j04.prtdot", 0, 0.000000, 0.000000) Set Part = swApp.ActivateDoc ("Part1") boolstatus = Part.Extension.SelectByID("Front", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ShowNamedView2 "*Front", 1 Part.ClearSelection2 True Part.CreateLine2 0, 0, 0, 0, -0.06886829745597, 0 Part.CreateLine2 0, 0, 0, 0.01172451076321, 0, 0 Part.CreateLine2 0.01172451076321, 0, 0, 0.01172451076321, -0.00908385518591, 0 Part.CreateLine2 0.01172451076321, -0.00908385518591, 0, 0.008133219178082, -0.00908385518591, 0 Part.CreateLine2 0.008133219178082, -0.00908385518591, 0, 0.008133219178082, -0.01394266144814, 0 Part.CreateLine2 0.008133219178082, -0.01394266144814, 0, 0.01172451076321, -0.01394266144814, 0 Part.CreateLine2 0.01172451076321, -0.01394266144814, 0, 0.01172451076321, -0.01901272015656, 0 Part.CreateLine2 0.01172451076321, -0.01901272015656, 0, 0.008133219178082, -0.01901272015656, 0 Part.CreateLine2 0.008133219178082, -0.01901272015656, 0, 0.008133219178082, -0.02387152641879, 0 Part.CreateLine2 0.008133219178082, -0.02387152641879, 0, 0.01172451076321, -0.02387152641879, 0 Part.CreateLine2 0.01172451076321, -0.02387152641879, 0, 0.01172451076321, -0.02661780821918, 0 Part.ClearSelection2 True Part.CreateTangentArc2 0.01172451076321, -0.02661780821918, 0, 0.009823238747554, -0.02809657534247, 0, 4 Part.CreateLine2 0.009823238747554, -0.02809657534247, 0, 0.009823238747554, -0.03443414872798, 0 Part.ClearSelection2 True Part.CreateTangentArc2 0.009823238747554, -0.03443414872798, 0, 0.01172451076321, -0.03654667318982, 0, 1 Part.CreateLine2 0.01172451076321, -0.03654667318982, 0, 0.01137631597096, -0.03984536069539, 0 Part.EditDelete Part.CreateLine2 0.01172451076321, -0.03654667318982, 0, 0.01172451076321, -0.03992671232877, 0 Part.CreateLine2 0.01172451076321, -0.03992671232877, 0, 0.008133219178082, -0.03992671232877, 0 Part.CreateLine2 0.008133219178082, -0.03992671232877, 0, 0.008133219178082, -0.04394050880626, 0 Part.CreateLine2 0.008133219178082, -0.04394050880626, 0, 0.01172451076321, -0.04394050880626, 0 Part.CreateLine2 0.01172451076321, -0.04394050880626, 0, 0.01172451076321, -0.04858806262231, 0 Part.CreateLine2 0.01172451076321, -0.04858806262231, 0, 0.008133219178082, -0.04858806262231, 0 Part.CreateLine2 0.008133219178082, -0.04858806262231, 0, 0.008133219178082, -0.05302436399217, 0 Part.CreateLine2 0.008133219178082, -0.05302436399217, 0, 0.01172451076321, -0.05302436399217, 0 Part.EditDelete Part.CreateLine2 0.008133219178082, -0.05302436399217, 0, 0, -0.05302436399217, 0 Part.ClearSelection2 True Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 1, 0.000105626223092, -0.05999569471624 boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0.007710714285714, -0.01098512720157, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0.00749946183953, -0.02154774951076, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0.007076956947162, -0.04161673189824, 0, True, 0, Nothing) Part.SketchAddConstraints "sgCOLINEAR" Part.SketchAddConstraints "sgSAMELENGTH" boolstatus = Part.Extension.SelectByID("Line20", "SKETCHSEGMENT", 0.008344471624266, -0.05027808219178, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Point25", "SKETCHPOINT", 0.008133219178082, -0.04858806262231, 0, False, 0, Nothing) Part.ClearSelection2 True Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, 0.004330675146771, -0.05365812133072 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 1, -0.0007393835616438, -0.05196810176125 boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", 0.009917807409466, -0.03196606350988, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.01050029978948, -0.03579387057856, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.01074993938092, -0.02697327168117, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", 0.00950174142374, -0.03096750514414, 0, True, 0, Nothing) Part.SketchAddConstraints "sgTANGENT" Part.DeSelectByID "Arc1", "SKETCHSEGMENT", 0.01031530205416, -0.02728006674775, 0 boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.01058351298663, -0.03596029697285, 0, True, 0, Nothing) Part.DeSelectByID "Line12", "SKETCHSEGMENT", 0.009823238747554, -0.03046822596126, 0 boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.01066672618377, -0.02713969807546, 0, True, 0, Nothing) Part.SketchAddConstraints "sgSAMELENGTH" boolstatus = Part.Extension.SelectByID("Line18", "SKETCHSEGMENT", 0.01191492414095, -0.04602909382741, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line14", "SKETCHSEGMENT", 0.01174849774666, -0.03770777411289, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0.01224777692953, -0.02472651535825, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.01174849774666, -0.0152402108837, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.01149885815522, -0.005088200831985, 0, True, 0, Nothing) Part.SketchAddConstraints "sgCOLINEAR" boolstatus = Part.Extension.SelectByID("Point15", "SKETCHPOINT", 0.01172451076321, -0.0285794380766, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0.0118317109438, -0.02530900773826, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point18", "SKETCHPOINT", 0.01172451076321, -0.03443414872798, 0, True, 0, Nothing) Part.DeSelectByID "Point18", "SKETCHPOINT", 0.01172451076321, -0.03443414872798, 0 Part.SketchAddConstraints "sgCOINCIDENT" boolstatus = Part.Extension.SelectByID("Point18", "SKETCHPOINT", 0.01172451076321, -0.03443414872798, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line14", "SKETCHSEGMENT", 0.01141564495808, -0.03853990608435, 0, True, 0, Nothing) Part.SketchAddConstraints "sgCOINCIDENT" Part.ClearSelection2 True Part.CreateLine2( 0, 0, 0, 0, 0.009557321865565, 0 ).ConstructionGeometry = TRUE Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", -0.0001509894451005, 0.00481416962829, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0.008253543466562, -0.01149561701216, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.029026, -0.0119949, 0) Part.ClearSelection2 True Part.Parameter("D1@Sketch1").SystemValue = 0.00381 boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part1.SLDPRT", "DIMENSION", -0.005892700048118, -0.01149561701216, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part1.SLDPRT", "DIMENSION", -0.0268624257287, -0.01232774898362, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part1.SLDPRT", "DIMENSION", -0.02544780137723, -0.01116276422358, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part1.SLDPRT", "DIMENSION", -0.02960846123449, -0.01091312463215, 0, False, 0, Nothing) Part.EditDimensionProperties2 4, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 Part.EditDimensionProperties2 3, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 Part.EditDimensionProperties2 3, 0, -5.08e-005, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 Part.EditDimensionProperties2 3, 0, -5.08e-005, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.01149885815522, -0.003590363283372, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", -6.777624795527e-005, 0.005396662008307, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0445345, -0.00342394, 0) Part.ClearSelection2 True Part.Parameter("D2@Sketch1").SystemValue = 3.7592 Part.ClearSelection2 True Part.EditUndo 1 boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", -0.000400629036536, 0.006478433571194, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.01149885815522, -0.004339282057679, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0283079, -0.00500499, 0) Part.ClearSelection2 True Part.Parameter("D2@Sketch1").SystemValue = 0.0037592 boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT", "DIMENSION", 0.01050029978948, -0.005753906409147, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT", "DIMENSION", 0.01907125909544, -0.005088200831985, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT", "DIMENSION", 0.01940411188402, -0.00467213484626, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT", "DIMENSION", 0.01932089868687, -0.00467213484626, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT", "DIMENSION", 0.0204858834469, -0.004172855663389, 0, False, 0, Nothing) Part.Parameter("D2@Sketch1").SystemValue = 0.0037592 boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT", "DIMENSION", 0.0204858834469, -0.003840002874808, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 1.54369491899e-005, 0.006561646768339, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.003676817623578, -0.003340723691937, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", -0.0003174158393908, 0.005313448811162, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.003593604426432, -0.004339282057679, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0290568, -0.0050882, 0) Part.ClearSelection2 True Part.Parameter("D2@Sketch1").SystemValue = 0.0037592 boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT", "DIMENSION", 0.02805828438711, -0.005421053620566, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.003843244017868, -0.005337840423421, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 1.54369491899e-005, 0.004730956431145, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.004009670412158, -0.003340723691937, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 1.54369491899e-005, 0.005063809219726, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.0279442, -0.000677901, 0) Part.ClearSelection2 True Part.Parameter("D2@Sketch1").SystemValue = 0.0062992 boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT", "DIMENSION", -0.02328425825146, 7.101739101542e-005, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT", "DIMENSION", -0.03102308558596, -0.0002618353975653, 0, False, 0, Nothing) Part.EditDimensionProperties2 3, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 Part.EditDimensionProperties2 3, 0, -2.54e-005, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT", "DIMENSION", -0.0286931160659, 0.001735281333919, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT", "DIMENSION", -0.0286931160659, 0.001735281333919, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0.002012553680674, -0.02164762706388, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0263108, -0.0102474, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT", "DIMENSION", -0.0286931160659, 0.001735281333919, 0, False, 0, Nothing) Part.Parameter("D3@Sketch1").SystemValue = 0.0040138 boolstatus = Part.Extension.SelectByID("D3@Sketch1@Part1.SLDPRT", "DIMENSION", 0.03629639090449, -0.01249417537791, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0.001846127286384, -0.01216132258933, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0239808, 0.00215135, 0) Part.ClearSelection2 True Part.Parameter("D3@Sketch1").SystemValue = 0.0023622 boolstatus = Part.Extension.SelectByID("D3@Sketch1@Part1.SLDPRT", "DIMENSION", 0.03321750261012, -0.004755348043405, 0, False, 0, Nothing) Part.EditDimensionProperties2 3, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 Part.EditDimensionProperties2 3, 0.000127, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D3@Sketch1@Part1.SLDPRT", "DIMENSION", 0.03771101525595, -0.0001786222004201, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part1.SLDPRT", "DIMENSION", -0.02752813130586, -0.01166204340645, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch1@Part1.SLDPRT", "DIMENSION", -0.0277777708973, -0.01673804843231, 0, False, 0, Nothing) Part.ClearSelection2 True Part.CreateLine2( 0.001905, -0.01276156144814, 0, 0.01749020834968, -0.01276156144814, 0 ).ConstructionGeometry = TRUE Part.CreateLine2( 0.001905, -0.02269042641879, 0, 0.01749020834968, -0.02269042641879, 0 ).ConstructionGeometry = TRUE Part.CreateLine2( 0.001905, -0.04275940880626, 0, 0.01665807637823, -0.04275940880626, 0 ).ConstructionGeometry = TRUE Part.CreateLine2( 0.00102533929115, -0.03150679340229, 0, 0.01749020834968, -0.03150679340229, 0 ).ConstructionGeometry = TRUE Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.001929340483529, -9.540900327493e-005, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line24", "SKETCHSEGMENT", 0.01474417284389, -0.01291024136363, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0498601, -0.00708532, 0) Part.ClearSelection2 True Part.Parameter("D4@Sketch1").SystemValue = 0.01016 boolstatus = Part.Extension.SelectByID("Line24", "SKETCHSEGMENT", 0.01133243176093, -0.01033063225213, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", 0.009002462240869, -0.02256297223247, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0498601, -0.0165716, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D4@Sketch1@Part1.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D5@Sketch1").SystemValue = 0.01016 boolstatus = Part.Extension.SelectByID("Line27", "SKETCHSEGMENT", 0.013662401281, -0.03105071834128, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", 0.01341276168956, -0.02081549509242, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0498601, -0.0257251, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D5@Sketch1@Part1.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D6@Sketch1").SystemValue = 0.01016 boolstatus = Part.Extension.SelectByID("Line26", "SKETCHSEGMENT", 0.01233099012668, -0.04270056594161, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line27", "SKETCHSEGMENT", 0.01291348250669, -0.03038501276412, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0498601, -0.0368756, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D6@Sketch1@Part1.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D7@Sketch1").SystemValue = 0.01016 boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", 0.001846127286384, -0.04885834253035, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line26", "SKETCHSEGMENT", 0.01491059923818, -0.04062023601298, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.050193, -0.0434495, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D7@Sketch1@Part1.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D8@Sketch1").SystemValue = 0.00508 boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0.0001818633434803, 0.005230235614016, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", 0.001097208512077, -0.0290536016098, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.0267792, -0.0297193, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D8@Sketch1@Part1.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D9@Sketch1").SystemValue = 0.003556 boolstatus = Part.Extension.SelectByID("D9@Sketch1@Part1.SLDPRT", "DIMENSION", -0.04209044080627, -0.02946966759552, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D9@Sketch1@Part1.SLDPRT", "DIMENSION", -0.01987251716851, -0.02838789603263, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D9@Sketch1@Part1.SLDPRT", "DIMENSION", -0.02278497906859, -0.02855432242693, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D9@Sketch1@Part1.SLDPRT", "DIMENSION", -0.02278497906859, -0.02872074882122, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D9@Sketch1@Part1.SLDPRT", "DIMENSION", -0.02253533947715, -0.02880396201836, 0, False, 0, Nothing) Part.Parameter("D9@Sketch1").SystemValue = 0.06096 Part.ClearSelection2 True Part.EditUndo 1 boolstatus = Part.Extension.SelectByID("D9@Sketch1@Part1.SLDPRT", "DIMENSION", -0.02245212628001, -0.02922002800409, 0, False, 0, Nothing) Part.Parameter("D9@Sketch1").SystemValue = 0.006096 boolstatus = Part.Extension.SelectByID("D9@Sketch1@Part1.SLDPRT", "DIMENSION", -0.04059260325766, -0.02847110922978, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D9@Sketch1@Part1.SLDPRT", "DIMENSION", -0.02511494858865, -0.02872074882122, 0, False, 0, Nothing) Part.Parameter("D9@Sketch1").SystemValue = 0.005715 boolstatus = Part.Extension.SelectByID("D9@Sketch1@Part1.SLDPRT", "DIMENSION", -0.02578065416581, -0.02913681480694, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point13", "SKETCHPOINT", 0.0031496, -0.02623375127202, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point17", "SKETCHPOINT", 0.0031496, -0.03472624872798, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0285249, -0.0508507, 0) Part.ClearSelection2 True Part.Parameter("D10@Sketch1").SystemValue = 0.0127 boolstatus = Part.Extension.SelectByID("D10@Sketch1@Part1.SLDPRT", "DIMENSION", 0.03940024239625, -0.06018068398549, 0.008037268874839, False, 0, Nothing) Part.Parameter("D10@Sketch1").SystemValue = 0.01524 boolstatus = Part.Extension.SelectByID("D10@Sketch1@Part1.SLDPRT", "DIMENSION", 0.03885119751136, -0.06786731237401, 0.008037268874839, False, 0, Nothing) Part.Parameter("D10@Sketch1").SystemValue = 0.01778 boolstatus = Part.Extension.SelectByID("D10@Sketch1@Part1.SLDPRT", "DIMENSION", 0.04168792941664, -0.07354077618458, 0.008037268874839, False, 0, Nothing) Part.Parameter("D10@Sketch1").SystemValue = 0.01651 boolstatus = Part.Extension.SelectByID("D10@Sketch1@Part1.SLDPRT", "DIMENSION", 0.04269451170562, -0.07107007420256, 0.008037268874839, False, 0, Nothing) Part.Parameter("D10@Sketch1").SystemValue = 0.01524 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D10@Sketch1@Part1.SLDPRT", "DIMENSION", 0.0396747648387, -0.06786731237401, 0.008037268874839, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D9@Sketch1@Part1.SLDPRT", "DIMENSION", -0.02373991936659, -0.02632291608367, 0.008037268874839, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D10@Sketch1@Part1.SLDPRT", "DIMENSION", 0.02539959783145, -0.05212802567371, 0.008037268874839, False, 0, Nothing) Part.Parameter("D10@Sketch1").SystemValue = 0.0127 boolstatus = Part.Extension.SelectByID("D10@Sketch1@Part1.SLDPRT", "DIMENSION", 0.02539959783145, -0.04947430873005, 0.008037268874839, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D4@Sketch1@Part1.SLDPRT", "DIMENSION", 0.05173955569718, -0.005505949827787, 0.008037268874838, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch1@Part1.SLDPRT", "DIMENSION", 0.05173955569718, -0.005505949827787, 0.008037268874838, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch1@Part1.SLDPRT", "DIMENSION", 0.05173955569718, -0.005505949827787, 0.008037268874838, False, 0, Nothing) Part.Parameter("D4@Sketch1").SystemValue = 0.00762 boolstatus = Part.Extension.SelectByID("D5@Sketch1@Part1.SLDPRT", "DIMENSION", 0.05249296777435, -0.01239428881904, 0.008037268874838, False, 0, Nothing) Part.Parameter("D5@Sketch1").SystemValue = 0.00762 boolstatus = Part.Extension.SelectByID("D6@Sketch1@Part1.SLDPRT", "DIMENSION", 0.05270822836782, -0.02089708226136, 0.008037268874839, False, 0, Nothing) Part.Parameter("D6@Sketch1").SystemValue = 0.00762 boolstatus = Part.Extension.SelectByID("D10@Sketch1@Part1.SLDPRT", "DIMENSION", 0.02300226646805, -0.04479100813726, 0.008037268874839, False, 0, Nothing) Part.Parameter("D10@Sketch1").SystemValue = 0.00635 boolstatus = Part.Extension.SelectByID("D7@Sketch1@Part1.SLDPRT", "DIMENSION", 0.05367690103847, -0.02681674858197, 0.008037268874839, False, 0, Nothing) Part.Parameter("D7@Sketch1").SystemValue = 0.00762 boolstatus = Part.Extension.SelectByID("D8@Sketch1@Part1.SLDPRT", "DIMENSION", 0.05130903451022, -0.03295167549605, 0.008037268874839, False, 0, Nothing) Part.Parameter("D8@Sketch1").SystemValue = 0.00381 boolstatus = Part.Extension.SelectByID("D8@Sketch1@Part1.SLDPRT", "DIMENSION", 0.05324637985151, -0.03262878460584, 0.008037268874839, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D7@Sketch1@Part1.SLDPRT", "DIMENSION", 0.05260059807108, -0.02735490006566, 0.008037268874839, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D10@Sketch1@Part1.SLDPRT", "DIMENSION", 0.02633880566694, -0.03305930579279, 0.008037268874839, False, 0, Nothing) Part.Parameter("D10@Sketch1").SystemValue = 0.01016 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D4@Sketch1@Part1.SLDPRT", "DIMENSION", 0.05109377391675, -0.004322016563666, 0.008037268874838, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch1@Part1.SLDPRT", "DIMENSION", 0.05195481629065, -0.003999125673451, 0.008037268874838, False, 0, Nothing) Part.Parameter("D4@Sketch1").SystemValue = 0.00381 boolstatus = Part.Extension.SelectByID("D4@Sketch1@Part1.SLDPRT", "DIMENSION", 0.05260059807108, -0.0003396955843491, 0.008037268874838, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D4@Sketch1@Part1.SLDPRT", "DIMENSION", 0.06121102181015, 0.00730205548407, 0.008037268874838, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D3@Sketch1@Part1.SLDPRT", "DIMENSION", 0.04162230780378, 0.01343698239815, 0.008037268874838, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch1@Part1.SLDPRT", "DIMENSION", 0.05195481629065, 0.006979164593855, 0.008037268874838, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D5@Sketch1@Part1.SLDPRT", "DIMENSION", 0.04958694976241, -0.008304337542983, 0.008037268874838, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D5@Sketch1@Part1.SLDPRT", "DIMENSION", 0.03215084169081, -1.68046941342e-005, 0.008037268874838, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D5@Sketch1@Part1.SLDPRT", "DIMENSION", 0.03193558109733, -0.001093107661517, 0.008037268874838, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D5@Sketch1@Part1.SLDPRT", "DIMENSION", 0.0400078533527, -0.0003396955843491, 0.008037268874838, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D5@Sketch1@Part1.SLDPRT", "DIMENSION", 0.05539898578628, 0.01042333408948, 0.008037268874838, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D6@Sketch1@Part1.SLDPRT", "DIMENSION", 0.04980221035589, -0.01519267653423, 0.008037268874838, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D7@Sketch1@Part1.SLDPRT", "DIMENSION", 0.0515242951037, -0.02165049433853, 0.008037268874839, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D8@Sketch1@Part1.SLDPRT", "DIMENSION", 0.05884315528191, -0.03435086935365, 0.008037268874839, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.001260946526919, 9.082560260409e-005, 0.008037268874838, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", 0.001906728307348, -0.03026091807759, 0.008037268874839, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0741267, -0.0140087, 0) Part.ClearSelection2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D11@Sketch1@Part1.SLDPRT", "DIMENSION", 0.07348087563831, -0.03101433015476, 0.008037268874839, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D11@Sketch1@Part1.SLDPRT", "DIMENSION", 0.09511456528271, 0.004718928362351, 0.008037268874838, False, 0, Nothing) Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ShowNamedView2 "*Trimetric", 8 boolstatus = Part.Extension.SelectByID("Line23@Sketch1", "EXTSKETCHSEGMENT", 0, 0.005813074962361, 0, False, 0, Nothing) Part.DeSelectByID "Line23@Sketch1", "EXTSKETCHSEGMENT", 0, 0.005674525868358, 0 boolstatus = Part.Extension.SelectByID("Line23@Sketch1", "EXTSKETCHSEGMENT", 0, 0.005674525868358, 0, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line23@Sketch1", "EXTSKETCHSEGMENT", 0, 0.005674525868358, 0, False, 4, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, True, 0, Nothing) Part.FeatureManager.FeatureRevolve 6.28318530718, False, 0, 0, 0, 1, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.00162515513307, -0.000933712864934, 0.0026979345717, True, 0, Nothing) Part.InsertAxis2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Axis1", "AXIS", 0, 0, 0, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 4, Nothing) boolstatus = Part.Extension.SelectByID("Axis1", "AXIS", 0, 0, 0, True, 1, Nothing) Part.FeatureLinearPattern 2, 0.03048, 1, 0.05, False, False, "NULL", "NULL", False Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.0007810305354781, 0, 0.001637010766956, False, 0, Nothing) Part.InsertSketch2 True boolstatus = Part.SketchUseEdge2(False) Part.ClearSelection2 True Part.ClearSelection2 True Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.00381, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.0003930805994514, -0.06095999999997, 0.0002735240672109, False, 0, Nothing) Part.InsertSketch2 True boolstatus = Part.SketchUseEdge2(False) Part.ClearSelection2 True Part.ClearSelection2 True Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.0508, 0.00381, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.ClearSelection2 True Part.SaveAs2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\OsmoSamplers\OsmoValve\Plunger.SLDPRT", 0, FALSE, FALSE boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True Part.Save2 FALSE Part.SaveAs2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\OsmoSamplers\OsmoValve\Housing.SLDPRT", 0, FALSE, FALSE boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.InsertSketch2 True Part.ShowNamedView2 "*Front", 1 Part.ClearSelection2 True Part.ShowNamedView2 "*Front", 1 boolstatus = Part.Extension.SelectByID("D2@Sketch1@Housing.SLDPRT", "DIMENSION", 0.02883473470168, 0.00327643330194, 0.04041938590403, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 2.244270641064e-005, -0.01217652607269, 0.04041938590403, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.001517890387826, -1.355159717401e-005, 0.04041938590403, False, 0, Nothing) Part.EditDelete Part.CreateConstructionGeometry Part.CreateLine2 0.004209696214373, 0.004771880983355, 0, 0.004209696214373, -0.0525536134709, 0 Part.CreateLine2 0.004209696214373, -0.0525536134709, 0, 0.0142790439359, -0.0525536134709, 0 Part.CreateLine2 0.0142790439359, -0.0525536134709, 0, 0.0142790439359, -0.06102781699892, 0 Part.CreateLine2 0.0142790439359, -0.06102781699892, 0, 0.01866569046805, -0.06102781699892, 0 Part.CreateLine2 0.01866569046805, -0.06102781699892, 0, 0.01866569046805, -0.07326599027386, 0 Part.CreateLine2 0.01866569046805, -0.07326599027386, 0, 0.02334406831021, -0.07326599027386, 0 Part.CreateLine2 0.02334406831021, -0.07326599027386, 0, 0.02334406831021, -0.07631507431157, 0 Part.CreateLine2 0.02334406831021, -0.07631507431157, 0, 0.02519529790454, -0.07631507431157, 0 Part.CreateLine2 0.02519529790454, -0.07631507431157, 0, 0.02519529790454, -0.04821994282121, 0 Part.CreateLine2 0.02519529790454, -0.04821994282121, 0, 0.01528577478197, -0.04821994282121, 0 Part.CreateLine2 0.01528577478197, -0.04821994282121, 0, 0.01528577478197, 0.004771880983355, 0 Part.CreateLine2 0.01528577478197, 0.004771880983355, 0, 0.004209696214373, 0.004771880983355, 0 Part.EditDelete boolstatus = Part.Extension.SelectByID("Point38", "SKETCHPOINT", 0.004209696214373, 0.004771880983355, 0, False, 0, Nothing) Part.ClearSelection2 True Part.CreateLine2 0.004831772366949, 0.004771880983355, 0, 0.007663064687683, 0.004771880983355, 0 Part.CreateLine2 0.007663064687683, 0.004771880983355, 0, 0.007663064687683, 0.008079216017999, 0 Part.CreateLine2 0.007663064687683, 0.008079216017999, 0, 0.01528577478197, 0.008079216017999, 0 Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point49", "SKETCHPOINT", 0.01528577478197, 0.004771880983355, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) 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) boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) 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("Line14", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line15", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line17", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line18", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.CreateConstructionGeometry Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.003307230348093, -0.00161251538759, 0.05547543160615, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) 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) boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) 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("Line14", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line15", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line17", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line18", "SKETCHSEGMENT", 0.003198334489603, -0.02948985516097, 0.05547543160615, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("D11@Sketch1@Housing.SLDPRT", "DIMENSION", 0.07713862240416, -0.01348216396297, 0.05547543160615, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", 0.001673792470746, -0.03068770960436, 0.05547543160615, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", 0.001347104895277, -0.03057881374587, 0.05547543160615, False, 0, Nothing) Part.CreateConstructionGeometry boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", 0.001238209036787, -0.03057881374587, 0.05547543160615, False, 0, Nothing) Part.CreateConstructionGeometry boolstatus = Part.Extension.SelectByID("Line24", "SKETCHSEGMENT", 0.01005877357446, -0.003899328415875, 0.05547543160615, False, 0, Nothing) Part.EditDelete Part.EditUndo 1 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point25", "SKETCHPOINT", 0, -0.03048, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point29", "SKETCHPOINT", 0, 0.009557321865565, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point1", "SKETCHPOINT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line40", "SKETCHSEGMENT", 0.006029626810337, 0.004703444404816, 0.05547543160615, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point1", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line40", "SKETCHSEGMENT", 0.006138522668827, 0.004921236121796, 0.05547543160615, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.0138983, 0.0119995, 0) Part.ClearSelection2 True Part.Parameter("D1@Sketch1").SystemValue = 0.00762 boolstatus = Part.Extension.SelectByID("Point1", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", -0.002899833585824, -0.03057881374587, 0.05547543160615, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.0140072, -0.0153334, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch1@Housing.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", -0.00485995903864, -0.03079660546285, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line37", "SKETCHSEGMENT", 0.01931492154609, -0.04527975464199, 0.05547543160616, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.0138983, -0.0388549, 0) Part.ClearSelection2 True Part.Parameter("D3@Sketch1").SystemValue = 0.03048 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line29", "SKETCHSEGMENT", 0.008967588069254, -0.05002246329803, 0.05547543160616, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.00883744, -0.0519747, 0) Part.ClearSelection2 True Part.Parameter("D9@Sketch1").SystemValue = 0.00944727 Part.EditDelete boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", -0.0002732273655005, 0.01349187377465, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line28", "SKETCHSEGMENT", 0.00441225651691, -0.01397026786948, 0.05547543160615, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line28", "SKETCHSEGMENT", 0.004672561177044, 0.005031972320294, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", -0.0002732273655005, 0.01297126445438, 0.05547543160615, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.0333319, -0.00655159, 0) Part.ClearSelection2 True Part.Parameter("D9@Sketch1").SystemValue = 0.00635 boolstatus = Part.Extension.SelectByID("D9@Sketch1@Housing.SLDPRT", "DIMENSION", -0.02200866648668, -0.006161128065465, 0.05547543160615, False, 0, Nothing) Part.EditDimensionProperties2 3, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "", 0 Part.EditDimensionProperties2 3, 5.08e-005, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D9@Sketch1@Housing.SLDPRT", "DIMENSION", -0.03281130988224, -0.005250061754997, 0.05547543160615, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line41", "SKETCHSEGMENT", 0.007275607778384, 0.009717456202705, 0.05547543160615, False, 0, Nothing) Set Annotation = Part.AddDimension2(-0.00652054, 0.0258563, 0) Part.ClearSelection2 True Part.Parameter("D10@Sketch1").SystemValue = 0.00635 boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0.0005076866149013, 0.01193004581384, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line41", "SKETCHSEGMENT", 0.007405760108451, 0.01179989348378, 0.05547543160615, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.0247419, 0.024685, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D10@Sketch1@Housing.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D11@Sketch1").SystemValue = 0.0079502 boolstatus = Part.Extension.SelectByID("D11@Sketch1@Housing.SLDPRT", "DIMENSION", -0.0140693743526, 0.02481512649047, 0.05547543160615, False, 0, Nothing) Part.Parameter("D11@Sketch1").SystemValue = 0.0115062 boolstatus = Part.Extension.SelectByID("D11@Sketch1@Housing.SLDPRT", "DIMENSION", -0.01732318260427, 0.02650710678134, 0.05547543160615, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "t", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "ta", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "tap", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "tap ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "tap 1", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "tap 1/", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "tap 1/2", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "tap 1/2-", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "tap 1/2-2", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "tap 1/2-20", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D11@Sketch1@Housing.SLDPRT", "DIMENSION", -0.02096744784615, 0.0227326892094, 0.05547543160615, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "tap 1/2-20", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D10@Sketch1@Housing.SLDPRT", "DIMENSION", -0.02094639961133, 0.04278416542325, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D10@Sketch1@Housing.SLDPRT", "DIMENSION", -0.01923526089747, 0.0287839395826, 0.05547543160615, False, 0, Nothing) Part.Parameter("D10@Sketch1").SystemValue = 0.01016 boolstatus = Part.Extension.SelectByID("D10@Sketch1@Housing.SLDPRT", "DIMENSION", -0.01845747057299, 0.04231749122856, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D10@Sketch1@Housing.SLDPRT", "DIMENSION", -0.01892414476768, 0.03593961056782, 0.05547543160615, False, 0, Nothing) Part.Parameter("D10@Sketch1").SystemValue = 0.00762 boolstatus = Part.Extension.SelectByID("D11@Sketch1@Housing.SLDPRT", "DIMENSION", 0.04018791989281, 0.0211615944027, 0.05547543160615, False, 0, Nothing) Part.Parameter("D11@Sketch1").SystemValue = 0.0115062 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "tap 1/2-20", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "tap 1/2-20", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".", 1,"", "tap 1/2-20", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".3", 1,"", "tap 1/2-20", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/2-20", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".300", 1,"", "tap 1/2-20", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".300", 1,"", "tap 1/2-20", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".300", 1,"", "tap 1/2-20", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".300", 1,"", "tap 1/2-20.", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".300", 1,"", "tap 1/2-20.2", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".300", 1,"", "tap 1/2-20.20", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".300", 1,"", "tap 1/2-20.200", 0 Part.ClearSelection2 True ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.InsertSketch2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D11@Sketch1@Housing.SLDPRT", "DIMENSION", 0.04578801022907, 0.02256161698676, 0.05547543160615, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".300", 1,"", "tap 1/2-20.20", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".300", 1,"", "tap 1/2-20.20", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", -0.0004127350450527, 0.01105032018445, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line38", "SKETCHSEGMENT", 0.01514307144455, 0.007161368562054, 0.05547543160615, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.0335466, 0.010117, 0) Part.ClearSelection2 True Part.Parameter("D12@Sketch1").SystemValue = 0.0381 boolstatus = Part.Extension.SelectByID("D12@Sketch1@Housing.SLDPRT", "DIMENSION", -0.0456801319298, 0.01042808792487, 0.05547543160615, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D5@Sketch1@Housing.SLDPRT", "DIMENSION", 0.0408101521524, -0.001549883072125, 0.05547543160615, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("D6@Sketch1@Housing.SLDPRT", "DIMENSION", 0.04532133603438, -0.005438834694526, 0.05547543160615, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("D7@Sketch1@Housing.SLDPRT", "DIMENSION", 0.05092142637064, -0.01212783148506, 0.05547543160615, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("D8@Sketch1@Housing.SLDPRT", "DIMENSION", 0.05481037799304, -0.0183501540809, 0.05547543160615, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("D4@Sketch1@Housing.SLDPRT", "DIMENSION", 0.03614341020552, 0.005605787913093, 0.05547543160615, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line24", "SKETCHSEGMENT", 0.01374304886049, -0.003727695980669, 0.05547543160615, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", 0.01078744562746, -0.01119448309568, 0.05547543160615, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line27", "SKETCHSEGMENT", 0.01109856175725, -0.01912794440538, 0.05547543160615, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line26", "SKETCHSEGMENT", 0.01032077143277, -0.02659473152039, 0.05547543160616, False, 0, Nothing) Part.EditDelete Part.SetPickMode boolstatus = Part.Extension.SelectByID("D2@Sketch1@Housing.SLDPRT", "DIMENSION", -0.008190638289855, -0.0144612024585, 0.05547543160615, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Point1", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", -0.004612802797246, -0.0300170089481, 0.05547543160616, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.0137907, -0.0150834, 0) Part.ClearSelection2 True Part.Parameter("D2@Sketch1").SystemValue = 0.03048 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D3@Sketch1@Housing.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line29", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line30", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line31", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line32", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line34", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line35", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line36", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line37", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line29", "SKETCHSEGMENT", 0.00736516819975, -0.0497728831899, 0.05547543160616, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line40", "SKETCHSEGMENT", 0.004409564966725, 0.007628042756742, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line29", "SKETCHSEGMENT", 0.009076306913606, -0.06781761871784, 0.05547543160616, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.031991, -0.028617, 0) Part.ClearSelection2 True Part.Parameter("D4@Sketch1").SystemValue = 0.0762 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D3@Sketch1@Housing.SLDPRT", "DIMENSION", -0.01316849636653, -0.04712839608667, 0.05547543160616, False, 0, Nothing) Part.EditDelete Part.CreateLine2( -0.001657199564221, -0.05708411224001, 0, -0.008889105802761, -0.05708411224001, 0 ).ConstructionGeometry = TRUE Part.ClearSelection2 True Part.SetPickMode Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line37", "SKETCHSEGMENT", 0.0210542779106, -0.06097306386241, 0.05547543160616, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", -0.002590547953597, -0.03079479927258, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line43", "SKETCHSEGMENT", -0.004923918927038, -0.0573952283698, 0.05547543160616, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.0131685, -0.0446395, 0) Part.ClearSelection2 True Part.Parameter("D3@Sketch1").SystemValue = 0.03048 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line43", "SKETCHSEGMENT", -0.004612802797246, -0.06097306386241, 0.05547543160616, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point53", "SKETCHPOINT", -0.001657199564221, -0.06096, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line40", "SKETCHSEGMENT", 0.004565123031621, 0.00731692662695, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line37", "SKETCHSEGMENT", 0.02152095210529, -0.06423978322523, 0.05547543160616, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0459436, -0.0255058, 0) Part.ClearSelection2 True Part.Parameter("D5@Sketch1").SystemValue = 0.0762 boolstatus = Part.Extension.SelectByID("D4@Sketch1@Housing.SLDPRT", "DIMENSION", -0.03432439319239, -0.02799475410445, 0.05547543160616, False, 0, Nothing) Part.Parameter("D4@Sketch1").SystemValue = 0.08255 boolstatus = Part.Extension.SelectByID("D4@Sketch1@Housing.SLDPRT", "DIMENSION", -0.03339104480301, -0.03203926379175, 0.05547543160616, False, 0, Nothing) Part.Parameter("D4@Sketch1").SystemValue = 0.0889 boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", -0.0001778034775434, 0.01164221862138, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line36", "SKETCHSEGMENT", 0.02383725058111, -0.07783322472617, 0.05547543160616, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.0280663, -0.0713776, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D4@Sketch1@Housing.SLDPRT", "DIMENSION", -0.03339104480301, -0.03203926379175, 0.05547543160616, False, 0, Nothing) Part.Parameter("D6@Sketch1").SystemValue = 0.06985 boolstatus = Part.Extension.SelectByID("D6@Sketch1@Housing.SLDPRT", "DIMENSION", -0.03607127137166, -0.0706028858698, 0.05547543160616, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D6@Sketch1@Housing.SLDPRT", "DIMENSION", 0.06662453024744, -0.07594610628466, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D9@Sketch1@Housing.SLDPRT", "DIMENSION", 0.03869331808307, -0.09353814046553, 0.05547543160616, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line36", "SKETCHSEGMENT", 0.03498973193973, -0.08443349119648, 0.05547543160616, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0808216, -0.0867482, 0) Part.ClearSelection2 True Part.Parameter("D7@Sketch1").SystemValue = 0.1016 boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0.01957537122707, -0.1022349841608, 0.05547543160616, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0187786, -0.126669, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D7@Sketch1@Housing.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D8@Sketch1").SystemValue = 0.00467838 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D8@Sketch1@Housing.SLDPRT", "DIMENSION", 0.01824741337952, -0.1264038169863, 0.05547543160616, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", -0.0006095880557883, 0.01250057386814, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line30", "SKETCHSEGMENT", 0.01293558198929, -0.08523712371203, 0.05547543160616, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.0545247, -0.0855027, 0) Part.ClearSelection2 True Part.Parameter("D8@Sketch1").SystemValue = 0.0255557 boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", -7.840491676565e-005, 0.01037584131205, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line32", "SKETCHSEGMENT", 0.01691945553196, -0.09453282864492, 0.05547543160616, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.0542591, -0.0982511, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D8@Sketch1@Housing.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D13@Sketch1").SystemValue = 0.034329 boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", -7.840491676565e-005, 0.01090702445108, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line34", "SKETCHSEGMENT", 0.02170010378316, -0.1120618722327, 0.05547543160616, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.0558526, -0.112859, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D13@Sketch1@Housing.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D14@Sketch1").SystemValue = 0.0436857 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D4@Sketch1@Housing.SLDPRT", "DIMENSION", -0.03168380168861, -0.03450913393536, 0.05547543160615, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("D8@Sketch1@Housing.SLDPRT", "DIMENSION", -0.05638381765317, -0.08523712371203, 0.05547543160616, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Point48", "SKETCHPOINT", 0.01905, -0.06858, 0, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point48", "SKETCHPOINT", 0.01905, -0.06858, 0, False, 1, Nothing) Part.SketchFillet2 0.003175, 2 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line30", "SKETCHSEGMENT", 0.01373235669782, -0.08576830685105, 0.05547543160616, True, 0, Nothing) Part.EditDelete Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line30", "SKETCHSEGMENT", 0.01213880728076, -0.084705940573, 0.05547543160616, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line31", "SKETCHSEGMENT", 0.01452913140636, -0.0892209972547, 0.05547543160616, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Point42", "SKETCHPOINT", 0.017164476166, -0.08975420352802, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point40", "SKETCHPOINT", 0.01277782963385, -0.08128, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point40", "SKETCHPOINT", 0.01277782963385, -0.08128, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point42", "SKETCHPOINT", 0.017164476166, -0.08128, 0, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point42", "SKETCHPOINT", 0.017164476166, -0.08128, 0, False, 1, Nothing) Part.SketchFillet2 0.003175, 2 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D8@Sketch1@Housing.SLDPRT", "DIMENSION", 0.01851300494903, -0.0799252923218, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch1@Housing.SLDPRT", "DIMENSION", 0.01904418808805, -0.06983281268037, 0.05547543160616, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D5@Sketch1@Housing.SLDPRT", "DIMENSION", 0.04613452817821, -0.02866611940611, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D7@Sketch1@Housing.SLDPRT", "DIMENSION", 0.08013024907566, -0.119498436179, 0.05547543160616, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D5@Sketch1@Housing.SLDPRT", "DIMENSION", 0.1101420964304, -0.03025966882318, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D10@Sketch1@Housing.SLDPRT", "DIMENSION", -0.02530960402034, 0.03082639216443, 0.05547543160615, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch1@Housing.SLDPRT", "DIMENSION", -0.02716874500692, 0.020733912523, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D3@Sketch1@Housing.SLDPRT", "DIMENSION", -0.01521712437891, -0.04752312084142, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch1@Housing.SLDPRT", "DIMENSION", -0.02823111128497, -0.01060589267934, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch1@Housing.SLDPRT", "DIMENSION", -0.01309239182282, -0.01565213250006, 0.05547543160615, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D5@Sketch1@Housing.SLDPRT", "DIMENSION", 0.100580799928, -0.0307908519622, 0.05547543160615, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line42", "SKETCHSEGMENT", 0.01213880728076, 0.01515648956326, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line37", "SKETCHSEGMENT", 0.02993344243802, -0.0682392632633, 0.05547543160616, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.108814, -0.0265414, 0) Part.ClearSelection2 True Part.Parameter("D5@Sketch1").SystemValue = 0.0889 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D11@Sketch1@Housing.SLDPRT", "DIMENSION", 0.03710441481482, 0.02631133548273, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D10@Sketch1@Housing.SLDPRT", "DIMENSION", -0.06010209962633, 0.02949843431687, 0.05547543160615, False, 0, Nothing) Part.Parameter("D10@Sketch1").SystemValue = 0.0127 boolstatus = Part.Extension.SelectByID("D11@Sketch1@Housing.SLDPRT", "DIMENSION", 0.04321302091358, 0.03215435001198, 0.05547543160615, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".00", 1,"", "tap 1/2-20.20", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".500", 1,"", "tap 1/2-20.20", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".500", 1,"", "tap 1/2-20.0", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".500", 1,"", "tap 1/2-20.40", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D7@Sketch1@Housing.SLDPRT", "DIMENSION", 0.1074861807353, -0.1184360699009, 0.05547543160616, False, 0, Nothing) Part.Parameter("D7@Sketch1").SystemValue = 0.1143 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D14@Sketch1@Housing.SLDPRT", "DIMENSION", -0.0571805923617, -0.1120618722327, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D13@Sketch1@Housing.SLDPRT", "DIMENSION", -0.05425908509708, -0.09692315277053, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D13@Sketch1@Housing.SLDPRT", "DIMENSION", -0.001937545903345, -0.09320487079737, 0.05547543160616, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D14@Sketch1@Housing.SLDPRT", "DIMENSION", -0.002734320611879, -0.1688984681081, 0.05547543160616, False, 0, Nothing) Part.Parameter("D14@Sketch1").SystemValue = 0.0635 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line29", "SKETCHSEGMENT", 0.00709256746004, -0.08205002487789, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point45", "SKETCHPOINT", 0.03175, -0.18288, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.076412, -0.13145, 0) Part.ClearSelection2 True Part.Parameter("D15@Sketch1").SystemValue = 0.1016 boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0.02568397732583, -0.1030317588693, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point46", "SKETCHPOINT", 0.034925, -0.18288, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0525087, -0.137824, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D15@Sketch1@Housing.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D16@Sketch1").SystemValue = 0.0127 boolstatus = Part.Extension.SelectByID("D16@Sketch1@Housing.SLDPRT", "DIMENSION", 0.05330550055501, -0.1742102994983, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D16@Sketch1@Housing.SLDPRT", "DIMENSION", 0.05914851508426, -0.18961461053, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D13@Sketch1@Housing.SLDPRT", "DIMENSION", 0.0009839613612797, -0.09267368765834, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D13@Sketch1@Housing.SLDPRT", "DIMENSION", -0.002734320611879, -0.1362307050582, 0.05547543160616, False, 0, Nothing) Part.Parameter("D13@Sketch1").SystemValue = 0.05715 boolstatus = Part.Extension.SelectByID("D13@Sketch1@Housing.SLDPRT", "DIMENSION", -0.009108518280151, -0.1370274797667, 0.05547543160616, False, 0, Nothing) Part.Parameter("D13@Sketch1").SystemValue = 0.0508 boolstatus = Part.Extension.SelectByID("D14@Sketch1@Housing.SLDPRT", "DIMENSION", -0.004327870028947, -0.1566812559106, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D13@Sketch1@Housing.SLDPRT", "DIMENSION", -0.00698378572406, -0.1380898460448, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D13@Sketch1@Housing.SLDPRT", "DIMENSION", -0.003265503750902, -0.1479167341167, 0.05547543160616, False, 0, Nothing) Part.Parameter("D13@Sketch1").SystemValue = 0.05715 Part.ClearSelection2 True Part.CreateLine2( 0.028575, -0.1383554376143, 0, -0.01946658949109, -0.1383554376143, 0 ).ConstructionGeometry = TRUE Part.ClearSelection2 True Part.CreateLine2( 0.003175, -0.06858, 0, -0.008889105802761, -0.06858, 0 ).ConstructionGeometry = TRUE Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line43", "SKETCHSEGMENT", -0.002203137472856, -0.06133388245601, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line45", "SKETCHSEGMENT", -0.002203137472856, -0.06877044640232, 0.05547543160616, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.0279655, -0.0538973, 0) Part.ClearSelection2 True ' MSGBOX ' The sketch is no longer over defined. boolstatus = Part.Extension.SelectByID("Line45", "SKETCHSEGMENT", -0.00485905316797, -0.06850485483281, 0.05547543160616, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point63", "SKETCHPOINT", 0.003175, -0.06858, 0, False, 0, Nothing) Part.SketchConstraintsDel 0, "sgCOINCIDENT" boolstatus = Part.Extension.SelectByID("Line45", "SKETCHSEGMENT", -0.00485905316797, -0.06877044640232, 0.05547543160616, False, 0, Nothing) Part.SketchConstraintsDel 1, "sgCOINCIDENT" boolstatus = Part.Extension.SelectByID("Point64", "SKETCHPOINT", -0.008889105802761, -0.06858, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D3@Sketch1@Housing.SLDPRT", "DIMENSION", -0.02477842088132, -0.06000592460845, 0.05547543160615, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D3@Sketch1@Housing.SLDPRT", "DIMENSION", -0.02477842088132, -0.06000592460845, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line43", "SKETCHSEGMENT", -0.004062278459436, -0.06080269931698, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line45", "SKETCHSEGMENT", -0.00299991218139, -0.06877044640232, 0.05547543160616, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.0351365, -0.0523038, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D3@Sketch1@Housing.SLDPRT", "DIMENSION", -0.02477842088132, -0.06000592460845, 0.05547543160615, False, 0, Nothing) Part.Parameter("D17@Sketch1").SystemValue = 0.00762 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line45", "SKETCHSEGMENT", -0.000343996486277, -0.06903603797184, 0.05547543160616, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line45", "SKETCHSEGMENT", -0.00485905316797, -0.06903603797184, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line44", "SKETCHSEGMENT", 0.006295792751506, -0.1378242544753, 0.05547543160616, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.0210601, -0.10675, 0) Part.ClearSelection2 True Part.Parameter("D18@Sketch1").SystemValue = 0.0508 boolstatus = Part.Extension.SelectByID("D18@Sketch1@Housing.SLDPRT", "DIMENSION", -0.0242472377423, -0.09718874434004, 0.05547543160616, False, 0, Nothing) Part.Parameter("D18@Sketch1").SystemValue = 0.0762 boolstatus = Part.Extension.SelectByID("D13@Sketch1@Housing.SLDPRT", "DIMENSION", -0.001406362764322, -0.1479167341167, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D18@Sketch1@Housing.SLDPRT", "DIMENSION", -0.02265368832523, -0.107546815551, 0.05547543160616, False, 0, Nothing) Part.Parameter("D18@Sketch1").SystemValue = 0.0762 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D16@Sketch1@Housing.SLDPRT", "DIMENSION", 0.05835174037573, -0.1914737515166, 0.05547543160616, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Point43", "SKETCHPOINT", 0.028575, -0.17018, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line44", "SKETCHSEGMENT", 0.000452778222257, -0.1447296352826, 0.05547543160616, True, 0, Nothing) Part.SketchAddConstraints "sgCOINCIDENT" boolstatus = Part.Extension.SelectByID("D14@Sketch1@Housing.SLDPRT", "DIMENSION", 0.001780736069814, -0.1795221308886, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D15@Sketch1@Housing.SLDPRT", "DIMENSION", 0.0764119671025, -0.1301220989594, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D15@Sketch1@Housing.SLDPRT", "DIMENSION", 0.05914851508426, -0.131981239946, 0.05547543160616, False, 0, Nothing) Part.Parameter("D15@Sketch1").SystemValue = 0.0508 boolstatus = Part.Extension.SelectByID("D7@Sketch1@Housing.SLDPRT", "DIMENSION", 0.1082829554439, -0.1264038169863, 0.05547543160616, False, 0, Nothing) Part.Parameter("D7@Sketch1").SystemValue = 0.0889 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D7@Sketch1@Housing.SLDPRT", "DIMENSION", 0.1082829554439, -0.1264038169863, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line34", "SKETCHSEGMENT", 0.03152699185508, -0.1508382413813, 0.05547543160616, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0187786, -0.177663, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D7@Sketch1@Housing.SLDPRT", "DIMENSION", 0.1082829554439, -0.1264038169863, 0.05547543160616, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D15@Sketch1@Housing.SLDPRT", "DIMENSION", 0.05782055723671, -0.1306532820985, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D15@Sketch1@Housing.SLDPRT", "DIMENSION", 0.05489904997208, -0.130387690529, 0.05547543160616, False, 0, Nothing) Part.Parameter("D15@Sketch1").SystemValue = 0.0762 boolstatus = Part.Extension.SelectByID("D13@Sketch1@Housing.SLDPRT", "DIMENSION", -0.005921419446015, -0.06096, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D17@Sketch1@Housing.SLDPRT", "DIMENSION", -0.05080639469343, -0.05071021967555, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D7@Sketch1@Housing.SLDPRT", "DIMENSION", 0.112001237417, -0.1120618722327, 0.05547543160616, False, 0, Nothing) Part.Parameter("D7@Sketch1").SystemValue = 0.1016 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point44", "SKETCHPOINT", 0.03175, -0.14478, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0.02979297882313, -0.1449520211785, 0.05547543160616, True, 0, Nothing) ' MSGBOX ' A dimension could not be created from the selected items. Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point61", "SKETCHPOINT", 0.028575, -0.14478, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line44", "SKETCHSEGMENT", 0.001810922310237, -0.1446999305792, 0.05547543160616, True, 0, Nothing) Part.DeSelectByID "Line44", "SKETCHSEGMENT", 0.02336466854314, -0.14478, 0 Part.SketchConstraintsDel 0, "sgCOINCIDENT" boolstatus = Part.Extension.SelectByID("D18@Sketch1@Housing.SLDPRT", "DIMENSION", -0.0202470051211, -0.1102895637864, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D18@Sketch1@Housing.SLDPRT", "DIMENSION", -0.01999491452188, -0.1111718808836, 0.05547543160615, False, 0, Nothing) Part.Parameter("D18@Sketch1").SystemValue = 0.0635 boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0.02991902412274, -0.1325995818169, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0.02991902412274, -0.1322214459181, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0.03017111472195, -0.1319693553189, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point61", "SKETCHPOINT", 0.028575, -0.13208, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line44", "SKETCHSEGMENT", 0.02160003434863, -0.1320954006185, 0.05547543160616, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("D16@Sketch1@Housing.SLDPRT", "DIMENSION", 0.007878743033348, -0.191674492837, 0.05547543160616, False, 0, Nothing) ' MSGBOX ' The dimension selected is a driven dimension. Its value cannot be changed. Part.ClearSelection2 True Part.CreateLine2( 0.028575, -0.1207059473459, 0, -0.02697026140217, -0.1207059473459, 0 ).ConstructionGeometry = TRUE Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line45", "SKETCHSEGMENT", -0.006823180712886, -0.06843244069266, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line46", "SKETCHSEGMENT", -0.001922539464141, -0.1210689578088, 0.05547543160615, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.0295113, -0.0932987, 0) Part.ClearSelection2 True Part.Parameter("D18@Sketch1").SystemValue = 0.0635 Part.ClearSelection2 True Part.EditUndo 1 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line45", "SKETCHSEGMENT", -0.007004685944321, -0.06806943022979, 0.05547543160615, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line46", "SKETCHSEGMENT", -0.006097159787146, -0.1203429368831, 0.05547543160615, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.017895, -0.0927541, 0) Part.ClearSelection2 True Part.Parameter("D18@Sketch1").SystemValue = 0.0521259 boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0.03038539173129, -0.1319592716949, 0.05547543160616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line46", "SKETCHSEGMENT", 0.01967658307662, -0.1208874525774, 0.05547543160615, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.017895, -0.14285, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D18@Sketch1@Housing.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D19@Sketch1").SystemValue = 0.01905 boolstatus = Part.Extension.SelectByID("D18@Sketch1@Housing.SLDPRT", "DIMENSION", -0.01825801029329, -0.09384317309356, 0.05547543160615, False, 0, Nothing) Part.Parameter("D18@Sketch1").SystemValue = 0.0635 boolstatus = Part.Extension.SelectByID("D18@Sketch1@Housing.SLDPRT", "DIMENSION", -0.01807650506185, -0.0976547829537, 0.05547543160615, False, 0, Nothing) Part.Parameter("D18@Sketch1").SystemValue = 0.0762 boolstatus = Part.Extension.SelectByID("D15@Sketch1@Housing.SLDPRT", "DIMENSION", 0.05652214505792, -0.1328667978521, 0.05547543160616, False, 0, Nothing) Part.Parameter("D15@Sketch1").SystemValue = 0.0889 Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Axis1", "AXIS", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Axis1", "AXIS", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.004463612704231, -0.0473778338462, 0.01851968308654, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("LPattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditDelete Part.Save2 FALSE swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\OsmoSamplers\OsmoValve\Plunger.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\OsmoSamplers\OsmoValve\Plunger.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Plunger.SLDPRT") boolstatus = Part.Extension.SelectByID("Unknown", "BROWSERITEM", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Unknown", "BROWSERITEM", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Housing.SLDPRT") boolstatus = Part.Extension.SelectByID("Unknown", "BROWSERITEM", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True swApp.LoadFile2 "C:\Program Files\SolidWorks2004\data\templates\Assembly.asmdot", "" Set Part = swApp.ActiveDoc swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks2004\data\templates\Assembly.asmdot", 0, 0.000000, 0.000000) Set Part = swApp.ActivateDoc ("Assem1") Part.AddComponent "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\OsmoSamplers\OsmoValve\Housing.SLDPRT", -0.01542923691687, -0.02027118457988, -0.02899259447133 Part.AddComponent "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\OsmoSamplers\OsmoValve\Plunger.SLDPRT", -0.06728560999801, -0.05913253281682, 0.02477313329473 boolstatus = Part.Extension.SelectByID("Front Plane", "PLANE", 0, 0, 0, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("Front@Plunger-1@Assem1", "PLANE", 0, 0, 0, True, 1, Nothing) Set Feature = Part.AddMate2 (0, 0, False, 0.02477313329473, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.001724137290125, 0.01627365344564, -0.005488671079149, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.06565246414044, -0.07121444336821, 0.002693105042226, True, 1, Nothing) Set Feature = Part.AddMate2 (1, 0, False, 0.06728560999801, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Front Plane", "PLANE", 0, 0, 0, True, 0, Nothing) Part.ClearSelection2 True Part.ShowNamedView2 "*Front", 1 Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "FACE", 0.0001035551206784, -0.02584487279843, -0.002855622977052, False, 0, Nothing) Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Plunger.SLDPRT") boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Extrude2@Plunger.SLDPRT", "DIMENSION", -0.1194766213457, -0.07463025220619, -0.1158132056529, False, 0, Nothing) Part.Parameter("D1@Extrude2").SystemValue = 0.0762 Part.EditRebuild Part.ClearSelection2 True Part.ShowNamedView2 "*Trimetric", 8 Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Assem1") boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", 0.0001035551206784, -0.01652491193738, 0, False, 0, Nothing) Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "FACE", 0.001346216568819, -0.01238270711024, -0.002520517248456, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Default", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Default", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.EditConfiguration "Default","Sea surface","","",1,0,0,1,384 boolstatus = Part.Extension.SelectByID("Assem1.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.AddConfiguration "Deployed","","",1,0,0,1,256 boolstatus = Part.Extension.SelectByID("Sea surface@Assem1.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" boolstatus = Part.Extension.SelectByID("", "FACE", -0.002715190944642, 0.007619999999974, -0.004398041329182, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.001078012222351, 0.007558207561459, -0.000963395534427, True, 1, Nothing) Set Feature = Part.AddMate2 (0, 0, False, 6.179243847507e-005, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Deployed@Assem1.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Deployed" boolstatus = Part.Extension.SelectByID("", "FACE", -0.00131880681765, 0.007619999999946, -0.001013549702691, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.001552032186083, 0.007619999999946, -0.004758919499238, True, 1, Nothing) Set Feature = Part.AddMate2 (5, 0, False, 0.00762, 0.00762, 0.00762, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sea surface@Assem1.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" boolstatus = Part.Extension.SelectByID("Deployed@Assem1.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Deployed" boolstatus = Part.Extension.SelectByID("Sea surface@Assem1.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" boolstatus = Part.Extension.SelectByID("Deployed@Assem1.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Deployed" ' 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\OsmoSamplers\OsmoValve\OsmoValve.SLDASM", 0, FALSE, FALSE boolstatus = Part.SetUserPreferenceToggle(6, False) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Housing.SLDPRT") Part.ShowNamedView2 "*Top", 5 Part.ShowNamedView2 "*Front", 1 boolstatus = Part.Extension.SelectByID("Front", "PLANE", 0, 0, 0, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.InsertSketch2 True Part.ShowNamedView2 "*Front", 1 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D19@Sketch1@Housing.SLDPRT", "DIMENSION", -0.03041978011707, -0.1817277296313, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D15@Sketch1@Housing.SLDPRT", "DIMENSION", 0.05590083047975, -0.1246990980057, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line37", "SKETCHSEGMENT", 0.02738651466699, -0.0687073505916, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line29", "SKETCHSEGMENT", 0.01701767255325, -0.08089074007523, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0815637, -0.0899635, 0) Part.ClearSelection2 True Part.Parameter("D15@Sketch1").SystemValue = 0.0127 boolstatus = Part.Extension.SelectByID("D16@Sketch1@Housing.SLDPRT", "DIMENSION", 0.008204156756582, -0.1897635822694, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line35", "SKETCHSEGMENT", 0.03341733931288, -0.1710925792137, -0.07007780031249, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0.02979433678813, -0.1647999958812, -0.07007780031249, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0454305, -0.18997, 0) Part.ClearSelection2 True ' MSGBOX ' The sketch can now find a valid solution. boolstatus = Part.Extension.SelectByID("D19@Sketch1@Housing.SLDPRT", "DIMENSION", -0.01864984881672, -0.1526383334833, -0.03353847096692, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line35", "SKETCHSEGMENT", 0.0334028015725, -0.1708337289734, -0.03353847096692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point61", "SKETCHPOINT", 0.028575, -0.16383, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0211958, -0.188108, 0) Part.ClearSelection2 True Part.Parameter("D16@Sketch1").SystemValue = 0.0127 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D7@Sketch1@Housing.SLDPRT", "DIMENSION", 0.109869526923, -0.1176294712747, -0.03353847096692, False, 0, Nothing) Part.Parameter("D7@Sketch1").SystemValue = 0.0889 Part.ClearSelection2 True Part.InsertSketch2 True Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("OsmoValve.SLDASM") Part.ShowNamedView2 "*Front", 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Plunger.SLDPRT") Part.ShowNamedView2 "*Front", 1 boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Housing.SLDPRT") boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Plunger.SLDPRT") boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Extrude1@Plunger.SLDPRT", "DIMENSION", -0.001483482434373, 0.001334796952116, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Extrude1@Plunger.SLDPRT", "DIMENSION", -0.01912911560112, 0.00149095299784, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Housing.SLDPRT") boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Sketch1@Housing.SLDPRT", "DIMENSION", -0.03405520385618, -0.0104663490974, -0.05496611613834, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch1@Housing.SLDPRT", "DIMENSION", -0.0386444841088, -0.008588916266785, -0.05496611613834, False, 0, Nothing) Part.Parameter("D1@Sketch1").SystemValue = 0.00381 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D18@Sketch1@Housing.SLDPRT", "DIMENSION", -0.01715830838062, -0.1051724052197, -0.05496611613833, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.InsertSketch2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D17@Sketch1@Housing.SLDPRT", "DIMENSION", -0.0417735388265, -0.05260428596239, -0.05496611613834, False, 0, Nothing) Part.Parameter("D17@Sketch1").SystemValue = 0.00381 boolstatus = Part.Extension.SelectByID("D7@Sketch1@Housing.SLDPRT", "DIMENSION", 0.1086296912708, -0.1151853803163, -0.05496611613833, False, 0, Nothing) Part.Parameter("D7@Sketch1").SystemValue = 0.0889 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D18@Sketch1@Housing.SLDPRT", "DIMENSION", -0.01663257503713, -0.1046176238183, -0.05496611613833, False, 0, Nothing) Part.Parameter("D18@Sketch1").SystemValue = 0.08255 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D18@Sketch1@Housing.SLDPRT", "DIMENSION", -0.0172558827369, -0.1073186238506, -0.05496611613833, False, 0, Nothing) Part.Parameter("D18@Sketch1").SystemValue = 0.08382 Part.ClearSelection2 True Part.InsertSketch2 True Part.EditRebuild swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Plunger.SLDPRT") boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Extrude2@Plunger.SLDPRT", "DIMENSION", 0.00273273080016, -0.09985432067667, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Extrude2@Plunger.SLDPRT", "DIMENSION", 0.01772371118961, -0.09798044812799, 0, False, 0, Nothing) Part.Parameter("D1@Extrude2").SystemValue = 0.08382 Part.EditRebuild Part.ClearSelection2 True Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("OsmoValve.SLDASM") boolstatus = Part.Extension.SelectByID("Sea surface@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" boolstatus = Part.Extension.SelectByID("Deployed@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Deployed" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Housing.SLDPRT") boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D3@Sketch1@Housing.SLDPRT", "DIMENSION", -0.03470849833032, -0.01839339201739, -0.05496611613834, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch1@Housing.SLDPRT", "DIMENSION", -0.0172558827369, -0.01299139195276, -0.05496611613834, False, 0, Nothing) Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Plunger.SLDPRT") boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Extrude2@Plunger.SLDPRT", "DIMENSION", 0.01303902981791, -0.100791256951, 0, False, 0, Nothing) Part.Parameter("D1@Extrude2").SystemValue = 0.0762 Part.EditRebuild Part.ClearSelection2 True Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("OsmoValve.SLDASM") boolstatus = Part.Extension.SelectByID("Sea surface@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" boolstatus = Part.Extension.SelectByID("Deployed@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Deployed" boolstatus = Part.Extension.SelectByID("Sea surface@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" boolstatus = Part.Extension.SelectByID("Deployed@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Deployed" boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.001063165905632, 0.004101887366819, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Unknown", "POINTREF", 0, 0, 0, True, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Plunger.SLDPRT") boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Extrude2@Plunger.SLDPRT", "DIMENSION", 0.01663061886955, -0.09813660417371, 0, False, 0, Nothing) Part.Parameter("D1@Extrude2").SystemValue = 0.08128 Part.EditRebuild Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("OsmoValve.SLDASM") boolstatus = Part.Extension.SelectByID("Sea surface@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" boolstatus = Part.Extension.SelectByID("Deployed@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Deployed" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Plunger.SLDPRT") boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Extrude2@Plunger.SLDPRT", "DIMENSION", 0.0163183067781, -0.09969816463095, 0, False, 0, Nothing) Part.Parameter("D1@Extrude2").SystemValue = 0.08001 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("OsmoValve.SLDASM") Part.EditRebuild boolstatus = Part.Extension.SelectByID("Sea surface@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" boolstatus = Part.Extension.SelectByID("Deployed@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Deployed" boolstatus = Part.Extension.SelectByID("Sea surface@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" Part.ShowNamedView2 "*Trimetric", 8 boolstatus = Part.Extension.SelectByID("Right Plane", "PLANE", 0, 0, 0, False, 0, Nothing) Part.InsertSketch2 True Part.ClearSelection2 True Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Front Plane", "PLANE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Right Plane", "PLANE", 0, 0, 0, False, 0, Nothing) Part.InsertSketch2 True Part.ShowNamedView2 "*Right", 4 Part.ClearSelection2 True Part.CreateCircle 0, -0.005893805175038, 0, 0.0006765601217656, -0.008213439878234, 0 Part.ClearSelection2 True Part.CreateCircle 0, -0.01884509893455, 0, 0.001836377473364, -0.02039152207002, 0 Part.ClearSelection2 True Part.CreateCircle 0, -0.0314097869102, 0, 9.665144596652e-005, -0.03411602739726, 0 Part.ClearSelection2 True Part.CreateCircle 0, -0.04339456621005, 0, 0.0004832572298326, -0.04590750380518, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01897900961376, 0.01614272450533, -0.001643074581431, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0, -0.004540684931507, -0.001643074581431, True, 0, Nothing) Set Annotation = Part.AddDimension2(0, 0.00570437, -0.0308318) Part.ClearSelection2 True Part.Parameter("D1@Sketch2").SystemValue = 0.02413 boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0, -0.009373257229833, -0.001836377473364, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0, -0.01652546423135, -0.001836377473364, True, 0, Nothing) Set Annotation = Part.AddDimension2(0, -0.013046, -0.0310251) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch2@OsmoValve.SLDASM", "DIMENSION", 0, 0.02000878234399, -0.03102511415525, False, 0, Nothing) Part.Parameter("D2@Sketch2").SystemValue = 0.00762 boolstatus = Part.Extension.SelectByID("D2@Sketch2@OsmoValve.SLDASM", "DIMENSION", 0, -0.01072637747336, -0.03063850837139, False, 0, Nothing) Part.Parameter("D2@Sketch2").SystemValue = 0.01524 boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0, -0.02503079147641, -0.002029680365297, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0, -0.029090152207, -0.001836377473364, True, 0, Nothing) Set Annotation = Part.AddDimension2(0, -0.0306366, -0.0312184) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch2@OsmoValve.SLDASM", "DIMENSION", 0, -0.01072637747336, -0.03063850837139, False, 0, Nothing) Part.Parameter("D3@Sketch2").SystemValue = 0.01524 boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0, -0.03952850837139, -0.002416286149163, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc4", "SKETCHSEGMENT", 0, -0.04223474885845, -0.00222298325723, True, 0, Nothing) Set Annotation = Part.AddDimension2(0, -0.0406883, -0.0366309) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D3@Sketch2@OsmoValve.SLDASM", "DIMENSION", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' Please enter a number between 0.00000394 and 393700.78740157 Part.Parameter("D4@Sketch2").SystemValue = 0.01524 boolstatus = Part.Extension.SelectByID("D4@Sketch2@OsmoValve.SLDASM", "DIMENSION", 0, -0.04532759512938, -0.03721080669711, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch2@OsmoValve.SLDASM", "DIMENSION", 0, -0.03450263318113, -0.03044520547945, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D3@Sketch2@OsmoValve.SLDASM", "DIMENSION", 0, -0.03527584474886, -0.03063850837139, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D3@Sketch2@OsmoValve.SLDASM", "DIMENSION", 0, -0.03701557077626, -0.03121841704718, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch2@OsmoValve.SLDASM", "DIMENSION", 0, -0.01420582952816, -0.02947869101979, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch2@OsmoValve.SLDASM", "DIMENSION", 0, -0.01459243531202, -0.03141171993912, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch2@OsmoValve.SLDASM", "DIMENSION", 0, -0.01478573820396, -0.03121841704718, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch2@OsmoValve.SLDASM", "DIMENSION", 0, -0.01362592085236, -0.03527777777778, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D3@Sketch2@OsmoValve.SLDASM", "DIMENSION", 0, -0.0308298782344, -0.0395304414003, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D3@Sketch2@OsmoValve.SLDASM", "DIMENSION", 0, -0.0296700608828, -0.03044520547945, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch2@OsmoValve.SLDASM", "DIMENSION", 0, -0.04494098934551, -0.03489117199391, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch2@OsmoValve.SLDASM", "DIMENSION", 0, 0.004737853881279, -0.02928538812785, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch2@OsmoValve.SLDASM", "DIMENSION", 0, -0.04648741248097, -0.03179832572298, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D3@Sketch2@OsmoValve.SLDASM", "DIMENSION", 0, -0.0308298782344, -0.03063850837139, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D4@Sketch2@OsmoValve.SLDASM", "DIMENSION", 0, -0.04571420091324, -0.03044520547945, False, 0, Nothing) Part.ClearSelection2 True Part.SetUserPreferenceIntegerValue swDetailingLinearDimPrecision , 3 Part.SetUserPreferenceIntegerValue swDetailingAltLinearDimPrecision , 0 Part.SetUserPreferenceIntegerValue swDetailingLinearTolPrecision , 3 Part.SetUserPreferenceIntegerValue swDetailingAltLinearTolPrecision , 0 Part.SetUserPreferenceIntegerValue swDetailingAngularDimPrecision , 0 Part.SetUserPreferenceIntegerValue swDetailingAngularTolPrecision , 0 Part.SetUserPreferenceIntegerValue swUnitsLinearDecimalPlaces , 3 Part.SetUserPreferenceIntegerValue swUnitsAngularDecimalPlaces , 0 Part.SetUserPreferenceIntegerValue swDocumentColorFeatBend , 7209045 Part.SetUserPreferenceIntegerValue swDocumentColorFeatBoss , 7602281 Part.SetUserPreferenceIntegerValue swDocumentColorFeatCavity , 6684751 Part.SetUserPreferenceIntegerValue swDocumentColorFeatChamfer , 6619213 Part.SetUserPreferenceIntegerValue swDocumentColorFeatCut , 7536737 Part.SetUserPreferenceIntegerValue swDocumentColorFeatLoftCut , 7471221 Part.SetUserPreferenceIntegerValue swDocumentColorFeatSurfCut , 101 Part.SetUserPreferenceIntegerValue swDocumentColorFeatSweepCut , 7274563 Part.SetUserPreferenceIntegerValue swDocumentColorFeatWeldBead , 7602291 Part.SetUserPreferenceIntegerValue swDocumentColorFeatExtrude , 5046272 Part.SetUserPreferenceIntegerValue swDocumentColorFeatFillet , 7012449 Part.SetUserPreferenceIntegerValue swDocumentColorFeatHole , 5177445 Part.SetUserPreferenceIntegerValue swDocumentColorFeatLibrary , 4325490 Part.SetUserPreferenceIntegerValue swDocumentColorFeatLoft , 7929973 Part.SetUserPreferenceIntegerValue swDocumentColorFeatMidSurface , 4980736 Part.SetUserPreferenceIntegerValue swDocumentColorFeatPattern , 6357093 Part.SetUserPreferenceIntegerValue swDocumentColorFeatRefSurface , 5505124 Part.SetUserPreferenceIntegerValue swDocumentColorFeatRevolution , 7143529 Part.SetUserPreferenceIntegerValue swDocumentColorFeatShell , 101 Part.SetUserPreferenceIntegerValue swDocumentColorFeatDerivedPart , 6815811 Part.SetUserPreferenceIntegerValue swDocumentColorFeatSweep , 6488165 Part.SetUserPreferenceIntegerValue swDocumentColorFeatThicken , 6619243 Part.SetUserPreferenceIntegerValue swDocumentColorFeatRib , 4325476 Part.SetUserPreferenceIntegerValue swDocumentColorFeatDome , 121 Part.SetUserPreferenceIntegerValue swDocumentColorFeatForm , 6815811 Part.SetUserPreferenceIntegerValue swDocumentColorFeatShape , 6488165 Part.SetUserPreferenceIntegerValue swDocumentColorFeatReplaceFace , 6619243 Part.SetUserPreferenceIntegerValue swDocumentColorFeatStructuralMember , 4456548 Part.SetUserPreferenceIntegerValue swDocumentColorFeatGusset , 7602273 Part.SetUserPreferenceIntegerValue swDocumentColorFeatEndCap , 101 Part.SetUserPreferenceIntegerValue swDocumentColorFeatWrap , 7471172 Part.SetUserPreferenceIntegerValue swImageQualityWireframe , swWireframeImageQualityCustom boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0, -0.008793348554033, 0.002029680365297, False, 0, Nothing) Set Annotation = Part.AddDimension2(0, 0.00995703, 0.039917) Part.ClearSelection2 True Part.Parameter("D5@Sketch2").SystemValue = 0.0011 boolstatus = Part.Extension.SelectByID("D5@Sketch2@OsmoValve.SLDASM", "DIMENSION", 0, 0.009377123287671, 0.03624429223744, False, 0, Nothing) Part.Parameter("D5@Sketch2").SystemValue = 0.0010922 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D5@Sketch2@OsmoValve.SLDASM", "DIMENSION", -0.0559508064827, 0.009464375536918, 0.03835969596207, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0, -0.00762, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point4", "SKETCHPOINT", 0, -0.02286, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point6", "SKETCHPOINT", 0, -0.0381, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point8", "SKETCHPOINT", 0, -0.05334, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing) Part.SketchAddConstraints "sgVERTPOINTS" boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.06150820470036, -0.007023899924394, -0.0004808658399484, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", -0.06139847001156, -0.0210696610202, -0.0004808122580549, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", -0.06126803076224, -0.03697048017736, -0.002070874156137, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc4", "SKETCHSEGMENT", -0.06115156706764, -0.05181128081566, -0.002203327754375, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch2@OsmoValve.SLDASM", "DIMENSION", -0.0613327345705, -0.01444349879727, -0.03056065589922, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc4", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc4", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0, -0.00762, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing) Part.SketchAddConstraints "sgVERTPOINTS" Part.ClearSelection2 True Part.InsertSketch2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditDelete Part.ClearSelection2 True Part.ShowNamedView2 "*Front", 1 ' 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 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Housing.SLDPRT") boolstatus = Part.Extension.SelectByID("Right", "PLANE", 0, 0, 0, False, 0, Nothing) Part.InsertSketch2 True Part.ClearSelection2 True Part.CreateCircle 0, -0.008234265453922, 0, 0.004361986832635, -0.01037772688351, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01821512021007, 0.01646304940293, -0.004208188566224, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0, -0.008234265453922, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0, 0.00392724, -0.0501043) Part.ClearSelection2 True Part.Parameter("D1@Sketch4").SystemValue = 0.02413 boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0, -0.00762, 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("Arc1", "SKETCHSEGMENT", -0.04115620416685, -0.009574259393035, -0.03200186128866, False, 0, Nothing) Set Annotation = Part.AddDimension2(0, 0.0268138, 0.0767697) Part.ClearSelection2 True Part.Parameter("D2@Sketch4").SystemValue = 0.0010922 Part.ShowNamedView2 "*Trimetric", 8 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch4@Housing.SLDPRT", "DIMENSION", -0.04069282711195, -0.008165096310452, -0.03261914431281, False, 0, Nothing) Part.FeatureManager.FeatureCut True, False, True, 1, 0, 0.0508, 0.0508, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.00935907336293, -0.007840636079891, -0.0004995447231977, True, 0, Nothing) Part.InsertAxis2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.01886267641999, -0.01539031018572, -0.002664946204732, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Axis1", "AXIS", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Axis2", "AXIS", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.0185127048527, -0.007932158929549, -0.0004480870593397, True, 0, Nothing) Part.CreatePlaneAtSurface3 0, False, False, False, 0.7853981633975, True ' MSGBOX ' No Plane or Point Selected Part.DeSelectByID "", "FACE", 0.01598416987559, -0.007803806316304, -0.0005142377351035 Part.CreatePlaneAtSurface3 0, False, False, False, 0.7853981633975, True ' MSGBOX ' Please select a tangent surface and a plane and/or an edge. Part.DeSelectByID "Axis2", "AXIS", 0, 0, 0 boolstatus = Part.Extension.SelectByID("", "FACE", 0.01898436274183, 0.001772553538331, -0.001580022558983, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Right", "PLANE", 0, 0, 0, True, 0, Nothing) Part.ShowNamedView2 "*Top", 5 Part.CreatePlaneAtOffset3 0.01905, False, True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing) Part.InsertSketch2 True Part.ClearSelection2 True Part.CreateCircle -0.0006129447891539, -0.007328716426969, 0, 0.002277026194804, -0.008734782444009, 0 boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01903330988068, -0.00780081497669, -0.0004706908730583, True, 0, Nothing) Part.SketchAddConstraints "sgCONCENTRIC" Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.08792422650829, -0.0243597580815, -0.02920403622477, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.01905, -0.0045056, -0.028064) Part.ClearSelection2 True Part.Parameter("D1@Sketch5").SystemValue = 0.0051054 boolstatus = Part.Extension.SelectByID("D1@Sketch5@Housing.SLDPRT", "DIMENSION", -0.08318522614083, -0.02113723178927, -0.05071850669236, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch5@Housing.SLDPRT", "DIMENSION", -0.08149101919187, -0.03473589115862, -0.04829438492322, False, 0, Nothing) Part.Parameter("D1@Sketch5").SystemValue = 0.0054102 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, 1, 1, 11, 11,"", ".", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".3", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "t", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "ta", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-2", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 U", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UN", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNC", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UN", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.2", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25" & Chr(13) & Chr(10) & _ "b", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25" & Chr(13) & Chr(10) & _ "bo", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25" & Chr(13) & Chr(10) & _ "bot", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25" & Chr(13) & Chr(10) & _ "bott", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25" & Chr(13) & Chr(10) & _ "botto", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25" & Chr(13) & Chr(10) & _ "bottom", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25" & Chr(13) & Chr(10) & _ "bottom ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25" & Chr(13) & Chr(10) & _ "bottom f", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25" & Chr(13) & Chr(10) & _ "bottom fl", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25" & Chr(13) & Chr(10) & _ "bottom fla", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25" & Chr(13) & Chr(10) & _ "bottom flat", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25" & Chr(13) & Chr(10) & _ "bottom flat ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25" & Chr(13) & Chr(10) & _ "bottom flat t", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25" & Chr(13) & Chr(10) & _ "bottom flat to", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25" & Chr(13) & Chr(10) & _ "bottom flat to ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25" & Chr(13) & Chr(10) & _ "bottom flat to .", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25" & Chr(13) & Chr(10) & _ "bottom flat to .0", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25" & Chr(13) & Chr(10) & _ "bottom flat to .00", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25" & Chr(13) & Chr(10) & _ "bottom flat to .002", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".30", 1,"", "tap 1/4-28 UNF-2B.25" & Chr(13) & Chr(10) & _ "bottom flat to .002", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch5@Housing.SLDPRT", "DIMENSION", -0.08087697348639, -0.03993475169565, -0.04723050596475, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch5@Housing.SLDPRT", "DIMENSION", -0.07842593795103, -0.05015450033715, -0.05020652086943, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch5@Housing.SLDPRT", "DIMENSION", -0.07842593795103, -0.05015450033715, -0.05020652086943, False, 0, Nothing) Part.FeatureManager.FeatureCut True, False, False, 0, 0, 0.00762, 0.0508, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Cut-Extrude2@Housing.SLDPRT", "DIMENSION", -0.008931638956998, -0.03267115106232, -0.0822178708484, False, 0, Nothing) Part.Parameter("D1@Cut-Extrude2").SystemValue = 0.00889 boolstatus = Part.Extension.SelectByID("D1@Sketch5@Housing.SLDPRT", "DIMENSION", 0.004176044391688, -0.04886415167317, -0.08070987547753, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".35", 1,"", "tap 1/4-28 UNF-2B.25" & Chr(13) & Chr(10) & _ "bottom flat to .002", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".35", 1,"", "tap 1/4-28 UNF-2B.3" & Chr(13) & Chr(10) & _ "bottom flat to .002", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", ".35", 1,"", "tap 1/4-28 UNF-2B.30" & Chr(13) & Chr(10) & _ "bottom flat to .002", 0 Part.ClearSelection2 True Part.EditRebuild Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("OsmoValve.SLDASM") boolstatus = Part.Extension.SelectByID("Deployed@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Deployed" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Housing.SLDPRT") boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D12@Sketch1@Housing.SLDPRT", "DIMENSION", 0.02283024816762, -0.01763518022401, -0.09526059686081, False, 0, Nothing) Part.Parameter("D12@Sketch1").SystemValue = 0.03048 Part.EditRebuild Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Plane1@Housing.SLDPRT", "DIMENSION", -0.01257748064886, -0.02474614073865, -0.08368974718133, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Plane1@Housing.SLDPRT", "DIMENSION", -0.01257748064886, -0.02474614073865, -0.08368974718133, False, 0, Nothing) Part.Parameter("D1@Plane1").SystemValue = 0.01524 Part.EditRebuild Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Right", "PLANE", 0, 0, 0, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 1, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("Right", "PLANE", 0, 0, 0, True, 2, Nothing) Part.FeatureManager.InsertMirrorFeature False, False, False, False Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Mirror1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Axis1", "AXIS", 0, 0, 0, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Mirror1", "BODYFEATURE", 0, 0, 0, False, 4, Nothing) boolstatus = Part.Extension.SelectByID("Axis1", "AXIS", 0, 0, 0, True, 1, Nothing) Part.FeatureLinearPattern 7, 0.00762, 1, 0.05, False, False, "NULL", "NULL", False Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("OsmoValve.SLDASM") boolstatus = Part.Extension.SelectByID("Sea surface@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" boolstatus = Part.Extension.SelectByID("Deployed@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Deployed" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Plunger.SLDPRT") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditSuppress Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("LPattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.0004843468884133, -0.03047999999995, -0.0002633056543004, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.0004843468884133, -0.03047999999995, -0.0002633056543004, True, 2, Nothing) Part.FeatureManager.InsertMirrorFeature False, False, False, False Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Mirror1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ReorderFeature "Mirror1", "Axis1" boolstatus = Part.Extension.SelectByID("Mirror1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.00381, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 9.564758548208e-005, -0.06095999999994, -0.0002317307097428, False, 0, Nothing) Part.InsertSketch2 True boolstatus = Part.SketchUseEdge2(False) Part.ClearSelection2 True Part.ClearSelection2 True Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.0762, 0.00381, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.ClearSelection2 True Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("OsmoValve.SLDASM") boolstatus = Part.Extension.SelectByID("Concentric1", "MATE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Concentric1", "MATE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Concentric1", "MATE", 0, 0, 0, False, 0, Nothing) Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Concentric1" boolstatus = Part.Extension.SelectByID("", "FACE", -0.003029740463546, -0.09886063682626, -0.0008606119236561, True, 1, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Concentric1", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Distance1", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Coincident2", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Coincident1", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditDelete Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "FACE", -0.001005529505072, -0.1413998588045, 0.002984776469702, False, 0, Nothing) Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "FACE", -0.07027169593621, -0.0837434940002, -0.009662564251698, False, 0, Nothing) Part.DeSelectByID "", "FACE", -0.06750966826121, -0.0885821484525, -0.008095865373718 boolstatus = Part.Extension.SelectByID("", "FACE", -0.06747720351331, -0.0150432721328, -0.008093033282194, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.001055696308967, -0.006784504642951, -0.002994349729633, True, 1, Nothing) Set Feature = Part.AddMate2 (1, 0, False, 0.06815167453933, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Front@Plunger-1@OsmoValve", "PLANE", 0, 0, 0, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("Front Plane", "PLANE", 0, 0, 0, True, 1, Nothing) Set Feature = Part.AddMate2 (0, 0, False, 0, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.002502170711544, 0.00380999999993, -0.00366894593185, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.0005341409358408, -0.01042004353332, -0.0002606709172355, True, 1, Nothing) Set Feature = Part.AddMate2 (5, 0, False, 0.00762, 0.00762, 0.00762, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True boolstatus = Part.SetUserPreferenceToggle(5, False) boolstatus = Part.Extension.SelectByID("Deployed", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Distance1", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditSuppress Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.002159831613611, 0.003809999999874, -0.003353397573704, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.0007479368266488, -0.003810000000044, -0.0002458188561292, True, 1, Nothing) Set Feature = Part.AddMate2 (0, 0, False, 0.00762, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True Part.ClearSelection2 True Part.ShowNamedView2 "*Front", 1 boolstatus = Part.Extension.SelectByID("Sea surface@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" boolstatus = Part.Extension.SelectByID("Deployed@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Deployed" boolstatus = Part.Extension.SelectByID("Coincident3", "MATE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True ' 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 boolstatus = Part.Extension.SelectByID("Sea surface@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" boolstatus = Part.Extension.SelectByID("Deployed@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Deployed" boolstatus = Part.Extension.SelectByID("Coincident3", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditSuppress Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Distance1", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditUnsuppress Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sea surface@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" boolstatus = Part.Extension.SelectByID("Deployed@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Deployed" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Housing.SLDPRT") boolstatus = Part.Extension.SelectByID("LPattern2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Axis1", "AXIS", 0, 0, 0, True, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("OsmoValve.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Housing.SLDPRT") Part.ShowNamedView2 "*Front", 1 boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D5@Sketch1@Housing.SLDPRT", "DIMENSION", 0.1060125407697, -0.02876858121331, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D6@Sketch1@Housing.SLDPRT", "DIMENSION", 0.06282650032616, -0.07608945531637, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D6@Sketch1@Housing.SLDPRT", "DIMENSION", -0.07247444553164, -0.09722304957599, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("LPattern2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("LPattern2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Axis1", "AXIS", 0, 0, 0, True, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D5@Sketch1@Housing.SLDPRT", "DIMENSION", 0.1089988095238, -0.02762001630789, 0, False, 0, Nothing) Part.Parameter("D5@Sketch1").SystemValue = 0.0762 Part.EditRebuild Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D5@Sketch1@Housing.SLDPRT", "DIMENSION", 0.1110662263536, -0.02072862687541, 0, False, 0, Nothing) Part.Parameter("D5@Sketch1").SystemValue = 0.08255 Part.EditRebuild Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D16@Sketch1@Housing.SLDPRT", "DIMENSION", 0.00942742074364, -0.1915983307241, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D14@Sketch1@Housing.SLDPRT", "DIMENSION", -0.0004961800391389, -0.1588504481409, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D18@Sketch1@Housing.SLDPRT", "DIMENSION", -0.01968180821918, -0.1082400841487, 0, False, 0, Nothing) Part.Parameter("D18@Sketch1").SystemValue = 0.0762 Part.EditRebuild Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Revolve1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Plunger.SLDPRT") boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Extrude2@Plunger.SLDPRT", "DIMENSION", 0.001927580716147, -0.09529700723398, -0.0198105069423, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Extrude2@Plunger.SLDPRT", "DIMENSION", 0.01040131236872, -0.09385516235025, -0.01949713687652, False, 0, Nothing) Part.Parameter("D1@Extrude2").SystemValue = 0.06858 Part.EditRebuild Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("OsmoValve.SLDASM") boolstatus = Part.Extension.SelectByID("Sea surface@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" boolstatus = Part.Extension.SelectByID("Deployed@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Deployed" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Housing.SLDPRT") boolstatus = Part.Extension.SelectByID("", "FACE", -0.009567558108099, -0.07873999999987, -0.006390565892787, False, 0, Nothing) Part.ClearSelection2 True Part.CreateCircle 0, -0.001239480564436, 0, 0.004565467950187, 0.004210064403651, 0 boolstatus = Part.Extension.SelectByID("", "EDGE", -0.001236492737217, -0.0785358252528, -0.002672995393311, True, 0, Nothing) Part.SketchAddConstraints "sgCONCENTRIC" Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.007748313144688, 0.06817014454255, -0.1417153754476, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0425695, -0.07874, 0.0292258) Part.ClearSelection2 True Part.Parameter("D1@Sketch6").SystemValue = 0.006731 boolstatus = Part.Extension.SelectByID("D1@Sketch6@Housing.SLDPRT", "DIMENSION", 0.04723076196768, 0.07732682240111, -0.1313412392165, False, 0, Nothing) Part.Parameter("D1@Sketch6").SystemValue = 0.0223774 boolstatus = Part.Extension.SelectByID("D1@Sketch6@Housing.SLDPRT", "DIMENSION", 0.05069684514284, 0.08051955171663, -0.1280661919235, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch6@Housing.SLDPRT", "DIMENSION", 0.05018369033745, 0.08054797095483, -0.1280551117574, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch6@Housing.SLDPRT", "DIMENSION", 0.05082513384419, 0.08051244690708, -0.128068961965, False, 0, Nothing) Part.Parameter("D1@Sketch6").SystemValue = 0.0071374 boolstatus = Part.Extension.SelectByID("D1@Sketch6@Housing.SLDPRT", "DIMENSION", 0.04585692216125, 0.07621369362618, -0.1324885625392, False, 0, Nothing) Part.Parameter("D1@Sketch6").SystemValue = 0.0079248 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch6@Housing.SLDPRT", "DIMENSION", 0.04585692216125, 0.07621369362618, -0.1324885625392, False, 0, Nothing) Part.FeatureManager.FeatureCut True, False, False, 0, 0, 0.0254, 0.0762, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.ShowNamedView2 "*Front", 1 boolstatus = Part.Extension.SelectByID("Cut-Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Cut-Extrude3@Housing.SLDPRT", "DIMENSION", 0.0003342139595564, -0.06539293976952, 0, False, 0, Nothing) Part.Parameter("D1@Cut-Extrude3").SystemValue = 0.02159 Part.EditRebuild Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch6", "SKETCH", 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@Housing.SLDPRT", "DIMENSION", 0.003007925636008, -0.06672979560774, 0, False, 0, Nothing) Part.Parameter("D1@Cut-Extrude3").SystemValue = 0.01778 Part.EditRebuild Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("OsmoValve.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Housing.SLDPRT") boolstatus = Part.Extension.SelectByID("Cut-Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Cut-Extrude3@Housing.SLDPRT", "DIMENSION", 0.001448260491411, -0.06962631659056, 0, False, 0, Nothing) Part.Parameter("D1@Cut-Extrude3").SystemValue = 0.01524 Part.EditRebuild Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("OsmoValve.SLDASM") Part.ShowNamedView2 "*Front", 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Housing.SLDPRT") boolstatus = Part.Extension.SelectByID("Cut-Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Cut-Extrude3@Housing.SLDPRT", "DIMENSION", 0.003230734942379, -0.07118598173516, 0, False, 0, Nothing) Part.Parameter("D1@Cut-Extrude3").SystemValue = 0.01651 Part.EditRebuild Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Plunger.SLDPRT") boolstatus = Part.Extension.SelectByID("Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Extrude2@Plunger.SLDPRT", "DIMENSION", 0.01126376876477, -0.08935319862155, -0.01849092027691, False, 0, Nothing) Part.Parameter("D1@Extrude2").SystemValue = 0.07366 Part.EditRebuild Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("OsmoValve.SLDASM") boolstatus = Part.Extension.SelectByID("Sea surface@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" boolstatus = Part.Extension.SelectByID("Deployed@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Deployed" boolstatus = Part.Extension.SelectByID("Sea surface@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" boolstatus = Part.Extension.SelectByID("Deployed@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Deployed" boolstatus = Part.Extension.SelectByID("Sea surface@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" boolstatus = Part.Extension.SelectByID("Deployed@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Deployed" boolstatus = Part.Extension.SelectByID("Sea surface@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" boolstatus = Part.Extension.SelectByID("Deployed@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Deployed" boolstatus = Part.Extension.SelectByID("Sea surface@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" boolstatus = Part.Extension.SelectByID("Deployed@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Deployed" boolstatus = Part.Extension.SelectByID("Sea surface@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sea surface@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 1, "Sea surface" boolstatus = Part.Extension.SelectByID("Sea surface@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" boolstatus = Part.Extension.SelectByID("Deployed@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Deployed" boolstatus = Part.Extension.SelectByID("Sea surface@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" boolstatus = Part.Extension.SelectByID("Deployed@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Deployed" boolstatus = Part.Extension.SelectByID("Sea surface@OsmoValve.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Sea surface" boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.03364505870841, -0.08394053816047, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -0.02935787671233, -0.08990531311155, 0, False, 0, Nothing) Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Housing.SLDPRT") boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.InsertSketch2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D11@Sketch1@Housing.SLDPRT", "DIMENSION", 0.03420122852794, 0.02662730376169, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 0,"", "tap 1/2-20.40", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"<", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"