' ****************************************************************************** ' swxJRNL.swj - journal recorded on 07/16/04 by jfeldman ' ***************************************************************************** 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\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\carousel\1002291.SLDPRT", 1, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("1002291.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\drawings\1002291 (BRECOflex custom timing pulley).SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\drawings\1002291 (BRECOflex custom timing pulley).SLDDRW", 3, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002291 (BRECOflex custom timing pulley) - Sheet3") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.506628, 0.0364532, -2.91309e-016, 0.55764, 0.00620686, -8.00991e-017 Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.5386917583531, 0.008637254973893, 0, False, 0, Nothing) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem357@Sheet Format1", "NOTE", 0.5425539065411, 0.01789031834094, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem357@Sheet Format1", "NOTE", 0.5425539065411, 0.01789031834094, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.SaveTemplate Part.ClearSelection2 True Set Part = swApp.NewDrawing2 (13, """", 3, 0.431800, 0.558800) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2055184608941, 0.005755418828277, 0, False, 0, Nothing) Part.ClearSelection2 True ' MSGBOX ' The current sheet format has notes and sketch data. ' Do you want to delete these items? Part.SetupSheet4 "Sheet3", 12, 12, 1.2, 1, False, "1002291.slddrt", 0.5588, 0.4318, "Default", True Part.SetupSheet4 "Sheet3", 12, 12, 1.2, 1, False, "1002291.slddrt", 0.5588, 0.4318, "Default", True Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.208227091371, 0.00169247311282, 0, False, 0, Nothing) Part.ClearSelection2 True Part.NewSheet3 "Sheet4", 12, 12, 1.2, 1, False, "1002291.slddrt", 0.5588, 0.4318, "Default", True Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002291.SLDPRT") swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ShowNamedView2 "*Front", 1 Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateminusy Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateplusy swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 1538 swApp.ActiveDoc.ActiveView.FrameHeight = 532 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("1002291 (BRECOflex custom timing pulley) - Sheet3") boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1351823908524, 0.3491296008316, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("1002291.SLDPRT") Set Part = swApp.ActivateDoc ("1002291 (BRECOflex custom timing pulley) - Sheet4") Part.CreateDrawViewFromModelView "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\carousel\1002291.SLDPRT", "Current Model View", 0.2313274636175, 0.2639725363825, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.CreateUnfoldedViewAt2 0.4758106486486, 0.2639725363825, 0, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.04453132224532, 0.2923582245322, 0, False, 0, Nothing) Part.ClearSelection2 True Part.SetupSheet4 "Sheet4", 12, 12, 1.8, 1, False, "C:\PROGRA~1\SOLIDW~2\data\1002291.slddrt", 0.5588, 0.4318, "Default", True boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2120984490644, 0.08175473180873, 0, False, 0, Nothing) Part.ClearSelection2 True Part.SetupSheet4 "Sheet4", 12, 12, 1.6, 1, False, "C:\PROGRA~1\SOLIDW~2\data\1002291.slddrt", 0.5588, 0.4318, "Default", True boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.2606288191268, 0.1174657588358, 0, False, 0, Nothing) Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 532 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem521@Drawing View16", "CENTERMARKSYM", 0.1543107044917, 0.3225739952719, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.1870989219858, 0.1429125295508, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem519@Drawing View16", "CENTERMARKSYM", 0, 0, 0, True, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("DetailItem523@Drawing View16", "CENTERMARKSYM", 0.1107427990544, 0.1685142884161, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.2899551111111, 0.2453195650118, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem520@Drawing View16", "CENTERMARKSYM", 0, 0, 0, True, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2374041323877, 0.3351502978736, 187.46325, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem522@Drawing View16", "CENTERMARKSYM", 0, 0, 0, True, 0, Nothing) Part.EditDelete Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.3546332387707, 0.3396418345154, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem518@Drawing View16", "CENTERMARKSYM", 0.199226070922, 0.2933790070922, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1601497021277, 0.3212265342803, 187.47225, True, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.CreateLine2( -0.01885230665404, 0.04239361234598, 0, -0.01014995440817, 0.02246241849255, 0 ).ConstructionGeometry = TRUE Part.CreateLine2( 0.01483421816866, 0.01740943976915, 0, 0.02185224417339, 0.03425270218049, 0 ).ConstructionGeometry = TRUE Part.CreateLine2( -0.02362456433725, -0.01852285337506, 0, -0.03653773218595, -0.02217222689752, 0 ).ConstructionGeometry = TRUE Part.SetPickMode Part.ClearSelection2 True Part.ViewZoomTo2 0.0631325, 0.421837, -2.97583e-015, 0.387871, 0.0571242, -4.29049e-016 boolstatus = Part.Extension.SelectByID("Point6", "SKETCHPOINT", -0.01014995440817, 0.02246241849255, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1888216767697, 0.3498678945401, 187.46045, True, 0, Nothing) Part.SketchAddConstraints "sgCONCENTRIC" Part.SetPickMode boolstatus = Part.Extension.SelectByID("Point9", "SKETCHPOINT", -0.02362456433725, -0.01852285337506, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1422330095577, 0.1197059714477, 187.46045, True, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point9", "SKETCHPOINT", -0.02362456433725, -0.01852285337506, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1373655368639, 0.1224873844156, 187.46045, True, 0, Nothing) Part.SketchAddConstraints "sgCONCENTRIC" Part.SetPickMode boolstatus = Part.Extension.SelectByID("Point7", "SKETCHPOINT", 0.01483421816866, 0.01740943976915, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.134931800517, 0.1231827376576, 187.46045, True, 0, Nothing) Part.SketchAddConstraints "sgCONCENTRIC" Part.SetPickMode boolstatus = Part.Extension.SelectByID("Point5", "SKETCHPOINT", -0.008702352245863, 0.01993119385343, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1533586614292, 0.3182293220304, 187.47225, True, 0, Nothing) Part.SketchAddConstraints "sgCONCENTRIC" Part.SetPickMode boolstatus = Part.Extension.SelectByID("Point8", "SKETCHPOINT", 0.007018026004728, 0.01684326241135, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.3463191860761, 0.2852000430355, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("3/16 (0.1875) Diameter Hole1@1002291-18@Drawing View16", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point8", "SKETCHPOINT", 0.007018026004728, 0.01684326241135, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2507081153051, 0.3147525558205, 187.47225, True, 0, Nothing) Part.SketchAddConstraints "sgCONCENTRIC" Part.SetPickMode boolstatus = Part.Extension.SelectByID("Point10", "SKETCHPOINT", -0.0129131678487, -0.003649373522459, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1158095863628, 0.1631655490709, 187.47225, True, 0, Nothing) Part.SketchAddConstraints "sgCONCENTRIC" Part.SetPickMode boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2552279113779, 0.3161432623045, 187.47225, False, 0, Nothing) Part.AddHoleCallout2 0.310508, 0.357517, -2.01459e-015 Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Drawing View16", "DIMENSION", 0.3136375837035, 0.3592551633054, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View16", "DIMENSION", 0.3136375837035, 0.3592551633054, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View16", "DIMENSION", 0.3042503149369, 0.3578644568214, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.2340196374978, 0.3655133424831, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View16", "DIMENSION", 0.3118992005986, 0.3585598100634, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.04418820243979, 0.3349177998364, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View16", "DIMENSION", 0.3125945538405, 0.3596028399264, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Drawing View16", "DIMENSION", 0.3073794045258, 0.3571691035795, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.2760885086371, 0.3696854619349, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2573139711039, 0.3199677051353, 187.47225, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.288953, 0.347782, -1.87346e-015) Part.ClearSelection2 True Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 4, 2, 1, 11, 11,"", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1158095863628, 0.1628178724499, 187.47225, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0879955, 0.13257, -1.87346e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Drawing View16", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 4, 2, 1, 11, 11,"", "", 1,"", "", 0 Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD2@Drawing View16", "DIMENSION", 0.08590939695804, 0.1332653596648, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("RD1@Drawing View16", "DIMENSION", 0.2854757774037, 0.3495202179178, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 4, 2, 1, 11, 11,"", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 4, 2, 1, 11, 11,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 4, 2, 1, 11, 11,"2X", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 4, 2, 1, 11, 11,"2X ", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 4, 2, 1, 11, 11,"2X ", " ", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 4, 2, 1, 11, 11,"2X ", " ", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 4, 2, 1, 11, 11,"2X ", " ", 1,"", "", 0 Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002291.SLDPRT") boolstatus = Part.Extension.SelectByID("3/16 (0.1875) Diameter Hole1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 532 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002291 (BRECOflex custom timing pulley) - Sheet4") boolstatus = Part.Extension.SelectByID("RD1@Drawing View16", "DIMENSION", 0.2997305188641, 0.3491725412968, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 4, 2, 1, 11, 11,"2X ", " .", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 4, 2, 1, 11, 11,"2X ", " .4", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 4, 2, 1, 11, 11,"2X ", " .41", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 4, 2, 1, 11, 11,"2X ", " .410", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Drawing View16", "DIMENSION", 0.2847804241617, 0.3481295114338, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.2990351656221, 0.3370038595623, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.3167666732924, 0.2914582222132, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.1853449105599, 0.2584289432196, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem518@Drawing View16", "CENTERMARKSYM", 0.1995996520203, 0.2024530072409, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0761745, 0.159689, -1.87346e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem518@Drawing View16", "CENTERMARKSYM", 0.1989042987783, 0.2055820968298, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.1773483482772, 0.2104495695236, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.126588, 0.117272, -1.87346e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem518@Drawing View16", "CENTERMARKSYM", 0.1999473286413, 0.1979332111681, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.2239370154893, 0.2671208587442, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.358836, 0.247303, -1.87346e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D3@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.3595308976736, 0.247650967969, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.1255445317504, 0.1172722350995, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.07513142170749, 0.1593411062387, 0, True, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 2, 3, 1, 11, 11,"", "", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D3@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.3553587782217, 0.2473032913481, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.1199817058146, 0.1190106182044, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.07582677494946, 0.1596887828597, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.06018132700512, 0.1975855345471, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.1408423030737, 0.1089279961959, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D3@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.3511866587699, 0.1871552359176, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Drawing View16", "DIMENSION", 0.3080747577677, 0.3637749593782, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.ViewZoomtofit2 Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View17", "DRAWINGVIEW", 0.4547945059102, 0.3665910543735, 0, False, 0, Nothing) Part.ViewDisplayHiddenGreyed boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.3896672245863, 0.3818622789598, 0, False, 0, Nothing) Part.EditSketch Part.ViewZoomTo2 0.0191155, 0.397583, -2.80646e-015, 0.391464, 0.0562259, -4.22776e-016 boolstatus = Part.Extension.SelectByID("RD1@Drawing View16", "DIMENSION", 0.1982932956525, 0.3855424274295, 0, False, 0, Nothing) Part.EditDimensionProperties2 2, 0, 0, "", "", 0, 4, 2, 1, 11, 11,"2X ", " .410", 1,"", "", 0 Part.EditDimensionProperties2 2, 2.54e-006, 0, "", "", 0, 4, 2, 1, 11, 11,"2X ", " .410", 1,"", "", 0 Part.EditDimensionProperties2 2, 2.54e-006, -5.08e-006, "", "", 0, 4, 2, 1, 11, 11,"2X ", " .410", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.3938656766886, 0.3647160840246, 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 Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2552403284001, 0.3149281068237, 187.47225, False, 0, Nothing) Set CenterMark = Part.InsertCenterMark2(2, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.ConnectionLines = 0 End If boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1169403917273, 0.1639371171386, 187.47225, False, 0, Nothing) Set CenterMark = Part.InsertCenterMark2(2, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.ConnectionLines = 0 End If Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.315116065689, 0.332825745686, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2552403284001, 0.3155789300551, 187.47225, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.CreateCircle 0.08423212553625, 0.07060273178203, 0, 0.08626594813438, 0.06470464624745, 0 Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc6", "SKETCHSEGMENT", 0.3382202904038, 0.3305478643761, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3128381843791, 0.2768549477868, 187.46045, True, 0, Nothing) Part.SketchAddConstraints "sgCONCENTRIC" Part.SetPickMode boolstatus = Part.Extension.SelectByID("Arc6", "SKETCHSEGMENT", 0.2077302325078, 0.2202333266536, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc6", "SKETCHSEGMENT", 0.2044761163508, 0.2179554453436, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc6", "SKETCHSEGMENT", 0.219445050673, 0.2970304679589, 0, False, 0, Nothing) Part.ViewZoomTo2 0.22693, 0.345517, -1.94238e-015, 0.278345, 0.302237, -1.64016e-015 boolstatus = Part.Extension.SelectByID("Point8", "SKETCHPOINT", 0.0328295, 0.05686236198708, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point8", "SKETCHPOINT", 0.0328295, 0.05686236198708, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc6", "SKETCHSEGMENT", 0.2563296352529, 0.3216283599087, 0, True, 0, Nothing) Part.SketchAddConstraints "sgCOINCIDENT" Part.ViewZoomtofit2 boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.3116856269262, 0.3591194162764, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc6", "SKETCHSEGMENT", 0.2806817468276, 0.2943351892047, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.222839, 0.211041, -1.87346e-015) Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D4@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.221913197984, 0.2124294164069, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 4, 2, 1, 11, 11,"", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2399602326683, 0.04630414841588, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.2371837657938, 0.07175509476548, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2316308320448, 0.01900222414996, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.227466131733, 0.06527667205831, 0, False, 0, Nothing) Part.InsertHorizontalOrdinate Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2279288762121, 0.1078491641353, 187.46045, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.220988, 0.0587982, -1.87346e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2538425670408, 0.3137704573275, 187.47225, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.253843, 0.31377, -1.87346e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1534270150797, 0.3170096686811, 187.47225, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.153427, 0.31701, -1.87346e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1140937343576, 0.1619902681881, 187.47225, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.114094, 0.16199, -1.87346e-015) Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True Part.InsertVerticalOrdinate boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2616452613028, 0.1208805492198, 187.46045, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.356276, 0.218759, -1.87346e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.254223236538, 0.3222029709648, 187.47225, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.254223, 0.322203, -1.87346e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1558814084045, 0.3282333660861, 187.47225, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.155881, 0.328233, -1.87346e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2059800755668, 0.1194889195764, 187.47225, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.20598, 0.119489, -1.87346e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1178435314849, 0.1668043274519, 187.47225, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.117844, 0.166804, -1.87346e-015) Part.ClearSelection2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D11@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.3590593363406, 0.3245223537024, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D10@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.362770348723, 0.3180280820332, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D13@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.3660174845576, 0.1695875867374, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D12@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.3641619783664, 0.1231999319575, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D6@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.2537593599902, 0.05361844978758, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D7@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.1568091615001, 0.05083519050079, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("D8@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.1127408894592, 0.05129906704859, 0, True, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 4, 3, 1, 11, 11,"", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1693338282907, 0.01975546179823, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D5@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.1994858038976, 0.05640170907438, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.2249990140266, 0.06428761038697, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D9@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.358131583245, 0.2275721552124, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.3984888429036, 0.2363858096206, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.3752950155136, 0.2465910936721, 0, False, 0, Nothing) Dim Note As Object Dim Annotation As Object Dim TextFormat As Object Set Note = Part.InsertNote("") If Not Note is Nothing Then Note.Angle = 0 boolstatus = Note.SetBalloon(0, 0) Set Annotation = Note.GetAnnotation() If Not Annotation is Nothing Then longstatus = Annotation.SetLeader2(False, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.2041245693756, 0.06939025241276, 0) Set TextFormat = Part.GetUserPreferenceTextFormat(swDetailingNoteTextFormat) TextFormat.Italic = False TextFormat.Underline = False TextFormat.Strikeout = False TextFormat.Bold = False TextFormat.Escapement = 0 TextFormat.LineSpacing = 0.001 TextFormat.CharHeightInPts = 14 TextFormat.TypeFaceName = "Century Gothic" TextFormat.WidthFactor = 1 TextFormat.ObliqueAngle = 0 TextFormat.LineLength = 0 TextFormat.Vertical = False TextFormat.BackWards = False TextFormat.UpsideDown = False TextFormat.CharSpacingFactor = 1 boolstatus = Annotation.SetTextFormat(0, False, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw Part.SetPickMode boolstatus = Part.Extension.SelectByID("DetailItem526@Drawing View16", "NOTE", 0.2064439521146, 0.06846249931716, 0, False, 0, Nothing) Part.EditCopy boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.3521011881237, 0.2136558587784, 0, False, 0, Nothing) Part.Paste Part.ViewZoomTo2 0.178611, 0.114386, -8.73931e-016, 0.231957, 0.0573295, -4.75505e-016 boolstatus = Part.Extension.SelectByID("DetailItem526@Drawing View16", "NOTE", 0.2075415132125, 0.06597773065931, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem526@Drawing View16", "NOTE", 0.2010145181262, 0.06924122820246, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D5@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.2006337767462, 0.06146322572463, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.2126543260301, 0.06668482179366, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.ViewZoomTo2 0.321409, 0.243434, -1.7766e-015, 0.371386, 0.201786, -1.48578e-015 boolstatus = Part.Extension.SelectByID("DetailItem527@Drawing View16", "NOTE", 0.354794429643, 0.2120292460073, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem527@Drawing View16", "NOTE", 0.3467745643985, 0.2253692198793, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D9@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.3528093144835, 0.2262029682463, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem527@Drawing View16", "NOTE", 0.3465363505794, 0.2250516014537, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.Save2 FALSE Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2006509545785, 0.02638346512475, 0, False, 0, Nothing) Part.ViewZoomTo2 0.196023, 0.0842334, -6.65072e-016, 0.225179, 0.0550771, -4.61474e-016 boolstatus = Part.Extension.SelectByID("DetailItem526@Drawing View16", "NOTE", 0.2018042041345, 0.06816824657151, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D5@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.2017764096731, 0.0599966749277, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem526@Drawing View16", "NOTE", 0.20191538198, 0.06672293458009, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.2076132465616, 0.06538880043416, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.2076132465616, 0.06536100597279, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem526@Drawing View16", "NOTE", 0.2018839186497, 0.06540469886607, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D5@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.2002509384551, 0.05517455823509, 0, False, 0, Nothing) Part.ViewZoomtofit2 boolstatus = Part.Extension.SelectByID("D11@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.365846908054, 0.3239567953808, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D10@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.369549068067, 0.3156269353514, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D11@Sketch40@1002291 (BRECOflex custom timing pulley).SLDDRW", "DIMENSION", 0.3723256880768, 0.3234940253792, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.3880598681322, 0.2836958052389, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2931920177979, 0.02315629432076, 0, False, 0, Nothing) Part.Save2 FALSE Part.PrintDirect swApp.PageSetup Part.PrintDirect Part.EditSketch Part.EditSketch Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "1002291 (BRECOflex custom timing pulley) - Sheet4" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002291.SLDPRT") Set Part = Nothing swApp.CloseDoc "1002291.SLDPRT" swApp.ExitApp End Sub