' ******************************************************************************
' swxJRNL.swj - journal recorded on 06/28/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\mooring\M2\options\NMC test\nmc can\NMC can.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("NMC can.SLDASM")
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 "NMC can.SLDASM"
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.OpenDoc4 ("C:\soliddata\mooring\M2\options\NMC test\nmc can\NMC can assy.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("NMC can assy.SLDASM")
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
Part.ActiveView().RotateAboutCenter 0.00959614, 0.00675957
Part.ActiveView().RotateAboutCenter 0.163134, 0.16223
Part.ActiveView().RotateAboutCenter 0.143942, 0.405574
Part.ActiveView().RotateAboutCenter 0.0479807, 0.108153
Part.ActiveView().RotateAboutCenter 0.0239903, 0.0743553
Part.ActiveView().RotateAboutCenter 0.0287884, 0.0878745
Part.ActiveView().RotateAboutCenter 0.0287884, 0.0405574
Part.ActiveView().RotateAboutCenter 0.071971, 0.094634
Part.ActiveView().RotateAboutCenter 0.0479807, 0.047317
Part.ActiveView().RotateAboutCenter 0.0287884, 0.00675957
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.0191923, 0
Part.ActiveView().RotateAboutCenter 0.0383846, 0
Part.ActiveView().RotateAboutCenter 0.206317, 0.047317
Part.ActiveView().RotateAboutCenter 0.2495, 0.0811149
Part.ActiveView().RotateAboutCenter 0.0527788, 0.0337979
Part.ActiveView().RotateAboutCenter 0, -0.0270383
Part.ActiveView().RotateAboutCenter -0.0239903, -0.0540766
Part.ActiveView().RotateAboutCenter -0.0911633, -0.0811149
Part.ActiveView().RotateAboutCenter -0.0959614, -0.0405574
Part.ActiveView().RotateAboutCenter -0.0959614, -0.0135191
Part.ActiveView().RotateAboutCenter -0.0815672, -0.00675957
Part.ActiveView().RotateAboutCenter -0.287884, -0.047317
Part.ActiveView().RotateAboutCenter -0.129548, -0.0743553
Part.ActiveView().RotateAboutCenter -0.110356, -0.114913
Part.ActiveView().RotateAboutCenter -0.0431826, -0.0608362
Part.ActiveView().RotateAboutCenter -0.0431826, -0.101394
Part.ActiveView().RotateAboutCenter -0.0431826, -0.148711
Part.ActiveView().RotateAboutCenter -0.0527788, -0.527247
Part.ActiveView().RotateAboutCenter -0.0191923, -0.32446
Part.ActiveView().RotateAboutCenter -0.0143942, -0.148711
Part.ActiveView().RotateAboutCenter 0, -0.0675957
Part.ActiveView().RotateAboutCenter 0.00479807, -0.121672
Part.ActiveView().RotateAboutCenter 0.00479807, -0.16223
Part.ActiveView().RotateAboutCenter 0, -0.0135191
Part.ActiveView().RotateAboutCenter 0, 0.00675957
Part.ActiveView().RotateAboutCenter 0.00959614, 0.0270383
Part.ActiveView().RotateAboutCenter 0.0191923, 0.0608362
Part.ActiveView().RotateAboutCenter 0.00959614, 0.0405574
Part.ActiveView().RotateAboutCenter 0.00959614, 0.0675957
Part.ActiveView().RotateAboutCenter 0.0191923, 0.0878745
Part.ActiveView().RotateAboutCenter 0.0143942, 0.101394
Part.ActiveView().RotateAboutCenter 0.00959614, 0.0878745
Part.ActiveView().RotateAboutCenter 0.00479807, 0.0405574
Part.ActiveView().RotateAboutCenter -0.00959614, 0.0202787
Part.ActiveView().RotateAboutCenter -0.0431826, 0.0540766
Part.ActiveView().RotateAboutCenter -0.0239903, 0.0405574
Part.ActiveView().RotateAboutCenter -0.0143942, 0.0270383
Part.ActiveView().RotateAboutCenter -0.00959614, 0.0202787
Part.ActiveView().RotateAboutCenter 0.00479807, 0.00675957
Part.ActiveView().RotateAboutCenter 0.211115, 0.148711
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.00479807, -0.00675957
Part.ActiveView().RotateAboutCenter 0.00959614, -0.00675957
Part.ActiveView().RotateAboutCenter 0.0575768, 0
Part.ActiveView().RotateAboutCenter 0.143942, 0.168989
Part.ActiveView().RotateAboutCenter 0.0191923, 0.3177
Part.ActiveView().RotateAboutCenter -0.0143942, 0.101394
Part.ActiveView().RotateAboutCenter -0.00479807, 0.0135191
Part.ActiveView().RotateAboutCenter -0.00959614, 0
Part.ActiveView().RotateAboutCenter -0.0191923, 0
Part.ActiveView().RotateAboutCenter -0.0335865, 0.00675957
Part.ActiveView().RotateAboutCenter -0.0287884, -0.00675957
Part.ActiveView().RotateAboutCenter -0.0287884, -0.00675957
Part.ActiveView().RotateAboutCenter -0.0287884, -0.0202787
Part.ActiveView().RotateAboutCenter -0.0191923, -0.0337979
Part.ActiveView().RotateAboutCenter -0.0191923, -0.148711
Part.ActiveView().RotateAboutCenter -0.00959614, -0.392055
Part.ActiveView().RotateAboutCenter -0.0239903, -0.108153
Part.ActiveView().RotateAboutCenter -0.0191923, -0.0811149
Part.ActiveView().RotateAboutCenter -0.0287884, -0.0743553
Part.ActiveView().RotateAboutCenter -0.0527788, -0.148711
Part.ActiveView().RotateAboutCenter -0.0623749, -0.405574
Part.ActiveView().RotateAboutCenter -0.0479807, -0.459651
Part.ActiveView().RotateAboutCenter -0.00959614, -0.0608362
Part.ActiveView().RotateAboutCenter 0, -0.00675957
Part.ActiveView().RotateAboutCenter -0.00479807, -0.00675957
Part.ActiveView().RotateAboutCenter -0.00479807, -0.0135191
Part.ActiveView().RotateAboutCenter 0, 0.00675957
Part.ActiveView().RotateAboutCenter 0, 0.0878745
Part.ActiveView().RotateAboutCenter -0.00479807, 0.0811149
Part.ActiveView().RotateAboutCenter 0, 0.0337979
Part.ActiveView().RotateAboutCenter 0, 0.00675957
Part.ActiveView().RotateAboutCenter 0.00479807, 0.0540766
Part.ActiveView().RotateAboutCenter 0, 0.0878745
Part.ActiveView().RotateAboutCenter -0.00479807, 0.15547
Part.ActiveView().RotateAboutCenter -0.0239903, 0.0811149
Part.ActiveView().RotateAboutCenter -0.00479807, 0.047317
Part.ActiveView().RotateAboutCenter -0.00479807, 0.00675957
Part.ActiveView().RotateAboutCenter 0, 0.0337979
Part.ActiveView().RotateAboutCenter 0.00959614, 0.0540766
Part.ActiveView().RotateAboutCenter 0.0623749, 0.459651
Part.ActiveView().RotateAboutCenter 0.0431826, 0.263623
Part.ActiveView().RotateAboutCenter 0, 0.00675957
Part.ActiveView().RotateAboutCenter 0, 0.0135191
Part.ActiveView().RotateAboutCenter -0.12475, 0.0540766
Part.ActiveView().RotateAboutCenter -0.302278, 0.0608362
Part.ActiveView().RotateAboutCenter -0.00959614, 0.00675957
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.0287884, 0
Part.ActiveView().RotateAboutCenter 0.0815672, 0
Part.ActiveView().RotateAboutCenter 0.0527788, 0.0135191
Part.ActiveView().RotateAboutCenter 0.0623749, 0.0270383
Part.ActiveView().RotateAboutCenter 0.0959614, 0.0202787
Part.ActiveView().RotateAboutCenter 0.0239903, -0.0202787
Part.ActiveView().RotateAboutCenter 0.0191923, -0.0337979
Part.ActiveView().RotateAboutCenter 0.0431826, -0.0202787
Part.ActiveView().RotateAboutCenter 0.0863652, 0.0675957
Part.ActiveView().RotateAboutCenter 0.0431826, 0.32446
Part.ActiveView().RotateAboutCenter -0.00479807, 0.0675957
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.0239903, 0
Part.ActiveView().RotateAboutCenter -0.0383846, 0
Part.ActiveView().RotateAboutCenter -0.00479807, -0.00675957
Part.ActiveView().RotateAboutCenter -0.00959614, 0
Part.ActiveView().RotateAboutCenter -0.0527788, -0.00675957
Part.ActiveView().RotateAboutCenter -0.177529, -0.0878745
Part.ActiveView().RotateAboutCenter -0.0143942, -0.0135191
Part.ActiveView().RotateAboutCenter 0.00959614, 0
Part.ActiveView().RotateAboutCenter 0, 0.00675957
Part.ActiveView().RotateAboutCenter 0, 0.0202787
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "NMC can assy.SLDASM"
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub