' ****************************************************************************** ' swxJRNL.swj - journal recorded on 12/09/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\YSIforElkMoor\168jahaYSI9600mold.SLDDRW", 3, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("168jahaYSI9600mold - 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("Sheet1", "SHEET", 0.2793309494658, 0.09082393114258, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD3@Drawing View4", "DIMENSION", 0.0462518609561, 0.04294822647573, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD3@Drawing View4", "DIMENSION", 0.1164905592502, 0.1109821225813, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD3@Drawing View4", "DIMENSION", 0.1164905592502, 0.1116120660637, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.1218450788511, 0.1062575464628, 0.01258965300116, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.09507248084665, 0.09302873333119, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch 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(True, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.08719818731592, 0.08074483542324, 0) boolstatus = Annotation.SetTextFormat(0, True, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Note = Part.InsertNote("""RD3@Drawing View4""") 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(True, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.08719818731592, 0.08074483542324, 0) boolstatus = Annotation.SetTextFormat(0, True, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem1257@Drawing View4", "NOTE", 0.09223773517559, 0.07979992019956, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem1257@Drawing View4", "NOTE", 0.0912928199519, 0.07948494845833, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem1257@Drawing View4", "NOTE", 0.09696231129403, 0.09145387462504, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem1257@Drawing View4", "NOTE", 0.08688321557469, 0.08105980716447, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem1257@Drawing View4", "NOTE", 0.0934976221405, 0.106572518204, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem1257@Drawing View4", "NOTE", 0.08877304602206, 0.07066573970391, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem1257@Drawing View4", "NOTE", 0.09097784821067, 0.07129568318636, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.08656824383346, 0.06783099403284, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem1257@Drawing View4", "NOTE", 0.09066287646944, 0.06909088099776, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem1257@Drawing View4", "NOTE", 0.08719818731592, 0.0684609375153, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.07932389378518, 0.08042986368201, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.09412756562296, 0.09586347900225, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2062575055006, 0.02341997851951, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0.2147617425138, 0.06342138965563, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.223265979527, 0.06279144617317, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem1255@Drawing View6", "NOTE", 0.2133612357863, 0.0579255724999, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2100510549889, 0.05505674914214, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem1248@Drawing View7", "NOTE", 0.1353513083271, 0.03045107188132, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View7", "DRAWINGVIEW", 0.1372270774456, 0.03354057395891, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.1376684348853, 0.03596803987702, 0.01587499999999, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.1372270774456, 0.03696109411624, 0.01587499999999, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Line18", "SKETCHSEGMENT", 0.1368960593659, 0.064214916015, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.1467162623982, 0.06388389793526, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2042030689134, 0.0413746685128, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View7", "DIMENSION", 0.1767285682949, 0.05958066289861, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View7", "DIMENSION", 0.1761768714953, 0.05461539170248, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD1@Drawing View7", "DIMENSION", 0.1780526406138, 0.05340165874343, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD1@Drawing View7", "DIMENSION", 0.1743011023768, 0.06057371713784, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"R", " ", 1,"", "all around", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"R", " t", 1,"", "all around", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"R", " ty", 1,"", "all around", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11,"R", " typ", 1,"", "all around", 0 Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.200892888116, 0.03828516643521, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("RD3@Drawing View7", "DIMENSION", 0.1766182289349, 0.03530600371753, 0, False, 0, Nothing) Part.EditDelete Part.EditUndo 1 boolstatus = Part.Extension.SelectByID("RD3@Drawing View7", "DIMENSION", 0.1736390662173, 0.03486464627788, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD3@Drawing View7", "DIMENSION", 0.1750734778962, 0.03497498563779, 0, False, 0, Nothing) Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"R", " ", 1,"", "all around", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"R", " t", 1,"", "all around", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"R", " ty", 1,"", "all around", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"R", " typ", 1,"", "all around", 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2089476613898, 0.04258840147186, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View7", "DIMENSION", 0.1827972330901, 0.05273962258395, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch boolstatus = Part.Extension.SelectByID("RD3@Drawing View7", "DIMENSION", 0.1807007852518, 0.03982991747401, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1933898116419, 0.05196724706455, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.189417594685, 0.05020181730592, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.189417594685, 0.05020181730592, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3172605618221, 0.08279478101671, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.316968297772, 0.08396383721711, 0, False, 0, Nothing) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem1@Sheet Format1", "NOTE", 0.3339196126778, 0.0417316819777, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem84@Sheet Format1", "NOTE", 0.3435643263311, 0.04187781400275, 0, True, 0, Nothing) Part.EditCopy boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3350886688782, 0.03179470427431, 0, False, 0, Nothing) Part.Paste boolstatus = Part.Extension.SelectByID("DetailItem1259@Sheet Format1", "NOTE", 0.3346502728031, 0.03179470427431, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem1259@Sheet Format1", "NOTE", 0.3355270649534, 0.03208696832441, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem1258@Sheet Format1", "NOTE", 0.3431259302559, 0.03194083629936, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem1258@Sheet Format1", "NOTE", 0.3429797982309, 0.03179470427431, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem1259@Sheet Format1", "NOTE", 0.3336273486277, 0.03281762844966, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3479482870826, 0.006659995965729, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.2927103816137, 0.09755411554675, 0, False, 0, Nothing) Part.EditSheet Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2981172665406, 0.08864006201871, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.EditSketch Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.03548436444444, 0.2383902888889, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.03548436444444, 0.2455677644444, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.03548436444444, 0.2455677644444, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.03548436444444, 0.2455677644444, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.03548436444444, 0.2455677644444, 0, False, 0, Nothing) Part.Save2 FALSE Part.EditSketch Part.PrintDirect Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.PrintDirect Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch ' MSGBOX ' Save changes to 168jahaYSI9600mold - Sheet1? Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "168jahaYSI9600mold - Sheet1"