' ****************************************************************************** ' swxJRNL.swj - journal recorded on 11/08/04 by jaha ' ***************************************************************************** Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Dim FeatureData As Object Dim Feature As Object Dim Component As Object Sub main() Set swApp = Application.SldWorks Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Compass Housing\166jahaCompassHousing.SLDDRW", 3, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("166jahaCompassHousing - 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 boolstatus = Part.Extension.SelectByID("D1@Sketch7@Housing-Bot-5@Drawing View5", "DIMENSION", 0.03997710796956, 0.2526669063088, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch7@Housing-Bot-5@Drawing View5", "DIMENSION", 0.03963748848688, 0.2530065257914, 0, False, 0, Nothing) Part.Parameter("D1@Sketch7@Housing-Bot.Part").SystemValue = 0.0040386 boolstatus = Part.Extension.SelectByID("D1@Sketch7@Housing-Bot-5@Drawing View5", "DIMENSION", 0.03793939107346, 0.2550442426876, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch7@Housing-Bot-5@Drawing View5", "DIMENSION", 0.04167520538298, 0.2516480478607, 0, False, 0, Nothing) Part.Parameter("D1@Sketch7@Housing-Bot.Part").SystemValue = 0.0051054 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch7@Housing-Bot-5@Drawing View5", "DIMENSION", 0.03454319624661, 0.2530065257914, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.1360894215692, 0.2139502852828, 0.004591116545441, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.1809191932835, 0.2679497830296, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.1799003348355, 0.2679497830296, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Compass Housing\Housing-Bot.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Compass Housing\Housing-Bot.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Housing-Bot.SLDPRT") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Fillet1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08784648393879, -4.23487564376e-005, -0.02873359690523, True, 0, Nothing) Part.ClearSelection2 True Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "Housing-Bot.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("166jahaCompassHousing - Sheet1") boolstatus = Part.Extension.SelectByID("D1@Sketch7@Housing-Bot-5@Drawing View5", "DIMENSION", 0.03959827261767, 0.2488728966549, 0, False, 0, Nothing) Part.Parameter("D1@Sketch7@Housing-Bot.Part").SystemValue = 0.0051054 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"4X ", " thru", 1,"", ".4", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"4X ", " thru", 1,"", ".40", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"4X ", " thru", 1,"", ".400", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch7@Housing-Bot-5@Drawing View5", "DIMENSION", 0.09593337703628, 0.2498910009516, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch7@Housing-Bot-5@Drawing View5", "DIMENSION", 0.09593337703628, 0.2498910009516, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"4X ", " OC", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D7@Sketch1@Housing-Bot-5@Drawing View5", "DIMENSION", 0.1695762544992, 0.2566783629297, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D7@Sketch1@Housing-Bot-5@Drawing View5", "DIMENSION", 0.1719518311915, 0.2570177310286, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 2, 2, 1, 11, 11,"4X R", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("D7@Sketch1@Housing-Bot-5@Drawing View5", "DIMENSION", 0.1750061440817, 0.2553208905341, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.1760242483784, 0.2627869887101, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1303230569948, 0.01891425758697, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD6@Drawing View11", "DIMENSION", 0.06251351739452, 0.230167054034, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 2, 2, 1, 11, 11,"2X R", "", 1,"", "", 0 Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2388835218357, 0.2634198090303, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("RD5@Drawing View11", "DIMENSION", 0.1870483449297, 0.2542916017765, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD5@Drawing View11", "DIMENSION", 0.1850923005181, 0.2549436165803, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View17", "DRAWINGVIEW", 0.1570556639526, 0.04499484974093, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View11", "DRAWINGVIEW", 0.1740080488527, 0.1010681228719, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View11", "DRAWINGVIEW", 0.1740080488527, 0.1010681228719, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.133909138416, 0.01858825018505, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "FACE", 0.2242131887491, 0.04923294596246, -499.8717783022, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Compass Housing\Housing-Top.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Compass Housing\Housing-Top.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Housing-Top.SLDPRT") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("O-Ring Groove", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D2@Sketch6@Housing-Top.SLDPRT", "DIMENSION", 0.02678079376398, 0.01569159020708, 0.07940626736209, False, 0, Nothing) Part.Parameter("D2@Sketch6").SystemValue = 0.0025654 Part.ClearSelection2 True Part.EditRebuild Part.Save2 FALSE Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "Housing-Top.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("166jahaCompassHousing - Sheet2") Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2421435958549, 0.1943062398224, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2036747224278, 0.2660278682457, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD5@Drawing View11", "DIMENSION", 0.194220507772, 0.2568996609919, 0, False, 0, Nothing) Part.EditDimensionProperties2 3, 0.0001524, 0, "", "", 1, 9, 2, 1, 11, 11,"", " -041 O-ring", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem1089@Drawing View11", "SFSYMBOL", 0.181506219097, 0.2451633945226, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem1089@Drawing View11", "SFSYMBOL", 0.1759640932642, 0.2422293279053, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2186710629164, 0.2686359274611, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem1089@Drawing View11", "SFSYMBOL", 0.1883523745374, 0.2464674241303, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem1089@Drawing View11", "SFSYMBOL", 0.1886783819393, 0.2458154093264, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem1089@Drawing View11", "SFSYMBOL", 0.1886783819393, 0.2445113797187, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD1@Drawing View16", "DIMENSION", 0.3076710836417, 0.1669216180607, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2X", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2946307875648, 0.2154967209474, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD1@Drawing View16", "DIMENSION", 0.3044110096225, 0.1665956106588, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2X ", "", 1,"", "", 0 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2943047801628, 0.2529875721688, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.4002571857883, 0.09291793782383, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch4@Housing-Top-9@Drawing View16", "DIMENSION", 0.367004430792, 0.247445446336, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"1/2-20 UNF-2B thru", "", 0,"", "", 0 Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D2@Sketch4@Housing-Top-9@Drawing View16", "DIMENSION", 0.3608102901554, 0.2490754833457, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.4077553560326, 0.2425553353072, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch14@Housing-Top-9@Drawing View16", "DIMENSION", 0.3908029711325, 0.2363611946706, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.4139494966691, 0.2109326173205, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D4@Sketch7@Housing-Top-1@Drawing View11", "DIMENSION", 0.203022707624, 0.1881120991858, 0, False, 0, Nothing) Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2X", "", 1,"", "", 0 Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2X ", "", 1,"", "", 0 Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2421435958549, 0.1845260177646, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("D11@Sketch1@Housing-Top-1@Drawing View11", "DIMENSION", 0.2154109888971, 0.1965882916358, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch7@Housing-Top-1@Drawing View11", "DIMENSION", 0.2056307668394, 0.1887641139896, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("D11@Sketch1@Housing-Top-1@Drawing View11", "DIMENSION", 0.2271472553664, 0.1926762028127, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem985@Drawing View11", "CENTERMARKSYM", 0.02286, 0, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.3562461865285, 0.07857361213916, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1189127979275, 0.1910461658022, -124.9761030185, False, 0, Nothing) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.ConnectionLines = 0 End If Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD4@Drawing View11", "DIMENSION", 0.07066370244264, 0.174093780903, 0, False, 0, Nothing) Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"6X ", "", 1,"", "", 0 Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD1@Drawing View16", "DIMENSION", 0.3014769430052, 0.1652915810511, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"", "", 1,"", "", 0 Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.3529861125093, 0.09454797483346, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD4@Drawing View14", "DIMENSION", 0.3106051502591, 0.09356995262768, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD4@Drawing View14", "DIMENSION", 0.3106051502591, 0.09389596002961, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"R", "", 1,"", "all around", 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.3559201791266, 0.08998387120651, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1319530940044, 0.02217433160622, 0, False, 0, Nothing) 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.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.EditSketch Part.Save2 FALSE Part.PrintDirect Part.EditSketch Part.EditSketch Part.EditSketch Part.PrintDirect Part.EditSketch Part.EditSketch ' MSGBOX ' Save changes to 166jahaCompassHousing - Sheet1? Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "166jahaCompassHousing - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks2004\data\templates\j04.prtdot", 0, 0.000000, 0.000000) Set Part = swApp.ActivateDoc ("Part1") swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ExitApp End Sub