' ******************************************************************************
' swxJRNL.swj - journal recorded on 03/13/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\oasis3\backplane\DIN 96ABC.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("DIN 96ABC.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = Nothing
swApp.CloseDoc "DIN 96ABC.SLDPRT"
Set Part = swApp.OpenDoc4 ("C:\soliddata\oasis3\backplane\IO board.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("IO board.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.00959614, 0.0393089
Part.ActiveView().RotateAboutCenter -0.0479807, 0.30792
Part.ActiveView().RotateAboutCenter -0.0479807, 0.458604
Part.ActiveView().RotateAboutCenter -0.0431826, 0.537222
Part.ActiveView().RotateAboutCenter -0.0143942, 0.22275
Part.ActiveView().RotateAboutCenter -0.00479807, 0.340677
Part.ActiveView().RotateAboutCenter -0.00479807, 0.150684
Part.ActiveView().RotateAboutCenter 0, 0.0196545
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.00479807, 0.00655148
Part.ActiveView().RotateAboutCenter -0.0143942, 0
Part.ActiveView().RotateAboutCenter -0.0479807, -0.00655148
Part.ActiveView().RotateAboutCenter -0.163134, -0.0524119
Part.ActiveView().RotateAboutCenter -0.0527788, -0.0524119
Part.ActiveView().RotateAboutCenter -0.0239903, -0.0196545
Part.ActiveView().RotateAboutCenter 0, -0.00655148
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter 0, 0.00655148
Part.ActiveView().RotateAboutCenter 0.00479807, 0.0196545
Part.ActiveView().RotateAboutCenter 0.00479807, 0.013103
Part.ActiveView().RotateAboutCenter 0.00959614, 0.00655148
Part.ActiveView().RotateAboutCenter 0.0191923, 0
Part.ActiveView().RotateAboutCenter 0.0239903, 0.00655148
Part.ActiveView().RotateAboutCenter 0.0623749, -0.0524119
Part.ActiveView().RotateAboutCenter 0.0431826, -0.0655148
Part.ActiveView().RotateAboutCenter 0.0431826, -0.0589634
Part.ActiveView().RotateAboutCenter 0.00959614, -0.0196545
Part.ActiveView().RotateAboutCenter 0, 0.00655148
Part.ActiveView().RotateAboutCenter 0.00959614, 0.0458604
Part.ActiveView().RotateAboutCenter 0, 0.0524119
Part.ActiveView().RotateAboutCenter -0.0143942, 0.0589634
Part.ActiveView().RotateAboutCenter -0.0239903, 0.13103
Part.ActiveView().RotateAboutCenter -0.0287884, 0.0786178
Part.ActiveView().RotateAboutCenter -0.0191923, 0.0786178
Part.ActiveView().RotateAboutCenter -0.0191923, 0.22275
Part.ActiveView().RotateAboutCenter 0, 0.0720663
Part.ActiveView().RotateAboutCenter -0.00479807, 0.0262059
Part.ActiveView().RotateAboutCenter -0.0143942, 0.0196545
Part.ActiveView().RotateAboutCenter -0.0479807, 0.0655148
Part.ActiveView().RotateAboutCenter -0.0959614, 0.0524119
Part.ActiveView().RotateAboutCenter -0.0383846, 0.00655148
Part.ActiveView().RotateAboutCenter -0.0239903, -0.00655148
Part.ActiveView().RotateAboutCenter -0.0239903, -0.013103
Part.ActiveView().RotateAboutCenter -0.00959614, -0.013103
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.0143942, 0.00655148
Part.ActiveView().RotateAboutCenter -0.0527788, 0.0196545
Part.ActiveView().RotateAboutCenter -0.211115, 0.0262059
Part.ActiveView().RotateAboutCenter -0.259096, 0.013103
Part.ActiveView().RotateAboutCenter -0.182327, 0
Part.ActiveView().RotateAboutCenter -0.0527788, 0.00655148
Part.ActiveView().RotateAboutCenter -0.0287884, 0.00655148
Part.ActiveView().RotateAboutCenter -0.0143942, 0
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.0239903, 0
Part.ActiveView().RotateAboutCenter -0.00959614, 0
Part.ActiveView().RotateAboutCenter -0.0143942, 0
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.0191923, 0
Part.ActiveView().RotateAboutCenter 0.0431826, 0.00655148
Part.ActiveView().RotateAboutCenter 0.134346, 0.0262059
Part.ActiveView().RotateAboutCenter 0.191923, 0.0262059
Part.ActiveView().RotateAboutCenter 0.259096, 0
Part.ActiveView().RotateAboutCenter 0.220711, -0.0458604
Part.ActiveView().RotateAboutCenter 0.110356, -0.0655148
Part.ActiveView().RotateAboutCenter 0.0143942, -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.013103
Part.ActiveView().RotateAboutCenter 0.00479807, -0.00655148
Part.ActiveView().RotateAboutCenter 0.00479807, -0.013103
Part.ActiveView().RotateAboutCenter 0.00959614, -0.00655148
Part.ActiveView().RotateAboutCenter 0.00479807, -0.00655148
Part.ActiveView().RotateAboutCenter 0.0479807, -0.0720663
Part.ActiveView().RotateAboutCenter 0.0335865, -0.0720663
Part.ActiveView().RotateAboutCenter 0, -0.0655148
Part.ActiveView().RotateAboutCenter 0, -0.0589634
Part.ActiveView().RotateAboutCenter 0, -0.0262059
Part.ActiveView().RotateAboutCenter -0.00479807, -0.0196545
Part.ActiveView().RotateAboutCenter -0.00959614, -0.0262059
Part.ActiveView().RotateAboutCenter -0.0191923, -0.0327574
Part.ActiveView().RotateAboutCenter -0.0143942, -0.0262059
Part.ActiveView().RotateAboutCenter -0.00959614, -0.013103
Part.ActiveView().RotateAboutCenter -0.0143942, -0.00655148
Part.ActiveView().RotateAboutCenter -0.00479807, -0.00655148
Part.ActiveView().RotateAboutCenter 0, 0.00655148
Part.ActiveView().RotateAboutCenter 0, 0.013103
Part.ActiveView().RotateAboutCenter 0, 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, 0.00655148
boolstatus = Part.Extension.SelectByID("PC board", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Base-Extrude", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Set Part = Nothing
swApp.CloseDoc "IO board.SLDPRT"
swApp.ExitApp
End Sub