' ****************************************************************************** ' swxJRNL.swj - journal recorded on 01/21/03 by mob ' ***************************************************************************** Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long Dim Annotation As Object Dim Gtol As Object Dim DatumTag As Object Dim FeatureData As Object Dim Feature As Object Dim Component As Object Sub main() Set swApp = Application.SldWorks Set Part = swApp.OpenDoc4 ("G:\Work In Progress\900252_ROV Marker Tool\1001740-Hammer Cylinder.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("1001740-Hammer Cylinder - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1225723181818, 0.2439208181818, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1225723181818, 0.2439208181818, 0, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "SILHOUETTE", 0.08606559090909, 0.2412711363567, -999.78, False, 0, Nothing) Part.AddDimension 0.119923, 0.24186, 0 Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "SILHOUETTE", 0.1205114545455, 0.2371494090839, -999.78, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "SILHOUETTE", 0.08606559090909, 0.2353829545385, -999.78, True, 0, Nothing) Part.SetPickMode Part.ClearSelection boolstatus = Part.Extension.SelectByID("RD4@Drawing View2", "DIMENSION", 0.1231611363636, 0.2409767272727, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.05132531818182, 0.2259618636364, 0, False, 0, Nothing) Part.ViewZoomTo2 0.0421986, 0.26188, -3.68371e-015, 0.172033, 0.203587, -3.27665e-015 Part.SetPickMode Part.ClearSelection boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1256016224174, 0.2476607582645, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1244733822314, 0.2480946967975, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1244733822314, 0.2480946967975, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.124560169938, 0.2482682722107, 0, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "SILH_VERTEX", 0.1202207846074, 0.2526076575343, -999.78, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "SILH_VERTEX", 0.08646036673554, 0.2524340821211, -999.78, True, 0, Nothing) ' MSGBOX ' Could not create reference dimension from current set of selected items. Part.AddDimension 0.100694, 0.260592, 0 Part.ClearSelection Part.SetPickMode Part.ViewZoomout Part.ViewZoomout boolstatus = Part.Extension.SelectByID("Hammer Cylinder-1@Drawing View1", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "G:\Work In Progress\900252_ROV Marker Tool\Hammer Cylinder.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\900252_ROV Marker Tool\Hammer Cylinder.SLDPRT", 1, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Hammer Cylinder.SLDPRT") Part.ClearSelection Part.ActiveView().RotateAboutCenter 0.00369352, 0 Part.ActiveView().RotateAboutCenter 0.0258547, -0.0431969 Part.ActiveView().RotateAboutCenter 0.118193, -0.156589 Part.ActiveView().RotateAboutCenter 0.0406287, -0.0755946 Part.ActiveView().RotateAboutCenter 0.0110806, -0.0215984 boolstatus = Part.Extension.SelectByID("", "FACE", 0.02951270693558, 0.04134779473361, -0.09817001407646, False, 0, Nothing) Part.ActivateSelectedFeature Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ActiveView().RotateAboutCenter 0, 0.00539961 Part.ActiveView().RotateAboutCenter -0.0295482, 0.0485965 Part.ActiveView().RotateAboutCenter -0.0406287, 0.0539961 Part.ActiveView().RotateAboutCenter -0.0480158, 0.0539961 Part.ActiveView().RotateAboutCenter -0.0627899, 0.070195 Part.ActiveView().RotateAboutCenter -0.0332417, 0.0269981 Part.ActiveView().RotateAboutCenter -0.00369352, 0.00539961 Part.ActiveView().RotateAboutCenter -0.0110806, 0.00539961 Part.ActiveView().RotateAboutCenter -0.00369352, 0 Part.ActiveView().RotateAboutCenter -0.0147741, 0.0161988 Part.ActiveView().RotateAboutCenter 0, -0.00539961 Part.ActiveView().RotateAboutCenter 0, -0.0323977 Part.ActiveView().RotateAboutCenter 0, -0.0431969 Part.ActiveView().RotateAboutCenter 0, -0.0107992 Part.ActiveView().RotateAboutCenter 0, -0.0215984 Part.ActiveView().RotateAboutCenter 0, 0.00539961 Part.ActiveView().RotateAboutCenter 0, 0.0377973 Part.ActiveView().RotateAboutCenter 0, 0.0107992 Part.ActiveView().RotateAboutCenter -0.00738704, 0.0269981 Part.ActiveView().RotateAboutCenter -0.00738704, 0.0215984 Part.ActiveView().RotateAboutCenter -0.0147741, 0.0485965 Part.ActiveView().RotateAboutCenter -0.0110806, 0.0323977 Part.ActiveView().RotateAboutCenter -0.0147741, 0.0215984 Part.ActiveView().RotateAboutCenter 0, 0.0161988 Part.ActiveView().RotateAboutCenter -0.00738704, 0.00539961 Part.ActiveView().RotateAboutCenter -0.00369352, 0.0323977 Part.ActiveView().RotateAboutCenter -0.00738704, 0.0269981 Part.ActiveView().RotateAboutCenter -0.0147741, 0.0431969 Part.ActiveView().RotateAboutCenter -0.0110806, 0.0323977 Part.ActiveView().RotateAboutCenter -0.00369352, 0.0107992 Part.ActiveView().RotateAboutCenter -0.00369352, 0.0269981 Part.ActiveView().RotateAboutCenter -0.00738704, 0.0215984 Part.ActiveView().RotateAboutCenter -0.00369352, 0.00539961 Part.ActiveView().RotateAboutCenter -0.00369352, 0.0107992 Part.ActiveView().RotateAboutCenter -0.00369352, 0.0107992 Part.ActiveView().RotateAboutCenter -0.0147741, 0.0161988 Part.ActiveView().RotateAboutCenter -0.00369352, 0 Part.ActiveView().RotateAboutCenter -0.0184676, 0.0215984 Part.ActiveView().RotateAboutCenter -0.00738704, 0.00539961 Part.ActiveView().RotateAboutCenter -0.00369352, -0.00539961 Part.ActiveView().RotateAboutCenter 0, -0.00539961 Part.ActiveView().RotateAboutCenter -0.00369352, 0 Part.ActiveView().RotateAboutCenter 0, -0.00539961 Part.ActiveView().RotateAboutCenter -0.00369352, 0 Part.ActiveView().RotateAboutCenter -0.00369352, -0.00539961 Part.ActiveView().RotateAboutCenter 0, -0.00539961 Part.ActiveView().RotateAboutCenter 0, -0.00539961 Part.ActiveView().RotateAboutCenter 0.00369352, -0.0107992 Part.ActiveView().RotateAboutCenter 0.0184676, -0.0269981 Part.ActiveView().RotateAboutCenter 0, -0.00539961 Part.ActiveView().RotateAboutCenter 0.00738704, -0.00539961 Part.ActiveView().RotateAboutCenter 0, -0.00539961 Part.ActiveView().RotateAboutCenter 0.0184676, -0.0215984 Part.ActiveView().RotateAboutCenter 0.0221611, -0.0269981 Part.ActiveView().RotateAboutCenter 0.00369352, -0.00539961 Part.ActiveView().RotateAboutCenter 0.0221611, -0.0107992 Part.ActiveView().RotateAboutCenter 0.0184676, -0.0107992 Part.ActiveView().RotateAboutCenter 0.0147741, -0.0107992 Part.ActiveView().RotateAboutCenter 0.00738704, 0 Part.ActiveView().RotateAboutCenter 0, -0.00539961 Part.ActiveView().RotateAboutCenter 0, -0.00539961 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1001740-Hammer Cylinder - Sheet1") Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ActiveView().TranslateBy 0, 0.0020191 Part.ActiveView().TranslateBy -0.0175951, 0.0374977 Part.ActiveView().TranslateBy -0.00807642, 0.0239408 Part.ActiveView().TranslateBy -0.0020191, 0.00576887 Part.ActiveView().TranslateBy 0, 0.000576887 Part.ActiveView().TranslateBy 0.000576887, -0.00115377 Part.ActiveView().TranslateBy 0.00173066, -0.00259599 Part.ActiveView().TranslateBy 0.00403821, -0.00115377 Part.ActiveView().TranslateBy 0.00115377, -0.00115377 Part.ActiveView().TranslateBy 0.000288444, 0 Part.ActiveView().TranslateBy 0.000288444, 0 Part.SetPickMode Set Part = Nothing swApp.CloseDoc "1001740-Hammer Cylinder - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Hammer Cylinder.SLDPRT") swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.LoadFile2 "G:\Work In Progress\900252_ROV Marker Tool\1001750-Plunger.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\900252_ROV Marker Tool\1001750-Plunger.SLDDRW", 3, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1001750-Plunger - Sheet1") swApp.LoadFile2 "G:\Work In Progress\900252_ROV Marker Tool\1001751-Plunger Bearing.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\900252_ROV Marker Tool\1001751-Plunger Bearing.SLDDRW", 3, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1001751-Plunger Bearing - Sheet1") boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.2771033700441, 0.1836408810573, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.2771033700441, 0.1836408810573, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.2714538281938, 0.1114522907489, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.2714538281938, 0.1114522907489, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.2714538281938, 0.111766154185, 0, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2557606563877, 0.1466049955947, -0.009288523442137, False, 0, Nothing) Part.AddDimension 0.295935, 0.11208, -2.85244e-015 Part.ClearSelection swApp.LoadFile2 "G:\Work In Progress\900252_ROV Marker Tool\1001752-Clip Case-REV_B.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\900252_ROV Marker Tool\1001752-Clip Case-REV_B.SLDDRW", 3, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1001752-Clip Case-REV_B - Sheet1") Part.ViewZoomTo2 0.108901, 0.194557, -5.71807e-015, 0.119087, 0.188251, -5.67403e-015 Part.ViewZoomTo2 0.111477, 0.19112, -5.71608e-015, 0.113581, 0.189536, -5.70502e-015 Part.ViewZoomtofit2 Part.ViewZoomTo2 0.00800799, 0.261011, -4.98391e-015, 0.280613, 0.0684413, -3.6392e-015 Part.SetPickMode Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomTo2 0.220567, 0.297713, -6.91323e-015, 0.52823, 0.117231, -5.65293e-015 Part.SetPickMode Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomTo2 0.0775013, 0.264642, -8.05538e-015, 0.271102, 0.0597811, -6.62484e-015 Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ActiveView().TranslateBy -0.0019022, -0.00380441 Part.ActiveView().TranslateBy -0.051835, -0.0485062 Part.ActiveView().TranslateBy -0.0152176, -0.013791 Part.ActiveView().TranslateBy -0.0247286, -0.0228264 Part.ActiveView().TranslateBy -0.0109377, -0.00855991 Part.ActiveView().TranslateBy -0.00855991, -0.00523106 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.5024456615654, 0.2969501025899, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.ClearSelection boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.05990959251101, 0.3429861585903, 0, False, 0, Nothing) Part.ViewZoomTo2 -0.0264314, 0.286719, -6.5413e-015, 0.206398, 0.150902, -5.59289e-015 Part.SetPickMode Part.ClearSelection Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomin Part.ViewZoomin Part.ViewZoomin Part.ViewZoomin Part.ViewZoomin Part.ViewZoomin Part.ViewZoomin boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.05702688382515, 0.1862489998295, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.05702688382515, 0.1860909349256, 0, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem103@Drawing View5", "CENTERMARKSYM", 0.05844946796074, 0.1943103099312, 0, False, 0, Nothing) Part.ViewZoomTo2 0.0222526, 0.212804, -6.52626e-015, 0.0750463, 0.171549, -6.23818e-015 boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05871328664129, 0.1944481815179, -499.7106124875, True, 0, Nothing) ' MSGBOX ' Could not create reference dimension from current set of selected items. Part.AddDimension 0.0446285, 0.177819, -2.55735e-015 Part.ClearSelection Part.SetPickMode boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.04526453970311, 0.1894503363755, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.04526453970311, 0.1894503363755, 0, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0585315468178, 0.1944027465621, -499.7106124875, False, 0, Nothing) Part.AddDimension 0.0437652, 0.178364, -2.55735e-015 Part.ClearSelection Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " ", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " T", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " Th", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " Thr", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " Thru", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " Thruz", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " Thruzz", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " Thruz", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " Thru", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " Thruz", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " Thruzz", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " Thruz", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " Thru", 1,"", "", 0 Part.ClearSelection boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.03449645516139, 0.183225747421, 0, False, 0, Nothing) Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout boolstatus = Part.Extension.SelectByID("RD3@Drawing View5", "DIMENSION", 0.04627525301827, 0.1777956202926, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " Thru", 1,"1", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " Thru", 1,"10", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " Thru", 1,"10X", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " Thr", 1,"10X", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " Th", 1,"10X", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " T", 1,"10X", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " TH", 1,"10X", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " THR", 1,"10X", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " THRU", 1,"10X", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", " THRU", 1,"10X", "", 0 Part.ClearSelection boolstatus = Part.Extension.SelectByID("RD3@Drawing View5", "DIMENSION", 0.0488529459925, 0.1707408816263, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD3@Drawing View5", "DIMENSION", 0.04654658912083, 0.182408334036, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.0493956181976, 0.1704695455238, 0, False, 0, Nothing) Part.ViewZoomtofit2 boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.06330502422907, 0.326009, 0, False, 0, Nothing) Part.EditSketch Part.Save2 FALSE Part.ClearSelection Set Part = Nothing swApp.CloseDoc "1001752-Clip Case-REV_B - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1001751-Plunger Bearing - Sheet1") boolstatus = Part.Extension.SelectByID("RD5@Drawing View3", "DIMENSION", 0.2957782444934, 0.1123938810573, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"", " ", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"", " T", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"", " TH", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"", " THR", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"", " THRU", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.2631364471366, 0.09481752863436, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.2496403193833, 0.1076859295154, 0, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2035023942731, 0.1268315991189, 0.01079499999997, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.249012592511, 0.1462911321586, -0.009212755351314, True, 0, Nothing) Part.AddDimension 0.231122, 0.204356, -2.85244e-015 Part.ClearSelection Part.SetPickMode Part.ClearSelection boolstatus = Part.Extension.SelectByID("RD1@Drawing View3", "DIMENSION", 0.2389689625551, 0.1936845110132, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD6@Drawing View3", "DIMENSION", 0.2320639669604, 0.203414277533, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1077740462555, 0.04459937885463, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1250365352423, 0.05432914537445, 0, False, 0, Nothing) Part.EditSketch Part.Save2 FALSE boolstatus = Part.Extension.SelectByID("@Drawing View2", "BOM", 0.2411660066079, 0.05935096035242, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("@Drawing View2", "BOM", 0.2399105528634, 0.06123414096916, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("@Drawing View2", "BOM", 0.2399105528634, 0.06123414096916, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2223342004405, 0.07033618061674, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem95@Drawing View3", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("@Drawing View2", "BOM", 0.256545314978, 0.06029255066079, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2229619273128, 0.06970845374449, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem95@Drawing View3", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("@Drawing View2", "BOM", 0.2289253325991, 0.05558459911894, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2245312444934, 0.06939459030837, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem95@Drawing View3", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("@Drawing View2", "BOM", 0.2370857819383, 0.0590370969163, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2144876145374, 0.03235870484582, 0, False, 0, Nothing) Part.ViewZoomTo2 0.180276, 0.11616, -3.21048e-015, 0.316179, 0.0301617, -2.60996e-015 boolstatus = Part.Extension.SelectByID("@Drawing View2", "BOM", 0.2428767006006, 0.05762816809952, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2202405100963, 0.07013016452871, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem95@Drawing View3", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("@Drawing View2", "BOM", 0.2335002032787, 0.05715460762871, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2277227655349, 0.06766765008054, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("@Drawing View2", "BOM", 0.2455286392371, 0.05601806249879, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("@Drawing View2", "BOM", 0.2455286392371, 0.0583858648528, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2462863359904, 0.05090360941412, 0, False, 0, Nothing) Part.EditTemplate Part.EditSketch Part.ClearSelection boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.2373833991393, 0.05488151736886, 0, False, 0, Nothing) Part.EditSheet Part.EditSketch Part.ClearSelection Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout boolstatus = Part.Extension.SelectByID("@Drawing View2", "BOM", 0.2715596597367, 0.0576064676645, 0, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3205339181329, 0.07479750674007, 0, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID("DetailItem95@Drawing View3", "NOTE", 0.2364913688133, 0.05930332045112, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem95@Drawing View3", "NOTE", 0.2396022655887, 0.05817208526004, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2780642620854, 0.0802311714861, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.Save2 FALSE boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.2424214603524, 0.1042334317181, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2367719185022, 0.1258900088106, 0.01079499999997, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2373996453744, 0.1754804317181, 0.01587499999999, False, 0, Nothing) boolstatus = Part.InsertCenterLine () Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem109@Drawing View3", "CENTERLINE", 0.2323778303965, 0.1525684008811, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem109@Drawing View3", "CENTERLINE", 0.2078964823789, 0.1513129471366, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem103@Drawing View3", "GTOL", 0.2756909845815, 0.1506852202643, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD6@Drawing View3", "DIMENSION", 0.2304946497797, 0.2040420044053, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD6@Drawing View3", "DIMENSION", 0.2323778303965, 0.203414277533, 0, False, 0, Nothing) Part.EditDelete Part.ViewZoomTo2 0.170861, 0.229779, -3.82368e-015, 0.328734, 0.100781, -2.92289e-015 boolstatus = Part.Extension.SelectByID("DetailItem109@Drawing View3", "CENTERLINE", 0.233956653353, 0.1503627152138, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2088105923533, 0.150504783355, 0.01079499999997, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2082423197884, 0.1509309877787, 0.01079499999997, False, 0, Nothing) Part.EditDelete ' MSGBOX ' None of the selected entities could be deleted. boolstatus = Part.Extension.SelectByID("", "FACE", 0.2349511303417, 0.142264831163, -0.008116634158398, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem96@Drawing View3", "CENTERMARKSYM", 0.2440434913811, 0.1503627152138, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point1@Origin@Section-1@Drawing View3", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.2683371435333, 0.1497944426488, -0.00951205768655, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.238076629449, 0.1931252257273, 0, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem96@Drawing View3", "CENTERMARKSYM", 0.2517151710081, 0.1564716452871, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2041223436924, 0.1786342753207, 0.01587499999999, True, 0, Nothing) Part.AddDimension 0.228274, 0.203638, -2.85244e-015 Part.ClearSelection Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"", "", 1,"", "", 0 Part.ClearSelection boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1751404428793, 0.2090368575462, 0, False, 0, Nothing) Part.EditSketch Part.ViewZoomtofit2 Part.Save2 FALSE Part.ClearSelection Set Part = Nothing swApp.CloseDoc "1001751-Plunger Bearing - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1001750-Plunger - Sheet1") boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2436769140969, 0.1983924625551, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plunger-2@Drawing View2", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "G:\Work In Progress\900252_ROV Marker Tool\Plunger.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\900252_ROV Marker Tool\Plunger.SLDPRT", 1, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Plunger.SLDPRT") Part.ClearSelection Part.ActiveView().RotateAboutCenter 0, 0.0243577 Part.ActiveView().RotateAboutCenter -0.0221611, 0.0304472 Part.ActiveView().RotateAboutCenter -0.0480158, 0.0548049 Part.ActiveView().RotateAboutCenter -0.118193, 0.182683 Part.ActiveView().RotateAboutCenter -0.0443223, 0.042626 Part.ActiveView().RotateAboutCenter -0.0517093, 0.0548049 Part.ActiveView().RotateAboutCenter -0.0221611, 0.0243577 Part.ActiveView().RotateAboutCenter -0.0184676, 0.0243577 Part.ActiveView().RotateAboutCenter -0.0147741, 0.0304472 Part.ActiveView().RotateAboutCenter -0.0443223, 0.10961 Part.ActiveView().RotateAboutCenter -0.00738704, 0.0182683 Part.ActiveView().RotateAboutCenter -0.00369352, 0 Part.ActiveView().RotateAboutCenter 0.0184676, 0 Part.ActiveView().RotateAboutCenter 0.147741, 0.0121789 Part.ActiveView().RotateAboutCenter 0.0812575, 0.0304472 Part.ActiveView().RotateAboutCenter 0.00369352, 0 Part.ActiveView().RotateAboutCenter 0, -0.00608943 Part.ActiveView().RotateAboutCenter 0.00369352, -0.0365366 Part.ActiveView().RotateAboutCenter 0.0110806, -0.0548049 Part.ActiveView().RotateAboutCenter 0.0184676, -0.0487154 Part.ActiveView().RotateAboutCenter 0.00369352, -0.00608943 Part.ActiveView().RotateAboutCenter 0.00369352, 0 boolstatus = Part.Extension.SelectByID("", "EDGE", -0.001055784287004, 0.006534091451556, -0.009413325206992, False, 0, Nothing) Part.FeatureFillet5 67, 0.003175, 0, 0, 0, 0, 0 Part.ActiveView().RotateAboutCenter 0.00738704, 0 Part.ActiveView().RotateAboutCenter 0.0258547, -0.0182683 Part.ActiveView().RotateAboutCenter 0.0443223, -0.0365366 Part.ActiveView().RotateAboutCenter 0.0184676, -0.00608943 Part.ActiveView().RotateAboutCenter 0.00738704, -0.00608943 Part.ActiveView().RotateAboutCenter 0.0258547, -0.0121789 Part.ActiveView().RotateAboutCenter 0.00369352, 0 Part.ActiveView().RotateAboutCenter 0.00738704, 0 Part.ActiveView().RotateAboutCenter 0.00369352, -0.00608943 Part.ActiveView().RotateAboutCenter 0.0147741, 0 Part.ActiveView().RotateAboutCenter 0.0258547, 0 Part.ActiveView().RotateAboutCenter 0.0147741, 0 Part.ActiveView().RotateAboutCenter 0.00369352, 0 Part.ActiveView().RotateAboutCenter 0.00369352, 0.00608943 Part.ActiveView().RotateAboutCenter 0.00369352, 0 Part.ActiveView().RotateAboutCenter 0.00738704, 0 Part.ActiveView().RotateAboutCenter 0.00369352, -0.00608943 Part.ActiveView().RotateAboutCenter 0.00369352, 0 Part.ActiveView().RotateAboutCenter 0.00369352, -0.00608943 Part.ActiveView().RotateAboutCenter 0.00369352, 0 Part.ActiveView().RotateAboutCenter -0.0147741, 0 Part.ActiveView().RotateAboutCenter -0.0664834, 0 Part.ActiveView().RotateAboutCenter -0.0627899, 0 Part.ActiveView().RotateAboutCenter -0.110806, 0 Part.ActiveView().RotateAboutCenter -0.0517093, -0.0121789 Part.ActiveView().RotateAboutCenter -0.0517093, -0.00608943 Part.ActiveView().RotateAboutCenter -0.0590964, 0 Part.ActiveView().RotateAboutCenter -0.0517093, -0.00608943 Part.ActiveView().RotateAboutCenter -0.0258547, 0 Part.ActiveView().RotateAboutCenter -0.0443223, 0 Part.ActiveView().RotateAboutCenter -0.0406287, 0 Part.ActiveView().RotateAboutCenter -0.0369352, 0 Part.ActiveView().RotateAboutCenter -0.0406287, 0.0182683 Part.ActiveView().RotateAboutCenter -0.0184676, 0.0121789 Part.ActiveView().RotateAboutCenter -0.0406287, 0.0304472 Part.ActiveView().RotateAboutCenter -0.0147741, 0.0182683 Part.ActiveView().RotateAboutCenter -0.0110806, 0.0121789 Part.ActiveView().RotateAboutCenter -0.0184676, 0.0365366 Part.ActiveView().RotateAboutCenter -0.0221611, 0.0548049 Part.ActiveView().RotateAboutCenter -0.00369352, 0.0243577 Part.ActiveView().RotateAboutCenter 0, 0.0304472 Part.ActiveView().RotateAboutCenter -0.00369352, 0.0304472 Part.ActiveView().RotateAboutCenter 0, 0.0304472 Part.ActiveView().RotateAboutCenter 0, 0.00608943 Part.ActiveView().RotateAboutCenter 0.0147741, -0.00608943 Part.ActiveView().RotateAboutCenter 0.0332417, -0.00608943 Part.ActiveView().RotateAboutCenter 0.0295482, -0.0121789 Part.ActiveView().RotateAboutCenter 0.0517093, 0 Part.ActiveView().RotateAboutCenter 0.180983, -0.0365366 Part.ActiveView().RotateAboutCenter 0.0369352, -0.00608943 Part.ActiveView().RotateAboutCenter 0.0147741, -0.00608943 Part.ActiveView().RotateAboutCenter 0, 0.0182683 Part.ActiveView().RotateAboutCenter -0.0221611, 0.0669837 Part.ActiveView().RotateAboutCenter -0.0110806, 0.0365366 Part.ActiveView().RotateAboutCenter -0.00369352, 0 Part.ActiveView().RotateAboutCenter -0.00369352, 0 Part.ActiveView().RotateAboutCenter -0.00369352, 0 Part.ActiveView().RotateAboutCenter 0, -0.00608943 Part.ActiveView().RotateAboutCenter -0.0110806, -0.0243577 Part.ActiveView().RotateAboutCenter 0, -0.0182683 Part.ActiveView().RotateAboutCenter -0.0110806, -0.0548049 Part.ActiveView().RotateAboutCenter -0.0147741, -0.0487154 Part.ActiveView().RotateAboutCenter -0.00369352, -0.042626 Part.ActiveView().RotateAboutCenter 0, -0.00608943 Part.ActiveView().RotateAboutCenter 0, -0.00608943 Part.ActiveView().RotateAboutCenter 0.00738704, -0.0121789 Part.ActiveView().RotateAboutCenter 0.0147741, -0.0243577 Part.ActiveView().RotateAboutCenter 0.0184676, -0.0243577 Part.ActiveView().RotateAboutCenter 0.0221611, -0.042626 Part.ActiveView().RotateAboutCenter 0.00369352, -0.0121789 Part.ActiveView().RotateAboutCenter 0.00369352, -0.00608943 Part.ActiveView().RotateAboutCenter 0.00738704, -0.0243577 Part.ActiveView().RotateAboutCenter 0.00738704, -0.0669837 Part.ActiveView().RotateAboutCenter 0, -0.00608943 Part.ActiveView().RotateAboutCenter -0.00738704, 0 Part.ActiveView().RotateAboutCenter -0.0258547, 0.0243577 Part.ActiveView().RotateAboutCenter -0.0517093, 0.0365366 Part.ActiveView().RotateAboutCenter -0.0480158, 0.0365366 Part.ActiveView().RotateAboutCenter -0.0258547, 0.0182683 Part.ActiveView().RotateAboutCenter -0.0221611, 0 Part.ActiveView().RotateAboutCenter 0.00369352, 0 Part.ActiveView().RotateAboutCenter 0.0147741, 0.0304472 Part.ActiveView().RotateAboutCenter 0.0590964, 0.0974309 Part.ActiveView().RotateAboutCenter 0.158821, 0.140057 Part.ActiveView().RotateAboutCenter 0.0184676, 0.0182683 Part.ActiveView().RotateAboutCenter 0.00369352, 0 boolstatus = Part.Extension.SelectByID("Fillet1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0, 0, True, 0, Nothing) Part.ActiveView().RotateAboutCenter -0.0295482, -0.0182683 Part.ActiveView().RotateAboutCenter -0.0738704, -0.0669837 Part.ActiveView().RotateAboutCenter -0.0480158, -0.042626 Part.ActiveView().RotateAboutCenter -0.0258547, -0.0182683 Part.ActiveView().RotateAboutCenter -0.0295482, -0.00608943 Part.ActiveView().RotateAboutCenter 0, -0.00608943 Part.ActiveView().RotateAboutCenter -0.00738704, 0 Part.ActiveView().RotateAboutCenter -0.0110806, 0 Part.ActiveView().RotateAboutCenter -0.0258547, 0 Part.ActiveView().RotateAboutCenter -0.0406287, 0 Part.ActiveView().RotateAboutCenter -0.0147741, 0 Part.ActiveView().RotateAboutCenter -0.0184676, 0 Part.ActiveView().RotateAboutCenter -0.0147741, 0 Part.ActiveView().RotateAboutCenter -0.00738704, 0 Part.ActiveView().RotateAboutCenter -0.0110806, 0 Part.ActiveView().RotateAboutCenter -0.00369352, 0 Part.ActiveView().RotateAboutCenter 0.00369352, 0 Part.ActiveView().RotateAboutCenter 0.0443223, 0 Part.ActiveView().RotateAboutCenter 0.0997251, 0.0608943 Part.ActiveView().RotateAboutCenter 0.12558, 0.0608943 Part.ActiveView().RotateAboutCenter 0.0554028, 0 Part.ActiveView().RotateAboutCenter 0.114499, -0.0182683 Part.ActiveView().RotateAboutCenter 0.0443223, -0.0182683 Part.ActiveView().RotateAboutCenter 0.103419, -0.0669837 Part.ActiveView().RotateAboutCenter 0.077564, -0.0608943 Part.ActiveView().RotateAboutCenter 0.0886445, -0.0608943 Part.ActiveView().RotateAboutCenter 0.0295482, -0.00608943 Part.ActiveView().RotateAboutCenter 0.0369352, -0.0182683 Part.ActiveView().RotateAboutCenter 0.0110806, 0 Part.ActiveView().RotateAboutCenter 0.0184676, -0.00608943 Part.ActiveView().RotateAboutCenter 0.0295482, -0.0121789 Part.ActiveView().RotateAboutCenter 0.0147741, 0 Part.ActiveView().RotateAboutCenter 0.0258547, -0.0121789 Part.ActiveView().RotateAboutCenter 0.0147741, 0 Part.ActiveView().RotateAboutCenter 0.00369352, 0 Part.ActiveView().RotateAboutCenter 0.0221611, 0 Part.ActiveView().RotateAboutCenter 0.00738704, 0.0121789 Part.ActiveView().RotateAboutCenter 0.0110806, 0.0304472 Part.ActiveView().RotateAboutCenter 0.0147741, 0.042626 Part.ActiveView().RotateAboutCenter 0, 0.00608943 Part.ActiveView().RotateAboutCenter 0.00369352, 0.00608943 Part.ActiveView().RotateAboutCenter 0.00369352, 0.0121789 Part.ActiveView().RotateAboutCenter 0.00369352, 0.00608943 Part.ActiveView().RotateAboutCenter 0.0147741, 0.0182683 Part.ActiveView().RotateAboutCenter 0.0110806, 0 Part.ActiveView().RotateAboutCenter 0.0110806, 0.00608943 Part.ActiveView().RotateAboutCenter 0.00738704, -0.00608943 Part.ActiveView().RotateAboutCenter 0.0184676, -0.00608943 Part.ActiveView().RotateAboutCenter 0.00738704, -0.00608943 Part.ActiveView().RotateAboutCenter 0.00369352, -0.0121789 Part.ActiveView().RotateAboutCenter -0.720237, -0.085252 Part.ActiveView().RotateAboutCenter 0.0147741, -0.00608943 Part.ActiveView().RotateAboutCenter 0.00369352, 0 Part.ActiveView().RotateAboutCenter 0.00369352, 0.0121789 Part.ActiveView().RotateAboutCenter -0.0369352, 0 Part.ActiveView().RotateAboutCenter -0.121886, -0.0669837 Part.ActiveView().RotateAboutCenter -0.0590964, -0.0304472 Part.ActiveView().RotateAboutCenter -0.0406287, -0.0182683 Part.ActiveView().RotateAboutCenter -0.00738704, 0 Part.ActiveView().RotateAboutCenter -0.0295482, -0.00608943 Part.ActiveView().RotateAboutCenter -0.0110806, 0 Part.ActiveView().RotateAboutCenter -0.0110806, 0.0365366 Part.ActiveView().RotateAboutCenter -0.0147741, 0.10961 Part.ActiveView().RotateAboutCenter 0, 0.10961 Part.ActiveView().RotateAboutCenter 0, 0.0243577 Part.ActiveView().RotateAboutCenter -0.00369352, 0.0121789 Part.ActiveView().RotateAboutCenter 0, 0.0121789 Part.ActiveView().RotateAboutCenter -0.00369352, 0.0243577 Part.ActiveView().RotateAboutCenter 0, 0.00608943 Part.ActiveView().RotateAboutCenter -0.00369352, 0 Part.ActiveView().RotateAboutCenter -0.00369352, 0.0182683 Part.ActiveView().RotateAboutCenter -0.0110806, 0.0487154 Part.ActiveView().RotateAboutCenter -0.00369352, 0.0669837 Part.ActiveView().RotateAboutCenter 0.0184676, 0.0304472 Part.ActiveView().RotateAboutCenter 0.0480158, 0.0365366 Part.ActiveView().RotateAboutCenter 0.203144, 0.0121789 Part.ActiveView().RotateAboutCenter 0.13666, -0.0304472 Part.ActiveView().RotateAboutCenter 0.0923381, -0.0730732 Part.ActiveView().RotateAboutCenter 0.0443223, -0.0304472 Part.ActiveView().RotateAboutCenter 0.0480158, -0.0243577 Part.ActiveView().RotateAboutCenter 0.0184676, -0.00608943 Part.ActiveView().RotateAboutCenter 0.00738704, 0 Part.ActiveView().RotateAboutCenter 0.00369352, 0 Part.ActiveView().RotateAboutCenter 0.00369352, 0 Part.ActiveView().RotateAboutCenter 0, -0.00608943 Part.ActiveView().RotateAboutCenter 0, -0.00608943 Part.ActiveView().RotateAboutCenter 0.00369352, 0 Part.ActiveView().RotateAboutCenter 0, 0.00608943 Part.ActiveView().RotateAboutCenter 0.0147741, 0.0304472 Part.ActiveView().RotateAboutCenter 0.00369352, 0.0548049 Part.ActiveView().RotateAboutCenter 0, 0.127878 Part.ActiveView().RotateAboutCenter -0.0184676, 0.10961 Part.ActiveView().RotateAboutCenter -0.0443223, 0.10961 Part.ActiveView().RotateAboutCenter -0.0332417, 0.0487154 Part.ActiveView().RotateAboutCenter -0.192063, 0.146146 Part.ActiveView().RotateAboutCenter -0.107112, 0.0730732 Part.ActiveView().RotateAboutCenter -0.110806, 0 Part.ActiveView().RotateAboutCenter -0.155128, -0.0608943 Part.ActiveView().RotateAboutCenter -0.0960316, -0.0608943 Part.ActiveView().RotateAboutCenter -0.273321, -0.231398 Part.ActiveView().RotateAboutCenter -0.121886, -0.085252 Part.ActiveView().RotateAboutCenter -0.144047, -0.0548049 Part.ActiveView().RotateAboutCenter -0.0517093, -0.0243577 Part.ActiveView().RotateAboutCenter -0.00369352, -0.00608943 Part.ActiveView().RotateAboutCenter -0.00369352, 0 Part.ActiveView().RotateAboutCenter -0.00738704, 0.0121789 Part.ActiveView().RotateAboutCenter 0, -0.0182683 Part.ActiveView().RotateAboutCenter 0.0480158, -0.10352 Part.ActiveView().RotateAboutCenter 0.206837, -0.21922 Part.ActiveView().RotateAboutCenter 0.129273, -0.085252 Part.ActiveView().RotateAboutCenter 0.158821, -0.0487154 Part.ActiveView().RotateAboutCenter 0.0554028, -0.0243577 Part.ActiveView().RotateAboutCenter 0.0406287, -0.00608943 Part.ActiveView().RotateAboutCenter 0.0332417, 0 Part.ActiveView().RotateAboutCenter 0.0332417, -0.00608943 Part.ActiveView().RotateAboutCenter 0.0147741, -0.00608943 Part.ActiveView().RotateAboutCenter 0.0184676, 0 Part.ActiveView().RotateAboutCenter 0.00369352, 0 Part.ActiveView().RotateAboutCenter 0.00738704, 0 Part.ActiveView().RotateAboutCenter -0.0110806, 0 Part.ActiveView().RotateAboutCenter -0.0960316, 0.0608943 Part.ActiveView().RotateAboutCenter -0.084951, 0.0548049 Part.ActiveView().RotateAboutCenter -0.217918, 0.158325 Part.ActiveView().RotateAboutCenter -0.177289, 0.158325 Part.ActiveView().RotateAboutCenter -0.210531, 0.200951 Part.ActiveView().RotateAboutCenter -0.129273, 0.0608943 Part.ActiveView().RotateAboutCenter -0.180983, -0.0304472 Part.ActiveView().RotateAboutCenter -0.144047, -0.0791626 Part.ActiveView().RotateAboutCenter -0.0997251, -0.0669837 Part.ActiveView().RotateAboutCenter -0.0258547, -0.0365366 Part.ActiveView().RotateAboutCenter -0.0406287, -0.0791626 Part.ActiveView().RotateAboutCenter -0.0295482, -0.0669837 Part.ActiveView().RotateAboutCenter -0.0110806, -0.0121789 Part.ActiveView().RotateAboutCenter 0.0517093, -0.0730732 Part.ActiveView().RotateAboutCenter 0.144047, -0.286203 Part.ActiveView().RotateAboutCenter 0.0221611, -0.10352 Part.Save2 FALSE Part.ClearSelection Set Part = Nothing swApp.CloseDoc "Plunger.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1001750-Plunger - Sheet1") Part.ViewZoomTo2 0.113737, 0.169831, -3.78117e-015, 0.211977, 0.121496, -3.44365e-015 boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.1634156302462, 0.1501975247713, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.1634156302462, 0.1501975247713, 0, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1506675261871, 0.1407350145384, -499.8648840681, False, 0, Nothing) Part.AddDimension 0.173272, 0.157426, -3.20367e-015 Part.ClearSelection Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"R", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 2, 2, 1, 11, 11,"R", "", 1,"", "", 0 Part.ClearSelection boolstatus = Part.Extension.SelectByID("RD5@Drawing View3", "DIMENSION", 0.1749809205266, 0.1576229668263, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD5@Drawing View3", "DIMENSION", 0.1749809205266, 0.1576229668263, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD5@Drawing View3", "DIMENSION", 0.1730752761054, 0.1572286955667, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1814206844327, 0.1558487461583, 0, False, 0, Nothing) Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ActiveView().TranslateBy 0, -0.00276938 Part.ActiveView().TranslateBy 0.00800044, -0.0535414 Part.ActiveView().TranslateBy 0.00400022, -0.0255399 Part.ActiveView().TranslateBy 0, -0.00707731 Part.ActiveView().TranslateBy 0, -0.000307709 Part.SetPickMode Part.ClearSelection Part.ViewZoomTo2 0.0581962, 0.272575, -4.76828e-015, 0.208889, 0.201938, -4.27502e-015 Part.ViewZoomTo2 0.111518, 0.257517, -4.98268e-015, 0.178549, 0.211553, -4.66172e-015 boolstatus = Part.Extension.SelectByID("DetailItem96@Drawing View5", "CENTERMARKSYM", 0.1487035934381, 0.223398232656, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1746721453582, 0.2263342482727, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD2@Drawing View5", "DIMENSION", 0.1717867507004, 0.2175262014226, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem96@Drawing View5", "CENTERMARKSYM", 0.1486529724791, 0.221727741012, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1759882902898, 0.229472747725, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.1654591308368, 0.2291690219716, 0, False, 0, Nothing) Part.SelectionManager.GetSelectedObject3(1).SetDisplayTangentEdges2 0 Part.Save2 FALSE Part.ViewZoomout Part.ViewZoomout Part.ViewZoomout Part.ViewZoomtofit2 Part.Save2 FALSE boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2637641740088, 0.2203629030837, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.04029340748899, 0.1095691101322, 0, False, 0, Nothing) Part.ClearSelection Set Part = Nothing swApp.CloseDoc "1001750-Plunger - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Hammer Cylinder.SLDPRT") Part.ActiveView().RotateAboutCenter 0, -0.0121789 Part.ActiveView().RotateAboutCenter 0.0184676, -0.0730732 Part.ActiveView().RotateAboutCenter 0.0184676, -0.0791626 Part.ActiveView().RotateAboutCenter 0.00738704, -0.0121789 Part.ActiveView().RotateAboutCenter 0.0554028, -0.0791626 Part.ActiveView().RotateAboutCenter 0.00738704, -0.0243577 Part.ActiveView().RotateAboutCenter 0.00738704, -0.00608943 Part.ActiveView().RotateAboutCenter 0.0258547, -0.0243577 Part.ActiveView().RotateAboutCenter 0.0110806, -0.00608943 Part.ActiveView().RotateAboutCenter 0, -0.00608943 Part.ClearSelection Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "Hammer Cylinder.SLDPRT" swApp.ExitApp End Sub