' ******************************************************************************
' swxJRNL.swj - journal recorded on 10/10/02 by hamilton
' ******************************************************************************

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 ("\\polarbear\dorado\Multibeam\reson documents\SolidWorks Models\MBARI ICPU.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("MBARI ICPU")
Part.ShowNamedView2 "*Front", 1
Part.AndSelectByID "", "EDGE", -0.08134338605514, 0.09078519374584, 0
Part.ShowNamedView2 "*Left", 3
Part.ShowNamedView2 "*Right", 4
Part.AndSelectByID "", "EDGE", 0.1133264550839, -0.09706345161863, 0.2487954264172
Part.ShowNamedView2 "*Isometric", 7
Part.ActiveView().RotateAboutCenter 0, -0.00987626
Part.ActiveView().RotateAboutCenter 0.043073, -0.0592576
Part.ActiveView().RotateAboutCenter 0.0287153, -0.128391
Part.ActiveView().RotateAboutCenter -0.0287153, -0.246907
Part.ActiveView().RotateAboutCenter -0.0717883, -0.395051
Part.ActiveView().RotateAboutCenter -0.0358941, -0.23703
Part.ActiveView().RotateAboutCenter 0, -0.0395051
Part.ActiveView().RotateAboutCenter 0.0215365, -0.0691339
Part.ActiveView().RotateAboutCenter 0.0646095, -0.138268
Part.ActiveView().RotateAboutCenter 0.0933248, -0.128391
Part.ActiveView().RotateAboutCenter 0.0502518, -0.0691339
Part.ActiveView().RotateAboutCenter 0.114861, -0.187649
Part.ActiveView().RotateAboutCenter 0.0358941, -0.0790101
Part.ActiveView().RotateAboutCenter 0.0646095, -0.0888864
Part.ActiveView().RotateAboutCenter 0.043073, -0.0987626
Part.ActiveView().RotateAboutCenter 0.00717883, -0.0493813
Part.ActiveView().RotateAboutCenter 0.0215365, -0.0296288
Part.ActiveView().RotateAboutCenter 0.0215365, -0.0493813
Part.ActiveView().RotateAboutCenter 0.0143577, -0.0296288
Part.ActiveView().RotateAboutCenter 0.0143577, -0.0296288
Part.ActiveView().RotateAboutCenter 0, -0.0197525
Part.ActiveView().RotateAboutCenter 0.00717883, 0
Part.ActiveView().RotateAboutCenter 0.00717883, 0
Part.ActiveView().RotateAboutCenter 0.0215365, -0.00987626
Part.ActiveView().RotateAboutCenter 0.0287153, -0.00987626
Part.ActiveView().RotateAboutCenter -0.00717883, 0
Part.ActiveView().RotateAboutCenter -0.0358941, -0.00987626
Part.ActiveView().RotateAboutCenter -0.0143577, -0.00987626
Part.ActiveView().RotateAboutCenter 0, -0.00987626
Part.ActiveView().RotateAboutCenter 0, -0.00987626
Part.ActiveView().RotateAboutCenter 0, -0.0197525
Part.ActiveView().RotateAboutCenter 0.00717883, -0.0197525
Part.ActiveView().RotateAboutCenter 0.0287153, -0.0987626
Part.ActiveView().RotateAboutCenter 0.0215365, -0.0691339
Part.ActiveView().RotateAboutCenter 0.0358941, -0.0790101
Part.ActiveView().RotateAboutCenter 0.0502518, -0.0592576
Part.ActiveView().RotateAboutCenter 0.0143577, -0.0197525
Part.ActiveView().RotateAboutCenter 0.043073, -0.0493813
Part.ActiveView().RotateAboutCenter 0.12204, -0.148144
Part.ActiveView().RotateAboutCenter 0.0502518, -0.0691339
Part.ActiveView().RotateAboutCenter 0.0143577, -0.0296288
Part.ActiveView().RotateAboutCenter 0.0358941, -0.0790101
Part.ActiveView().RotateAboutCenter 0.0358941, -0.0493813
Part.ActiveView().RotateAboutCenter 0.0502518, -0.0592576
Part.ActiveView().RotateAboutCenter 0.0358941, -0.0395051
Part.ActiveView().RotateAboutCenter 0.0646095, -0.148144
Part.ActiveView().RotateAboutCenter 0.0287153, -0.0790101
Part.ActiveView().RotateAboutCenter 0.0215365, -0.0592576
Part.ActiveView().RotateAboutCenter 0.0215365, -0.0691339
Part.ActiveView().RotateAboutCenter 0.0143577, -0.0197525
Part.ActiveView().RotateAboutCenter 0.0574306, -0.0197525
Part.ActiveView().RotateAboutCenter 0.0143577, 0
Part.ActiveView().RotateAboutCenter 0.0287153, -0.00987626
Part.ActiveView().RotateAboutCenter 0.043073, 0
Part.ActiveView().RotateAboutCenter 0.043073, 0
Part.ActiveView().RotateAboutCenter 0.0215365, 0
Part.ActiveView().RotateAboutCenter 0.00717883, 0
Part.ActiveView().RotateAboutCenter 0, 0.00987626
Part.ActiveView().RotateAboutCenter -0.0143577, 0.0296288
Part.ActiveView().RotateAboutCenter -0.00717883, 0.00987626
Part.ActiveView().RotateAboutCenter -0.00717883, 0
Part.ActiveView().RotateAboutCenter -0.0215365, 0
Part.ActiveView().RotateAboutCenter -0.00717883, 0
Part.ActiveView().RotateAboutCenter -0.00717883, 0
Part.ActiveView().RotateAboutCenter 0, -0.00987626
Part.ActiveView().RotateAboutCenter 0.00717883, -0.0197525
Part.ActiveView().RotateAboutCenter 0, -0.00987626
Part.ActiveView().RotateAboutCenter 0.00717883, 0
Part.ActiveView().RotateAboutCenter 0, 0.00987626
Part.ActiveView().RotateAboutCenter 0.00717883, 0.0395051
Part.ActiveView().RotateAboutCenter 0, 0.00987626
Part.ActiveView().RotateAboutCenter -0.0574306, 0.375298
Part.ActiveView().RotateAboutCenter -0.0502518, 0.306164
Part.ActiveView().RotateAboutCenter -0.0646095, 0.15802
Part.ActiveView().RotateAboutCenter -0.0358941, 0.108639
Part.ActiveView().RotateAboutCenter -0.0358941, 0.0691339
Part.ActiveView().RotateAboutCenter -0.0789671, 0.0691339
Part.ActiveView().RotateAboutCenter -0.043073, 0.0592576
Part.ActiveView().RotateAboutCenter -0.0646095, 0.0987626
Part.ActiveView().RotateAboutCenter -0.0358941, 0.0592576
Part.ActiveView().RotateAboutCenter -0.0358941, 0.0691339
Part.ActiveView().RotateAboutCenter -0.0143577, 0.0296288
Part.ActiveView().RotateAboutCenter -0.0143577, 0.00987626
Part.ActiveView().RotateAboutCenter -0.00717883, 0.00987626
Part.ActiveView().RotateAboutCenter 0, 0.00987626
Part.ActiveView().RotateAboutCenter -0.0143577, 0.0493813
Part.ActiveView().RotateAboutCenter -0.00717883, 0
Part.ActiveView().RotateAboutCenter 0, 0.00987626
Part.ActiveView().RotateAboutCenter -0.00717883, 0.00987626
Part.ActiveView().RotateAboutCenter 0, 0.00987626
Part.ActiveView().RotateAboutCenter 0, 0.00987626
Part.ActiveView().RotateAboutCenter 0, 0.0296288
Part.ActiveView().RotateAboutCenter 0, 0.00987626
Part.ActiveView().RotateAboutCenter 0, 0.00987626
Part.ActiveView().RotateAboutCenter -0.00717883, 0
Part.ActiveView().RotateAboutCenter -0.00717883, 0.0493813
Part.ActiveView().RotateAboutCenter -0.0143577, 0.0395051
Part.ActiveView().RotateAboutCenter -0.00717883, 0.0296288
Part.ActiveView().RotateAboutCenter 0, -0.00987626
Part.ActiveView().RotateAboutCenter 0.0215365, -0.0987626
Part.ActiveView().RotateAboutCenter 0.00717883, -0.0888864
Part.ActiveView().RotateAboutCenter 0, -0.0197525
Part.ActiveView().RotateAboutCenter 0.0143577, -0.0592576
Part.ActiveView().RotateAboutCenter 0.00717883, -0.0197525
Part.ActiveView().RotateAboutCenter 0, -0.00987626
Part.ActiveView().RotateAboutCenter 0.00717883, -0.00987626
Part.ActiveView().RotateAboutCenter 0.0143577, -0.0691339
Part.ActiveView().RotateAboutCenter 0, -0.00987626
Part.ActiveView().RotateAboutCenter -0.0287153, -0.0197525
Part.ActiveView().RotateAboutCenter -0.0287153, -0.0197525
Part.ActiveView().RotateAboutCenter 0, -0.00987626
Part.ActiveView().RotateAboutCenter -0.00717883, 0
Part.ActiveView().RotateAboutCenter -0.0143577, -0.00987626
Part.ActiveView().RotateAboutCenter -0.0287153, -0.0197525
Part.ActiveView().RotateAboutCenter -0.0358941, -0.0296288
Part.ActiveView().RotateAboutCenter -0.00717883, 0
Part.ActiveView().RotateAboutCenter -0.0215365, -0.00987626
Part.ActiveView().RotateAboutCenter -0.0358941, -0.0197525
Part.ActiveView().RotateAboutCenter -0.0358941, -0.0296288
Part.ActiveView().RotateAboutCenter -0.0287153, -0.0691339
Part.ActiveView().RotateAboutCenter -0.00717883, -0.0493813
Part.ActiveView().RotateAboutCenter -0.00717883, -0.00987626
Part.ActiveView().RotateAboutCenter -0.0143577, -0.0296288
Part.ActiveView().RotateAboutCenter -0.0215365, -0.0592576
Part.ActiveView().RotateAboutCenter -0.00717883, -0.00987626
Part.ActiveView().RotateAboutCenter 0, -0.00987626
Part.ActiveView().RotateAboutCenter 0, -0.0197525
Part.ActiveView().RotateAboutCenter 0.00717883, 0
Part.ActiveView().RotateAboutCenter 0.0358941, -0.00987626
Part.ActiveView().RotateAboutCenter 0.043073, -0.00987626
Part.ActiveView().RotateAboutCenter 0.043073, -0.00987626
Part.ActiveView().RotateAboutCenter 0.0502518, 0
Part.ActiveView().RotateAboutCenter 0.0789671, 0.0197525
Part.ActiveView().RotateAboutCenter 0.0646095, 0.0395051
Part.ActiveView().RotateAboutCenter 0.114861, 0.167896
Part.ActiveView().RotateAboutCenter 0.086146, 0.286412
Part.ActiveView().RotateAboutCenter 0.0502518, 0.207402
Part.ActiveView().RotateAboutCenter 0.0287153, 0.187649
Part.ActiveView().RotateAboutCenter -0.0143577, 0.641957
Part.ActiveView().RotateAboutCenter -0.0789671, 0.513566
Part.ActiveView().RotateAboutCenter -0.086146, 0.177773
Part.ActiveView().RotateAboutCenter -0.157934, 0.207402
Part.ActiveView().RotateAboutCenter -0.086146, 0.0987626
Part.ActiveView().RotateAboutCenter -0.0717883, 0.0691339
Part.ActiveView().RotateAboutCenter -0.086146, 0.138268
Part.ActiveView().RotateAboutCenter -0.0574306, 0.266659
Part.ActiveView().RotateAboutCenter 0.00717883, 0.770349
Part.ActiveView().RotateAboutCenter 0.0574306, 0.908616
Part.ActiveView().RotateAboutCenter 0.0287153, 0.533318
Part.ActiveView().RotateAboutCenter 0.0215365, 0.0790101
Part.ActiveView().RotateAboutCenter 0.00717883, 0
Part.ActiveView().RotateAboutCenter 0.0574306, 0.0790101
Part.ActiveView().RotateAboutCenter 0.107682, 0.138268
Part.ActiveView().RotateAboutCenter 0.0646095, 0.138268
Part.ActiveView().RotateAboutCenter 0.0574306, 0.108639
Part.ActiveView().RotateAboutCenter 0.157934, 0.375298
Part.ActiveView().RotateAboutCenter 0.0717883, 0.31604
Part.ActiveView().RotateAboutCenter 0.0143577, 0.414803
Part.ActiveView().RotateAboutCenter 0.0143577, 0.217278
Part.ActiveView().RotateAboutCenter 0.0287153, 0.0395051
Part.ActiveView().RotateAboutCenter 0.0287153, 0.0493813
Part.ActiveView().RotateAboutCenter 0.086146, 0.0987626
Part.ActiveView().RotateAboutCenter 0.0215365, 0.0296288
Part.ActiveView().RotateAboutCenter -0.0215365, 0.167896
Part.ActiveView().RotateAboutCenter -0.043073, 0.0987626
Part.ActiveView().RotateAboutCenter -0.172292, -0.227154
Part.ActiveView().RotateAboutCenter -0.114861, -1.30367
Part.ActiveView().RotateAboutCenter -0.0646095, -1.34317
Part.ActiveView().RotateAboutCenter -0.0215365, -0.167896
Part.ActiveView().RotateAboutCenter -0.0574306, -0.0987626
Part.ActiveView().RotateAboutCenter -0.114861, -0.355546
Part.ActiveView().RotateAboutCenter -0.0646095, -0.0395051
Part.ActiveView().RotateAboutCenter -0.129219, -0.256783
Part.ActiveView().RotateAboutCenter -0.107682, -0.730844
Part.ActiveView().RotateAboutCenter -0.0143577, -0.513566
Part.ActiveView().RotateAboutCenter -0.00717883, -0.197525
Part.ActiveView().RotateAboutCenter -0.0358941, -0.138268
Part.ActiveView().RotateAboutCenter -0.0215365, -0.167896
Part.ActiveView().RotateAboutCenter -0.00717883, 0
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "MBARI ICPU"
Set Part = swApp.OpenDoc4 ("U:\MultiBeam Tail\MultiTail.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("MultiTail")
Set Part = Nothing
swApp.CloseDoc "MultiTail"
Set Part = swApp.OpenDoc4 ("U:\MultiBeam Tail\MultiTail.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("MultiTail")
Part.SelectByID "", "FACE", 0.0207893967132, 0.2123078816914, 0.1608524494281
Part.HideComponent2
Part.ClearSelection
Part.Save2 FALSE
swApp.ExitApp
End Sub