' ******************************************************************************
' swxJRNL.swj - journal recorded on 03/22/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\110505   MARS NODE MODULE ASSY\110505-100 B.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("110505-100 B.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter -0.280532, -0.09485
Part.ActiveView().RotateAboutCenter -0.290206, -0.337244
Part.ActiveView().RotateAboutCenter -0.270859, -0.210778
Part.ActiveView().RotateAboutCenter -0.116082, -0.0316167
Part.ActiveView().RotateAboutCenter 0.0386941, -0.0526944
Part.ActiveView().RotateAboutCenter 0.0967353, -0.0526944
Part.ActiveView().RotateAboutCenter 0.222491, 0
Part.ActiveView().RotateAboutCenter 0.241838, 0.0526944
Part.ActiveView().RotateAboutCenter 0.16445, 0.0737722
Part.ActiveView().RotateAboutCenter 0.0290206, 0.0105389
boolstatus = Part.Extension.SelectByID("Front Plane", "PLANE", 0, 0, 0, True, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0.00967353, 0
Part.ActiveView().RotateAboutCenter 0.0773882, 0.558561
Part.ActiveView().RotateAboutCenter 0.0677147, 0.442633
Part.ActiveView().RotateAboutCenter 0.0193471, 0.28455
Part.ActiveView().RotateAboutCenter 0, 0.295089
Part.ActiveView().RotateAboutCenter -0.0773882, 0.28455
Part.ActiveView().RotateAboutCenter -0.125756, 0.221317
Part.ActiveView().RotateAboutCenter -0.00967353, 0.0105389
Part.ClearSelection2 True
Part.ShowNamedView2 "*Front", 1
Part.ViewZoomTo2 -0.108517, 0.490465, 0.470027, 0.177422, -0.0422428, 0.470027
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", 0.01317864603216, 0.2079428482588, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", 0.01062573103827, 0.1449709450764, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", 0.002966986056622, 0.3202711079897, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", 0.0114767027029, 0.2964439013801, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", 0.01317864603216, 0.4053682744524, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", 0.01317864603216, 0.4053682744524, 0, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0, 0.0105389
Part.ActiveView().RotateAboutCenter 0.106409, 0.147544
Part.ActiveView().RotateAboutCenter 0.0483676, 0.0737722
Part.ActiveView().RotateAboutCenter 0.0386941, 0.0526944
Part.ActiveView().RotateAboutCenter 0.0290206, 0.0526944
Part.ActiveView().RotateAboutCenter 0.0386941, 0.0210778
Part.ActiveView().RotateAboutCenter 0.0290206, 0.0210778
Part.ActiveView().RotateAboutCenter 0.00967353, 0.0210778
Part.ActiveView().RotateAboutCenter 0.00967353, 0.0210778
Part.ActiveView().RotateAboutCenter 0, 0.0526944
Part.ActiveView().RotateAboutCenter 0, 0.0421556
Part.ActiveView().RotateAboutCenter 0, 0.0632333
Part.ActiveView().RotateAboutCenter -0.00967353, 0.0105389
Part.ActiveView().RotateAboutCenter -0.0193471, 0.0316167
Part.ActiveView().RotateAboutCenter -0.0193471, 0.0105389
Part.ViewZoomTo2 -0.188502, 0.253044, 0.470027, -0.120424, 0.197731, 0.470027
boolstatus = Part.Extension.SelectByID("", "FACE", 0.0002242569966597, 0.133540394093, -0.00224909690786, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 6.812490983066e-005, 0.1418939409334, -0.001186671079438, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "\\Mpserver0\MARS\110595 MARS  BACKBONE, NODE MODULE ASSEMBLY\110618-001 A.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("\\Mpserver0\MARS\110595 MARS  BACKBONE, NODE MODULE ASSEMBLY\110618-001 A.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 ("110618-001 A.SLDPRT")
Part.ClearSelection2 True
swApp.LoadFile2 "G:\ARCHIVES\CM_DOCS\MARS\DRAWINGS\110618 REV A   ROD, LIFT\REV A\110618 REV A.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("G:\ARCHIVES\CM_DOCS\MARS\DRAWINGS\110618 REV A   ROD, LIFT\REV A\110618 REV A.SLDDRW", 3, 0, "", longstatus, longwarnings)
' MSGBOX
'  G:\ARCHIVES\CM_DOCS\MARS\DRAWINGS\110618 REV A   ROD, LIFT\REV A\110618 REV A.SLDDRW is not available for write access.  Do you want to open document(s) read-only?

swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("110618 REV A - Sheet1")
Part.ViewZoomTo2 0.133713, 0.141877, -1.0058e-015, 0.231902, 0.0812074, -5.82145e-016
Part.SetPickMode
Part.ViewZoomtofit2
Part.EditSketch
Part.ViewZoomTo2 0.208353, 0.153851, -1.08942e-015, 0.268623, 0.100366, -7.15931e-016
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("110505-100 B.SLDASM")
Part.SetPickMode
Part.SetPickMode
Part.ViewZoomtofit2
Part.ViewZoomTo2 -0.484382, 0.364554, 0.470027, 0.247965, -0.217016, 0.470027
Set Part = Nothing
swApp.CloseDoc "110505-100 B.SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("110618 REV A - Sheet1")
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "110618 REV A - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("110618-001 A.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "110618-001 A.SLDPRT"
Set Part = swApp.OpenDoc6 ("\\Mpserver0\MARS\110506   MARS NODE TOP ASSY\110506-100 B.SLDASM", 2, 0, "", longstatus, longwarnings)
Part.LargeAssemblyMode = True
Set Part = swApp.ActivateDoc ("110506-100 B.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("110702-001 A-1@110506-100 B", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("110702-001 A-1@110506-100 B", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ViewZoomToSelection
Part.ShowNamedView2 "*Front", 1
boolstatus = Part.Extension.SelectByID("110702-001 A-1@110506-100 B", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("110702-001 A-1@110506-100 B", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ViewZoomToSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 6.947509205241, -0.4855945944103, 0.2183858031158, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 6.536027850831, -0.4076220032233, 0.2817920860591, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("110702-001 A-1@110506-100 B", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "110506-100 B.SLDASM"
swApp.ExitApp
End Sub