' ******************************************************************************
' swxJRNL.swj - journal recorded on 04/23/03 by craig
' *****************************************************************************
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:\soliddata\mooring\shutter\micro switch.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("micro switch.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0.00479807, 0.00655148
Part.ActiveView().RotateAboutCenter 0.00959614, 0.0327574
Part.ActiveView().RotateAboutCenter 0.0239903, 0.0458604
Part.ActiveView().RotateAboutCenter 0.0239903, 0.0655148
Part.ActiveView().RotateAboutCenter 0.0431826, 0.0786178
Part.ActiveView().RotateAboutCenter 0.0911633, 0.13103
Part.ActiveView().RotateAboutCenter 0.0383846, 0.0655148
Part.ActiveView().RotateAboutCenter 0.00959614, 0.0196545
Part.ActiveView().RotateAboutCenter 0, 0.013103
Part.ActiveView().RotateAboutCenter 0.00959614, 0.0393089
Part.ActiveView().RotateAboutCenter 0, 0.0655148
Part.ActiveView().RotateAboutCenter -0.0143942, 0.144133
Part.ActiveView().RotateAboutCenter -0.0911633, 0.209647
Part.ActiveView().RotateAboutCenter -0.220711, 0.104824
Part.ActiveView().RotateAboutCenter -0.0959614, 0.0262059
Part.ActiveView().RotateAboutCenter -0.0431826, 0.00655148
Part.ActiveView().RotateAboutCenter -0.00959614, 0
Part.ActiveView().RotateAboutCenter 0, -0.00655148
Part.ActiveView().RotateAboutCenter 0, -0.013103
Part.ActiveView().RotateAboutCenter 0, -0.013103
Part.ActiveView().RotateAboutCenter 0.00479807, -0.013103
Part.ActiveView().RotateAboutCenter 0.00479807, -0.0196545
Part.ActiveView().RotateAboutCenter 0.00479807, -0.00655148
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.0143942, -0.0262059
Part.ActiveView().RotateAboutCenter 0.0383846, -0.0589634
Part.ActiveView().RotateAboutCenter 0.0479807, -0.209647
Part.ActiveView().RotateAboutCenter 0.071971, -0.216199
Part.ActiveView().RotateAboutCenter 0.0335865, -0.0589634
Part.ActiveView().RotateAboutCenter 0.0383846, -0.0786178
Part.ActiveView().RotateAboutCenter 0.0383846, -0.0589634
Part.ActiveView().RotateAboutCenter 0.0287884, -0.0262059
Part.ActiveView().RotateAboutCenter 0.0431826, -0.0393089
Part.ActiveView().RotateAboutCenter 0.566172, -0.0851693
Part.ActiveView().RotateAboutCenter 0.0143942, 0.00655148
Part.ActiveView().RotateAboutCenter 0.00959614, 0
Part.ActiveView().RotateAboutCenter 0.00479807, 0.00655148
Part.ActiveView().RotateAboutCenter 0.00479807, -0.00655148
Part.ActiveView().RotateAboutCenter 0, 0.00655148
Part.ActiveView().RotateAboutCenter -0.00479807, 0.0262059
Part.ActiveView().RotateAboutCenter -0.0287884, 0.0393089
Part.ActiveView().RotateAboutCenter -0.0335865, 0.0393089
Part.ActiveView().RotateAboutCenter -0.00479807, 0.00655148
Part.ActiveView().RotateAboutCenter -0.0239903, 0
Part.ActiveView().RotateAboutCenter -0.0911633, -0.0196545
Part.ActiveView().RotateAboutCenter -0.239903, -0.0524119
Part.ActiveView().RotateAboutCenter -0.163134, -0.0524119
Part.ActiveView().RotateAboutCenter -0.0575768, -0.0458604
Part.ActiveView().RotateAboutCenter -0.0335865, -0.0196545
Part.ActiveView().RotateAboutCenter -0.0191923, -0.013103
Part.ActiveView().RotateAboutCenter -0.00959614, 0
Part.ActiveView().RotateAboutCenter -0.00479807, -0.00655148
Part.ActiveView().RotateAboutCenter -0.00479807, 0.00655148
Part.ActiveView().RotateAboutCenter -0.0239903, 0.0327574
Part.ActiveView().RotateAboutCenter -0.0575768, 0.288265
Part.ActiveView().RotateAboutCenter -0.0431826, 0.288265
Part.ActiveView().RotateAboutCenter -0.0191923, 0.137581
Part.ActiveView().RotateAboutCenter -0.00479807, 0.00655148
Part.ActiveView().RotateAboutCenter 0.00479807, 0.013103
Part.ActiveView().RotateAboutCenter 0.0143942, 0.0196545
Part.ActiveView().RotateAboutCenter 0.0143942, 0.013103
Part.ActiveView().RotateAboutCenter 0.00959614, 0.00655148
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.0143942, 0.00655148
Part.ActiveView().RotateAboutCenter 0.0287884, 0.0196545
Part.ActiveView().RotateAboutCenter 0.17273, 0.0524119
Part.ActiveView().RotateAboutCenter 0.191923, 0.0327574
Part.ActiveView().RotateAboutCenter 0.105558, 0.013103
Part.ActiveView().RotateAboutCenter 0.0527788, 0
Part.ActiveView().RotateAboutCenter 0.0479807, 0
Part.ActiveView().RotateAboutCenter 0.00959614, -0.00655148
Part.ActiveView().RotateAboutCenter -0.00479807, -0.00655148
Part.ActiveView().RotateAboutCenter -0.0287884, -0.00655148
Part.ActiveView().RotateAboutCenter -0.0383846, 0
Part.ActiveView().RotateAboutCenter -0.0191923, 0
Part.ActiveView().RotateAboutCenter -0.00479807, 0.00655148
Part.ActiveView().RotateAboutCenter 0, 0.00655148
Part.ActiveView().RotateAboutCenter 0, 0.00655148
Part.ActiveView().RotateAboutCenter 0, 0.00655148
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.0191923, 0
Part.ActiveView().RotateAboutCenter -0.0383846, -0.013103
Part.ActiveView().RotateAboutCenter -0.0239903, -0.0196545
Part.ActiveView().RotateAboutCenter -0.0335865, -0.0524119
Part.ActiveView().RotateAboutCenter -0.0239903, -0.0589634
Part.ActiveView().RotateAboutCenter -0.0287884, -0.0720663
Part.ActiveView().RotateAboutCenter -0.0575768, -0.229302
Part.ActiveView().RotateAboutCenter -0.0335865, -0.0720663
Part.ActiveView().RotateAboutCenter -0.0191923, -0.0327574
Part.ActiveView().RotateAboutCenter -0.00479807, -0.00655148
Part.ActiveView().RotateAboutCenter 0, -0.00655148
Part.ActiveView().RotateAboutCenter 0.00959614, 0
Part.ActiveView().RotateAboutCenter 0.0383846, 0.0393089
Part.ActiveView().RotateAboutCenter 0.134346, 0.163787
Part.ActiveView().RotateAboutCenter 0.201519, 0.248956
Part.ActiveView().RotateAboutCenter 0.0383846, 0.0458604
Part.ActiveView().RotateAboutCenter -0.00479807, 0.00655148
Part.ActiveView().RotateAboutCenter -0.0191923, 0.00655148
Part.ActiveView().RotateAboutCenter -0.0863652, 0.0196545
Part.ActiveView().RotateAboutCenter -0.211115, 0.0524119
Part.ActiveView().RotateAboutCenter -0.0863652, 0.00655148
Part.ActiveView().RotateAboutCenter -0.0239903, 0.00655148
Part.ActiveView().RotateAboutCenter -0.0143942, 0
Part.ActiveView().RotateAboutCenter -0.0239903, -0.00655148
Part.ActiveView().RotateAboutCenter -0.0191923, -0.013103
Part.ActiveView().RotateAboutCenter -0.0335865, -0.0196545
Part.ActiveView().RotateAboutCenter -0.0863652, -0.0393089
Part.ActiveView().RotateAboutCenter -0.115154, -0.0524119
Part.ActiveView().RotateAboutCenter -0.0383846, -0.0196545
Part.ActiveView().RotateAboutCenter -0.0383846, -0.00655148
Part.ActiveView().RotateAboutCenter -0.0239903, -0.00655148
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter 0, -0.00655148
Part.ActiveView().RotateAboutCenter 0, -0.00655148
Part.ActiveView().RotateAboutCenter 0, -0.00655148
Part.ActiveView().RotateAboutCenter 0, -0.013103
Part.ActiveView().RotateAboutCenter 0, -0.0393089
Part.ActiveView().RotateAboutCenter 0.0239903, -0.268611
Part.ActiveView().RotateAboutCenter 0.0431826, -0.314471
Part.ActiveView().RotateAboutCenter 0.0479807, -0.301368
Part.ActiveView().RotateAboutCenter 0.0479807, -0.275162
Part.ActiveView().RotateAboutCenter 0.0575768, -0.242405
Part.ActiveView().RotateAboutCenter 0.0431826, -0.0393089
Part.ActiveView().RotateAboutCenter 0.0239903, -0.0262059
Part.ActiveView().RotateAboutCenter 0.00479807, -0.00655148
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.00479807, -0.00655148
Part.ActiveView().RotateAboutCenter -0.0143942, -0.00655148
Part.ActiveView().RotateAboutCenter -0.0143942, 0
Part.ActiveView().RotateAboutCenter -0.0431826, -0.00655148
Part.ActiveView().RotateAboutCenter -0.0959614, 0.013103
Part.ActiveView().RotateAboutCenter -0.143942, 0.17689
Part.ActiveView().RotateAboutCenter -0.201519, 0.550325
Part.ActiveView().RotateAboutCenter -0.071971, 0.799281
Part.ActiveView().RotateAboutCenter 0, 0.137581
Part.ActiveView().RotateAboutCenter 0.00479807, 0.00655148
Part.ActiveView().RotateAboutCenter 0.00959614, 0
Part.ActiveView().RotateAboutCenter 0.0191923, -0.0262059
Part.ActiveView().RotateAboutCenter 0.0287884, -0.0262059
Part.ActiveView().RotateAboutCenter 0.0335865, -0.0262059
Part.ActiveView().RotateAboutCenter 0.0527788, -0.0458604
Part.ActiveView().RotateAboutCenter 0.0335865, -0.0196545
Part.ActiveView().RotateAboutCenter 0.0191923, -0.0262059
Part.ActiveView().RotateAboutCenter 0.0287884, -0.0589634
Part.ActiveView().RotateAboutCenter 0.0575768, -0.35378
Part.ActiveView().RotateAboutCenter 0.0431826, -0.275162
Part.ActiveView().RotateAboutCenter 0.0287884, -0.235853
Part.ActiveView().RotateAboutCenter 0.0383846, -0.0655148
Part.ActiveView().RotateAboutCenter 0.0239903, -0.00655148
Part.ActiveView().RotateAboutCenter 0.0527788, 0.013103
Part.ActiveView().RotateAboutCenter 0.0431826, 0.0196545
Part.ActiveView().RotateAboutCenter 0.0383846, 0.0327574
Part.ActiveView().RotateAboutCenter 0.067173, 0.0786178
Part.ActiveView().RotateAboutCenter 0.0431826, 0.13103
Part.ActiveView().RotateAboutCenter 0.0191923, 0.0786178
Part.ActiveView().RotateAboutCenter 0.00479807, 0.0262059
Part.ActiveView().RotateAboutCenter -0.00479807, 0.0327574
Part.ActiveView().RotateAboutCenter -0.0287884, 0.0196545
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.00479807, 0.00655148
Part.ActiveView().RotateAboutCenter 0, 0.00655148
Part.ActiveView().RotateAboutCenter 0, 0.013103
Part.ActiveView().RotateAboutCenter 0, 0.0262059
Part.ActiveView().RotateAboutCenter -0.00479807, 0.013103
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub