' ****************************************************************************** ' swxJRNL.swj - journal recorded on 07/07/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\ISUSs\ISUS Flowcell\C Tech 2-4cm &Equitech Flowcell.SLDDRW", 3, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("C Tech 2-4cm &Equitech Flowcell - Sheet1") 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\jaha\My Documents\638jaha\SWfiles\ISUSs\ISUS Flowcell\C Tech 2-4cm &Equitech Flowcell.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\ISUS Flowcell\C Tech 2-4cm &Equitech Flowcell.SLDDRW", 3, 0, "", longstatus, longwarnings) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD5@Drawing View67", "DIMENSION", 0.03859310740554, 0.06006054991057, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 4, 1, 1, 11, 11,"", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("RD5@Drawing View67", "DIMENSION", 0.04281567487184, 0.05814120106225, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.08657682861359, 0.1452796387778, 249.953436923, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.0002061304390936, 0.09384108964104, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View67", "DRAWINGVIEW", 0.05010920049547, 0.1245506712142, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View67", "DRAWINGVIEW", 0.05010920049547, 0.1245506712142, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\ISUS Flowcell\c tech Flowcell.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\ISUS Flowcell\c tech Flowcell.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("c tech Flowcell.SLDPRT") Part.ClearSelection2 True Part.ViewDisplayHiddengreyed Part.ViewDisplayWireframe boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Connection", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Body", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude5", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude6", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude6", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Sketch28@c tech Flowcell.SLDPRT", "DIMENSION", 0.01969958473228, -0.02471287111678, -0.0134027371135, False, 0, Nothing) Part.Parameter("D1@Sketch28").SystemValue = 0.0079375 Part.ClearSelection2 True ' MSGBOX ' C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\ISUS Flowcell\c tech Flowcell.SLDPRT has not been rebuilt successfully since the last feature change or an externally referenced model has changed. ' It is safest to rebuild before saving. ' Rebuild now? Part.Save2 FALSE Part.Save2 FALSE boolstatus = Part.Extension.SelectByID("Chamfer1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "c tech Flowcell.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("C Tech 2-4cm &Equitech Flowcell - Sheet3") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2084401074262, 0.02748474024628, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("RD5@Drawing View67", "DIMENSION", 0.04235630969942, 0.06008779522729, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD5@Drawing View67", "DIMENSION", 0.04235630969942, 0.06008779522729, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View67", "DRAWINGVIEW", 0.0504111821065, 0.1199239902513, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View67", "DRAWINGVIEW", 0.04964405140106, 0.1252939051893, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\ISUS Flowcell\c tech Flowcell.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\ISUS Flowcell\c tech Flowcell.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("c tech Flowcell.SLDPRT") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude6", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Cut-Extrude6", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "c tech Flowcell.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("C Tech 2-4cm &Equitech Flowcell - Sheet3") Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD5@Drawing View67", "DIMENSION", 0.0461919632266, 0.06123849128544, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08378136779295, 0.09767719979538, 249.953436923, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.09874041654894, 0.1011292879698, 249.953436923, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0415892, 0.0597042, 0) Part.ClearSelection2 True Part.ClearSelection2 True Part.EditUndo 1 Part.EditUndo 1 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.03506856799778, 0.02825187095171, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD5@Drawing View67", "DIMENSION", 0.04120561364127, 0.05932066452185, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View67", "DRAWINGVIEW", 0.1324941675881, 0.1183897288404, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View67", "DRAWINGVIEW", 0.1317270368827, 0.122992513073, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\ISUS Flowcell\c tech Flowcell.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\ISUS Flowcell\c tech Flowcell.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("c tech Flowcell.SLDPRT") Part.ClearSelection2 True Part.ViewDisplayShadedWithEdges swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID("", "EDGE", 0.002922749401193, -0.03150352618303, 0.002709443484441, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.003493987755206, -0.03682999999995, 0.007897231605497, False, 0, Nothing) Part.EditRebuild Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("C Tech 2-4cm &Equitech Flowcell - Sheet3") Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.0834182402693, 0.0877774438687, 249.953436923, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.09916890804821, 0.08760243644894, 249.953436923, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0400164, 0.0657265, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD6@Drawing View67", "DIMENSION", 0.03879134822908, 0.0652014867172, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD6@Drawing View67", "DIMENSION", 0.03879134822908, 0.0657265089765, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 4, 1, 1, 11, 11,"", "", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD6@Drawing View67", "DIMENSION", 0.03581622209307, 0.0657265089765, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("RD5@Drawing View67", "DIMENSION", 0.04701669695806, 0.05820118992658, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 1, 1, 11, 11,"", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("RD5@Drawing View67", "DIMENSION", 0.04159146694533, 0.05925123444517, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08865734148138, 0.2108869096627, 249.95389, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0521828, 0.194029, 0) Part.ClearSelection2 True Part.EditDelete Part.EditSketch Part.EditSketch Part.SetPickMode boolstatus = Part.Extension.SelectByID("Drawing View46", "DRAWINGVIEW", 0.06747454714901, 0.1768656068687, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View46", "DRAWINGVIEW", 0.05706459313407, 0.1768656068687, 0, False, 0, Nothing) Part.ViewPropertySheet Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View67", "DRAWINGVIEW", 0.132336568319, 0.1324231108818, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View67", "DRAWINGVIEW", 0.132336568319, 0.1324231108818, 0, False, 0, Nothing) Part.ViewPropertySheet Part.EditSketch Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View67", "DRAWINGVIEW", 0.1319361854723, 0.09839056890991, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\ISUS Flowcell\c tech Flowcell.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\ISUS Flowcell\c tech Flowcell.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("c tech Flowcell.SLDPRT") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch28", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude6", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Sketch28@c tech Flowcell.SLDPRT", "DIMENSION", 0.01676319618395, -0.02917345008751, -0.03509049728476, False, 0, Nothing) Part.EditRebuild Part.ClearSelection2 True ' MSGBOX ' Save changes to c tech Flowcell.SLDPRT? Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "c tech Flowcell.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("C Tech 2-4cm &Equitech Flowcell - Sheet3") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View67", "DRAWINGVIEW", 0.1319361854723, 0.1264173681809, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View67", "DRAWINGVIEW", 0.1319361854723, 0.1264173681809, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\ISUS Flowcell\c tech Flowcell.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\ISUS Flowcell\c tech Flowcell.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("c tech Flowcell.SLDPRT") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Chamfer1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Chamfer1@c tech Flowcell.SLDPRT", "DIMENSION", 0.01250078738638, -0.01136286847795, -0.0242356513847, False, 0, Nothing) Part.EditRebuild Part.ClearSelection2 True Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "c tech Flowcell.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("C Tech 2-4cm &Equitech Flowcell - Sheet3") Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View67", "DRAWINGVIEW", 0.1327369511658, 0.1104020543118, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\ISUS Flowcell\c tech Flowcell.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\ISUS Flowcell\c tech Flowcell.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("c tech Flowcell.SLDPRT") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Chamfer1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Chamfer1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Chamfer1@c tech Flowcell.SLDPRT", "DIMENSION", 0.01153724854122, -0.01159166721269, -0.02457866386801, False, 0, Nothing) Part.Parameter("D1@Chamfer1").SystemValue = 0.0009906 ' MSGBOX ' C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ISUSs\ISUS Flowcell\c tech Flowcell.SLDPRT has not been rebuilt successfully since the last feature change or an externally referenced model has changed. ' It is safest to rebuild before saving. ' Rebuild now? Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("C Tech 2-4cm &Equitech Flowcell - Sheet3") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1539572420424, 0.02992510211933, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("RD3@Drawing View67", "DIMENSION", 0.09069675225926, 0.03312816489316, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 0, 1, 1, 11, 11,"", "", 1,"", "", 0 Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.155959156276, 0.02431974226513, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1643671960573, 0.01711285102401, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("RD3@Drawing View67", "DIMENSION", 0.08949560371908, 0.0323273991997, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD3@Drawing View67", "DIMENSION", 0.08989598656581, 0.0323273991997, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1747771500723, 0.0267220393455, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1711737044517, 0.03713199336044, 0, False, 0, Nothing) Part.ClearSelection2 True 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.EditSketch 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 Part.EditSketch Part.EditSketch Part.PrintDirect Part.EditSketch Part.EditSketch Part.EditSketch Set Part = Nothing swApp.CloseDoc "C Tech 2-4cm &Equitech Flowcell - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("c tech Flowcell.SLDPRT") Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "c tech Flowcell.SLDPRT" swApp.ExitApp End Sub