' ****************************************************************************** ' swxJRNL.swj - journal recorded on 10/29/04 by keeferc ' ***************************************************************************** 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 ("\\Mpserver0\MARS\110518 MARS MV POWER ELECTRONICS ASSY\110518 SH1 REV XA.SLDDRW", 3, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("110518 SH1 REV XA - 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 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View14", "DRAWINGVIEW", 0.4197581718061, 0.1083062959169, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem349@Drawing View14", "NOTE", 0.4308262129149, 0.09170423425373, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.7490323947926, 0.5067557758334, 0, False, 0, Nothing) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True Part.ViewZoomTo2 0.580245, 0.581465, -4.59123e-015, 0.881849, 0.506756, -4.06954e-015 boolstatus = Part.Extension.SelectByID("Line1695", "SKETCHSEGMENT", 0.6864872515204, 0.5388566653847, 0, False, 0, Nothing) Part.EditDelete Part.ViewZoomTo2 0.719177, 0.539635, -6.50131e-016, 0.853829, 0.51862, -5.03384e-016 Dim Note As Object Dim Annotation As Object Dim TextFormat As Object Set Note = Part.InsertNote("INITIAL RELEASE PER ECO 42485") 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(False, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.7384628370637, 0.5330367415499, 0) boolstatus = Annotation.SetTextFormat(0, True, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("DetailItem364@Sheet Format1", "NOTE", 0.7518411296269, 0.5323417653129, 0, False, 0, Nothing) Part.FontPoints 12 Set Note = Part.InsertNote("A") 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(False, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.7455863434934, 0.5135774069126, 0) boolstatus = Annotation.SetTextFormat(0, True, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw Set Note = Part.InsertNote("29 OCT 04") 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(False, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.7469762959675, 0.505932668305, 0) boolstatus = Annotation.SetTextFormat(0, True, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw Set Note = Part.InsertNote("KEEFER") 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(False, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.7483662484416, 0.4989829059346, 0) boolstatus = Annotation.SetTextFormat(0, True, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw boolstatus = Part.Extension.SelectByID("DetailItem367@Sheet Format1", "NOTE", 0.7501036890342, 0.4972454653419, 0, False, 0, Nothing) Part.FontPoints 12 boolstatus = Part.Extension.SelectByID("DetailItem366@Sheet Format1", "NOTE", 0.7556634989306, 0.501241578705, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem365@Sheet Format1", "NOTE", 0.746628807849, 0.5113187341422, 0, True, 0, Nothing) Part.FontPoints 12 boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.7726904167383, 0.494639304453, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem367@Sheet Format1", "NOTE", 0.7577484276418, 0.4967242331642, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line59", "SKETCHSEGMENT", 0.8277672835244, 0.5297356044239, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem366@Sheet Format1", "NOTE", 0.7516673855676, 0.5050639480087, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line59", "SKETCHSEGMENT", 0.8145627350204, 0.523828306409, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem366@Sheet Format1", "NOTE", 0.8246398904576, 0.531125556898, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem75@Sheet Format1", "NOTE", 0.830199700354, 0.5356429024388, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line58", "SKETCHSEGMENT", 0.8357595102504, 0.5255657470016, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem367@Sheet Format1", "NOTE", 0.8420142963838, 0.5314730450166, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem365@Sheet Format1", "NOTE", 0.7478450162638, 0.5113187341422, 0, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem368@Sheet Format1", "NOTE", 0.7422852063675, 0.5216042579505, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem364@Sheet Format1", "NOTE", 0.7436751588415, 0.531125556898, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem364@Sheet Format1", "NOTE", 0.7440226469601, 0.531125556898, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem369@Sheet Format1", "NOTE", 0.8357595102504, 0.5405077360982, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem366@Sheet Format1", "NOTE", 0.8239449142206, 0.5307780687795, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem369@Sheet Format1", "NOTE", 0.8406243439097, 0.5321680212536, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.8263773310503, 0.5123611984977, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line1694", "SKETCHSEGMENT", 0.8308946765911, 0.007460962282374, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("DetailItem234@Sheet Format1", "NOTE", 0.6797373450331, 0.03630247611987, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem171@Sheet Format1", "NOTE", 0.7085788588706, 0.03630247611987, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem170@Sheet Format1", "NOTE", 0.7120537400559, 0.01580067712695, 0, False, 0, Nothing) Part.ViewZoomtofit2 boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.4114571409745, 0.4140609315473, 0, False, 0, Nothing) Part.EditSheet Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SaveAs2 "E:\ARCHIVES\CM_DOCS\MARS\DRAWINGS\110518 REV A MV POWER ELECTRONICS ASSEMBLY\110518 SH1 REV A.SLDDRW", 0, FALSE, FALSE 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 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ExitApp End Sub