' ****************************************************************************** ' swxJRNL.swj - journal recorded on 06/18/99 by grma ' ****************************************************************************** Dim swApp As Object Dim Part As Object Dim Gtol As Object Dim FeatureData As Object Dim Feature As Object Dim Component As Object Sub main() Set swApp = CreateObject ("SldWorks.Application") Set Part = swApp.OpenDoc ("D:\Projects\moog\1_ATM_HOUSING\wedge\100487B.SLDDRW", 3) Set Part = swApp.ActivateDoc ("100487B - Sheet1") Part.EditSketch Set Part = Nothing swApp.CloseDoc "100487B - Sheet1" Set Part = swApp.OpenDoc ("D:\Projects\moog\1_ATM_HOUSING\wedge\100514B.SLDDRW", 3) Set Part = swApp.ActivateDoc ("100514B - Sheet1") Part.SelectByID "DetailItem97@Drawing View8", "NOTE", 0.09282502642571, 0.04152566250939, 0 Part.InsertNewNote3 "Notes: " & Chr(13) & Chr(10) &_ "7. Disk washers to be stacked in alternating " & Chr(13) & Chr(10) &_ "sets of two (detail B)" & Chr(13) & Chr(10) &_ "8. Preloaded space between wedge and cross" & Chr(13) & Chr(10) &_ "bar." & Chr(13) & Chr(10) &_ "9.Refer to Assembly document 100595 for installation" & Chr(13) & Chr(10) &_ "of Drive Block" & Chr(13) & Chr(10) &_ "10. Apply Loctite No. 243 to all fastener threads prior" & Chr(13) & Chr(10) &_ "to installation.", 1, 1, 1, 0, 0, 0, 0, 1 Part.ViewZoomTo2 0.0109517, 0.0692094, -2.53975e-015, 0.154083, 0.00971877, -2.12433e-015 Part.SetPickMode Part.ClearSelection Part.SelectByID "DetailItem97@Drawing View8", "NOTE", 0.03296052699185, 0.03089692378177, 0 Part.InsertNewNote3 "Notes: " & Chr(13) & Chr(10) &_ "7. Disk washers to be stacked in alternating " & Chr(13) & Chr(10) &_ "sets of two (detail B)" & Chr(13) & Chr(10) &_ "8. Preloaded space between wedge and cross" & Chr(13) & Chr(10) &_ "bar." & Chr(13) & Chr(10) &_ "9.Refer to Assembly document 100595 for installation" & Chr(13) & Chr(10) &_ "of Drive Block" & Chr(13) & Chr(10) &_ "10. Refer to Assembly document 100596 for general " & Chr(13) & Chr(10) &_ "assembly instructions", 1, 1, 1, 0, 0, 0, 0, 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.Save Part.ViewZoomtofit Part.PrintDirect Set Part = swApp.OpenDoc ("D:\Projects\moog\1_ATM_HOUSING\cylinder\100518A.SLDDRW", 3) Set Part = swApp.ActivateDoc ("100518A - Sheet1") Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.2401050819378, 0.1983041860732, 0 Part.ClearSelection Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.2775246117138, 0.2055254988369, 0 Part.ClearSelection Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.2420745308734, 0.1635105882113, 0 Part.ViewZoomtofit Part.EditSketch Part.EditSketch Part.ClearSelection Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.2623269783813, 0.2173580045503, 0 Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.209488833362, -0.04683272054604, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.09598466998725, 0.162562891197, 0 Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.09598466998725, 0.1462548217466, 0 Part.EditSketch Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.1129450622157, 0.08297951227909, 0 Part.ClearSelection Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.2264492255904, 0.1416885623005, 0 Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.4123612173249, 0.2754147317937, 0 Part.SelectByID "Sheet1", "SHEET", 0.3608277178616, 0.1690861189772, 0 Part.EditSketch Part.EditSketch Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.1351240366682, 0.0418831772641, 0 Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.1351240366682, 0.0418831772641, 0 Part.InsertNewNote3 "ASSEMBLY NOTES:" & Chr(13) & Chr(10) &_ "1. Inspect both items 1 and 2 to ensure that mating" & Chr(13) & Chr(10) &_ "faces and o-ring surfacesare clean and free of debris." & Chr(13) & Chr(10) &_ "2. Slowly mate item 2 with item 1 making sure guide pins" & Chr(13) & Chr(10) &_ "on item 1 are aligned properly w/ mating holes on item 2" & Chr(13) & Chr(10) &_ "and turning threaded collar clockwise by hand to engage" & Chr(13) & Chr(10) &_ "threads." & Chr(13) & Chr(10) &_ "3. Once collar becomes to tight to turn by hand, use spanner" & Chr(13) & Chr(10) &_ "wrench with pins engaged w/ slotted holes on collar to fully " & Chr(13) & Chr(10) &_ "mate two surfaces using no more than 10 lbs of force." & Chr(13) & Chr(10) &_ "4. Using the slotted holes, verify that the two mating surfaces" & Chr(13) & Chr(10) &_ "are touching. If not, disassmble and inspect for interferences.", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem87@Drawing View1", "NOTE", 0.1605646250108, 0.01579026614347, 0 Part.SelectByID "DetailItem87@Drawing View1", "NOTE", 0.1820912766853, 0.04057853170807, 0 Part.SelectByID "Sheet1", "SHEET", 0.3164697689566, 0.1808279289814, 0 Part.ClearSelection Part.SelectByID "Sheet1", "SHEET", 0.4064903123227, 0.1880034795396, 0 Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.3262546106268, 0.1566919861949, 0 Part.SetPickMode Part.ClearSelection Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.293638471726, 0.1260328156281, 0 Part.SelectByID "DetailItem87@Drawing View1", "NOTE", 0.2068795422499, 0.08428415783512, 0 Part.SelectByID "DetailItem87@Drawing View1", "NOTE", 0.2003563144698, 0.03731691781799, 0 Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.2297108394805, 0.1018968728415, 0 Part.EditSketch Part.EditSketch Part.SelectByID "", "FACE", 0.2890722122799, 0.1703907645297, -500.1451965551 Part.InsertBOMBalloon Part.SelectByID "", "FACE", 0.1122927394376, 0.07776093005147, -499.8267046076 Part.InsertBOMBalloon Part.SetPickMode Part.ClearSelection Part.SelectByID "DetailItem89@Drawing View1", "NOTE", 0.1142497077717, 0.07841325283298, 0 Part.SelectByID "DetailItem88@Drawing View1", "NOTE", 0.291681503392, 0.1710430873112, 0 Part.SetPickMode Part.ClearSelection Part.EditSketch Part.ViewZoomTo2 -0.00512536, 0.281286, -2.56415e-015, 0.437802, -0.00117013, -5.91767e-016 Part.SetPickMode Part.EditSketch Part.EditSketch ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save Part.ViewZoomTo2 0.14052, 0.0709224, -2.09585e-015, 0.267268, 0.0211449, -1.74825e-015 Part.SetPickMode Part.EditSketch Part.SelectByID "DetailItem87@Drawing View1", "NOTE", 0.1902430436957, 0.05407908224404, 0 Part.SelectByID "DetailItem87@Drawing View1", "NOTE", 0.1903749356296, 0.0704336820527, 0 Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.1856268260077, 0.02268880196612, 0 Part.SelectByID "DetailItem87@Drawing View1", "NOTE", 0.1967057484588, 0.06449854502536, 0 Part.InsertNewNote3 "ASSEMBLY NOTES:" & Chr(13) & Chr(10) &_ "1. Inspect both items 1 and 2 to ensure that mating" & Chr(13) & Chr(10) &_ "faces and o-ring surfaces are clean and free of debris." & Chr(13) & Chr(10) &_ "2. Slowly mate item 2 with item 1 making sure guide pins" & Chr(13) & Chr(10) &_ "on item 1 are aligned properly w/ mating holes on item 2" & Chr(13) & Chr(10) &_ "and turning threaded collar clockwise by hand to engage" & Chr(13) & Chr(10) &_ "threads." & Chr(13) & Chr(10) &_ "3. Once collar becomes to tight to turn by hand, use spanner" & Chr(13) & Chr(10) &_ "wrench with pins engaged w/ slotted holes on collar to fully " & Chr(13) & Chr(10) &_ "mate two surfaces using no more than 10 lbs of force." & Chr(13) & Chr(10) &_ "4. Using the slotted holes, verify that the two mating surfaces" & Chr(13) & Chr(10) &_ "are touching. If not, disassmble and inspect for interferences.", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem87@Drawing View1", "NOTE", 0.2054106160989, 0.04194502432148, 0 Part.InsertNewNote3 "ASSEMBLY NOTES:" & Chr(13) & Chr(10) &_ "1. Inspect both items 1 and 2 to ensure that mating" & Chr(13) & Chr(10) &_ "faces and o-ring surfaces are clean and free of debris." & Chr(13) & Chr(10) &_ "2. Slowly mate item 2 with item 1 making sure guide pins" & Chr(13) & Chr(10) &_ "on item 1 are aligned properly w/ mating holes on item 2" & Chr(13) & Chr(10) &_ "and turning threaded collar clockwise by hand to engage" & Chr(13) & Chr(10) &_ "threads." & Chr(13) & Chr(10) &_ "3. Once collar becomes to tight to turn by hand, use spanner" & Chr(13) & Chr(10) &_ "wrench with pins engaged w/ slotted holes on collar to fully " & Chr(13) & Chr(10) &_ "mate two surfaces using no more than 10 lbs of force on wrench.." & Chr(13) & Chr(10) &_ "4. Using the slotted holes, verify that the two mating surfaces" & Chr(13) & Chr(10) &_ "are touching. If not, disassmble and inspect for interferences.", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem87@Drawing View1", "NOTE", 0.1624138456342, 0.06845530304359, 0 Part.InsertNewNote3 "ASSEMBLY NOTES:" & Chr(13) & Chr(10) &_ "1. Inspect both items 1 and 2 to ensure that mating" & Chr(13) & Chr(10) &_ "faces and o-ring surfaces are clean and free of debris." & Chr(13) & Chr(10) &_ "2. Slowly mate item 2 with item 1 making sure guide pins" & Chr(13) & Chr(10) &_ "on item 1 are aligned properly w/ mating holes on item 2" & Chr(13) & Chr(10) &_ "and turning threaded collar clockwise by hand to engage" & Chr(13) & Chr(10) &_ "threads." & Chr(13) & Chr(10) &_ "3. Once collar becomes to tight to turn by hand, use spanner" & Chr(13) & Chr(10) &_ "wrench with pins engaged w/ slotted holes on collar to fully " & Chr(13) & Chr(10) &_ "mate two surfaces using no more than 10 lbs of force on wrench.." & Chr(13) & Chr(10) &_ "4. Using the slotted holes, verify that the two mating surfaces" & Chr(13) & Chr(10) &_ "are touching. If not, disassmble and inspect for interferences.", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem87@Drawing View1", "NOTE", 0.1542365457298, 0.06581746436477, 0 Part.InsertNewNote3 "ASSEMBLY NOTES:" & Chr(13) & Chr(10) &_ "1. Inspect both items 1 and 2 to ensure that mating" & Chr(13) & Chr(10) &_ "faces and o-ring surfaces are clean and free of debris." & Chr(13) & Chr(10) &_ "2. Slowly mate item 2 with item 1 making sure guide pins" & Chr(13) & Chr(10) &_ "on item 1 are aligned properly w/ mating holes on item 2" & Chr(13) & Chr(10) &_ "and turning threaded collar clockwise by hand to engage" & Chr(13) & Chr(10) &_ "threads." & Chr(13) & Chr(10) &_ "3. Once collar becomes to tight to turn by hand, use spanner" & Chr(13) & Chr(10) &_ "wrench with pins engaged w/ slotted holes on collar to fully " & Chr(13) & Chr(10) &_ "mate two surfaces using no more than 10 lbs of force on wrench.." & Chr(13) & Chr(10) &_ "4. Using the slotted holes, verify that the two mating surfaces" & Chr(13) & Chr(10) &_ "are touching. If not, disassmble and inspect for interferences.", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.1955187210533, 0.02057853102306, 0 Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.1571381682765, 0.07992990129644, 0 Part.ViewZoomtofit Part.EditSketch Part.ViewZoomtofit Part.ViewZoomTo2 -0.00713779, 0.294691, -5.68713e-015, 0.444942, -0.00492203, -3.59494e-015 Part.PrintPreview Part.PrintDirect Part.Save Part.ClearSelection Set Part = Nothing swApp.CloseDoc "100518A - Sheet1" Set Part = swApp.ActivateDoc ("100514B - Sheet1") Part.Save Part.ClearSelection Set Part = Nothing swApp.CloseDoc "100514B - Sheet1" Set Part = swApp.NewDrawing2 (12, "D:\Projects\moog\1_ATM_HOUSING\cylinder\cylass.slddrt", 0, 0.000000, 0.000000) Set Part = swApp.ActivateDoc ("Draw1 - Sheet1") Part.SelectByID "Sheet1", "SHEET", 0.0795074777309, 0.2243190342241, 0 Part.SelectByID "Sheet1", "SHEET", 0.08006418190342, 0.2243190342241, 0 Part.InsertNewNote3 "ASSEMBLY DRAWINGS FOR SEMIPOWER" & Chr(13) & Chr(10) &_ "DRIVEBLOK HOUSING ASSEMBLIES", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem84@Sheet1", "NOTE", 0.1307242616034, 0.2198654008439, 0 Part.SelectByID "DetailItem84@Sheet1", "NOTE", 0.2181268166901, 0.1909167838725, 0 Part.InsertNewNote3 "ASSEMBLY DRAWINGS FOR SEMIPOWER" & Chr(13) & Chr(10) &_ "DRIVEBLOK HOUSING ASSEMBLIES", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem84@Sheet1", "NOTE", 0.2793642756681, 0.1853497421472, 0 Part.SelectByID "Sheet1", "SHEET", 0.1819410454759, 0.1363597749648, 0 Part.SelectByID "DetailItem84@Sheet1", "NOTE", 0.1691368495077, 0.1792259962494, 0 Part.SelectByID "Sheet1", "SHEET", 0.1691368495077, 0.1486072667604, 0 Part.SelectByID "Sheet1", "SHEET", 0.03664125644632, 0.149163970933, 0 Part.SelectByID "Sheet1", "SHEET", 0.03497114392874, 0.1480505625879, 0 Part.SelectByID "Sheet1", "SHEET", 0.03497114392874, 0.1480505625879, 0 Part.InsertNewNote3 "CONTENTS:" & Chr(13) & Chr(10) &_ "DRAWIN", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "Sheet1", "SHEET", 0.08062088607595, 0.1469371542429, 0 Part.Paste Part.SelectByID "Worksheet", "OLEITEM", 0.01492979371777, 0.3167319268636, 0 Part.ClearSelection Part.SelectByID "Worksheet", "OLEITEM", 0.0177133145804, 0.316175222691, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.03552784810127, 0.3117215893108, 0 Part.SelectByID "Sheet1", "SHEET", 0.1401882325363, 0.1296793248945, 0 Part.ClearSelection Part.SelectByID "Sheet1", "SHEET", 0.06169294421003, 0.1324628457571, 0 Part.Paste Part.SelectByID "Worksheet", "OLEITEM", 0.1034457571496, 0.3094947726207, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.09676530707923, 0.08569969526489, 0 Part.SelectByID "DetailItem84@Sheet1", "NOTE", 0.1129097280825, 0.191473488045, 0 Part.SelectByID "DetailItem85@Sheet1", "NOTE", 0.04276500234412, 0.1424835208626, 0 Part.EditDelete Part.SelectByID "Worksheet", "OLEITEM", 0.1329510782935, 0.1547310126582, 0 Part.EditDelete Part.SelectByID "Worksheet", "OLEITEM", 0.132394374121, 0.264401734646, 0 Part.EditDelete Part.SelectByID "Sheet1", "SHEET", 0.04666193155181, 0.1881332630098, 0 Part.Paste Part.SelectByID "Worksheet", "OLEITEM", 0.08952815283638, 0.2204221050164, 0 Part.SelectByID "Sheet1", "SHEET", 0.2353846460384, 0.1135349038912, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.2259206751055, 0.1658650961088, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.2270340834505, 0.1764424753868, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.2710137130802, 0.2053910923582, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.3200036802625, 0.2410201593999, 0 Part.EditDelete Part.SelectByID "Sheet1", "SHEET", 0.0321876230661, 0.2053910923582, 0 Part.SelectByID "Sheet1", "SHEET", 0.0321876230661, 0.2048343881857, 0 Part.SelectByID "Sheet1", "SHEET", 0.08451781528364, 0.2148550632911, 0 Part.Paste Part.SelectByID "Worksheet", "OLEITEM", 0.2153432958275, 0.2014941631505, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.2337145335209, 0.1859064463197, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.09064156118143, 0.3111648851383, 0 Part.SelectByID "Sheet1", "SHEET", 0.1490954992968, 0.1864631504923, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.1090127988748, 0.1024008204407, 0 Part.EditDelete Part.SelectByID "Sheet1", "SHEET", 0.05835271917487, 0.1708754336615, 0 Part.Paste Part.SelectByID "Worksheet", "OLEITEM", 0.06837339428036, 0.200937458978, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.1362913033286, 0.06677175339897, 0 Part.SelectByID "DetailItem84@Sheet1", "NOTE", 0.3667668307548, 0.2198654008439, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.1646832161275, 0.1474938584154, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.1702502578528, 0.1474938584154, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.1763740037506, 0.1135349038912, 0 Part.SelectByID "DetailItem84@Sheet1", "NOTE", 0.1652399203, 0.2154117674637, 0 Part.SelectByID "Sheet1", "SHEET", 0.3829112517581, 0.1864631504923, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.2270340834505, 0.1836796296296, 0 Part.SelectByID "Sheet1", "SHEET", 0.3361481012658, 0.1881332630098, 0 Part.ClearSelection Part.Paste Part.EditUndo 1 Part.SelectByID "Worksheet", "OLEITEM", 0.1001055321144, 0.3022576183779, 0 Part.EditDelete Part.SelectByID "Worksheet", "OLEITEM", 0.2537558837318, 0.1758857712143, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.2526424753868, 0.1769991795593, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.1513223159869, 0.1864631504923, 0 Part.SetPickMode Part.ClearSelection Part.SelectByID "Worksheet", "OLEITEM", 0.258209517112, 0.1920301922175, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.3144366385373, 0.1920301922175, 0 Part.SelectByID "Sheet1", "SHEET", 0.3528492264416, 0.1825662212846, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.1875080872011, 0.1814528129395, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.1902916080638, 0.1892466713549, 0 Part.SelectByID "Sheet1", "SHEET", 0.1407449367089, 0.0550809657759, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.164126511955, 0.07901924519456, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.1618996952649, 0.06844186591655, 0 Part.SelectByID "Sheet1", "SHEET", 0.2136731833099, 0.1842363338022, 0 Part.SelectByID "DetailItem84@Sheet1", "NOTE", 0.2058793248945, 0.2120715424285, 0 Part.SelectByID "Sheet1", "SHEET", 0.2242505625879, 0.2243190342241, 0 Part.SetPickMode Part.ClearSelection Part.ViewZoomTo2 0.272684, 0.0695553, -7.02484e-016, 0.443592, -0.0161772, -1.03818e-016 Part.SetPickMode Part.SelectByID "Sheet1", "SHEET", 0.3597604621025, 0.0288524476728, 0 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.SelectByID "DetailItem22@Template1", "NOTE", 0.3664309290811, 0.02398480960732, 0 Part.InsertNewNote3 "COVER SHEET" & Chr(13) & Chr(10) &_ "SEMIPOWER DRIVEBLOK MOTOR " & Chr(13) & Chr(10) &_ "CONTROLLER ASSEMBLY " & Chr(13) & Chr(10) &_ "", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem22@Template1", "NOTE", 0.3660703632985, 0.02200169780286, 0 Part.SelectByID "DetailItem22@Template1", "NOTE", 0.3712985671466, 0.02344396093337, 0 Part.SelectByID "DetailItem22@Template1", "NOTE", 0.3792310143644, 0.02200169780286, 0 Part.ClearSelection Part.SelectByID "DetailItem1@Template1", "NOTE", 0.3839183695386, 0.01533123082424, 0 Part.InsertNewNote3 "100518DWG", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem81@Template1", "NOTE", 0.3433547189929, 0.06130336810934, 0 Part.EditDelete Part.SelectByID "Template1", "SHEET", 0.3184756799915, 0.08095420326257, 0 Part.SelectByID "Template1", "SHEET", 0.3092812525345, 0.06905553243584, 0 Part.EditSheet Part.EditSketch Part.ClearSelection Part.ViewZoomtofit Part.SelectByID "Sheet1", "SHEET", 0.184167862166, 0.2321128926395, 0 Part.SelectByID "DetailItem84@Sheet1", "NOTE", 0.2019823956868, 0.2053910923582, 0 Part.SelectByID "DetailItem84@Sheet1", "NOTE", 0.2125597749648, 0.2048343881857, 0 Part.SelectByID "Sheet1", "SHEET", 0.1980854664791, 0.2120715424285, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.1680234411627, 0.1380298874824, 0 Part.SelectByID "Sheet1", "SHEET", 0.1774874120956, 0.1480505625879, 0 Part.ClearSelection Part.SelectByID "Worksheet", "OLEITEM", 0.1930751289264, 0.1413701125176, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.1953019456165, 0.1458237458978, 0 Part.SelectByID "Sheet1", "SHEET", 0.05501249413971, 0.2087313173933, 0 Part.SelectByID "Sheet1", "SHEET", 0.04387841068917, 0.1769991795593, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.1479820909517, 0.09794718706048, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.07728066104079, 0.1352463666198, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.3305810595406, 0.1981539381153, 0 Part.SelectByID "Sheet1", "SHEET", 0.3940453352086, 0.1937003047351, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.3417151429911, 0.1653083919362, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.3456120721988, 0.1825662212846, 0 Part.SetPickMode Part.ClearSelection Part.SelectByID "Worksheet", "OLEITEM", 0.3444986638537, 0.1847930379747, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.3116531176746, 0.1708754336615, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.06169294421003, 0.06565834505391, 0 Part.SelectByID "Sheet1", "SHEET", 0.04888874824191, 0.1018441162682, 0 Part.SelectByID "Sheet1", "SHEET", 0.05779601500234, 0.1335762541022, 0 Part.ClearSelection Part.SelectByID "Worksheet", "OLEITEM", 0.07282702766057, 0.1319061415846, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.06113624003751, 0.1380298874824, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.371220464135, 0.1374731833099, 0 Part.SelectByID "Sheet1", "SHEET", 0.2320444210033, 0.04283347398031, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.3534059306142, 0.1341329582747, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.3639833098922, 0.1363597749648, 0 Part.SetPickMode Part.ClearSelection Part.SelectByID "Worksheet", "OLEITEM", 0.173590482888, 0.1179885372714, 0 Part.SelectByID "Sheet1", "SHEET", 0.04666193155181, 0.1569578293483, 0 Part.SelectByID "Sheet1", "SHEET", 0.3979422644163, 0.1686486169714, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.205322620722, 0.1864631504923, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.2047659165495, 0.1981539381153, 0 Part.SelectByID "Sheet1", "SHEET", 0.3951587435537, 0.1602980543835, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.3350346929208, 0.08681310360994, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.3534059306142, 0.06510164088139, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.3244573136428, 0.08068935771214, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.1936318330989, 0.2042776840131, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.1669100328176, 0.182009517112, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.225363970933, 0.1541743084857, 0 Part.SelectByID "Sheet1", "SHEET", 0.2454053211439, 0.1758857712143, 0 Part.SelectByID "DetailItem84@Sheet1", "NOTE", 0.2019823956868, 0.2170818799812, 0 Part.SelectByID "DetailItem84@Sheet1", "NOTE", 0.2164567041725, 0.2181952883263, 0 Part.SelectByID "Sheet1", "SHEET", 0.1808276371308, 0.1525041959681, 0 Part.ViewZoomTo2 0.207549, 0.165308, -2.39332e-015, 0.441365, -0.0106101, -1.16489e-015 Part.SelectByID "Worksheet", "OLEITEM", 0.2611057042953, 0.1257790819715, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.2137228890396, 0.1598109382325, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.2349273533253, 0.106145318744, 0 Part.SelectByID "Sheet1", "SHEET", 0.2485400958297, 0.1050981847052, 0 Part.ClearSelection Part.SelectByID "Worksheet", "OLEITEM", 0.2511579309267, 0.1037892671567, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.2493254463588, 0.1037892671567, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.2425190751066, 0.1053599682149, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.407180902708, 0.1485542473154, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.3103210041189, 0.1391300409662, 0 Part.SelectByID "Sheet1", "SHEET", 0.3163420248421, 0.1553606185676, 0 Part.ViewZoomtofit Part.SelectByID "DetailItem84@Sheet1", "NOTE", 0.1769307079231, 0.1931436005626, 0 Part.SelectByID "Sheet1", "SHEET", 0.1708069620253, 0.2755358180966, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.3355913970933, 0.1391432958275, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.3344779887482, 0.1402567041725, 0 Part.SelectByID "Sheet1", "SHEET", 0.1685801453352, 0.1319061415846, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.184167862166, 0.1046276371308, 0 Part.SelectByID "Worksheet", "OLEITEM", 0.225363970933, 0.1074111579934, 0 Part.SelectByID "DetailItem84@Sheet1", "NOTE", 0.2236938584154, 0.1675352086263, 0 Part.SelectByID "Sheet1", "SHEET", 0.2270340834505, 0.242133567745, 0 Part.SaveAs "D:\Projects\moog\1_ATM_HOUSING\cylinder\COVER.SLDDRW" Part.SelectByID "Sheet1", "SHEET", 0.392375222691, 0.01945189873418, 0 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.SelectByID "DetailItem1@Template1", "NOTE", 0.3812411392405, 0.01948365853659, 0 Part.InsertNewNote3 "COVER", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem1@Template1", "NOTE", 0.3751173933427, 0.01948365853659, 0 Part.SelectByID "DetailItem1@Template1", "NOTE", 0.3751173933427, 0.01948365853659, 0 Part.InsertNewNote3 "ASSEMBLY COVER SHEET", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem22@Template1", "NOTE", 0.381797843413, 0.01948365853659, 0 Part.ViewZoomTo2 0.306643, 0.0528541, -2.20818e-015, 0.428004, -0.0106101, -1.76502e-015 Part.SetPickMode Part.ClearSelection Part.SelectByID "DetailItem22@Template1", "NOTE", 0.3811495296931, 0.0226582328924, 0 Part.SelectByID "DetailItem1@Template1", "NOTE", 0.3824297143937, 0.01510514315924, 0 Part.EditDelete Part.ViewZoomtofit Part.SelectByID "Template1", "SHEET", 0.1129097280825, 0.2365665260197, 0 Part.EditSheet Part.EditSketch Part.ClearSelection Part.PrintDirect Set Part = swApp.OpenDoc ("D:\Projects\moog\1_ATM_HOUSING\cylinder\100518A.SLDDRW", 3) Set Part = swApp.ActivateDoc ("100518A - Sheet1") Part.SelectByID "Sheet1", "SHEET", 0.3960174364744, 0.03245286319068, 0 Part.SelectByID "Sheet1", "SHEET", 0.3960174364744, 0.03245286319068, 0 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.SelectByID "DetailItem22@Template1", "NOTE", 0.3819046513503, 0.02398519211621, 0 Part.InsertNewNote3 "SEMIPOWER DRIVEBLOK" & Chr(13) & Chr(10) &_ "MOTOR CONTROLLER ASSEMBLY", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem22@Template1", "NOTE", 0.3757891111298, 0.02586689679942, 0 Part.SelectByID "DetailItem81@Template1", "NOTE", 0.3292169202202, 0.06300732705081, 0 Part.InsertNewNote3 "Semipower DriveBlok Motor Controller Ass'y", 1, 1, 1, 0, 0, 0, 0, 1 Part.ViewZoomTo2 0.311811, 0.0696165, -5.13678e-015, 0.361676, 0.0479769, -4.98567e-015 Part.SetPickMode Part.ClearSelection Part.SelectByID "DetailItem81@Template1", "NOTE", 0.3451237864224, 0.06045717159793, 0 Part.SelectByID "Template1", "SHEET", 0.3443973426789, 0.06590549967395, 0 Part.ViewZoomtofit Part.SelectByID "Template1", "SHEET", 0.2020598038476, 0.1236103862415, 0 Part.EditSheet Part.EditSketch Part.ClearSelection Part.EditSketch Part.EditSketch Part.ViewZoomTo2 -0.00802422, 0.284054, -6.46883e-015, 0.43785, -0.0120135, -4.4014e-015 Part.SetPickMode Part.EditSketch Part.PrintDirect Part.EditSketch Part.Save Set Part = Nothing swApp.CloseDoc "100518A - Sheet1" Set Part = swApp.ActivateDoc ("COVER - Sheet1") Part.Save Set Part = Nothing swApp.CloseDoc "COVER - Sheet1" swApp.ExitApp End Sub