' ******************************************************************************
' swxJRNL.swj - journal recorded on 06/10/03 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 = Application.SldWorks

Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\LiftBeam\Lift Beam.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Lift Beam")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter -0.0066172, 0.00797744
Part.ActiveView().RotateAboutCenter -0.0463204, 0.119662
Part.ActiveView().RotateAboutCenter -0.11911, 0.127639
Part.ActiveView().RotateAboutCenter -0.11911, 0.0957293
Part.ActiveView().RotateAboutCenter -0.066172, 0.0558421
Part.ActiveView().RotateAboutCenter -0.066172, 0.0558421
Part.ActiveView().RotateAboutCenter -0.178664, 0.0957293
Part.ActiveView().RotateAboutCenter -0.317625, 0.0797744
Part.ActiveView().RotateAboutCenter -0.191899, 0.0239323
Part.ActiveView().RotateAboutCenter -0.0595548, -0.0239323
Part.ActiveView().RotateAboutCenter -0.0066172, 0
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter 0.172047, -0.0319098
Part.ActiveView().RotateAboutCenter 0.350711, -0.127639
Part.ActiveView().RotateAboutCenter 0.0860236, -0.0478647
Part.ActiveView().RotateAboutCenter 0.112492, -0.0319098
Part.ActiveView().RotateAboutCenter 0.125727, -0.0239323
Part.ActiveView().RotateAboutCenter 0.066172, 0
Part.ActiveView().RotateAboutCenter 0.0066172, 0
Part.ActiveView().RotateAboutCenter 0.0926407, 0.0797744
Part.ActiveView().RotateAboutCenter 0.0595548, 0.255278
Part.ActiveView().RotateAboutCenter 0.0463204, 0.68606
Part.ActiveView().RotateAboutCenter -0.0264688, 0.111684
Part.ActiveView().RotateAboutCenter -0.0066172, 0.0159549
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter -0.0397032, -0.103707
Part.ActiveView().RotateAboutCenter -0.0727892, -0.135617
Part.ActiveView().RotateAboutCenter -0.0397032, -0.0558421
Part.ActiveView().RotateAboutCenter -0.0066172, -0.0159549
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter 0.0066172, -0.0558421
Part.ActiveView().RotateAboutCenter 0.0397032, -0.143594
Part.ActiveView().RotateAboutCenter 0.0132344, -0.0398872
Part.ActiveView().RotateAboutCenter 0.0066172, 0
Part.ActiveView().RotateAboutCenter 0.0595548, -0.0159549
Part.ActiveView().RotateAboutCenter 0.132344, -0.0478647
Part.ActiveView().RotateAboutCenter 0.0132344, -0.183481
Part.ActiveView().RotateAboutCenter -0.0132344, -0.398872
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter 0, 0.00797744
Part.ActiveView().RotateAboutCenter 0.0463204, 0.223368
Part.ActiveView().RotateAboutCenter 0.033086, 0.111684
Part.ActiveView().RotateAboutCenter 0, 0.00797744
Part.ActiveView().RotateAboutCenter 0.16543, 0.0797744
Part.ActiveView().RotateAboutCenter 0.125727, 0.0877519
Part.ActiveView().RotateAboutCenter 0.112492, 0.0638195
Part.ActiveView().RotateAboutCenter 0.0727892, 0.00797744
Part.ActiveView().RotateAboutCenter 0.033086, 0
Part.ActiveView().RotateAboutCenter 0.0198516, 0
Part.ActiveView().RotateAboutCenter 0.0066172, 0
Part.ActiveView().RotateAboutCenter 0.0066172, 0
Part.ActiveView().RotateAboutCenter 0.0794064, 0.0159549
Part.ActiveView().RotateAboutCenter 0.0794064, 0.0319098
Part.ActiveView().RotateAboutCenter 0.0066172, 0
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter -0.0463204, -0.0558421
Part.ActiveView().RotateAboutCenter -0.291157, -0.0638195
Part.ActiveView().RotateAboutCenter -0.105875, 0.00797744
Part.ActiveView().RotateAboutCenter -0.0926407, 0.0478647
Part.ActiveView().RotateAboutCenter -0.0794064, 0.0877519
Part.ActiveView().RotateAboutCenter -0.0794064, 0.0558421
Part.ActiveView().RotateAboutCenter -0.0463204, 0.0319098
Part.ActiveView().RotateAboutCenter -0.112492, 0.0877519
Part.ActiveView().RotateAboutCenter -0.125727, 0.0558421
Part.ActiveView().RotateAboutCenter -0.0794064, 0.0398872
Part.ActiveView().RotateAboutCenter -0.0397032, 0.0478647
Part.ActiveView().RotateAboutCenter -0.0463204, 0.0797744
Part.ActiveView().RotateAboutCenter -0.0066172, 0.0398872
Part.ActiveView().RotateAboutCenter -0.0066172, 0.0239323
Part.ActiveView().RotateAboutCenter -0.0132344, 0.0398872
Part.ActiveView().RotateAboutCenter -0.0198516, 0.0398872
Part.ActiveView().RotateAboutCenter -0.0132344, 0.0319098
Part.ActiveView().RotateAboutCenter -0.0066172, 0.0159549
boolstatus = Part.Extension.SelectByID("End Plate Mk2-1@Lift Beam", "COMPONENT", -0.008630020954246, 0.01805132920498, 0.4206875000294, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0.0066172, 0.00797744
Part.ActiveView().RotateAboutCenter 0.0198516, 0.071797
Part.ActiveView().RotateAboutCenter 0.0066172, 0.0319098
Part.ActiveView().RotateAboutCenter 0.0066172, 0.0159549
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter -0.0132344, -0.0319098
Part.ActiveView().RotateAboutCenter -0.033086, -0.0478647
Part.ActiveView().RotateAboutCenter -0.0066172, -0.0239323
Part.ActiveView().RotateAboutCenter 0, 0.00797744
Part.ActiveView().RotateAboutCenter 0, 0.0319098
Part.ActiveView().RotateAboutCenter 0.0066172, 0.0239323
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter 0, -0.0159549
Part.ActiveView().RotateAboutCenter 0, -0.0239323
Part.ActiveView().RotateAboutCenter -0.0066172, -0.0159549
boolstatus = Part.Extension.SelectByID("End Plate Mk2-2@Lift Beam", "COMPONENT", 0.01862442031719, 0.02847106589833, 0, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0.0066172, 0
Part.ActiveView().RotateAboutCenter 0.0397032, 0.0159549
Part.ActiveView().RotateAboutCenter 0.0198516, 0.0239323
Part.ActiveView().RotateAboutCenter 0.0198516, 0.00797744
Part.ActiveView().RotateAboutCenter 0.0132344, 0
Part.ActiveView().RotateAboutCenter 0.033086, -0.00797744
Part.ActiveView().RotateAboutCenter 0.033086, -0.0319098
Part.ActiveView().RotateAboutCenter 0.0198516, -0.0398872
Part.ActiveView().RotateAboutCenter 0, -0.0797744
Part.ActiveView().RotateAboutCenter -0.0066172, -0.0558421
Part.ActiveView().RotateAboutCenter -0.0463204, -0.0319098
Part.ActiveView().RotateAboutCenter -0.0926407, -0.0239323
Part.ActiveView().RotateAboutCenter -0.11911, -0.0319098
Part.ActiveView().RotateAboutCenter -0.125727, 0
Part.ActiveView().RotateAboutCenter -0.11911, 0.0558421
Part.ActiveView().RotateAboutCenter -0.112492, 0.0957293
Part.ActiveView().RotateAboutCenter -0.0727892, 0.135617
Part.ActiveView().RotateAboutCenter -0.0066172, 0.0558421
Part.ActiveView().RotateAboutCenter 0.0397032, 0.119662
Part.ActiveView().RotateAboutCenter 0.105875, 0.111684
Part.ActiveView().RotateAboutCenter 0.125727, 0.0478647
Part.ActiveView().RotateAboutCenter 0.105875, 0.0239323
Part.ActiveView().RotateAboutCenter 0.125727, 0
Part.ActiveView().RotateAboutCenter 0.0727892, -0.0239323
Part.ActiveView().RotateAboutCenter 0.105875, -0.0957293
Part.ActiveView().RotateAboutCenter 0.0529376, -0.0957293
Part.ActiveView().RotateAboutCenter 0.0198516, -0.0638195
Part.ActiveView().RotateAboutCenter 0, -0.0558421
Part.ActiveView().RotateAboutCenter -0.0132344, -0.0877519
Part.ActiveView().RotateAboutCenter -0.0397032, -0.0877519
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter -0.0132344, 0
Part.ActiveView().RotateAboutCenter -0.066172, 0.00797744
Part.ActiveView().RotateAboutCenter -0.0264688, 0.0398872
Part.ActiveView().RotateAboutCenter -0.0132344, 0.0239323
Part.ActiveView().RotateAboutCenter -0.0132344, 0.0159549
Part.ActiveView().RotateAboutCenter -0.0529376, 0.0239323
Part.ActiveView().RotateAboutCenter -0.0198516, 0
Part.ActiveView().RotateAboutCenter 0, 0.00797744
Part.ActiveView().RotateAboutCenter -0.0198516, 0.00797744
Part.ActiveView().RotateAboutCenter -0.0066172, 0.0239323
Part.ActiveView().RotateAboutCenter 0.0066172, 0.0239323
Part.ActiveView().RotateAboutCenter 0, 0.00797744
Part.ActiveView().RotateAboutCenter 0.0264688, 0.0159549
Part.ActiveView().RotateAboutCenter 0.0066172, 0
Part.ActiveView().RotateAboutCenter 0.0066172, 0
Part.ActiveView().RotateAboutCenter 0.0264688, -0.00797744
Part.ActiveView().RotateAboutCenter 0.0132344, -0.00797744
Part.ActiveView().RotateAboutCenter 0, 0.00797744
Part.ActiveView().RotateAboutCenter 0, 0.00797744
Part.ActiveView().RotateAboutCenter 0, 0.00797744
Part.ActiveView().RotateAboutCenter 0, 0.00797744
Part.ActiveView().RotateAboutCenter -0.0066172, 0
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter 0, -0.0159549
Part.ActiveView().RotateAboutCenter 0.0132344, -0.0398872
Part.ActiveView().RotateAboutCenter 0.0132344, -0.111684
Part.ActiveView().RotateAboutCenter 0, -0.111684
Part.ActiveView().RotateAboutCenter -0.0132344, -0.119662
Part.ActiveView().RotateAboutCenter -0.0198516, -0.159549
Part.ActiveView().RotateAboutCenter 0, -0.119662
Part.ActiveView().RotateAboutCenter -0.0066172, -0.0558421
Part.ActiveView().RotateAboutCenter -0.0132344, -0.119662
Part.ActiveView().RotateAboutCenter 0, -0.0319098
Part.ActiveView().RotateAboutCenter 0, 0.00797744
Part.ActiveView().RotateAboutCenter 0.0066172, 0.0319098
Part.ActiveView().RotateAboutCenter 0.0132344, 0.0398872
Part.ActiveView().RotateAboutCenter 0.0066172, 0.0398872
Part.ActiveView().RotateAboutCenter 0.0066172, 0.00797744
Part.ActiveView().RotateAboutCenter 0, 0.0159549
Part.ActiveView().RotateAboutCenter 0, 0.071797
Part.ActiveView().RotateAboutCenter 0, 0.0159549
Part.ActiveView().RotateAboutCenter 0.0066172, 0.0319098
Part.ActiveView().RotateAboutCenter 0.0066172, 0.0239323
Part.ActiveView().RotateAboutCenter 0, 0.00797744
Part.ActiveView().RotateAboutCenter 0.0198516, 0.0957293
Part.ActiveView().RotateAboutCenter 0, 0.0558421
Part.ActiveView().RotateAboutCenter 0, 0.0558421
Part.ActiveView().RotateAboutCenter 0, 0.0558421
Part.ActiveView().RotateAboutCenter 0, 0.0239323
Part.ActiveView().RotateAboutCenter 0.0066172, 0.0398872
Part.ActiveView().RotateAboutCenter 0.0264688, 0.0877519
Part.ActiveView().RotateAboutCenter 0, 0.00797744
Part.ActiveView().RotateAboutCenter -0.0066172, 0.0797744
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub