' ****************************************************************************** ' swxJRNL.swj - journal recorded on 06/10/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\Battery Housing\BatteryHousingShop.SLDDRW", 3, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("BatteryHousingShop - 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 boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1084805610659, 0.03456261287935, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem515@Sheet1", "ANNOTATIONTABLES", 0.3526601051073, 0.08900584900074, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem515@Sheet1", "ANNOTATIONTABLES", 0.3415758534419, 0.09487398223538, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem515@Sheet1", "ANNOTATIONTABLES", 0.3448359274611, 0.09552599703923, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1720520044412, 0.02250033900814, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem558@Sheet2", "ANNOTATIONTABLES", 0.337011749815, 0.07205346410067, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem558@Sheet2", "ANNOTATIONTABLES", 0.3373377572169, 0.07205346410067, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem558@Sheet2", "ANNOTATIONTABLES", 0.3275575351591, 0.0671633530718, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.3112571650629, 0.1264967002221, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem558@Sheet2", "ANNOTATIONTABLES", 0.375480623242, 0.06651133826795, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2991948911917, 0.1356249074759, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1238029089563, 0.005221946706144, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1133706720947, 0.02608642042931, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("RD2@Drawing View18", "DIMENSION", 0.1925904707624, 0.03032451665433, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("RD5@Drawing View18", "DIMENSION", 0.1476014492968, 0.05314503478905, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1326051088083, 0.0485809311621, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "FACE", 0.1965025595855, 0.05705712361214, -0.01008421134122, False, 0, Nothing) Dim Note As Object Dim Annotation As Object Dim TextFormat As Object Set Note = Part.InsertNote("This side as is") 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.1365171976314, 0.02804246484086, 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("DetailItem578@Drawing View18", "NOTE", 0.1462974196891, 0.02706444263509, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1404292864545, 0.02641242783124, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.3011509356033, 0.148339196151, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.3207113797187, 0.1708337068838, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1110886202813, 0.02217433160622, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1003303760178, 0.02184832420429, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D1@Sketch4@ConnEnd-5@Drawing View8", "DIMENSION", 0.2444256476684, 0.1639875514434, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch 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.PrintDirect Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3132132094745, 0.1600754626203, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1163047387121, 0.02087030199852, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1143486943005, 0.02347836121392, 0, False, 0, Nothing) Part.Save2 FALSE Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "BatteryHousingShop - Sheet1" Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jaha\My Documents\638jaha\SWfiles\ElkhornMooring\Battery Housing\BatteryHousingSketch.SLDDRW", 3, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("BatteryHousingSketch - 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("Sheet1", "SHEET", 0.1960081309054, 0.2323457046422, 0, False, 0, Nothing) Part.EditSketch swApp.ActiveDoc.ActiveView.FrameState = 1 ' MSGBOX ' Save changes to BatteryHousingSketch - Sheet1? Part.ClearSelection2 True swApp.ExitApp End Sub