' ****************************************************************************** ' swxJRNL.swj - journal recorded on 07/12/04 by jaha ' ***************************************************************************** Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Dim FeatureData As Object Dim Feature As Object Dim Component As Object Sub main() Set swApp = Application.SldWorks Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\Towfish\ControllerHousing\120jahaTowfishHousingRevA.SLDDRW", 3, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("120jahaTowfishHousingRevA - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch78@120jahaTowfishHousingRevA.SLDDRW", "DIMENSION", 0.03786119931446, 0.1000431620973, 0, False, 0, Nothing) Part.EditDimensionProperties2 3, 0, -0.000254, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("D3@Sketch78@120jahaTowfishHousingRevA.SLDDRW", "DIMENSION", 0.03534923341945, 0.07492350314722, 0, False, 0, Nothing) Part.EditDimensionProperties2 3, 0, -0.000254, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("DetailItem222@Drawing View66", "NOTE", 0.1361867214903, 0.02504303751786, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem222@Drawing View66", "NOTE", 0.1361867214903, 0.02611959433001, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1386986873853, 0.01284206031356, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View66", "DIMENSION", 0.123985744286, 0.07492350314722, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View66", "DIMENSION", 0.123985744286, 0.07492350314722, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View66", "DIMENSION", 0.1207560738496, 0.07600005995937, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 0, 1, 1, 11, 11,"", "", 1,"", "", 0 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D2@Sketch78@120jahaTowfishHousingRevA.SLDDRW", "DIMENSION", 0.1383398351146, 0.0960957871194, 0, False, 0, Nothing) Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "", 0 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.04180857429232, 0.1409523209588, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D8@Sketch1@Section-2@Drawing View13", "DIMENSION", 0.2079571756333, 0.204828025146, 0, False, 0, Nothing) Part.EditSketch Part.EditDimensionProperties2 3, 0, -0.000127, "", "", 1, 9, 1, 1, 11, 11,"2X ", "", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.03534923341945, 0.1517178890802, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1609475281696, 0.1531532981631, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("D8@Sketch1@Section-2@Drawing View13", "DIMENSION", 0.2072394710918, 0.2059045819581, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1666891645011, 0.1596126390359, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D8@Sketch1@Section-2@Drawing View13", "DIMENSION", 0.2079571756333, 0.2044691728753, 0, False, 0, Nothing) Part.EditSketch Part.EditDimensionProperties2 3, 0.000127, -0.000127, "", "", 1, 9, 1, 1, 11, 11,"2X ", "", 1,"", "", 0 Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1756604712689, 0.1517178890802, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1552058918382, 0.1721724685109, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.1616504096976, 0.02649312923996, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.166874, 0.0252495, 0) Part.ClearSelection2 True Part.Parameter("D1@Sketch37").SystemValue = 0.0727733 boolstatus = Part.Extension.SelectByID("RD5@Drawing View29", "DIMENSION", 0.1671224553807, 0.02450329444612, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch37@120jahaTowfishHousingRevA.SLDDRW", "DIMENSION", 0.1711021249683, 0.02549821184304, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch37@120jahaTowfishHousingRevA.SLDDRW", "DIMENSION", 0.1706046662699, 0.02549821184304, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("RD5@Drawing View29", "DIMENSION", 0.196721247939, -0.02971970368604, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD5@Drawing View29", "DIMENSION", 0.1840360511283, 0.02375710639843, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet6", "SHEET", 0.04288513110446, 0.0889187417051, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet6", "SHEET", 0.05149758560162, 0.08784218489296, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("RD9@Drawing View76", "DIMENSION", 0.2420339085836, 0.2101090482602, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD9@Drawing View76", "DIMENSION", 0.2460164696058, 0.2073518906295, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet6", "SHEET", 0.2619467136943, 0.1813120685617, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("RD9@Drawing View76", "DIMENSION", 0.2426466102793, 0.2094963465645, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet6", "SHEET", 0.2527561882586, 0.2453393957638, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet6", "SHEET", 0.173407570469, 0.08491490180372, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet6", "SHEET", 0.06824611917232, 0.09506453249187, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet6", "SHEET", 0.04230817408039, 0.09760194016391, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1736894158963, 0.1208153936083, 166.6350799875, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1624696345082, 0.1205544684597, 166.6350799875, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.197434, 0.0988977, -2.70114e-015) Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 3, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "", 0 Part.EditDimensionProperties2 3, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "", 0 Part.EditDimensionProperties2 3, 0.000127, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "", 0 Part.EditDimensionProperties2 3, 0.000127, 0, "", "", 1, 9, 1, 1, 11, 11,"", "", 1,"", "", 0 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD10@Drawing View76", "DIMENSION", 0.1781251434219, 0.1043771092478, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("RD6@Drawing View76", "DIMENSION", 0.1984773050096, 0.1004632320194, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD8@Drawing View76", "DIMENSION", 0.1812562452046, 0.09106992667123, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD3@Drawing View76", "DIMENSION", 0.126983814304, 0.09185270211691, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2018693319409, 0.1398629294532, 166.6350799875, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2159592899631, 0.1792626268858, 166.6350799875, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2151765145175, 0.1797844771829, 166.6350799875, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1911714008499, 0.1302086989565, 166.6350799875, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.185953, 0.0881998, -2.70114e-015) Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("RD7@Drawing View76", "DIMENSION", 0.1869965984729, 0.08767789973995, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD7@Drawing View76", "DIMENSION", 0.1554246554971, 0.08767789973995, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("RD8@Drawing View76", "DIMENSION", 0.1804734697589, 0.09446195360252, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch boolstatus = Part.Extension.SelectByID("RD7@Drawing View76", "DIMENSION", 0.1862138230272, 0.08741697459139, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1066316527163, 0.128121297768, 166.6350799875, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1003694491509, 0.1792626268858, 166.6350799875, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.123592, 0.0866342, -2.70114e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD7@Drawing View76", "DIMENSION", 0.1862138230272, 0.08741697459139, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("RD8@Drawing View76", "DIMENSION", 0.1225480867785, 0.08611234884858, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("RD3@Drawing View76", "DIMENSION", 0.126983814304, 0.09420102845396, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch boolstatus = Part.Extension.SelectByID("RD8@Drawing View76", "DIMENSION", 0.1228090119271, 0.08767789973995, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2188294665973, 0.1857857555998, 166.6350799875, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2203950174887, 0.1748268993603, 166.6350799875, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.249619, 0.200398, -2.70114e-015) Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("RD3@Drawing View76", "DIMENSION", 0.2618821161098, 0.2006584890666, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"2X", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"2X ", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"2X ", "", 1,"", "", 0 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD9@Drawing View76", "DIMENSION", 0.2373551521451, 0.2074425429292, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch boolstatus = Part.Extension.SelectByID("RD3@Drawing View76", "DIMENSION", 0.2626648915554, 0.2014412645123, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet8", "SHEET", 0.01884202896657, 0.06415793502578, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD9@Drawing View56", "DIMENSION", 0.1627417895232, 0.1646365708259, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD9@Drawing View56", "DIMENSION", 0.1670480167718, 0.1621246049309, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD9@Drawing View56", "DIMENSION", 0.1663303122304, 0.1599714913066, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"2X ", "", 1,"", "(need to choose," & Chr(13) & Chr(10) & _ "not all needed)", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"20X ", "", 1,"", "(need to choose," & Chr(13) & Chr(10) & _ "not all needed)", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"20X ", "", 1,"", "(not all needed)", 0 Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"20X ", "", 1,"", "(not all hneeded)", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"20X ", "", 1,"", "(not all honeeded)", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"20X ", "", 1,"", "(not all holneeded)", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"20X ", "", 1,"", "(not all holeneeded)", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"20X ", "", 1,"", "(not all holesneeded)", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"20X ", "", 1,"", "(not all holes needed)", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"20X ", "", 1,"", "(not all holes mneeded)", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"20X ", "", 1,"", "(not all holes maneeded)", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"20X ", "", 1,"", "(not all holes mayneeded)", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"20X ", "", 1,"", "(not all holes may" & Chr(13) & Chr(10) & _ "needed)", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"20X ", "", 1,"", "(not all holes may" & Chr(13) & Chr(10) & _ "bneeded)", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"20X ", "", 1,"", "(not all holes may" & Chr(13) & Chr(10) & _ "beneeded)", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"20X ", "", 1,"", "(not all holes may" & Chr(13) & Chr(10) & _ "be needed)", 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet8", "SHEET", 0.200780130219, 0.1337752755445, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet8", "SHEET", 0.2126222551526, 0.02611959433001, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD9@Drawing View56", "DIMENSION", 0.1753016189982, 0.1527944458923, 0, False, 0, Nothing) Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"20X ", " ", 1,"", "(not all holes may" & Chr(13) & Chr(10) & _ "be needed)", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"20X ", " t", 1,"", "(not all holes may" & Chr(13) & Chr(10) & _ "be needed)", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"20X ", " th", 1,"", "(not all holes may" & Chr(13) & Chr(10) & _ "be needed)", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"20X ", " thr", 1,"", "(not all holes may" & Chr(13) & Chr(10) & _ "be needed)", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"20X ", " thru", 1,"", "(not all holes may" & Chr(13) & Chr(10) & _ "be needed)", 0 Part.EditSketch boolstatus = Part.Extension.SelectByID("D5@Sketch3@PCBpower-3@Drawing View56", "DIMENSION", 0.04252627883375, 0.1409523209588, 0, False, 0, Nothing) Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"14X ", " ", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"14X ", " t", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"14X ", " th", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"14X ", " thr", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11,"14X ", " thru", 1,"", "", 0 Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet8", "SHEET", 0.05365069922591, 0.1714547639695, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem1@Drawing View56", "NOTE", 0.05867463101591, 0.06523449183792, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Sheet8", "SHEET", 0.04503824472875, 0.06344023048435, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.EditSketch 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.Save2 FALSE Part.PrintDirect Part.PrintDirect Part.PrintDirect Part.EditSketch ' MSGBOX ' Save changes to 120jahaTowfishHousingRevA - Sheet1? ' 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 Set Part = Nothing swApp.CloseDoc "120jahaTowfishHousingRevA - Sheet1" swApp.ExitApp End Sub