' ******************************************************************************
' swxJRNL.swj - journal recorded on 08/19/03 by fejo
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc4 ("C:\bb monument john f\lift bar 2\lift bar Assem.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("lift bar Assem")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0, 0.00430189
Part.ActiveView().RotateAboutCenter -0.102288, 0
Part.ActiveView().RotateAboutCenter -0.0527936, -0.00430189
Part.ActiveView().RotateAboutCenter -0.0527936, 0.00860378
Part.ActiveView().RotateAboutCenter -0.065992, 0.00430189
Part.ActiveView().RotateAboutCenter -0.122085, 0.00430189
Part.ActiveView().RotateAboutCenter -0.032996, -0.00430189
Part.ActiveView().RotateAboutCenter 0.0032996, 0.00860378
Part.ActiveView().RotateAboutCenter 0.0230972, 0.0215095
Part.ActiveView().RotateAboutCenter -0.00989881, 0.0817359
Part.ActiveView().RotateAboutCenter -0.0032996, 0.0473208
Part.ActiveView().RotateAboutCenter -0.0032996, 0.0301132
Part.ActiveView().RotateAboutCenter 0.0131984, 0.0602265
Part.ActiveView().RotateAboutCenter 0.0263968, 0.0559246
Part.ActiveView().RotateAboutCenter 0.00989881, 0.0129057
Part.ActiveView().RotateAboutCenter 0.0362956, 0.0129057
Part.ActiveView().RotateAboutCenter 0.0263968, 0.00860378
Part.ActiveView().RotateAboutCenter 0.00989881, 0.00430189
Part.ActiveView().RotateAboutCenter 0.0395952, 0.0301132
Part.ActiveView().RotateAboutCenter 0.0362956, 0.038717
Part.ActiveView().RotateAboutCenter 0.00989881, 0.00860378
Part.ActiveView().RotateAboutCenter 0, -0.00430189
Part.ActiveView().RotateAboutCenter 0, -0.0129057
Part.ActiveView().RotateAboutCenter -0.0032996, 0.0129057
Part.ActiveView().RotateAboutCenter -0.00989881, 0.0344151
Part.ActiveView().RotateAboutCenter -0.032996, 0.0473208
Part.ActiveView().RotateAboutCenter -0.148482, 0.038717
Part.ActiveView().RotateAboutCenter -0.105587, -0.0172076
Part.ActiveView().RotateAboutCenter -0.204575, -0.0817359
Part.ActiveView().RotateAboutCenter -0.0890892, -0.0903397
Part.ActiveView().RotateAboutCenter -0.0032996, -0.00860378
Part.ActiveView().RotateAboutCenter 0.0296964, -0.0473208
Part.ActiveView().RotateAboutCenter 0.0593928, -0.0903397
Part.ActiveView().RotateAboutCenter 0.145182, -0.197887
Part.ActiveView().RotateAboutCenter 0.151782, -0.111849
Part.ActiveView().RotateAboutCenter 0.0626924, -0.0301132
Part.ActiveView().RotateAboutCenter 0.065992, 0.00860378
Part.ActiveView().RotateAboutCenter 0.171579, 0.0258113
Part.ActiveView().RotateAboutCenter 0.197976, 0.0344151
Part.ActiveView().RotateAboutCenter 0.0197976, 0.00860378
Part.ActiveView().RotateAboutCenter 0.0230972, 0.0172076
Part.ActiveView().RotateAboutCenter 0.049494, 0.0344151
Part.ActiveView().RotateAboutCenter 0.08249, 0.0344151
Part.ActiveView().RotateAboutCenter 0.0296964, 0.00860378
Part.ActiveView().RotateAboutCenter 0.0296964, 0.00430189
Part.ActiveView().RotateAboutCenter 0, -0.00430189
Part.ActiveView().RotateAboutCenter 0.0032996, -0.0129057
Part.ActiveView().RotateAboutCenter 0, -0.00430189
Part.ActiveView().RotateAboutCenter 0.0428948, -0.0129057
Part.ActiveView().RotateAboutCenter 0.0197976, -0.00430189
Part.ActiveView().RotateAboutCenter 0.0032996, -0.00430189
Part.ActiveView().RotateAboutCenter 0, -0.00430189
Part.ActiveView().RotateAboutCenter 0, -0.00430189
Part.ActiveView().RotateAboutCenter -0.0032996, 0.0129057
Part.ActiveView().RotateAboutCenter 0, 0.00860378
Part.ActiveView().RotateAboutCenter -0.0296964, 0.00430189
Part.ActiveView().RotateAboutCenter -0.0461944, -0.0129057
Part.ActiveView().RotateAboutCenter -0.0362956, -0.0129057
Part.ActiveView().RotateAboutCenter -0.128684, -0.0129057
Part.ActiveView().RotateAboutCenter -0.0527936, 0
Part.ActiveView().RotateAboutCenter -0.00989881, 0.00430189
Part.ActiveView().RotateAboutCenter -0.0032996, 0
Part.ActiveView().RotateAboutCenter -0.0032996, -0.0129057
Part.ActiveView().RotateAboutCenter 0, -0.0645284
Part.ActiveView().RotateAboutCenter -0.0065992, -0.0989435
Part.ActiveView().RotateAboutCenter -0.0461944, -0.0817359
Part.ActiveView().RotateAboutCenter -0.049494, -0.0602265
Part.ActiveView().RotateAboutCenter -0.049494, -0.0172076
Part.ActiveView().RotateAboutCenter -0.0560932, 0.00430189
Part.ActiveView().RotateAboutCenter -0.0725912, 0.0430189
Part.ActiveView().RotateAboutCenter -0.0527936, 0.0688303
Part.ActiveView().RotateAboutCenter -0.0527936, 0.240906
Part.ActiveView().RotateAboutCenter -0.0362956, 0.163472
Part.ActiveView().RotateAboutCenter 0, 0.00430189
Part.ActiveView().RotateAboutCenter -0.0032996, 0
Part.ActiveView().RotateAboutCenter 0.0032996, 0
Part.ActiveView().RotateAboutCenter 0.00989881, -0.0129057
Part.ActiveView().RotateAboutCenter 0.0362956, -0.0430189
Part.ActiveView().RotateAboutCenter 0.0758908, -0.206491
Part.ActiveView().RotateAboutCenter 0.0527936, -0.0645284
Part.ActiveView().RotateAboutCenter 0.032996, -0.0258113
Part.ActiveView().RotateAboutCenter 0.00989881, -0.00430189
Part.ActiveView().RotateAboutCenter 0.0428948, 0
Part.ActiveView().RotateAboutCenter 0.0230972, -0.00430189
Part.ActiveView().RotateAboutCenter -0.0131984, 0
Part.ActiveView().RotateAboutCenter -0.0560932, -0.00860378
Part.ActiveView().RotateAboutCenter -0.102288, -0.0172076
Part.ActiveView().RotateAboutCenter -0.0527936, -0.00430189
Part.ActiveView().RotateAboutCenter -0.0065992, 0.00430189
Part.ActiveView().RotateAboutCenter -0.0032996, 0
Part.ActiveView().RotateAboutCenter 0, 0.00860378
Part.ActiveView().RotateAboutCenter 0.0296964, 0.0516227
Part.ActiveView().RotateAboutCenter 0.065992, 0.0516227
Part.ActiveView().RotateAboutCenter 0.0692916, 0.0301132
Part.ActiveView().RotateAboutCenter 0.0758908, 0.00430189
Part.ActiveView().RotateAboutCenter 0.0461944, 0.00430189
Part.ActiveView().RotateAboutCenter 0.0362956, 0.00860378
Part.ActiveView().RotateAboutCenter 0.00989881, 0.00430189
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub