' ******************************************************************************
' swxJRNL.swj - journal recorded on 09/23/04 by fejo
' *****************************************************************************
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 ("X:\600045.DORISS\600045.PUP\PUP.Engineering\PUP.ME.Dwgs\600045-PUP\johns puppy\Cradle-2.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Cradle-2.SLDPRT")
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.00786334
Part.ActiveView().RotateAboutCenter 0.10651, -0.0943601
Part.ActiveView().RotateAboutCenter 0.175428, -0.133677
Part.ActiveView().RotateAboutCenter 0.0626528, -0.0314534
Part.ActiveView().RotateAboutCenter 0.0751834, -0.0550434
Part.ActiveView().RotateAboutCenter 0.0375917, -0.02359
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.238081, 0.0157267
Part.ActiveView().RotateAboutCenter 0.10651, 0
Part.ActiveView().RotateAboutCenter 0.0563876, -0.00786334
Part.ActiveView().RotateAboutCenter 0.0814487, 0
Part.ActiveView().RotateAboutCenter 0.125306, 0.0707701
Part.ActiveView().RotateAboutCenter 0.0501223, 0.02359
Part.ActiveView().RotateAboutCenter 0.112775, 0.0550434
Part.ActiveView().RotateAboutCenter 0.181693, 0.0864968
Part.ActiveView().RotateAboutCenter 0.0501223, 0.00786334
Part.ActiveView().RotateAboutCenter 0.0501223, -0.0314534
Part.ActiveView().RotateAboutCenter 0.043857, -0.0629067
Part.ActiveView().RotateAboutCenter 0.00626528, -0.00786334
Part.ActiveView().RotateAboutCenter 0.00626528, -0.02359
Part.ActiveView().RotateAboutCenter 0.0125306, -0.02359
Part.ActiveView().RotateAboutCenter 0, -0.00786334
Part.ActiveView().RotateAboutCenter -0.0125306, -0.02359
Part.ActiveView().RotateAboutCenter -0.238081, -0.0314534
Part.ActiveView().RotateAboutCenter -0.0814487, 0
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.0313264, -0.0314534
Part.ActiveView().RotateAboutCenter -0.00626528, -0.00786334
Part.ActiveView().RotateAboutCenter 0.043857, -0.0471801
Part.ActiveView().RotateAboutCenter 0.175428, -0.0629067
Part.ActiveView().RotateAboutCenter 0.0501223, -0.00786334
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.0250611, 0.0157267
Part.ActiveView().RotateAboutCenter 0, 0.00786334
Part.ActiveView().RotateAboutCenter -0.0751834, 0.0864968
Part.ActiveView().RotateAboutCenter -0.0313264, 0.0629067
Part.ActiveView().RotateAboutCenter -0.0125306, 0
Part.ActiveView().RotateAboutCenter -0.100245, 0
Part.ActiveView().RotateAboutCenter -0.0814487, 0
Part.ActiveView().RotateAboutCenter -0.0814487, 0
Part.ActiveView().RotateAboutCenter -0.100245, -0.0550434
Part.ActiveView().RotateAboutCenter -0.0751834, -0.0393167
Part.ActiveView().RotateAboutCenter -0.0125306, -0.02359
Part.ActiveView().RotateAboutCenter -0.0125306, -0.02359
Part.ActiveView().RotateAboutCenter -0.00626528, -0.102223
Part.ActiveView().RotateAboutCenter 0, -0.133677
Part.ActiveView().RotateAboutCenter 0, -0.0629067
Part.ActiveView().RotateAboutCenter 0.0313264, -0.0707701
Part.ActiveView().RotateAboutCenter 0.0250611, -0.02359
Part.ActiveView().RotateAboutCenter 0.0187959, -0.00786334
Part.ActiveView().RotateAboutCenter 0.0375917, 0
Part.ActiveView().RotateAboutCenter 0.0751834, 0
Part.ActiveView().RotateAboutCenter 0.0501223, 0.00786334
Part.ActiveView().RotateAboutCenter 0.0187959, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
boolstatus = Part.Extension.SelectByID("", "AXIS", -0.01220072158342, -0.004279318586071, -0.0193640195161, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.00346929085913, 0.08255, -0.01802551981285, True, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0, 0.00786334
Part.ActiveView().RotateAboutCenter -0.0250611, 0
Part.ActiveView().RotateAboutCenter -0.0814487, 0
Part.ActiveView().RotateAboutCenter -0.100245, -0.0157267
Part.ActiveView().RotateAboutCenter -0.131571, -0.0393167
Part.ActiveView().RotateAboutCenter -0.0563876, -0.0157267
Part.ActiveView().RotateAboutCenter -0.0125306, -0.00786334
Part.ActiveView().RotateAboutCenter -0.0250611, -0.02359
Part.ActiveView().RotateAboutCenter -0.0689181, -0.110087
Part.ActiveView().RotateAboutCenter -0.0751834, -0.16513
Part.ActiveView().RotateAboutCenter -0.0375917, -0.110087
Part.ActiveView().RotateAboutCenter -0.0563876, -0.172994
Part.ActiveView().RotateAboutCenter -0.0375917, -0.102223
Part.ActiveView().RotateAboutCenter -0.0250611, -0.0393167
Part.ActiveView().RotateAboutCenter -0.00626528, -0.0157267
Part.ActiveView().RotateAboutCenter -0.00626528, -0.00786334
Part.ActiveView().RotateAboutCenter 0, 0.00786334
Part.ActiveView().RotateAboutCenter 0.00626528, 0.02359
Part.ActiveView().RotateAboutCenter 0.0187959, 0.0550434
Part.ActiveView().RotateAboutCenter 0.0250611, 0.0471801
Part.ActiveView().RotateAboutCenter 0.0375917, 0.0393167
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.0313264, 0
Part.ActiveView().RotateAboutCenter 0.0501223, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.0187959, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.0563876, 0.0550434
Part.ActiveView().RotateAboutCenter 0.0125306, 0.02359
Part.ActiveView().RotateAboutCenter 0.00626528, 0.0157267
Part.ActiveView().RotateAboutCenter 0, 0.0314534
Part.ActiveView().RotateAboutCenter -0.00626528, 0.02359
Part.ActiveView().RotateAboutCenter 0.00626528, 0.102223
Part.ActiveView().RotateAboutCenter 0.0187959, 0.133677
Part.ActiveView().RotateAboutCenter 0.00626528, 0.0550434
Part.ActiveView().RotateAboutCenter 0, 0.0314534
Part.ActiveView().RotateAboutCenter 0, 0.0157267
Part.ActiveView().RotateAboutCenter -0.00626528, 0.0157267
Part.ActiveView().RotateAboutCenter -0.00626528, 0.0471801
Part.ActiveView().RotateAboutCenter -0.00626528, 0.0314534
Part.ActiveView().RotateAboutCenter -0.0187959, 0.0550434
Part.ActiveView().RotateAboutCenter -0.00626528, 0.0707701
Part.ActiveView().RotateAboutCenter -0.00626528, 0.0629067
Part.ActiveView().RotateAboutCenter 0, 0.0550434
Part.ActiveView().RotateAboutCenter -0.00626528, 0.0393167
Part.ActiveView().RotateAboutCenter -0.0187959, 0.0550434
Part.ActiveView().RotateAboutCenter -0.0250611, 0.0314534
Part.ActiveView().RotateAboutCenter -0.0313264, 0.0393167
Part.ActiveView().RotateAboutCenter -0.0125306, 0.00786334
Part.ActiveView().RotateAboutCenter -0.0250611, 0
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter 0, 0.00786334
Part.ActiveView().RotateAboutCenter 0.043857, 0.02359
Part.ActiveView().RotateAboutCenter 0.00626528, 0.00786334
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.0187959, 0
Part.ActiveView().RotateAboutCenter 0.0375917, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0
Part.ActiveView().RotateAboutCenter 0.0187959, 0
Part.ActiveView().RotateAboutCenter 0.0187959, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0, 0.00786334
Part.ActiveView().RotateAboutCenter 0.0250611, 0.0157267
Part.ActiveView().RotateAboutCenter 0.0313264, 0.0314534
Part.ActiveView().RotateAboutCenter 0.0313264, 0.0157267
Part.ActiveView().RotateAboutCenter 0.0250611, 0.0157267
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.0125306, 0.00786334
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0
Part.ActiveView().RotateAboutCenter 0.00626528, 0.0314534
Part.ActiveView().RotateAboutCenter 0, 0.00786334
Part.ActiveView().RotateAboutCenter 0, 0.00786334
Part.ActiveView().RotateAboutCenter 0, 0.02359
Part.ActiveView().RotateAboutCenter 0, 0.02359
Part.ActiveView().RotateAboutCenter 0, 0.0157267
Part.ActiveView().RotateAboutCenter 0, 0.0157267
Part.ActiveView().RotateAboutCenter 0, 0.02359
Part.ActiveView().RotateAboutCenter 0, 0.0393167
Part.ActiveView().RotateAboutCenter -0.00626528, 0.0393167
Part.ActiveView().RotateAboutCenter -0.0313264, 0.0393167
Part.ActiveView().RotateAboutCenter -0.0187959, 0.02359
Part.ActiveView().RotateAboutCenter -0.0187959, 0.0157267
Part.ActiveView().RotateAboutCenter -0.0313264, 0.0314534
Part.ActiveView().RotateAboutCenter -0.0125306, 0.00786334
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.0250611, 0
Part.ActiveView().RotateAboutCenter -0.0250611, 0
Part.ActiveView().RotateAboutCenter -0.0187959, 0
Part.ActiveView().RotateAboutCenter -0.0125306, 0.00786334
Part.ActiveView().RotateAboutCenter 0, 0.00786334
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.00626528, 0.00786334
Part.ActiveView().RotateAboutCenter -0.0125306, 0.00786334
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter 0, -0.00786334
Part.ActiveView().RotateAboutCenter -0.0626528, -0.0943601
Part.ActiveView().RotateAboutCenter -0.0939793, -0.16513
Part.ActiveView().RotateAboutCenter -0.0563876, -0.11795
Part.ActiveView().RotateAboutCenter -0.0626528, -0.149404
Part.ActiveView().RotateAboutCenter -0.0375917, -0.180857
Part.ActiveView().RotateAboutCenter 0.0563876, -0.16513
Part.ActiveView().RotateAboutCenter 0.100245, -0.157267
Part.ActiveView().RotateAboutCenter 0.150367, -0.196584
Part.ActiveView().RotateAboutCenter 0.0814487, -0.0471801
Part.ActiveView().RotateAboutCenter 0.0375917, 0
Part.ActiveView().RotateAboutCenter 0.0814487, 0.0471801
Part.ActiveView().RotateAboutCenter 0.087714, 0.0864968
Part.ActiveView().RotateAboutCenter 0.0313264, 0.0550434
Part.ActiveView().RotateAboutCenter 0, 0.02359
Part.ActiveView().RotateAboutCenter -0.00626528, 0.00786334
Part.ActiveView().RotateAboutCenter -0.0375917, 0.0314534
Part.ActiveView().RotateAboutCenter -0.087714, 0
Part.ActiveView().RotateAboutCenter -0.0626528, 0
Part.ActiveView().RotateAboutCenter -0.0187959, 0
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.0626528, 0.0471801
Part.ActiveView().RotateAboutCenter -0.0939793, 0.0864968
Part.ActiveView().RotateAboutCenter -0.00626528, 0
Part.ActiveView().RotateAboutCenter -0.0250611, 0.02359
Part.ActiveView().RotateAboutCenter -0.0563876, 0.0550434
Part.ActiveView().RotateAboutCenter -0.00626528, 0
boolstatus = Part.Extension.SelectByID("", "FACE", 0.05079999999998, -0.06942616942661, -0.02950628008233, True, 0, Nothing)
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ClearSelection2 True
swApp.ExitApp
End Sub