' ******************************************************************************
' swxJRNL.swj - journal recorded on 03/28/05 by Mayedah
' *****************************************************************************
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 ("\\Mpserver0\MARS\110563 LV POWER-COMMS HOUSING-DIVIDER BULKHEAD SUBASSY\110404 REV XA2.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("110404 REV XA2.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Front", "PLANE", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "110404 REV XA2.SLDPRT"
Set Part = swApp.OpenDoc6 ("\\Mpserver0\MARS\110563 LV POWER-COMMS HOUSING-DIVIDER BULKHEAD SUBASSY\110563-100 XB.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("110563-100 XB.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("", "FACE", 1.084260976067, -0.08093256944841, 0.2300170967612, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("110404 REV XA2-1@110563-100 XB", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "\\Mpserver0\MARS\110563 LV POWER-COMMS HOUSING-DIVIDER BULKHEAD SUBASSY\110404 REV XA2.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("\\Mpserver0\MARS\110563 LV POWER-COMMS HOUSING-DIVIDER BULKHEAD SUBASSY\110404 REV XA2.SLDPRT", 1, 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 ("110404 REV XA2.SLDPRT")
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Default@110404 REV XA2.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Default@110404 REV XA2.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Default@110404 REV XA2.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
' MSGBOX
' The configuration is being referenced by an open document.  Can't change name.

Part.EditRebuild
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Default@110404 REV XA2.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Default@110404 REV XA2.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Default"
Part.ActiveView().RotateAboutCenter 0, 0.0105389
Part.ActiveView().RotateAboutCenter -0.00906229, 0.295089
Part.ActiveView().RotateAboutCenter 0.063436, 0.632333
Part.ActiveView().RotateAboutCenter 0.0906229, 0.326706
Part.ActiveView().RotateAboutCenter 0.00906229, 0.0105389
Part.ActiveView().RotateAboutCenter 0.0996852, 0.0316167
Part.ActiveView().RotateAboutCenter 0.0996852, -0.0105389
Part.ActiveView().RotateAboutCenter 0.0906229, -0.0843111
Part.ActiveView().RotateAboutCenter 0.0181246, -0.1897
Part.ActiveView().RotateAboutCenter -0.0362491, -0.0843111
Part.ActiveView().RotateAboutCenter -0.0543737, -0.0105389
Part.ActiveView().RotateAboutCenter -0.0724983, 0.0421556
Part.ActiveView().RotateAboutCenter -0.0724983, 0.0632333
Part.ActiveView().RotateAboutCenter -0.0181246, 0.0210778
Part.ActiveView().RotateAboutCenter 0, -0.0105389
Part.ActiveView().RotateAboutCenter 0.0362491, -0.179161
Part.ActiveView().RotateAboutCenter -0.063436, -0.748261
Part.ActiveView().RotateAboutCenter -0.063436, -0.231856
Part.ActiveView().RotateAboutCenter -0.00906229, -0.0105389
Part.ActiveView().RotateAboutCenter -0.0181246, -0.0105389
Part.ActiveView().RotateAboutCenter -0.0271869, 0.0210778
Part.ActiveView().RotateAboutCenter -0.0181246, 0.0316167
Part.ActiveView().RotateAboutCenter 0, 0.0105389
boolstatus = Part.Extension.SelectByID("", "FACE", 0.3347482349351, -0.1206890970814, 0.2118775293552, False, 0, Nothing)
Part.ToolsMassProps
boolstatus = Part.Extension.SelectByID("110404 REV XA2.SLDPRT", "COMPONENT", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
' MSGBOX
' Save changes to 110404 REV XA2.SLDPRT?

Set Part = Nothing
swApp.CloseDoc "110404 REV XA2.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("110563-100 XB.SLDASM")
Set Part = Nothing
swApp.CloseDoc "110563-100 XB.SLDASM"
swApp.ExitApp
End Sub