' ******************************************************************************
' swxJRNL.swj - journal recorded on 01/22/04 by craig
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc6 ("C:\soliddata\mooring\M2\options\NMC test\freewave\M2 freewave test assy.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("M2 freewave test 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.00521529, 0
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0.0156459, 0
Part.ActiveView().RotateAboutCenter 0.0208612, -0.00650626
Part.ActiveView().RotateAboutCenter 0.0260765, -0.00650626
Part.ActiveView().RotateAboutCenter 0.0834447, -0.0455438
Part.ActiveView().RotateAboutCenter 0.0469376, -0.026025
Part.ActiveView().RotateAboutCenter 0.0521529, -0.0325313
Part.ActiveView().RotateAboutCenter 0.0938753, -0.0520501
Part.ActiveView().RotateAboutCenter 0.0417223, -0.0195188
Part.ActiveView().RotateAboutCenter 0.0469376, -0.0195188
Part.ActiveView().RotateAboutCenter 0.0208612, -0.0130125
Part.ActiveView().RotateAboutCenter 0.0312918, -0.00650626
Part.ActiveView().RotateAboutCenter 0.0469376, 0
Part.ActiveView().RotateAboutCenter 0.0208612, 0
Part.ActiveView().RotateAboutCenter 0.0208612, 0
Part.ActiveView().RotateAboutCenter 0.0208612, 0
Part.ActiveView().RotateAboutCenter 0.0677988, 0
Part.ActiveView().RotateAboutCenter 0.0417223, 0
Part.ActiveView().RotateAboutCenter 0.0417223, 0
Part.ActiveView().RotateAboutCenter 0.0834447, 0.00650626
Part.ActiveView().RotateAboutCenter 0.0260765, 0
Part.ActiveView().RotateAboutCenter 0.0260765, 0.00650626
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0.0104306, 0.00650626
Part.ActiveView().RotateAboutCenter 0.0104306, 0
Part.ActiveView().RotateAboutCenter 0, 0.00650626
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0.0156459, 0
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0, -0.00650626
Part.ActiveView().RotateAboutCenter -0.00521529, 0
' MSGBOX
' Some of the models referenced in this document have been modified.  They must be saved when the document is saved.
' 		Save the document and the referenced models now?

Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "M2 freewave test assy.SLDASM"
Set Part = swApp.OpenDoc6 ("C:\soliddata\mooring\M2\options\NMC test\freewave\ant base.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("ant base.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
' MSGBOX
' Save changes to ant base.SLDPRT?

Set Part = Nothing
swApp.CloseDoc "ant base.SLDPRT"
Set Part = swApp.OpenDoc6 ("C:\soliddata\mooring\M2\options\NMC test\freewave\NMO ant base.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("NMO ant base.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
Set Part = Nothing
swApp.CloseDoc "NMO ant base.SLDPRT"
Set Part = swApp.OpenDoc6 ("C:\soliddata\mooring\M2\options\NMC test\freewave\M2 freewave test assy.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("M2 freewave test 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
boolstatus = Part.Extension.SelectByID("freewave housing-2@M2 freewave test assy", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("freewave housing cover-1@M2 freewave test assy", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("freewave PCB-1@M2 freewave test assy", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("freewave housing cover-1@M2 freewave test assy", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("freewave housing cover-1@M2 freewave test assy", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection2 True
Part.ActiveView().RotateAboutCenter -0.00521529, 0.00650626
Part.ActiveView().RotateAboutCenter -0.0208612, 0.0130125
Part.ActiveView().RotateAboutCenter -0.0156459, 0.026025
Part.ActiveView().RotateAboutCenter -0.0625835, 0.0845813
Part.ActiveView().RotateAboutCenter -0.0730141, 0.0910876
Part.ActiveView().RotateAboutCenter -0.036507, 0.0455438
Part.ActiveView().RotateAboutCenter -0.0521529, 0.0520501
Part.ActiveView().RotateAboutCenter -0.0469376, 0.0195188
Part.ActiveView().RotateAboutCenter -0.036507, 0.0130125
Part.ActiveView().RotateAboutCenter -0.0417223, 0.0195188
Part.ActiveView().RotateAboutCenter -0.0260765, 0.0130125
Part.ActiveView().RotateAboutCenter -0.00521529, 0
Part.ActiveView().RotateAboutCenter -0.00521529, 0
Part.ActiveView().RotateAboutCenter -0.0104306, 0
Part.ActiveView().RotateAboutCenter -0.0156459, -0.0130125
Part.ActiveView().RotateAboutCenter -0.0260765, -0.026025
Part.ActiveView().RotateAboutCenter -0.0469376, -0.0455438
Part.ActiveView().RotateAboutCenter -0.0156459, -0.0325313
Part.ActiveView().RotateAboutCenter -0.0312918, -0.0520501
Part.ActiveView().RotateAboutCenter -0.0104306, -0.026025
Part.ActiveView().RotateAboutCenter -0.00521529, -0.00650626
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0, -0.00650626
Part.ActiveView().RotateAboutCenter -0.00521529, -0.00650626
Part.ActiveView().RotateAboutCenter 0, -0.00650626
Part.ActiveView().RotateAboutCenter -0.00521529, -0.0195188
Part.ActiveView().RotateAboutCenter -0.0104306, -0.0195188
Part.ActiveView().RotateAboutCenter -0.00521529, -0.00650626
Part.ActiveView().RotateAboutCenter 0, -0.0195188
Part.ActiveView().RotateAboutCenter 0, -0.0390375
Part.ActiveView().RotateAboutCenter 0.0104306, -0.0455438
Part.ActiveView().RotateAboutCenter 0.0312918, -0.0520501
Part.ActiveView().RotateAboutCenter 0.036507, -0.026025
Part.ActiveView().RotateAboutCenter 0.0417223, -0.0195188
Part.ActiveView().RotateAboutCenter 0.0156459, -0.00650626
Part.ActiveView().RotateAboutCenter 0.0156459, 0
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter -0.00521529, 0
Part.ActiveView().RotateAboutCenter -0.00521529, 0.00650626
Part.ActiveView().RotateAboutCenter -0.0104306, 0.026025
Part.ActiveView().RotateAboutCenter -0.0469376, 0.0715688
Part.ActiveView().RotateAboutCenter -0.0469376, 0.0975939
Part.ActiveView().RotateAboutCenter -0.0312918, 0.0650626
Part.ActiveView().RotateAboutCenter -0.0156459, 0.0195188
Part.ActiveView().RotateAboutCenter -0.0156459, 0.0195188
Part.ActiveView().RotateAboutCenter -0.0156459, 0.00650626
Part.ActiveView().RotateAboutCenter -0.0104306, 0.00650626
Part.ActiveView().RotateAboutCenter -0.00521529, 0.0130125
Part.ActiveView().RotateAboutCenter -0.0104306, 0.00650626
Part.ActiveView().RotateAboutCenter -0.0156459, 0.00650626
Part.ActiveView().RotateAboutCenter -0.0104306, 0.0130125
Part.ActiveView().RotateAboutCenter -0.0208612, 0.0195188
Part.ActiveView().RotateAboutCenter -0.0104306, 0.00650626
Part.ActiveView().RotateAboutCenter -0.0156459, 0.0130125
Part.ActiveView().RotateAboutCenter -0.0104306, 0.0130125
Part.ActiveView().RotateAboutCenter -0.0104306, 0.0130125
Part.ActiveView().RotateAboutCenter -0.0208612, 0.026025
Part.ActiveView().RotateAboutCenter -0.0104306, 0.0130125
Part.ActiveView().RotateAboutCenter -0.0104306, 0.00650626
Part.ActiveView().RotateAboutCenter -0.0104306, 0.0130125
Part.ActiveView().RotateAboutCenter -0.00521529, 0.0130125
Part.ActiveView().RotateAboutCenter -0.0104306, 0.0130125
Part.ActiveView().RotateAboutCenter -0.00521529, 0.00650626
Part.ActiveView().RotateAboutCenter -0.0104306, 0.0130125
Part.ActiveView().RotateAboutCenter -0.0156459, 0.00650626
Part.ActiveView().RotateAboutCenter -0.0104306, 0.0130125
Part.ActiveView().RotateAboutCenter -0.0156459, 0.00650626
Part.ActiveView().RotateAboutCenter -0.00521529, 0.00650626
Part.ActiveView().RotateAboutCenter 0, 0.00650626
Part.ActiveView().RotateAboutCenter 0, 0.00650626
Part.ActiveView().RotateAboutCenter 0.0156459, 0.0195188
Part.ActiveView().RotateAboutCenter 0.0260765, 0.0325313
Part.ActiveView().RotateAboutCenter 0.036507, 0.0455438
Part.ActiveView().RotateAboutCenter 0.0312918, 0.0455438
Part.ActiveView().RotateAboutCenter 0.036507, 0.0520501
Part.ActiveView().RotateAboutCenter 0.0573682, 0.110606
Part.ActiveView().RotateAboutCenter 0.0260765, 0.0585563
Part.ActiveView().RotateAboutCenter 0.0104306, 0.026025
Part.ActiveView().RotateAboutCenter 0.0104306, 0.0325313
Part.ActiveView().RotateAboutCenter 0.0104306, 0.0195188
Part.ActiveView().RotateAboutCenter 0.0104306, 0.026025
Part.ActiveView().RotateAboutCenter 0.00521529, 0.00650626
Part.ActiveView().RotateAboutCenter 0, 0.00650626
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0, -0.00650626
Part.ActiveView().RotateAboutCenter -0.00521529, 0
Part.ActiveView().RotateAboutCenter 0, -0.0130125
Part.ActiveView().RotateAboutCenter -0.00521529, -0.00650626
Part.ActiveView().RotateAboutCenter -0.00521529, -0.0195188
Part.ActiveView().RotateAboutCenter -0.0156459, -0.0390375
Part.ActiveView().RotateAboutCenter -0.0208612, -0.0390375
Part.ActiveView().RotateAboutCenter -0.0260765, -0.0650626
Part.ActiveView().RotateAboutCenter -0.0208612, -0.0585563
Part.ActiveView().RotateAboutCenter -0.0208612, -0.0650626
Part.ActiveView().RotateAboutCenter -0.0156459, -0.0520501
Part.ActiveView().RotateAboutCenter -0.0156459, -0.0520501
Part.ActiveView().RotateAboutCenter 0, -0.0390375
Part.ActiveView().RotateAboutCenter -0.00521529, -0.026025
Part.ActiveView().RotateAboutCenter 0, -0.0390375
Part.ActiveView().RotateAboutCenter 0, -0.0130125
Part.ActiveView().RotateAboutCenter 0, -0.00650626
Part.ActiveView().RotateAboutCenter 0.00521529, -0.00650626
Part.ActiveView().RotateAboutCenter 0, -0.0130125
Part.ActiveView().RotateAboutCenter 0.00521529, -0.00650626
Part.ActiveView().RotateAboutCenter 0.00521529, -0.0130125
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0, -0.00650626
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0, 0.00650626
Part.ActiveView().RotateAboutCenter 0, 0.00650626
Part.ActiveView().RotateAboutCenter 0.00521529, 0.0130125
Part.ActiveView().RotateAboutCenter 0.0104306, 0
Part.ActiveView().RotateAboutCenter 0.00521529, 0.00650626
Part.ActiveView().RotateAboutCenter 0.00521529, 0.00650626
Part.ActiveView().RotateAboutCenter 0.0104306, 0
Part.ActiveView().RotateAboutCenter 0.0104306, 0.00650626
Part.ActiveView().RotateAboutCenter 0.00521529, 0.00650626
Part.ActiveView().RotateAboutCenter 0, 0.00650626
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0, 0.00650626
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0.00521529, -0.00650626
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0, -0.00650626
Part.ActiveView().RotateAboutCenter 0, -0.00650626
Part.ActiveView().RotateAboutCenter 0, -0.00650626
Part.ActiveView().RotateAboutCenter 0, -0.0520501
Part.ActiveView().RotateAboutCenter 0, -0.0585563
Part.ActiveView().RotateAboutCenter 0, -0.1041
Part.ActiveView().RotateAboutCenter 0, -0.1041
Part.ActiveView().RotateAboutCenter 0, -0.123619
Part.ActiveView().RotateAboutCenter 0, -0.234225
Part.ActiveView().RotateAboutCenter 0, -0.110606
Part.ActiveView().RotateAboutCenter 0, -0.0845813
Part.ActiveView().RotateAboutCenter 0, -0.0715688
Part.ActiveView().RotateAboutCenter 0, -0.0390375
Part.ActiveView().RotateAboutCenter 0, -0.0195188
Part.ActiveView().RotateAboutCenter 0, -0.00650626
Part.ActiveView().RotateAboutCenter 0, -0.00650626
Part.ActiveView().RotateAboutCenter 0, -0.00650626
Part.ActiveView().RotateAboutCenter 0, -0.00650626
Part.ActiveView().RotateAboutCenter 0, -0.0130125
Part.ActiveView().RotateAboutCenter 0, -0.0195188
Part.ActiveView().RotateAboutCenter 0.00521529, -0.0195188
Part.ActiveView().RotateAboutCenter 0, -0.026025
Part.ActiveView().RotateAboutCenter 0.0104306, -0.026025
Part.ActiveView().RotateAboutCenter 0.00521529, -0.0520501
Part.ActiveView().RotateAboutCenter 0.0104306, -0.0780751
Part.ActiveView().RotateAboutCenter 0.0104306, -0.0520501
Part.ActiveView().RotateAboutCenter 0.00521529, -0.0520501
Part.ActiveView().RotateAboutCenter 0.0156459, -0.0650626
Part.ActiveView().RotateAboutCenter 0.0156459, -0.0780751
Part.ActiveView().RotateAboutCenter 0.0156459, -0.0780751
Part.ActiveView().RotateAboutCenter 0.00521529, -0.0650626
Part.ActiveView().RotateAboutCenter 0.00521529, -0.0390375
Part.ActiveView().RotateAboutCenter 0, -0.0130125
Part.ActiveView().RotateAboutCenter 0, -0.00650626
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0.00521529, -0.00650626
Part.ActiveView().RotateAboutCenter 0.0156459, -0.00650626
Part.ActiveView().RotateAboutCenter 0.0208612, 0
Part.ActiveView().RotateAboutCenter 0.0208612, 0
Part.ActiveView().RotateAboutCenter 0.036507, 0
Part.ActiveView().RotateAboutCenter 0.0312918, 0
Part.ActiveView().RotateAboutCenter 0.0312918, 0
Part.ActiveView().RotateAboutCenter 0.0417223, 0
Part.ActiveView().RotateAboutCenter 0.036507, 0.0130125
Part.ActiveView().RotateAboutCenter 0.0521529, 0.00650626
Part.ActiveView().RotateAboutCenter 0.0938753, 0.0195188
Part.ActiveView().RotateAboutCenter 0.0417223, 0.0130125
Part.ActiveView().RotateAboutCenter 0.0312918, 0.0130125
Part.ActiveView().RotateAboutCenter 0.0312918, 0.00650626
Part.ActiveView().RotateAboutCenter 0.0156459, 0.00650626
Part.ActiveView().RotateAboutCenter 0.0104306, 0
Part.ActiveView().RotateAboutCenter 0, 0.00650626
Part.ActiveView().RotateAboutCenter -0.00521529, 0
Part.ActiveView().RotateAboutCenter -0.00521529, 0.00650626
Part.ActiveView().RotateAboutCenter -0.0208612, 0.0130125
Part.ActiveView().RotateAboutCenter -0.0312918, 0.026025
Part.ActiveView().RotateAboutCenter -0.0417223, 0.026025
Part.ActiveView().RotateAboutCenter -0.0521529, 0.0390375
Part.ActiveView().RotateAboutCenter -0.0573682, 0.0390375
Part.ActiveView().RotateAboutCenter -0.0625835, 0.0520501
Part.ActiveView().RotateAboutCenter -0.0625835, 0.0455438
Part.ActiveView().RotateAboutCenter -0.08866, 0.0780751
Part.ActiveView().RotateAboutCenter -0.0417223, 0.026025
Part.ActiveView().RotateAboutCenter -0.0469376, 0.026025
Part.ActiveView().RotateAboutCenter -0.0417223, 0.0195188
Part.ActiveView().RotateAboutCenter -0.0469376, 0
Part.ActiveView().RotateAboutCenter -0.0312918, 0
Part.ActiveView().RotateAboutCenter -0.0260765, -0.00650626
Part.ActiveView().RotateAboutCenter -0.0104306, 0
Part.ActiveView().RotateAboutCenter -0.0104306, -0.00650626
Part.ActiveView().RotateAboutCenter -0.00521529, 0
Part.ActiveView().RotateAboutCenter -0.00521529, 0
Part.ActiveView().RotateAboutCenter 0, 0.00650626
Part.ActiveView().RotateAboutCenter -0.00521529, 0.0195188
Part.ActiveView().RotateAboutCenter -0.00521529, 0.0325313
Part.ActiveView().RotateAboutCenter 0, 0.0455438
Part.ActiveView().RotateAboutCenter 0, 0.0650626
Part.ActiveView().RotateAboutCenter 0.0104306, 0.0845813
Part.ActiveView().RotateAboutCenter 0.0156459, 0.117113
Part.ActiveView().RotateAboutCenter 0.0312918, 0.110606
Part.ActiveView().RotateAboutCenter 0.036507, 0.130125
Part.ActiveView().RotateAboutCenter 0.0312918, 0.130125
Part.ActiveView().RotateAboutCenter 0.0156459, 0.0975939
Part.ActiveView().RotateAboutCenter 0.0260765, 0.0910876
Part.ActiveView().RotateAboutCenter 0.00521529, 0.0650626
Part.ActiveView().RotateAboutCenter 0.0104306, 0.0455438
Part.ActiveView().RotateAboutCenter 0.00521529, 0.0130125
Part.ActiveView().RotateAboutCenter 0, 0.00650626
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter 0.0156459, 0.00650626
Part.ActiveView().RotateAboutCenter 0.036507, 0.0195188
Part.ActiveView().RotateAboutCenter 0.0156459, 0.0130125
Part.ActiveView().RotateAboutCenter 0.0104306, 0.00650626
Part.ActiveView().RotateAboutCenter 0.0104306, 0
Part.ActiveView().RotateAboutCenter 0.0104306, 0.00650626
Part.ActiveView().RotateAboutCenter 0.0104306, 0.00650626
Part.ActiveView().RotateAboutCenter 0.0104306, 0.00650626
Part.ActiveView().RotateAboutCenter 0.00521529, 0.00650626
Part.ActiveView().RotateAboutCenter 0.00521529, 0
Part.ActiveView().RotateAboutCenter -0.00521529, 0
' MSGBOX
' One or more documents are being closed as a result of this operation.   If you do not save them, your changes will be lost.
' Click "Yes" to close and save them.
' Click "No" to close them without the changes.

Set Part = Nothing
swApp.CloseDoc "M2 freewave test assy.SLDASM"
swApp.ExitApp
End Sub