' ******************************************************************************
' swxJRNL.swj - journal recorded on 03/06/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 ("D:\Work In Progress\LRS Laser Invector\Assem1.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Assem1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter -0.00648882, -0.00860378
Part.ActiveView().RotateAboutCenter -0.0551549, -0.107547
Part.ActiveView().RotateAboutCenter -0.0194665, -0.077434
Part.ActiveView().RotateAboutCenter 0.0194665, -0.0731322
Part.ActiveView().RotateAboutCenter 0.0551549, -0.0903397
Part.ActiveView().RotateAboutCenter 0.0486661, -0.0817359
Part.ActiveView().RotateAboutCenter 0.0519105, -0.516227
Part.ActiveView().RotateAboutCenter 0.0324441, -0.464604
Part.ActiveView().RotateAboutCenter 0.0356885, -0.31834
Part.ActiveView().RotateAboutCenter 0.0811102, -0.395774
Part.ActiveView().RotateAboutCenter 0.0778658, -0.245208
Part.ActiveView().RotateAboutCenter 0.120043, -0.0731322
Part.ActiveView().RotateAboutCenter 0.171954, -0.0258113
Part.ActiveView().RotateAboutCenter 0.0746214, -0.038717
Part.ActiveView().RotateAboutCenter 0.0486661, -0.0860378
Part.ActiveView().RotateAboutCenter 0.016222, -0.0645284
Part.ActiveView().RotateAboutCenter -0.0356885, -0.245208
Part.ActiveView().RotateAboutCenter -0.145998, -0.0473208
Part.ActiveView().RotateAboutCenter -0.152487, 0.0172076
Part.ActiveView().RotateAboutCenter -0.13951, 0.00860378
Part.ActiveView().RotateAboutCenter -0.0746214, -0.00430189
Part.ActiveView().RotateAboutCenter -0.0389329, -0.0516227
Part.ActiveView().RotateAboutCenter 0.0486661, -0.124755
Part.ActiveView().RotateAboutCenter 0.0291997, -0.0559246
Part.ActiveView().RotateAboutCenter -0.0648882, 0
Part.ActiveView().RotateAboutCenter -0.214131, 0.0645284
Part.ActiveView().RotateAboutCenter -0.116799, 0.481812
Part.ActiveView().RotateAboutCenter -0.0194665, 0.524831
Part.ActiveView().RotateAboutCenter -0.0227109, 0.352755
Part.ActiveView().RotateAboutCenter -0.0291997, 0.0645284
Part.ActiveView().RotateAboutCenter -0.0746214, 0.077434
Part.ActiveView().RotateAboutCenter -0.0811102, -0.0215095
Part.ActiveView().RotateAboutCenter -0.0811102, -0.120453
Part.ActiveView().RotateAboutCenter -0.00973323, -0.430189
Part.ActiveView().RotateAboutCenter 0.0356885, -0.456001
Part.ActiveView().RotateAboutCenter 0.107065, -0.524831
Part.ActiveView().RotateAboutCenter 0.356885, -0.236604
Part.ActiveView().RotateAboutCenter 0.291997, -0.00430189
Part.ActiveView().RotateAboutCenter 0.0778658, 0.0602265
Part.ActiveView().RotateAboutCenter 0.0291997, 0.0946416
Part.ActiveView().RotateAboutCenter 0.00648882, 0.0602265
Part.ActiveView().RotateAboutCenter 0.0129776, 0.0817359
Part.ActiveView().RotateAboutCenter -0.0129776, 0
Part.ActiveView().RotateAboutCenter -0.201153, 0.0430189
Part.ActiveView().RotateAboutCenter -0.0421773, 0.137661
Part.ActiveView().RotateAboutCenter -0.0324441, 0.172076
Part.ActiveView().RotateAboutCenter -0.00648882, 0.24951
Part.ActiveView().RotateAboutCenter 0.0811102, 0.240906
Part.ActiveView().RotateAboutCenter 0.207642, 0.0559246
Part.ActiveView().RotateAboutCenter 0.0843546, -0.0258113
Part.ActiveView().RotateAboutCenter 0.0583994, -0.283925
Part.ActiveView().RotateAboutCenter 0.0291997, -0.258113
Part.ActiveView().RotateAboutCenter -0.0324441, -0.0989435
Part.ActiveView().RotateAboutCenter -0.0519105, -0.0645284
Part.ActiveView().RotateAboutCenter -0.0421773, -0.0172076
Part.ActiveView().RotateAboutCenter -0.0324441, -0.0129057
Part.ActiveView().RotateAboutCenter -0.0389329, -0.00860378
Part.ActiveView().RotateAboutCenter -0.071377, 0
Part.ActiveView().RotateAboutCenter -0.0551549, 0.180679
Part.ActiveView().RotateAboutCenter -0.103821, 0.266717
Part.ActiveView().RotateAboutCenter -0.016222, 0
Part.ActiveView().RotateAboutCenter -0.0389329, -0.124755
Part.ActiveView().RotateAboutCenter 0.0194665, -0.378566
Part.ActiveView().RotateAboutCenter 0.0486661, -0.0903397
Part.ActiveView().RotateAboutCenter 0.285508, -0.215095
Part.ActiveView().RotateAboutCenter 0.0486661, 0.0129057
Part.ActiveView().RotateAboutCenter 0.0227109, 0.0516227
Part.ActiveView().RotateAboutCenter 0.107065, 0.245208
Part.ActiveView().RotateAboutCenter 0.00324441, 0.00860378
Part.ActiveView().RotateAboutCenter -0.00648882, 0.0258113
Part.ActiveView().RotateAboutCenter -0.0519105, 0.0344151
Part.ActiveView().RotateAboutCenter -0.0778658, 0.0129057
Part.ActiveView().RotateAboutCenter -0.0259553, -0.0172076
Part.ActiveView().RotateAboutCenter -0.00324441, 0
Part.ActiveView().RotateAboutCenter -0.00324441, -0.00430189
Part.ActiveView().RotateAboutCenter 0.00648882, -0.00430189
Part.ActiveView().RotateAboutCenter 0.0389329, -0.116151
Part.ActiveView().RotateAboutCenter 0.00324441, -0.0215095
Part.ActiveView().RotateAboutCenter -0.00648882, -0.0172076
Part.ActiveView().RotateAboutCenter -0.0648882, -0.0731322
Part.ActiveView().RotateAboutCenter -0.0421773, 0.0215095
Part.ActiveView().RotateAboutCenter -0.0648882, 0.146264
Part.ActiveView().RotateAboutCenter -0.00324441, 0.038717
Part.ActiveView().RotateAboutCenter 0.016222, 0.0602265
Part.ActiveView().RotateAboutCenter 0.0259553, 0.0473208
Part.ActiveView().RotateAboutCenter 0.00324441, -0.00430189
Part.ActiveView().RotateAboutCenter 0.00973323, -0.00430189
Part.ActiveView().RotateAboutCenter 0.00973323, 0
Part.ActiveView().RotateAboutCenter 0.0194665, -0.00430189
Part.ActiveView().RotateAboutCenter 0.016222, -0.0172076
Part.ActiveView().RotateAboutCenter 0.0129776, -0.0301132
Part.ActiveView().RotateAboutCenter 0.00324441, -0.00860378
Part.ActiveView().RotateAboutCenter 0.00324441, 0
Part.ActiveView().RotateAboutCenter 0.0129776, -0.00860378
Part.ActiveView().RotateAboutCenter 0.00973323, -0.00860378
Part.ActiveView().RotateAboutCenter 0.00324441, -0.00430189
Part.ActiveView().RotateAboutCenter 0, -0.00430189
Part.ActiveView().RotateAboutCenter -0.0129776, -0.0172076
Part.ActiveView().RotateAboutCenter -0.0421773, -0.107547
Part.ActiveView().RotateAboutCenter -0.00648882, -0.0516227
Part.ActiveView().RotateAboutCenter 0.00648882, -0.0301132
Part.ActiveView().RotateAboutCenter 0.00324441, -0.0258113
Part.ActiveView().RotateAboutCenter 0.00324441, -0.00860378
Part.ActiveView().RotateAboutCenter 0, -0.0129057
Part.ActiveView().RotateAboutCenter 0, -0.00430189
Part.ActiveView().RotateAboutCenter -0.00324441, -0.0344151
Part.ActiveView().RotateAboutCenter -0.016222, -0.193585
Part.ActiveView().RotateAboutCenter 0, -0.210793
Part.ActiveView().RotateAboutCenter 0.00324441, -0.038717
Part.ActiveView().RotateAboutCenter 0.016222, -0.210793
Part.ActiveView().RotateAboutCenter 0.0129776, -0.103245
Part.ActiveView().RotateAboutCenter 0.0129776, -0.116151
Part.ActiveView().RotateAboutCenter 0.00973323, -0.103245
Part.ActiveView().RotateAboutCenter 0.00324441, -0.038717
Part.ActiveView().RotateAboutCenter 0.00973323, -0.038717
Part.ActiveView().RotateAboutCenter 0.0129776, -0.0516227
Part.ActiveView().RotateAboutCenter 0.0194665, -0.0946416
Part.ActiveView().RotateAboutCenter 0.0129776, -0.0516227
Part.ActiveView().RotateAboutCenter 0.00648882, -0.0559246
Part.ActiveView().RotateAboutCenter 0.00648882, -0.0344151
Part.ActiveView().RotateAboutCenter 0.0129776, -0.0602265
Part.ActiveView().RotateAboutCenter 0.00973323, -0.0559246
Part.ActiveView().RotateAboutCenter 0, -0.00430189
Part.ActiveView().RotateAboutCenter 0, 0.00430189
Part.ActiveView().RotateAboutCenter -0.00973323, 0.0559246
Part.ActiveView().RotateAboutCenter -0.0291997, 0.292529
Part.ActiveView().RotateAboutCenter -0.00973323, 0.0559246
Part.ActiveView().RotateAboutCenter -0.0616438, 0.133359
Part.ActiveView().RotateAboutCenter -0.0811102, 0.283925
Part.ActiveView().RotateAboutCenter -0.0681326, 0.15917
Part.ActiveView().RotateAboutCenter -0.0519105, 0.154868
Part.ActiveView().RotateAboutCenter -0.0389329, 0.240906
Part.ActiveView().RotateAboutCenter -0.00324441, 0.193585
Part.ActiveView().RotateAboutCenter 0.0194665, 0.335548
Part.ActiveView().RotateAboutCenter 0.0194665, 0.0817359
Part.ActiveView().RotateAboutCenter 0.0291997, 0.0602265
Part.ActiveView().RotateAboutCenter 0.0259553, 0.0860378
Part.ActiveView().RotateAboutCenter 0.0356885, 0.326944
Part.ActiveView().RotateAboutCenter 0.0324441, 0.309736
Part.ActiveView().RotateAboutCenter 0.0389329, 0.335548
Part.ActiveView().RotateAboutCenter 0.0227109, 0.150566
Part.ActiveView().RotateAboutCenter 0.00324441, 0.0215095
Part.ActiveView().RotateAboutCenter -0.00324441, 0
Part.ActiveView().RotateAboutCenter -0.0519105, -0.00860378
Part.ActiveView().RotateAboutCenter -0.0519105, 0
Part.ActiveView().RotateAboutCenter -0.227109, 0.0516227
Part.ActiveView().RotateAboutCenter -0.0973323, 0.0215095
Part.ActiveView().RotateAboutCenter -0.00648882, 0
Part.ActiveView().RotateAboutCenter 0.00324441, 0
Part.ActiveView().RotateAboutCenter 0.0843546, -0.0602265
Part.ActiveView().RotateAboutCenter 0.0811102, -0.31834
Part.ActiveView().RotateAboutCenter 0.0291997, -0.15917
Part.ActiveView().RotateAboutCenter 0.0194665, -0.210793
Part.ActiveView().RotateAboutCenter 0.0194665, -0.352755
Part.ActiveView().RotateAboutCenter 0.00973323, -0.197887
Part.ActiveView().RotateAboutCenter 0.00973323, -0.0430189
Part.ActiveView().RotateAboutCenter 0.0194665, -0.0258113
Part.ActiveView().RotateAboutCenter 0.0129776, -0.00430189
Part.ActiveView().RotateAboutCenter 0, -0.0129057
Part.ActiveView().RotateAboutCenter 0.0227109, -0.0473208
Part.ActiveView().RotateAboutCenter 0.00324441, 0
Part.ActiveView().RotateAboutCenter 0, -0.00430189
Part.ActiveView().RotateAboutCenter -0.00324441, 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.Save2 FALSE
swApp.ExitApp
End Sub