' ******************************************************************************
' swxJRNL.swj - journal recorded on 10/31/02 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 = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc4 ("C:\soliddata\oasis3\teledesigns\teledesigns housing.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("teledesigns housing.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "housing bottom cover-1@teledesigns housing", "COMPONENT", 0, 0, 0
Part.ShowComponent2
Part.ClearSelection
Part.ActiveView().RotateAboutCenter -0.0287884, -0.013116
Part.ActiveView().RotateAboutCenter -0.239903, -0.019674
Part.ActiveView().RotateAboutCenter -0.259096, -0.019674
Part.ActiveView().RotateAboutCenter -0.134346, -0.013116
Part.ActiveView().RotateAboutCenter -0.0623749, -0.006558
Part.ActiveView().RotateAboutCenter -0.0383846, 0
Part.ActiveView().RotateAboutCenter -0.067173, 0
Part.ActiveView().RotateAboutCenter -0.115154, -0.006558
Part.ActiveView().RotateAboutCenter -0.0287884, -0.013116
Part.ActiveView().RotateAboutCenter 0.0239903, 0
Part.ActiveView().RotateAboutCenter 0.182327, 0
Part.ActiveView().RotateAboutCenter 0.268692, 0
Part.ActiveView().RotateAboutCenter 0.211115, 0
Part.ActiveView().RotateAboutCenter 0.0527788, 0
Part.ActiveView().RotateAboutCenter 0.0431826, 0
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.00959614, 0
Part.ActiveView().RotateAboutCenter 0.0383846, -0.006558
Part.ActiveView().RotateAboutCenter 0.0335865, 0
Part.ActiveView().RotateAboutCenter 0.00959614, 0
Part.ActiveView().RotateAboutCenter 0, -0.006558
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.00479807, 0.006558
Part.ActiveView().RotateAboutCenter 0.00479807, 0.072138
Part.ActiveView().RotateAboutCenter 0.00959614, 0.06558
Part.ActiveView().RotateAboutCenter 0.00959614, 0.052464
Part.ActiveView().RotateAboutCenter 0.00479807, 0.013116
Part.ActiveView().RotateAboutCenter 0.00959614, 0.013116
Part.ActiveView().RotateAboutCenter 0.0287884, 0.019674
Part.ActiveView().RotateAboutCenter 0.0527788, 0.013116
Part.ActiveView().RotateAboutCenter 0.0767691, 0.006558
Part.ActiveView().RotateAboutCenter 0.12475, -0.019674
Part.ActiveView().RotateAboutCenter 0.0527788, -0.019674
Part.ActiveView().RotateAboutCenter 0.00959614, 0
Part.ActiveView().RotateAboutCenter 0, -0.006558
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.0143942, -0.013116
Part.ActiveView().RotateAboutCenter -0.0287884, -0.019674
Part.ActiveView().RotateAboutCenter -0.0335865, -0.013116
Part.ActiveView().RotateAboutCenter -0.0431826, -0.013116
Part.ActiveView().RotateAboutCenter -0.0431826, -0.013116
Part.ActiveView().RotateAboutCenter -0.0383846, -0.013116
Part.ActiveView().RotateAboutCenter -0.0239903, 0
Part.ActiveView().RotateAboutCenter -0.0191923, 0.013116
Part.ActiveView().RotateAboutCenter -0.0191923, 0.059022
Part.ActiveView().RotateAboutCenter 0, 0.157392
Part.ActiveView().RotateAboutCenter 0.0143942, 0.16395
Part.ActiveView().RotateAboutCenter 0.0143942, 0.06558
Part.ActiveView().RotateAboutCenter 0.00479807, 0.006558
Part.ActiveView().RotateAboutCenter 0, 0.013116
Part.ActiveView().RotateAboutCenter 0.0143942, 0.059022
Part.ActiveView().RotateAboutCenter 0.0143942, 0.078696
Part.ActiveView().RotateAboutCenter 0.0143942, 0.111486
Part.ActiveView().RotateAboutCenter 0.0143942, 0.072138
Part.ActiveView().RotateAboutCenter 0.00959614, 0.052464
Part.ActiveView().RotateAboutCenter -0.00479807, -0.006558
Part.ActiveView().RotateAboutCenter -0.0239903, -0.072138
Part.ActiveView().RotateAboutCenter -0.0191923, -0.078696
Part.ActiveView().RotateAboutCenter -0.0239903, -0.118044
Part.ActiveView().RotateAboutCenter -0.00959614, -0.091812
Part.ActiveView().RotateAboutCenter -0.0143942, -0.157392
Part.ActiveView().RotateAboutCenter -0.0191923, -0.16395
Part.ActiveView().RotateAboutCenter -0.0191923, -0.111486
Part.ActiveView().RotateAboutCenter -0.0239903, -0.111486
Part.ActiveView().RotateAboutCenter -0.0239903, -0.052464
Part.ActiveView().RotateAboutCenter -0.0143942, -0.013116
Part.ActiveView().RotateAboutCenter -0.0143942, -0.006558
Part.ActiveView().RotateAboutCenter -0.0143942, 0
Part.ActiveView().RotateAboutCenter -0.0527788, 0.045906
Part.ActiveView().RotateAboutCenter -0.0767691, 0.16395
Part.ActiveView().RotateAboutCenter -0.0623749, 0.314784
Part.ActiveView().RotateAboutCenter -0.067173, 0.150834
Part.ActiveView().RotateAboutCenter -0.0623749, 0.026232
Part.ActiveView().RotateAboutCenter -0.0479807, -0.006558
Part.ActiveView().RotateAboutCenter -0.0191923, -0.006558
Part.ActiveView().RotateAboutCenter -0.00959614, 0
Part.ActiveView().RotateAboutCenter 0, -0.006558
Part.ActiveView().RotateAboutCenter 0, -0.006558
Part.ActiveView().RotateAboutCenter 0.00959614, -0.006558
Part.ActiveView().RotateAboutCenter 0.0239903, -0.013116
Part.ActiveView().RotateAboutCenter 0.0239903, -0.019674
Part.ActiveView().RotateAboutCenter 0.0191923, -0.006558
Part.ActiveView().RotateAboutCenter 0.0335865, -0.006558
Part.ActiveView().RotateAboutCenter 0.0575768, 0
Part.ActiveView().RotateAboutCenter 0.0815672, 0.026232
Part.ActiveView().RotateAboutCenter 0.201519, 0.03279
Part.ActiveView().RotateAboutCenter 0.158336, 0.006558
Part.ActiveView().RotateAboutCenter 0.0287884, 0
Part.ActiveView().RotateAboutCenter 0.0143942, -0.006558
Part.ActiveView().RotateAboutCenter 0.00959614, 0
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0, 0.006558
Part.ActiveView().RotateAboutCenter -0.0335865, 0.06558
Part.ActiveView().RotateAboutCenter -0.0431826, 0.078696
Part.ActiveView().RotateAboutCenter -0.0239903, 0.026232
Part.ActiveView().RotateAboutCenter -0.0431826, 0.03279
Part.ActiveView().RotateAboutCenter -0.0191923, 0.019674
Part.ActiveView().RotateAboutCenter -0.00959614, 0
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.00959614, -0.013116
Part.ActiveView().RotateAboutCenter -0.00959614, -0.059022
Part.ActiveView().RotateAboutCenter -0.00959614, -0.078696
Part.ActiveView().RotateAboutCenter 0, -0.052464
Part.ActiveView().RotateAboutCenter -0.00479807, -0.059022
Part.ActiveView().RotateAboutCenter -0.00479807, -0.039348
Part.ActiveView().RotateAboutCenter -0.00479807, -0.045906
Part.ActiveView().RotateAboutCenter 0, -0.039348
Part.ActiveView().RotateAboutCenter 0, -0.026232
Part.ActiveView().RotateAboutCenter 0, -0.03279
Part.ActiveView().RotateAboutCenter 0, -0.026232
Part.ActiveView().RotateAboutCenter 0.00959614, -0.052464
Part.ActiveView().RotateAboutCenter 0.0191923, -0.045906
Part.ActiveView().RotateAboutCenter 0.0191923, -0.006558
Part.ActiveView().RotateAboutCenter 0.0287884, 0.124602
Part.ActiveView().RotateAboutCenter 0.0239903, 0.485292
Part.ActiveView().RotateAboutCenter 0.00959614, 0.406596
Part.ActiveView().RotateAboutCenter 0.00479807, 0.026232
Part.ActiveView().RotateAboutCenter -0.00479807, -0.006558
Part.ActiveView().RotateAboutCenter -0.0143942, -0.013116
Part.ActiveView().RotateAboutCenter -0.0335865, -0.045906
Part.ActiveView().RotateAboutCenter -0.0575768, -0.0983699
Part.ActiveView().RotateAboutCenter -0.0383846, -0.06558
Part.ActiveView().RotateAboutCenter -0.00959614, -0.026232
Part.ActiveView().RotateAboutCenter 0, -0.013116
Part.ActiveView().RotateAboutCenter 0, -0.019674
Part.ActiveView().RotateAboutCenter 0.00479807, -0.019674
Part.ActiveView().RotateAboutCenter 0, -0.03279
Part.ActiveView().RotateAboutCenter 0, -0.026232
Part.ActiveView().RotateAboutCenter -0.00959614, -0.019674
Part.ViewDisplayShaded
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "teledesigns housing.SLDASM"
Set Part = swApp.OpenDoc4 ("C:\soliddata\oasis3\oasis3 can\oasis3 spline\spline end plate.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("spline end plate.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub