' ******************************************************************************
' swxJRNL.swj - journal recorded on 08/05/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 ("\\Tornado\MechEng\Work In Progress\Canyon Dynamics\rin-bin\Frame\T_FrameAssem.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("T_FrameAssem")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ShowNamedView2 "*Isometric", 7
Part.ActiveView().RotateAboutCenter 0, 0.00797744
Part.ActiveView().RotateAboutCenter -0.0460433, 0.0239323
Part.ActiveView().RotateAboutCenter -0.0394657, 0.00797744
Part.ActiveView().RotateAboutCenter -0.0394657, 0.0159549
Part.ActiveView().RotateAboutCenter -0.0131552, 0
Part.ActiveView().RotateAboutCenter -0.0197328, 0
Part.ActiveView().RotateAboutCenter -0.00657761, 0
Part.ActiveView().RotateAboutCenter -0.0460433, -0.00797744
Part.ActiveView().RotateAboutCenter -0.0657761, -0.0398872
Part.ActiveView().RotateAboutCenter -0.00657761, -0.0159549
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter 0.0591985, -0.0638195
Part.ActiveView().RotateAboutCenter 0.0394657, -0.0319098
Part.ActiveView().RotateAboutCenter 0.0263104, -0.0239323
Part.ActiveView().RotateAboutCenter 0.0526209, -0.0319098
Part.ActiveView().RotateAboutCenter 0.0460433, -0.0319098
Part.ActiveView().RotateAboutCenter 0.0131552, 0
Part.ActiveView().RotateAboutCenter 0.0263104, -0.0159549
Part.ActiveView().RotateAboutCenter 0.0328881, -0.0159549
Part.ActiveView().RotateAboutCenter 0.0591985, -0.0319098
Part.ActiveView().RotateAboutCenter 0.0328881, -0.0239323
Part.ActiveView().RotateAboutCenter 0.0263104, -0.00797744
Part.ActiveView().RotateAboutCenter 0.0131552, -0.00797744
Part.ActiveView().RotateAboutCenter -0.00657761, 0
Part.ActiveView().RotateAboutCenter -0.0591985, 0
Part.ActiveView().RotateAboutCenter -0.0328881, -0.00797744
Part.ActiveView().RotateAboutCenter -0.00657761, 0
Part.ActiveView().RotateAboutCenter -0.0526209, 0
Part.ActiveView().RotateAboutCenter -0.00657761, 0
Part.ActiveView().RotateAboutCenter -0.0197328, 0
Part.ActiveView().RotateAboutCenter -0.0460433, 0
Part.ActiveView().RotateAboutCenter -0.0460433, 0
Part.ActiveView().RotateAboutCenter -0.0657761, 0
Part.ActiveView().RotateAboutCenter -0.0197328, 0
Part.ActiveView().RotateAboutCenter 0.00657761, 0.00797744
Part.ActiveView().RotateAboutCenter 0.0789313, 0.0797744
Part.ActiveView().RotateAboutCenter 0.0657761, 0.0638195
Part.ActiveView().RotateAboutCenter 0.0591985, 0.0159549
Part.ActiveView().RotateAboutCenter 0.0460433, 0.00797744
Part.ActiveView().RotateAboutCenter 0.085509, 0.0239323
Part.ActiveView().RotateAboutCenter 0.0591985, 0.0159549
Part.ActiveView().RotateAboutCenter 0.0328881, 0.00797744
Part.ActiveView().RotateAboutCenter 0.0394657, 0.00797744
Part.ActiveView().RotateAboutCenter 0.0657761, 0.0239323
Part.ActiveView().RotateAboutCenter 0.0657761, 0.0159549
Part.ActiveView().RotateAboutCenter 0.0723537, 0
Part.ActiveView().RotateAboutCenter 0.0789313, 0
Part.ActiveView().RotateAboutCenter 0.0657761, 0
Part.ActiveView().RotateAboutCenter 0.0986642, 0.0159549
Part.ActiveView().RotateAboutCenter 0.105242, 0.0159549
Part.ActiveView().RotateAboutCenter 0.0263104, 0
Part.ActiveView().RotateAboutCenter 0.00657761, 0
Part.ActiveView().RotateAboutCenter 0, 0.00797744
Part.ActiveView().RotateAboutCenter 0.0131552, 0.0239323
Part.ActiveView().RotateAboutCenter 0.0131552, 0
Part.ActiveView().RotateAboutCenter 0.0394657, 0
Part.ActiveView().RotateAboutCenter 0.0197328, 0
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter -0.0789313, -0.0558421
Part.ActiveView().RotateAboutCenter -0.0394657, -0.00797744
Part.ActiveView().RotateAboutCenter -0.0723537, 0
Part.ActiveView().RotateAboutCenter -0.0526209, 0
Part.ActiveView().RotateAboutCenter -0.0460433, 0.00797744
Part.ActiveView().RotateAboutCenter -0.0789313, 0.00797744
Part.ActiveView().RotateAboutCenter -0.0986642, 0
Part.ActiveView().RotateAboutCenter -0.0789313, -0.00797744
Part.ActiveView().RotateAboutCenter -0.105242, -0.00797744
Part.ActiveView().RotateAboutCenter -0.0723537, -0.00797744
Part.ActiveView().RotateAboutCenter -0.085509, -0.00797744
Part.ActiveView().RotateAboutCenter -0.0723537, -0.00797744
Part.ActiveView().RotateAboutCenter -0.0460433, -0.0159549
Part.ActiveView().RotateAboutCenter -0.0460433, -0.00797744
Part.ActiveView().RotateAboutCenter -0.0657761, -0.0159549
Part.ActiveView().RotateAboutCenter -0.0723537, -0.0159549
Part.ActiveView().RotateAboutCenter -0.0526209, -0.0239323
Part.ActiveView().RotateAboutCenter -0.0131552, -0.00797744
Part.ActiveView().RotateAboutCenter 0, 0.00797744
Part.ActiveView().RotateAboutCenter 0.0131552, 0.0797744
Part.ActiveView().RotateAboutCenter 0, 0.119662
Part.ActiveView().RotateAboutCenter 0.00657761, 0.00797744
Part.ActiveView().RotateAboutCenter 0, 0.0159549
Part.ActiveView().RotateAboutCenter 0, 0.0558421
Part.ActiveView().RotateAboutCenter 0, 0.111684
Part.ActiveView().RotateAboutCenter -0.0197328, 0.0558421
Part.ActiveView().RotateAboutCenter -0.118397, 0.0478647
Part.ActiveView().RotateAboutCenter -0.177596, -0.00797744
Part.ActiveView().RotateAboutCenter -0.0460433, -0.0478647
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter 0.00657761, -0.127639
Part.ActiveView().RotateAboutCenter 0.00657761, -0.143594
Part.ActiveView().RotateAboutCenter 0, -0.0957293
Part.ActiveView().RotateAboutCenter 0, -0.0957293
Part.ActiveView().RotateAboutCenter -0.0131552, -0.0558421
Part.ActiveView().RotateAboutCenter -0.0657761, -0.103707
Part.ActiveView().RotateAboutCenter -0.085509, -0.119662
Part.ActiveView().RotateAboutCenter -0.0394657, -0.0558421
Part.ActiveView().RotateAboutCenter -0.0197328, -0.0159549
Part.ActiveView().RotateAboutCenter -0.0920866, -0.0638195
Part.ActiveView().RotateAboutCenter -0.0460433, -0.0319098
Part.ActiveView().RotateAboutCenter -0.0197328, 0
Part.ActiveView().RotateAboutCenter -0.00657761, 0
Part.ActiveView().RotateAboutCenter -0.0328881, -0.0239323
Part.ActiveView().RotateAboutCenter 0.00657761, 0
Part.ActiveView().RotateAboutCenter 0.447278, -0.0159549
Part.ActiveView().RotateAboutCenter 0.486743, 0.119662
Part.ActiveView().RotateAboutCenter 0.223639, 0.207413
Part.ActiveView().RotateAboutCenter 0.124975, 0.62224
Part.ActiveView().RotateAboutCenter 0.0394657, 0.119662
Part.ActiveView().RotateAboutCenter 0.00657761, 0.00797744
Part.ActiveView().RotateAboutCenter 0.00657761, 0
Part.ActiveView().RotateAboutCenter 0.0328881, -0.0159549
Part.ActiveView().RotateAboutCenter 0.171018, -0.135617
Part.ActiveView().RotateAboutCenter 0.0591985, -0.223368
Part.ActiveView().RotateAboutCenter 0.0197328, -0.223368
Part.ActiveView().RotateAboutCenter -0.0460433, -0.151571
Part.ActiveView().RotateAboutCenter -0.0328881, -0.0638195
Part.ActiveView().RotateAboutCenter -0.0197328, -0.0159549
Part.ActiveView().RotateAboutCenter -0.00657761, 0
Part.ActiveView().RotateAboutCenter -0.085509, -0.0159549
Part.ActiveView().RotateAboutCenter -0.0460433, -0.00797744
Part.ActiveView().RotateAboutCenter -0.0197328, 0
Part.ActiveView().RotateAboutCenter -0.0789313, -0.00797744
Part.ActiveView().RotateAboutCenter -0.0263104, 0
Part.ActiveView().RotateAboutCenter -0.0394657, 0
Part.ActiveView().RotateAboutCenter -0.0657761, 0
Part.ActiveView().RotateAboutCenter -0.0394657, 0
Part.ActiveView().RotateAboutCenter -0.0460433, -0.00797744
Part.ActiveView().RotateAboutCenter -0.00657761, 0
Part.ActiveView().RotateAboutCenter -0.230216, -0.0478647
Part.ActiveView().RotateAboutCenter -0.0789313, -0.0319098
Part.ActiveView().RotateAboutCenter 0, -0.00797744
Part.ActiveView().RotateAboutCenter 0.407812, -0.0638195
Part.ActiveView().RotateAboutCenter 0.565675, -0.00797744
Part.ActiveView().RotateAboutCenter 0.0986642, 0.00797744
Part.ActiveView().RotateAboutCenter 0.144707, 0.0159549
Part.ActiveView().RotateAboutCenter 0.00657761, 0
Part.ActiveView().RotateAboutCenter 0.27626, 0.0877519
Part.ActiveView().RotateAboutCenter 0.0460433, 0.0159549
Part.ActiveView().RotateAboutCenter -0.00657761, 0
Part.ActiveView().RotateAboutCenter -0.0131552, 0
Part.ActiveView().RotateAboutCenter -0.085509, 0
Part.ActiveView().RotateAboutCenter -0.0394657, 0.00797744
Part.ShowNamedView2 "*Top", 5
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.648313565757, 0, -1.090987719615, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.6702902967996, 0, 1.094127252621, True, 0, Nothing)
Part.ToolsMassProps
boolstatus = Part.Extension.SelectByID("T_FrameAssem.SLDASM", "COMPONENT", 0, 0, 0, True, 0, Nothing)
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ClearSelection
swApp.ExitApp
End Sub