' ******************************************************************************
' swxJRNL.swj - journal recorded on 11/02/04 by fejo
' *****************************************************************************
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\fejo\Desktop\36600 ZEHPYR\zephyr dive platform\back plate 2.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("back plate 2 - Sheet1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3426201674027, 0.05162455102271, 0, False, 0, Nothing)
Part.EditTemplate
Part.EditSketch
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3307229320508, 0.07393186730754, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3283859751067, 0.06415913826847, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.2595519705706, 0.1013379987432, 0, False, 0, Nothing)
Part.EditSheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.ActiveView().TranslateBy 0.000412416, 0
Part.ActiveView().TranslateBy 0.00329933, -0.00123725
Part.ActiveView().TranslateBy 0.0160842, -0.00783591
Part.ActiveView().TranslateBy 0.0350554, -0.0144346
Part.ActiveView().TranslateBy 0.0321685, -0.0189712
Part.ActiveView().TranslateBy 0.0255698, -0.0173215
Part.ActiveView().TranslateBy 0.00206208, -0.00329933
Part.ActiveView().TranslateBy 0.00412416, -0.00618625
Part.ActiveView().TranslateBy 0.0024745, -0.0024745
Part.ActiveView().TranslateBy 0.000412416, 0
Part.ActiveView().TranslateBy -0.000412416, 0
Part.ActiveView().TranslateBy -0.00701108, -0.000412416
Part.ActiveView().TranslateBy -0.00536141, 0
Part.ActiveView().TranslateBy -0.0024745, 0
Part.ActiveView().TranslateBy -0.00329933, 0
Part.ActiveView().TranslateBy -0.004949, 0
Part.ActiveView().TranslateBy -0.00123725, 0
Part.ActiveView().TranslateBy 0, 0.000412416
Part.ActiveView().TranslateBy -0.000824833, 0.000824833
Part.ActiveView().TranslateBy -0.00206208, 0.00412416
Part.ActiveView().TranslateBy -0.00412416, 0.004949
Part.ActiveView().TranslateBy -0.004949, 0.00288691
Part.ActiveView().TranslateBy -0.004949, 0.0024745
Part.ActiveView().TranslateBy -0.00536141, 0.00288691
Part.ActiveView().TranslateBy -0.0103104, 0.004949
Part.ActiveView().TranslateBy -0.00371175, 0.00164967
Part.ActiveView().TranslateBy -0.000824833, 0.00123725
Part.ActiveView().TranslateBy -0.00536141, 0.00907316
Part.ActiveView().TranslateBy -0.00783591, 0.0136097
Part.ActiveView().TranslateBy -0.000824833, 0.000412416
Part.ActiveView().TranslateBy -0.000412416, 0.00164967
Part.ActiveView().TranslateBy -0.0024745, 0.004949
Part.ActiveView().TranslateBy -0.00123725, 0.00164967
Part.ActiveView().TranslateBy -0.00123725, 0.00164967
Part.ActiveView().TranslateBy -0.00371175, 0.00577383
Part.ActiveView().TranslateBy -0.00288691, 0.00577383
Part.ActiveView().TranslateBy -0.0024745, 0.004949
Part.ActiveView().TranslateBy -0.000824833, 0.000824833
Part.ActiveView().TranslateBy -0.000412416, 0.00164967
Part.EditSketch
Part.ActiveView().TranslateBy -0.000824833, 0
Part.ActiveView().TranslateBy -0.00536141, -0.00123725
Part.ActiveView().TranslateBy -0.0131973, -0.00123725
Part.ActiveView().TranslateBy -0.00866074, 0
Part.ActiveView().TranslateBy -0.00412416, 0.000412416
Part.ActiveView().TranslateBy -0.00536141, 0
Part.ActiveView().TranslateBy -0.00123725, 0
Part.ActiveView().TranslateBy -0.000412416, 0
Part.ActiveView().TranslateBy -0.0103104, -0.00453658
Part.ActiveView().TranslateBy -0.00618625, -0.00206208
Part.ActiveView().TranslateBy -0.000824833, 0
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2641116350262, 0.06879463352306, 0, False, 0, Nothing)
Part.EditTemplate
Part.EditSketch
Part.ClearSelection2 True
Part.ActiveView().TranslateBy -0.000412416, 0.000412416
Part.ActiveView().TranslateBy -0.00329933, 0.00164967
Part.ActiveView().TranslateBy -0.00659866, 0.00164967
Part.ActiveView().TranslateBy -0.0024745, 0.00123725
Part.ActiveView().TranslateBy -0.0152594, 0.00329933
Part.ActiveView().TranslateBy -0.0164967, 0.00329933
Part.ActiveView().TranslateBy -0.0115477, 0.00288691
Part.ActiveView().TranslateBy -0.00907316, 0.00206208
Part.ActiveView().TranslateBy -0.00659866, 0.0024745
Part.ActiveView().TranslateBy -0.004949, 0.00164967
Part.ActiveView().TranslateBy -0.00206208, 0.000412416
Part.ActiveView().TranslateBy -0.0131973, 0.00412416
Part.ActiveView().TranslateBy -0.014847, 0.00206208
Part.ActiveView().TranslateBy -0.00824833, 0.00123725
Part.ActiveView().TranslateBy -0.000824833, 0.000412416
boolstatus = Part.Extension.SelectByID("DetailItem22@Sheet Format1", "NOTE", 0.3858957760567, 0.02467776892092, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem22@Sheet Format1", "NOTE", 0.3792324256692, 0.02576813534795, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem1@Sheet Format1", "NOTE", 0.3345274021609, 0.0410332653264, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3690556723503, 0.07265389171033, 0, False, 0, Nothing)
Part.EditSheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
swApp.ActiveDoc.ActiveView.FrameState = 1
' MSGBOX
' Save changes to back plate 2 - Sheet1?

swApp.ExitApp
End Sub