' ******************************************************************************
' swxJRNL.swj - journal recorded on 02/18/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 ("C:\M1 M2 anchor and backets\anchor\ring.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("ring")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0.161953, -0.253738
Part.ActiveView().RotateAboutCenter 0.014723, -0.0295044
Part.ActiveView().RotateAboutCenter 0.00490766, -0.00590088
Part.ActiveView().RotateAboutCenter 0.0245383, -0.0177026
Part.ActiveView().RotateAboutCenter 0.0490766, -0.0413061
Part.ActiveView().RotateAboutCenter 0.0343536, -0.0295044
Part.ActiveView().RotateAboutCenter 0.0637996, -0.0413061
Part.ActiveView().RotateAboutCenter 0.0441689, -0.0236035
Part.ActiveView().RotateAboutCenter 0.0785225, -0.0118018
Part.ActiveView().RotateAboutCenter 0.14723, 0
Part.ActiveView().RotateAboutCenter 0.127599, 0.0118018
Part.ActiveView().RotateAboutCenter 0.0392613, 0.0177026
Part.ActiveView().RotateAboutCenter 0.0196306, 0
Part.ActiveView().RotateAboutCenter 0.0441689, 0.0118018
Part.ActiveView().RotateAboutCenter 0.0343536, 0.0177026
Part.ActiveView().RotateAboutCenter 0.029446, 0.0177026
Part.ActiveView().RotateAboutCenter -0.00490766, -0.00590088
Part.ActiveView().RotateAboutCenter -0.0196306, 0
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07421991409986, -5.103488433633e-006, -0.08262188924409, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.107563, 0.0143232, -0.161598)
Part.ClearSelection2 True
Part.ActiveView().RotateAboutCenter 0, 0.00590088
Part.ActiveView().RotateAboutCenter -0.0245383, 0.00590088
Part.ActiveView().RotateAboutCenter -0.0883379, 0
Part.ActiveView().RotateAboutCenter -0.0539842, 0
Part.ActiveView().RotateAboutCenter -0.0490766, 0.00590088
Part.ActiveView().RotateAboutCenter -0.127599, 0.00590088
Part.ActiveView().RotateAboutCenter -0.0539842, 0.0118018
Part.ActiveView().RotateAboutCenter -0.0736149, 0.0177026
Part.ActiveView().RotateAboutCenter -0.0392613, 0.0118018
Part.ActiveView().RotateAboutCenter -0.0392613, 0.00590088
Part.ActiveView().RotateAboutCenter -0.0490766, 0.00590088
Part.ActiveView().RotateAboutCenter -0.00490766, 0
Part.ActiveView().RotateAboutCenter -0.0196306, 0
Part.ActiveView().RotateAboutCenter -0.0196306, 0
Part.ActiveView().RotateAboutCenter -0.0196306, -0.00590088
Part.ActiveView().RotateAboutCenter -0.0245383, 0
Part.ActiveView().RotateAboutCenter -0.0343536, 0.00590088
Part.ActiveView().RotateAboutCenter -0.0245383, 0.0118018
Part.ActiveView().RotateAboutCenter -0.0490766, 0.0295044
Part.ActiveView().RotateAboutCenter -0.0245383, 0.0177026
Part.ActiveView().RotateAboutCenter -0.014723, 0.00590088
Part.ActiveView().RotateAboutCenter 0.00490766, -0.00590088
Part.ActiveView().RotateAboutCenter 0.00490766, -0.00590088
Part.ActiveView().RotateAboutCenter 0.00490766, -0.00590088
Part.ActiveView().RotateAboutCenter 0.0343536, -0.0236035
Part.ActiveView().RotateAboutCenter 0.0245383, -0.0118018
Part.ActiveView().RotateAboutCenter 0.0490766, -0.0236035
Part.ActiveView().RotateAboutCenter 0.0539842, -0.0236035
Part.ActiveView().RotateAboutCenter 0.161953, -0.0826123
Part.ActiveView().RotateAboutCenter 0.0588919, -0.0531079
Part.ActiveView().RotateAboutCenter 0.0588919, -0.0531079
Part.ActiveView().RotateAboutCenter 0.0441689, -0.0295044
Part.ActiveView().RotateAboutCenter 0.0392613, -0.0236035
Part.ActiveView().RotateAboutCenter 0.00981532, 0
Part.ActiveView().RotateAboutCenter 0.00981532, 0
Part.ActiveView().RotateAboutCenter 0.00490766, 0.00590088
Part.ActiveView().RotateAboutCenter 0.014723, 0.0177026
Part.ActiveView().RotateAboutCenter 0.014723, 0.00590088
Part.ActiveView().RotateAboutCenter 0.0637996, 0.0413061
Part.ActiveView().RotateAboutCenter 0.0392613, 0.0413061
Part.ActiveView().RotateAboutCenter 0.014723, 0.0236035
Part.ActiveView().RotateAboutCenter 0.00490766, 0
Part.ActiveView().RotateAboutCenter -0.00490766, 0
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07944858835699, 7.784314186665e-005, -0.1155879474507, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0887969, 0.0334648, -0.201904)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("RD1@Annotations@ring.moPart_c", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.ActiveView().TranslateBy 0.000307371, 0
Part.ActiveView().TranslateBy 0, -0.000307371
Part.ActiveView().TranslateBy 0, -0.00983586
Part.ActiveView().TranslateBy -0.000614741, -0.00922112
Part.ActiveView().TranslateBy -0.000307371, -0.00338108
Part.ActiveView().TranslateBy -0.000307371, -0.00184422
Part.ActiveView().TranslateBy 0, -0.00584004
Part.ActiveView().TranslateBy -0.000614741, -0.0073769
Part.ActiveView().TranslateBy -0.000307371, -0.019057
Part.ActiveView().TranslateBy 0.000307371, -0.0184422
Part.ActiveView().TranslateBy 0.00122948, -0.010758
Part.ActiveView().TranslateBy -0.000307371, 0.000307371
Part.ActiveView().TranslateBy 0.000307371, 0
Part.ActiveView().TranslateBy 0.000307371, 0.000307371
Part.ActiveView().TranslateBy 0.00829901, 0.0138317
Part.ActiveView().TranslateBy 0.0073769, 0.019057
Part.ActiveView().TranslateBy 0.000307371, 0.00614741
swApp.LoadFile2 "C:\M1 M2 anchor and backets\anchor\train wheel.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\M1 M2 anchor and backets\anchor\train wheel.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("train wheel")
Part.ActiveView().RotateAboutCenter 0.00981532, 0.00590088
Part.ActiveView().RotateAboutCenter 0.00490766, 0
Part.ActiveView().RotateAboutCenter 0.103061, -0.0177026
Part.ActiveView().RotateAboutCenter 0.0736149, 0
Part.ActiveView().RotateAboutCenter 0.112876, 0
Part.ActiveView().RotateAboutCenter 0.284644, 0.0118018
Part.ActiveView().RotateAboutCenter 0.206122, 0.00590088
Part.ActiveView().RotateAboutCenter 0.0687072, 0.0118018
Part.ActiveView().RotateAboutCenter 0.014723, 0.00590088
Part.ActiveView().RotateAboutCenter 0.00490766, 0.00590088
Part.ActiveView().RotateAboutCenter 0.0441689, 0.0295044
Part.ActiveView().RotateAboutCenter 0.0441689, 0.0295044
Part.ActiveView().RotateAboutCenter 0.211029, 0.106216
Part.ActiveView().RotateAboutCenter 0.0245383, 0.0236035
Part.ActiveView().RotateAboutCenter 0.029446, 0.0177026
Part.ActiveView().RotateAboutCenter 0.196306, 0.0708105
Part.ActiveView().RotateAboutCenter 0.029446, 0.0177026
Part.ActiveView().RotateAboutCenter 0, -0.00590088
Part.ActiveView().RotateAboutCenter 0, -0.047207
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.132799520935, 0.01680007847222, 0.04965249171477, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0, 0.00590088
Part.ActiveView().RotateAboutCenter -0.0588919, 0.00590088
Part.ActiveView().RotateAboutCenter -0.0785225, -0.00590088
Part.ActiveView().RotateAboutCenter -0.132507, -0.0236035
Part.ActiveView().RotateAboutCenter -0.0490766, -0.0118018
Part.ActiveView().RotateAboutCenter -0.0392613, -0.0177026
Part.ActiveView().RotateAboutCenter -0.0441689, -0.0413061
Part.ActiveView().RotateAboutCenter -0.0441689, -0.0413061
Part.ActiveView().RotateAboutCenter -0.0588919, -0.047207
Part.ActiveView().RotateAboutCenter -0.0441689, -0.0531079
Part.ActiveView().RotateAboutCenter -0.0245383, -0.0295044
Part.ActiveView().RotateAboutCenter -0.029446, -0.0177026
Part.ActiveView().RotateAboutCenter -0.0441689, -0.0177026
Part.ActiveView().RotateAboutCenter -0.0637996, -0.0177026
Part.ActiveView().RotateAboutCenter 0, -0.00590088
Part.ActiveView().RotateAboutCenter 0.00490766, 0
Part.ActiveView().RotateAboutCenter 0.0539842, 0.0118018
Part.ActiveView().RotateAboutCenter 0.0588919, 0.0118018
Part.ActiveView().RotateAboutCenter 0.00490766, 0
Part.ActiveView().RotateAboutCenter 0.00981532, 0
Part.ActiveView().RotateAboutCenter 0, -0.00590088
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.125040639432, 0.01737789489545, -0.06193204085668, False, 0, Nothing)
' MSGBOX
' Select a plane, a planar, cylindrical, or conical face, or a feature that contains a single sketch.

' MSGBOX
' Select a plane, a planar, cylindrical, or conical face, or a feature that contains a single sketch.

Part.ActiveView().RotateAboutCenter -0.00490766, 0
Part.ActiveView().RotateAboutCenter -0.0490766, 0.00590088
Part.ActiveView().RotateAboutCenter -0.0490766, -0.00590088
Part.ActiveView().RotateAboutCenter -0.0196306, -0.00590088
Part.ActiveView().RotateAboutCenter -0.0736149, -0.0413061
Part.ActiveView().RotateAboutCenter -0.0588919, -0.0354053
Part.ActiveView().RotateAboutCenter -0.0441689, -0.0236035
Part.ActiveView().RotateAboutCenter -0.029446, -0.0236035
Part.ActiveView().RotateAboutCenter -0.0588919, -0.0295044
Part.ActiveView().RotateAboutCenter -0.00981532, -0.00590088
Part.ActiveView().RotateAboutCenter -0.014723, -0.0236035
Part.SetPickMode
Part.ClearSelection2 True
Part.SetPickMode
' MSGBOX
' Select a plane, a planar, cylindrical, or conical face, or a feature that contains a single sketch.

boolstatus = Part.Extension.SelectByID("", "EDGE", -0.1050768216872, 0.01823207378649, -0.09281719638238, True, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0.00490766, 0
Part.ActiveView().RotateAboutCenter 0.00490766, 0
Part.ActiveView().RotateAboutCenter 0, 0.00590088
Part.ActiveView().RotateAboutCenter 0.00490766, 0
Part.ActiveView().RotateAboutCenter 0.0245383, 0.0118018
Part.ActiveView().RotateAboutCenter 0.31409, 0.0826123
Part.ActiveView().RotateAboutCenter 0.112876, 0.047207
Part.ActiveView().RotateAboutCenter 0.186491, 0.0531079
Part.ActiveView().RotateAboutCenter 0.186491, 0.0590088
Part.ActiveView().RotateAboutCenter 0.0834302, 0.0236035
Part.ActiveView().RotateAboutCenter 0.0245383, 0.00590088
Part.ActiveView().RotateAboutCenter 0.0392613, 0.0118018
Part.ActiveView().RotateAboutCenter 0.117784, 0.0531079
Part.ActiveView().RotateAboutCenter 0.029446, 0.0177026
Part.ActiveView().RotateAboutCenter 0, 0.0236035
Part.ActiveView().RotateAboutCenter -0.0441689, 0.177026
Part.ActiveView().RotateAboutCenter -0.0785225, 0.047207
Part.ActiveView().RotateAboutCenter -0.152137, 0.0177026
Part.ActiveView().RotateAboutCenter -0.181583, -0.00590088
Part.ActiveView().RotateAboutCenter -0.00490766, 0
Part.ActiveView().RotateAboutCenter -0.0343536, 0
Part.ActiveView().RotateAboutCenter -0.0588919, 0.0118018
Part.ActiveView().RotateAboutCenter -0.0785225, 0.00590088
Part.ActiveView().RotateAboutCenter -0.14723, 0.0236035
Part.ActiveView().RotateAboutCenter -0.127599, 0.0177026
Part.ActiveView().RotateAboutCenter -0.0392613, 0.0295044
Part.ActiveView().RotateAboutCenter -0.0245383, 0.0236035
Part.ActiveView().RotateAboutCenter -0.014723, 0.0177026
Part.ActiveView().RotateAboutCenter -0.0196306, 0.0177026
Part.ActiveView().RotateAboutCenter -0.0343536, 0.0413061
Part.ActiveView().RotateAboutCenter -0.00981532, 0.0118018
Part.ActiveView().RotateAboutCenter -0.014723, 0.00590088
Part.ActiveView().RotateAboutCenter -0.00490766, 0
Part.ActiveView().RotateAboutCenter 0, 0.00590088
Part.ActiveView().RotateAboutCenter -0.299367, 0.0354053
Part.ActiveView().RotateAboutCenter -0.569288, 0.0118018
Part.ActiveView().RotateAboutCenter -0.412243, 0.0118018
Part.ActiveView().RotateAboutCenter -0.0539842, -0.0177026
Part.ActiveView().RotateAboutCenter 0, 0.00590088
Part.ActiveView().RotateAboutCenter 0.152137, 0.123918
Part.ActiveView().RotateAboutCenter 0.402428, 0.377656
Part.ActiveView().RotateAboutCenter 0.363167, 0.306846
Part.ActiveView().RotateAboutCenter 0.152137, 0.0767114
Part.ActiveView().RotateAboutCenter 0.0245383, 0
Part.ActiveView().RotateAboutCenter 0.00490766, -0.0118018
Part.ActiveView().RotateAboutCenter 0.029446, -0.236035
Part.ActiveView().RotateAboutCenter 0.014723, -0.118018
Part.ActiveView().RotateAboutCenter 0, -0.0177026
Part.ActiveView().RotateAboutCenter -0.0441689, -0.212432
Part.ActiveView().RotateAboutCenter -0.0736149, -0.094414
Part.ActiveView().RotateAboutCenter -0.0245383, 0
Part.ActiveView().RotateAboutCenter -0.0392613, 0.0236035
Part.ActiveView().RotateAboutCenter -0.0834302, 0.0531079
Part.ActiveView().RotateAboutCenter -0.0343536, 0.0354053
Part.ActiveView().RotateAboutCenter -0.0441689, 0.0177026
Part.ActiveView().RotateAboutCenter -0.00981532, -0.0295044
Part.ActiveView().RotateAboutCenter 0, -0.0295044
Part.ActiveView().RotateAboutCenter 0.00981532, -0.112117
Part.ActiveView().RotateAboutCenter 0.0196306, -0.0826123
Part.ActiveView().RotateAboutCenter 0.014723, -0.00590088
Part.ActiveView().RotateAboutCenter 0.0245383, 0
Part.ActiveView().RotateAboutCenter 0.014723, 0
Part.ActiveView().RotateAboutCenter 0.00490766, -0.00590088
Part.ActiveView().RotateAboutCenter 0.00981532, -0.0118018
Part.ActiveView().RotateAboutCenter 0.0343536, -0.094414
Part.ActiveView().RotateAboutCenter 0.00981532, -0.0826123
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection2 True
Part.ActiveView().RotateAboutCenter 0, 0.00590088
Part.ActiveView().RotateAboutCenter 0, 0.0236035
Part.ActiveView().RotateAboutCenter 0, 0.0118018
Part.ActiveView().RotateAboutCenter 0.00490766, 0.0118018
Part.ActiveView().RotateAboutCenter 0.0637996, 0.0590088
Part.ActiveView().RotateAboutCenter 0.0343536, 0.0295044
Part.ActiveView().RotateAboutCenter 0.014723, 0.0118018
Part.ActiveView().RotateAboutCenter 0.0687072, 0.0413061
Part.ActiveView().RotateAboutCenter 0.0392613, 0.0413061
Part.ActiveView().RotateAboutCenter 0.00981532, 0.0118018
Part.ActiveView().RotateAboutCenter -0.00490766, 0
Part.ActiveView().RotateAboutCenter -0.0834302, 0.224233
Part.ActiveView().RotateAboutCenter -0.0490766, 0.0413061
Part.ActiveView().RotateAboutCenter -0.0245383, 0
Part.ActiveView().RotateAboutCenter -0.0539842, -0.0295044
Part.ActiveView().RotateAboutCenter -0.0441689, -0.0413061
Part.ActiveView().RotateAboutCenter -0.0539842, -0.0885131
Part.ActiveView().RotateAboutCenter -0.00490766, -0.0236035
Part.ActiveView().RotateAboutCenter 0, -0.00590088
Part.ActiveView().RotateAboutCenter 0.00490766, -0.0177026
Part.ActiveView().RotateAboutCenter 0.0245383, -0.0649096
Part.ActiveView().RotateAboutCenter 0.029446, -0.0590088
Part.ActiveView().RotateAboutCenter 0.0441689, -0.0826123
Part.ActiveView().RotateAboutCenter 0.014723, -0.0118018
Part.ActiveView().RotateAboutCenter 0.0441689, -0.00590088
Part.ActiveView().RotateAboutCenter 0.0245383, -0.0118018
Part.ActiveView().RotateAboutCenter 0.0343536, 0
Part.ActiveView().RotateAboutCenter 0.00981532, 0.00590088
Part.ActiveView().RotateAboutCenter 0.00490766, 0
Part.ActiveView().RotateAboutCenter 0.0245383, 0.00590088
Part.ActiveView().RotateAboutCenter 0.0736149, 0.0236035
Part.ActiveView().RotateAboutCenter 0.0245383, 0.0236035
Part.ActiveView().RotateAboutCenter 0.00490766, 0.00590088
Part.ActiveView().RotateAboutCenter 0.029446, 0.0295044
Part.ActiveView().RotateAboutCenter 0.00981532, 0.00590088
Part.ActiveView().RotateAboutCenter 0, -0.00590088
Part.ActiveView().RotateAboutCenter 0.00981532, -0.047207
Part.ActiveView().RotateAboutCenter 0.00490766, -0.047207
Part.ActiveView().RotateAboutCenter -0.00490766, 0
Part.ActiveView().RotateAboutCenter -0.00490766, 0
Part.ActiveView().RotateAboutCenter -0.00981532, 0.0118018
Part.EditRebuild
Part.ActiveView().TranslateBy 0, -0.000307371
Part.ActiveView().TranslateBy -0.000307371, -0.000307371
Part.ActiveView().TranslateBy -0.00553267, -0.000307371
Part.ActiveView().TranslateBy -0.0270486, -0.000614741
Part.ActiveView().TranslateBy -0.0126022, -0.000614741
Part.ActiveView().TranslateBy -0.00584004, -0.00153685
Part.ActiveView().TranslateBy -0.0295076, -0.00614741
Part.ActiveView().TranslateBy -0.0221307, -0.0052253
Part.ActiveView().TranslateBy -0.000307371, 0
Part.ActiveView().TranslateBy 0.00153685, 0.000307371
Part.ActiveView().TranslateBy 0.00645479, 0.00307371
Part.ActiveView().TranslateBy 0.00245897, 0.019057
Part.ActiveView().TranslateBy 0.0021516, 0.00338108
Part.ActiveView().TranslateBy 0.00553267, 0.0052253
Part.ActiveView().TranslateBy 0.00768427, 0.00307371
Part.ActiveView().TranslateBy -0.000922112, -0.000307371
Part.ActiveView().RotateAboutCenter 0, 0.00590088
Part.ActiveView().RotateAboutCenter 0.0196306, 0.0236035
Part.ActiveView().RotateAboutCenter 0.181583, 0.0590088
Part.ActiveView().RotateAboutCenter 0.245383, 0.0413061
Part.ActiveView().RotateAboutCenter 0.103061, 0.0118018
Part.ActiveView().RotateAboutCenter 0.16686, -0.0649096
Part.ActiveView().RotateAboutCenter 0.0637996, -0.0885131
Part.ActiveView().RotateAboutCenter 0.0539842, -0.0413061
Part.ActiveView().RotateAboutCenter 0, -0.00590088
Part.ActiveView().RotateAboutCenter 0.00490766, 0.0354053
Part.ActiveView().RotateAboutCenter 0.0539842, 0.365854
Part.ActiveView().RotateAboutCenter -0.00490766, 0.0118018
Part.ActiveView().RotateAboutCenter -0.176676, 0
Part.ActiveView().RotateAboutCenter -0.353351, 0.0295044
Part.ActiveView().RotateAboutCenter -0.402428, -0.118018
Part.ActiveView().RotateAboutCenter -0.181583, -0.0531079
Part.ActiveView().RotateAboutCenter -0.0637996, -0.0531079
Part.ActiveView().RotateAboutCenter -0.014723, -0.0118018
Part.ActiveView().RotateAboutCenter -0.103061, -0.0236035
Part.ToolsMassProps
boolstatus = Part.Extension.SelectByID("train wheel.SLDPRT", "COMPONENT", 0, 0, 0, True, 0, Nothing)
swApp.ActiveDoc.ActiveView.FrameState = 1
' MSGBOX
' Save changes to ring?

' MSGBOX
' Save changes to train wheel?

Part.ClearSelection2 True
Part.ClearSelection2 True
swApp.ExitApp
End Sub