' ******************************************************************************
' swxJRNL.swj - journal recorded on 12/04/03 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 ("E:\Canyon Dynamics\rin-bin\rin_V8.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("rin_V8")
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.0129057
Part.ActiveView().RotateAboutCenter -0.00646063, 0.077434
Part.ActiveView().RotateAboutCenter -0.0484547, 0.038717
Part.ActiveView().RotateAboutCenter -0.0549153, -0.00430189
Part.ActiveView().RotateAboutCenter -0.0742972, -0.0344151
Part.ActiveView().RotateAboutCenter -0.00323031, -0.00430189
Part.ActiveView().RotateAboutCenter 0.0226122, -0.0946416
Part.ActiveView().RotateAboutCenter 0.0355334, -0.107547
Part.ActiveView().RotateAboutCenter 0.0161516, -0.0129057
Part.ActiveView().RotateAboutCenter 0.0226122, -0.00860378
Part.ActiveView().RotateAboutCenter 0, 0.00430189
Part.ActiveView().RotateAboutCenter 0, 0.00430189
Part.ActiveView().RotateAboutCenter -0.1066, 0.0258113
Part.ActiveView().RotateAboutCenter -0.0710669, -0.0731322
Part.ActiveView().RotateAboutCenter -0.0226122, -0.0645284
Part.ActiveView().RotateAboutCenter 0.0323031, -0.129057
Part.ActiveView().RotateAboutCenter 0.0807578, -0.0645284
Part.ActiveView().RotateAboutCenter 0.0710669, -0.0258113
Part.ActiveView().RotateAboutCenter -0.00646063, 0.00860378
Part.ActiveView().RotateAboutCenter 0.0161516, 0.283925
Part.ActiveView().RotateAboutCenter 0.0161516, 0.0430189
Part.ActiveView().RotateAboutCenter 0.00646063, 0.038717
Part.ActiveView().RotateAboutCenter -0.00323031, 0.00860378
Part.ActiveView().RotateAboutCenter 0, -0.00430189
boolstatus = Part.Extension.SelectByID("", "FACE", -0.603579742875, 0.2856294629162, 0.8273515782282, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("base_door_Assem_V3-1@rin_V8/base_door_hingeblock_V3-1@base_door_Assem_V3", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "E:\Canyon Dynamics\rin-bin\Door Assembly\base_door_hingeblock_V3.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("E:\Canyon Dynamics\rin-bin\Door Assembly\base_door_hingeblock_V3.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("base_door_hingeblock_V3")
Part.ClearSelection2 True
Part.ActiveView().RotateAboutCenter -0.00646063, 0
Part.ActiveView().RotateAboutCenter -0.284268, 0
Part.ActiveView().RotateAboutCenter 0, 0.00430189
Part.ActiveView().RotateAboutCenter 0.636372, 0.524831
Part.ActiveView().RotateAboutCenter 0.303649, 0.443095
Part.ActiveView().RotateAboutCenter 0.0129213, 0.473208
Part.ActiveView().RotateAboutCenter -0.445783, 0.0602265
Part.ActiveView().RotateAboutCenter -0.323031, -0.542038
Part.ActiveView().RotateAboutCenter -0.00646063, -0.851775
Part.ActiveView().RotateAboutCenter 0.161516, -0.305434
Part.ActiveView().RotateAboutCenter 0.145364, 0.176378
' MSGBOX
' E:\Canyon Dynamics\rin-bin\Door Assembly\base_door_hingeblock_V3.SLDPRT is being referenced by other open documents.  "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references.  

Part.SaveAs2 "C:\Documents and Settings\fejo\Desktop\base_door_hingeblock_V3.SLDPRT", 0, TRUE, FALSE
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.Save2 FALSE
swApp.ExitApp
End Sub