' ******************************************************************************
' swxJRNL.swj - journal recorded on 02/14/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\Kearfott\kearfott_rev2.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("kearfott_rev2")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0, 0.00797744
Part.ActiveView().RotateAboutCenter -0.0526209, 0.303143
Part.ActiveView().RotateAboutCenter -0.184173, 0.119662
Part.ActiveView().RotateAboutCenter -0.473588, 0.127639
Part.ActiveView().RotateAboutCenter -0.335458, 0.0319098
Part.ActiveView().RotateAboutCenter -0.263104, -0.071797
Part.ActiveView().RotateAboutCenter -0.085509, -0.0159549
Part.ActiveView().RotateAboutCenter -0.184173, 0.00797744
Part.ActiveView().RotateAboutCenter -0.0263104, 0.00797744
Part.ActiveView().RotateAboutCenter 0, 0.00797744
Part.ActiveView().RotateAboutCenter -0.00657761, 0.0319098
Part.ActiveView().RotateAboutCenter -0.0526209, 0.127639
Part.ActiveView().RotateAboutCenter -0.0263104, 0.0638195
Part.ActiveView().RotateAboutCenter -0.00657761, 0.00797744
Part.ActiveView().RotateAboutCenter 0, 0.00797744
Part.ActiveView().RotateAboutCenter 0.00657761, 0.071797
Part.ActiveView().RotateAboutCenter 0.0197328, 0.0319098
Part.ActiveView().RotateAboutCenter 0.0723537, 0.0398872
Part.ActiveView().RotateAboutCenter 0.124975, 0.0638195
Part.ActiveView().RotateAboutCenter 0.0591985, 0.0239323
Part.ActiveView().RotateAboutCenter 0.118397, 0.0558421
Part.ActiveView().RotateAboutCenter 0.085509, 0.0159549
Part.ActiveView().RotateAboutCenter 0.0657761, 0.00797744
Part.ActiveView().RotateAboutCenter 0.0526209, -0.0159549
Part.ActiveView().RotateAboutCenter 0.0723537, -0.0239323
Part.ActiveView().RotateAboutCenter 0.0263104, -0.0159549
Part.ActiveView().RotateAboutCenter 0.0263104, -0.0478647
Part.ActiveView().RotateAboutCenter 0.0328881, -0.0398872
Part.ActiveView().RotateAboutCenter 0.0263104, -0.0239323
Part.ActiveView().RotateAboutCenter 0.00657761, -0.00797744
Part.ActiveView().RotateAboutCenter 0.0263104, -0.0239323
Part.ActiveView().RotateAboutCenter 0.0526209, -0.0398872
Part.ActiveView().RotateAboutCenter 0.0526209, -0.0319098
Part.ActiveView().RotateAboutCenter 0.0263104, -0.0239323
Part.ActiveView().RotateAboutCenter 0.00657761, -0.00797744
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1166949302736, -0.06862883320579, -0.2512707698157, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection
Part.EditUndo 1
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1093903144705, 0.02690318940279, -0.1993736383814, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter -0.00657761, 0
Part.ActiveView().RotateAboutCenter -0.085509, -0.0638195
Part.ActiveView().RotateAboutCenter -0.0789313, -0.0558421
Part.ActiveView().RotateAboutCenter -0.0920866, -0.0558421
Part.ActiveView().RotateAboutCenter -0.0328881, -0.0398872
Part.ActiveView().RotateAboutCenter -0.0920866, -0.0558421
Part.ActiveView().RotateAboutCenter -0.0460433, -0.0239323
Part.ActiveView().RotateAboutCenter -0.210484, -0.0797744
Part.ActiveView().RotateAboutCenter -0.171018, -0.0478647
Part.ActiveView().RotateAboutCenter -0.190751, -0.0638195
Part.ActiveView().RotateAboutCenter -0.085509, -0.0478647
Part.ActiveView().RotateAboutCenter -0.0460433, -0.0159549
Part.ActiveView().RotateAboutCenter 0, -0.00797744
boolstatus = Part.Extension.SelectByID("", "FACE", -0.01933327668777, 0.1024321091569, -0.2167296956853, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "K:\Multibeam\Kearfott\kearfott_rev1.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("K:\Multibeam\Kearfott\kearfott_rev1.SLDPRT", 1, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("kearfott_rev1")
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter 0, -0.0398872
Part.ActiveView().RotateAboutCenter 0, -0.0239323
Part.ActiveView().RotateAboutCenter 0, -0.0319098
Part.ActiveView().RotateAboutCenter -0.00678739, -0.0319098
Part.ActiveView().RotateAboutCenter -0.0610865, -0.127639
Part.ActiveView().RotateAboutCenter -0.0814487, -0.199436
Part.ActiveView().RotateAboutCenter -0.0678739, -0.127639
Part.ActiveView().RotateAboutCenter -0.0135748, -0.0478647
Part.ActiveView().RotateAboutCenter -0.0203622, -0.0797744
Part.ActiveView().RotateAboutCenter -0.00678739, -0.0398872
Part.ActiveView().RotateAboutCenter 0, -0.0478647
Part.ActiveView().RotateAboutCenter -0.00678739, -0.0239323
Part.ActiveView().RotateAboutCenter -0.0610865, -0.0558421
Part.ActiveView().RotateAboutCenter -0.0950235, -0.0638195
Part.ActiveView().RotateAboutCenter -0.251133, -0.071797
Part.ActiveView().RotateAboutCenter -0.0746613, -0.0159549
Part.ActiveView().RotateAboutCenter -0.0271496, -0.00797744
Part.ActiveView().RotateAboutCenter -0.0203622, -0.00797744
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter 0.0882361, -0.0558421
Part.ActiveView().RotateAboutCenter 0.149323, -0.0558421
Part.ActiveView().RotateAboutCenter 0.0950235, -0.0159549
Part.ActiveView().RotateAboutCenter 0.108598, -0.00797744
Part.ActiveView().RotateAboutCenter 0.122173, -0.00797744
Part.ActiveView().RotateAboutCenter 0.0746613, 0
Part.ActiveView().RotateAboutCenter 0.0882361, 0
Part.ActiveView().RotateAboutCenter 0.0271496, 0
Part.ActiveView().RotateAboutCenter 0.033937, -0.00797744
Part.ActiveView().RotateAboutCenter 0.0610865, -0.0159549
Part.ActiveView().RotateAboutCenter 0.0542991, -0.00797744
Part.ActiveView().RotateAboutCenter 0.0814487, -0.0159549
Part.ActiveView().RotateAboutCenter 0.0746613, -0.00797744
Part.ActiveView().RotateAboutCenter 0.0746613, 0
Part.ActiveView().RotateAboutCenter 0.0542991, -0.00797744
Part.ActiveView().RotateAboutCenter 0.0135748, 0
Part.ActiveView().RotateAboutCenter 0.033937, 0
Part.ActiveView().RotateAboutCenter 0.033937, 0
Part.ActiveView().RotateAboutCenter 0.0271496, -0.00797744
Part.ActiveView().RotateAboutCenter 0.033937, 0
Part.ActiveView().RotateAboutCenter 0.0271496, -0.00797744
Part.ActiveView().RotateAboutCenter 0.0271496, 0
Part.ActiveView().RotateAboutCenter 0.0475117, 0
Part.ActiveView().RotateAboutCenter 0.0135748, 0
Part.ActiveView().RotateAboutCenter 0.0135748, 0
Part.ActiveView().RotateAboutCenter 0.0135748, 0
Part.ActiveView().RotateAboutCenter 0.0135748, 0
Part.ActiveView().RotateAboutCenter 0.0271496, 0.00797744
Part.ActiveView().RotateAboutCenter 0.0475117, 0.0239323
Part.ActiveView().RotateAboutCenter 0.0475117, 0.0957293
Part.ActiveView().RotateAboutCenter 0.0135748, 0.0877519
Part.ActiveView().RotateAboutCenter -0.033937, 0.103707
Part.ActiveView().RotateAboutCenter -0.0407243, 0.0797744
Part.ActiveView().RotateAboutCenter -0.0746613, 0.127639
Part.ActiveView().RotateAboutCenter -0.0271496, 0.0797744
Part.ActiveView().RotateAboutCenter -0.0135748, 0.0319098
Part.ActiveView().RotateAboutCenter -0.0271496, 0.0558421
Part.ActiveView().RotateAboutCenter -0.0135748, 0.0319098
Part.ActiveView().RotateAboutCenter -0.0203622, 0.0558421
Part.ActiveView().RotateAboutCenter -0.0271496, 0.0638195
Part.ActiveView().RotateAboutCenter -0.0203622, 0.0797744
Part.ActiveView().RotateAboutCenter -0.0203622, 0.0638195
Part.ActiveView().RotateAboutCenter -0.0135748, 0.0558421
Part.ActiveView().RotateAboutCenter -0.00678739, 0.00797744
boolstatus = Part.Extension.SelectByID("", "FACE", 7.438584410124e-005, 0.1482067880011, 0.2193081567837, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 7.438584410124e-005, 0.1482067880011, 0.2193081567837, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.0223336225294, 0.1541454338715, 0.2315980170315, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Cut-Extrude14", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Cut-Extrude14", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Cut-Extrude14", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.03587190250434, 0.1550171773948, 0.2428371592327, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.03587190250434, 0.1550171773948, 0.2428371592327, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("CirPattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection
Part.ActiveView().RotateAboutCenter -0.00678739, 0
Part.ActiveView().RotateAboutCenter -0.15611, -0.00797744
Part.ActiveView().RotateAboutCenter -0.0950235, 0
Part.ActiveView().RotateAboutCenter -0.0746613, 0.0159549
Part.ActiveView().RotateAboutCenter -0.0678739, 0.0319098
Part.ActiveView().RotateAboutCenter -0.108598, 0.071797
Part.ActiveView().RotateAboutCenter -0.0407243, 0.0478647
Part.ActiveView().RotateAboutCenter -0.0271496, 0.0319098
Part.ActiveView().RotateAboutCenter -0.0678739, 0.111684
Part.ActiveView().RotateAboutCenter -0.0610865, 0.0797744
Part.ActiveView().RotateAboutCenter -0.0542991, 0.111684
Part.ActiveView().RotateAboutCenter -0.0271496, 0.103707
Part.ActiveView().RotateAboutCenter -0.0271496, 0.111684
Part.ActiveView().RotateAboutCenter -0.033937, 0.071797
Part.ActiveView().RotateAboutCenter -0.033937, 0.0797744
Part.ActiveView().RotateAboutCenter -0.0610865, 0.103707
Part.ActiveView().RotateAboutCenter -0.0746613, 0.0638195
Part.ActiveView().RotateAboutCenter -0.0271496, 0.0159549
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter 0.00678739, -0.0638195
Part.ActiveView().RotateAboutCenter 0.0135748, -0.103707
Part.ActiveView().RotateAboutCenter 0.00678739, -0.071797
Part.ActiveView().RotateAboutCenter 0.0203622, -0.071797
Part.ActiveView().RotateAboutCenter 0.00678739, -0.00797744
Part.ActiveView().RotateAboutCenter 0.0135748, -0.0239323
Part.ActiveView().RotateAboutCenter 0.0203622, -0.0159549
Part.ActiveView().RotateAboutCenter 0, -0.0319098
Part.ActiveView().RotateAboutCenter 0.033937, -0.0797744
Part.ActiveView().RotateAboutCenter 0.0271496, -0.0638195
Part.ActiveView().RotateAboutCenter 0.0271496, -0.0957293
Part.ActiveView().RotateAboutCenter 0.0203622, -0.0797744
Part.ActiveView().RotateAboutCenter 0.00678739, -0.00797744
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter 0.0135748, -0.0319098
Part.ActiveView().RotateAboutCenter 0.0678739, -0.223368
Part.ActiveView().RotateAboutCenter 0.0475117, -0.103707
Part.ActiveView().RotateAboutCenter 0.0203622, -0.0319098
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1255806592083, 0.05307313987726, 0.2485599569268, False, 0, Nothing)
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "kearfott_rev1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("kearfott_rev2")
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter 0.00657761, 0
Part.ActiveView().RotateAboutCenter 0.00657761, 0
Part.ActiveView().RotateAboutCenter 0.0723537, -0.0478647
Part.ActiveView().RotateAboutCenter 0.105242, -0.0398872
Part.ActiveView().RotateAboutCenter 0.124975, -0.0398872
Part.ActiveView().RotateAboutCenter 0.0263104, -0.0239323
Part.ActiveView().RotateAboutCenter 0.0328881, -0.0319098
Part.ActiveView().RotateAboutCenter 0.00657761, -0.0478647
Part.ActiveView().RotateAboutCenter 0, -0.135617
Part.ActiveView().RotateAboutCenter 0, -0.0957293
Part.ActiveView().RotateAboutCenter -0.00657761, -0.071797
Part.ActiveView().RotateAboutCenter -0.0197328, -0.0478647
Part.ActiveView().RotateAboutCenter -0.0526209, -0.135617
Part.ActiveView().RotateAboutCenter -0.0328881, -0.0877519
Part.ActiveView().RotateAboutCenter -0.0789313, -0.103707
Part.ActiveView().RotateAboutCenter -0.0328881, -0.0478647
Part.ActiveView().RotateAboutCenter -0.0131552, -0.0159549
Part.ActiveView().RotateAboutCenter -0.00657761, 0
Part.ActiveView().RotateAboutCenter -0.0131552, -0.00797744
Part.ActiveView().RotateAboutCenter -0.0657761, -0.0478647
Part.ActiveView().RotateAboutCenter -0.0328881, -0.0558421
Part.ActiveView().RotateAboutCenter -0.0263104, -0.0558421
Part.ActiveView().RotateAboutCenter -0.00657761, 0
Part.ActiveView().RotateAboutCenter -0.00657761, -0.00797744
Part.ActiveView().RotateAboutCenter -0.0197328, -0.0398872
Part.ActiveView().RotateAboutCenter -0.0131552, -0.0159549
Part.ActiveView().RotateAboutCenter -0.0263104, -0.0558421
Part.ActiveView().RotateAboutCenter -0.0131552, -0.00797744
Part.ActiveView().RotateAboutCenter -0.0131552, -0.0159549
Part.ActiveView().RotateAboutCenter -0.0591985, -0.0638195
Part.ActiveView().RotateAboutCenter -0.0328881, -0.0558421
Part.ToolsMassProps
boolstatus = Part.Extension.SelectByID("kearfott_rev2.SLDASM", "COMPONENT", 0, 0, 0, True, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter -0.00657761, -0.0478647
Part.ActiveView().RotateAboutCenter -0.0526209, -0.103707
Part.ActiveView().RotateAboutCenter -0.0526209, -0.175504
Part.ActiveView().RotateAboutCenter -0.00657761, -0.00797744
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "kearfott_rev2"
swApp.ExitApp
End Sub