' ******************************************************************************
' swxJRNL.swj - journal recorded on 09/15/04 by hamilton
' *****************************************************************************
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:\Documents and Settings\hamilton\My Documents\MOOS\MOOS Vertical Profiling\WireTerminations\MSI_Swage.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("MSI_Swage")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.Save2 FALSE
Part.ActiveView().RotateAboutCenter 0.00627124, 0
Part.ActiveView().RotateAboutCenter 0.00627124, 0
Part.ActiveView().RotateAboutCenter 0, -0.0101498
Part.ActiveView().RotateAboutCenter 0.0188137, -0.0101498
Part.ActiveView().RotateAboutCenter 0.0125425, -0.0101498
Part.ActiveView().RotateAboutCenter 0.0188137, -0.0101498
Part.ActiveView().RotateAboutCenter 0.0125425, -0.0202995
Part.ActiveView().RotateAboutCenter 0.00627124, 0
Part.ActiveView().RotateAboutCenter 0.0188137, -0.0202995
Part.ActiveView().RotateAboutCenter 0.025085, -0.0202995
Part.ActiveView().RotateAboutCenter 0.025085, -0.0304493
Part.ActiveView().RotateAboutCenter 0.0125425, -0.0202995
Part.ActiveView().RotateAboutCenter 0.0313562, -0.0304493
Part.ActiveView().RotateAboutCenter 0.025085, -0.040599
Part.ActiveView().RotateAboutCenter 0.025085, -0.040599
Part.ActiveView().RotateAboutCenter 0.0188137, -0.040599
Part.ActiveView().RotateAboutCenter 0.0438987, -0.0913478
Part.ActiveView().RotateAboutCenter 0.0438987, -0.111647
Part.ActiveView().RotateAboutCenter 0.0313562, -0.101498
Part.ActiveView().RotateAboutCenter 0.0188137, -0.040599
Part.ActiveView().RotateAboutCenter 0.00627124, -0.0202995
Part.ActiveView().RotateAboutCenter 0.00627124, -0.0202995
Part.ActiveView().RotateAboutCenter 0, -0.0101498
Part.ActiveView().RotateAboutCenter -0.00627124, 0
Part.ActiveView().RotateAboutCenter -0.00627124, 0.0101498
Part.ActiveView().RotateAboutCenter 0, 0.0101498
Part.ActiveView().RotateAboutCenter 0, 0.0202995
Part.ActiveView().RotateAboutCenter -0.00627124, 0.0202995
Part.ActiveView().RotateAboutCenter -0.00627124, 0.0101498
Part.ActiveView().RotateAboutCenter -0.00627124, 0.0202995
Part.ActiveView().RotateAboutCenter -0.0125425, 0.0101498
swApp.LoadFile2 "C:\Documents and Settings\hamilton\My Documents\MOOS\MOOS Vertical Profiling\WireTerminations\MSI_Swage.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\hamilton\My Documents\MOOS\MOOS Vertical Profiling\WireTerminations\MSI_Swage.SLDDRW", 3, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("MSI_Swage - Sheet1")
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.0492420781759, 0.2379171012582, 0, False, 0, Nothing)
Part.PrintDirect
swApp.ActiveDoc.ActiveView.FrameState = 1
' MSGBOX
' Save changes to MSI_Swage - Sheet1?

Part.Save2 FALSE
Part.ClearSelection2 True
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("MSI_Swage")
swApp.ExitApp
End Sub