' ******************************************************************************
' swxJRNL.swj - journal recorded on 05/09/03 by fuhrmann
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc4 ("F:\CTD_AUV\drawings\Science Nose Assy\AUV Nose.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("AUV Nose")
swApp.ActiveDoc.ActiveView.FrameWidth = 1187
swApp.ActiveDoc.ActiveView.FrameHeight = 883
Part.ActiveView().RotateAboutCenter 0, 0.00788213
Part.ActiveView().RotateAboutCenter -0.0137445, 0
Part.ActiveView().RotateAboutCenter -0.0412334, 0
Part.ActiveView().RotateAboutCenter -0.1237, 0
Part.ActiveView().RotateAboutCenter -0.089339, -0.0157643
Part.ActiveView().RotateAboutCenter -0.0206167, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0343612, -0.0157643
Part.ActiveView().RotateAboutCenter -0.0274889, -0.0157643
Part.ActiveView().RotateAboutCenter -0.0481056, -0.0236464
Part.ActiveView().RotateAboutCenter -0.0343612, -0.0157643
Part.ActiveView().RotateAboutCenter -0.0206167, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0412334, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0412334, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0343612, 0
Part.ActiveView().RotateAboutCenter -0.0206167, 0
Part.ActiveView().RotateAboutCenter -0.0206167, 0.0157643
Part.ActiveView().RotateAboutCenter -0.0137445, 0.0394107
Part.ActiveView().RotateAboutCenter -0.0206167, 0.0630571
Part.ActiveView().RotateAboutCenter 0, 0.0709392
Part.ActiveView().RotateAboutCenter 0, 0.0709392
Part.ActiveView().RotateAboutCenter 0, 0.0394107
Part.ActiveView().RotateAboutCenter 0, 0.0551749
Part.ActiveView().RotateAboutCenter 0, 0.0157643
Part.ActiveView().RotateAboutCenter 0, 0.00788213
Part.ActiveView().RotateAboutCenter 0.00687223, 0.0315285
Part.ActiveView().RotateAboutCenter 0.0206167, 0.0551749
Part.ActiveView().RotateAboutCenter 0.0343612, 0.0472928
Part.ActiveView().RotateAboutCenter 0.0206167, 0.0472928
Part.ActiveView().RotateAboutCenter 0.0274889, 0.0315285
Part.ActiveView().RotateAboutCenter 0.0274889, 0.0315285
Part.ActiveView().RotateAboutCenter 0.0412334, 0.0315285
Part.ActiveView().RotateAboutCenter 0.0274889, 0.0236464
Part.ActiveView().RotateAboutCenter 0.0274889, 0.0236464
Part.ActiveView().RotateAboutCenter 0.0343612, 0.0157643
Part.ActiveView().RotateAboutCenter 0.0137445, 0.00788213
Part.ActiveView().RotateAboutCenter 0.0206167, 0.0157643
Part.ActiveView().RotateAboutCenter 0.0206167, 0
Part.ActiveView().RotateAboutCenter 0.0206167, 0.00788213
Part.ActiveView().RotateAboutCenter 0.0412334, 0.0157643
Part.ActiveView().RotateAboutCenter 0.0274889, 0.00788213
Part.ActiveView().RotateAboutCenter 0.0274889, 0.00788213
Part.ActiveView().RotateAboutCenter 0.0274889, 0.00788213
Part.ActiveView().RotateAboutCenter 0.0343612, 0.00788213
Part.ActiveView().RotateAboutCenter 0.0137445, 0.00788213
Part.ActiveView().RotateAboutCenter -0.00687223, 0
Part.ActiveView().RotateAboutCenter -0.0137445, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0412334, -0.0236464
Part.ActiveView().RotateAboutCenter -0.0412334, -0.0315285
Part.ActiveView().RotateAboutCenter -0.0549779, -0.0315285
Part.ActiveView().RotateAboutCenter -0.0412334, -0.0315285
Part.ActiveView().RotateAboutCenter -0.0343612, -0.0236464
Part.ActiveView().RotateAboutCenter -0.0481056, -0.0315285
Part.ActiveView().RotateAboutCenter -0.0343612, -0.0236464
Part.ActiveView().RotateAboutCenter -0.0274889, -0.0157643
Part.ActiveView().RotateAboutCenter -0.0274889, -0.0157643
Part.ActiveView().RotateAboutCenter -0.0274889, -0.0236464
Part.ActiveView().RotateAboutCenter -0.0206167, -0.0157643
Part.ActiveView().RotateAboutCenter -0.00687223, -0.0157643
Part.ActiveView().RotateAboutCenter -0.0206167, -0.0157643
Part.ActiveView().RotateAboutCenter -0.0137445, -0.0157643
Part.ActiveView().RotateAboutCenter -0.0206167, -0.0236464
Part.ActiveView().RotateAboutCenter -0.0206167, -0.0315285
Part.ActiveView().RotateAboutCenter -0.0137445, -0.00788213
Part.ActiveView().RotateAboutCenter 0, -0.00788213
Part.ActiveView().RotateAboutCenter -0.00687223, -0.00788213
Part.ActiveView().RotateAboutCenter 0, -0.0157643
Part.ActiveView().RotateAboutCenter -0.0206167, -0.0315285
Part.ActiveView().RotateAboutCenter -0.00687223, -0.0236464
Part.ActiveView().RotateAboutCenter -0.00687223, -0.0157643
Part.ActiveView().RotateAboutCenter -0.00687223, -0.0157643
Part.ActiveView().RotateAboutCenter -0.00687223, -0.0236464
Part.ActiveView().RotateAboutCenter -0.00687223, -0.0472928
Part.ActiveView().RotateAboutCenter -0.00687223, -0.0315285
Part.ActiveView().RotateAboutCenter -0.00687223, -0.0236464
Part.ActiveView().RotateAboutCenter 0, -0.0315285
Part.ActiveView().RotateAboutCenter -0.00687223, -0.0236464
Part.ActiveView().RotateAboutCenter 0, -0.0236464
Part.ActiveView().RotateAboutCenter 0, -0.0236464
Part.ActiveView().RotateAboutCenter 0, -0.0236464
Part.ActiveView().RotateAboutCenter 0, -0.0236464
Part.ActiveView().RotateAboutCenter 0, -0.0157643
Part.ActiveView().RotateAboutCenter 0.00687223, 0
Part.ActiveView().RotateAboutCenter 0.00687223, 0
Part.ActiveView().RotateAboutCenter 0.0618501, -0.00788213
Part.ActiveView().RotateAboutCenter 0.0549779, 0
Part.ActiveView().RotateAboutCenter 0.0274889, 0
Part.ActiveView().RotateAboutCenter 0.0206167, 0
Part.ActiveView().RotateAboutCenter 0.0343612, 0
Part.ActiveView().RotateAboutCenter 0.0137445, 0
Part.ActiveView().RotateAboutCenter 0.0137445, 0
Part.ActiveView().RotateAboutCenter 0.0274889, 0
Part.ActiveView().RotateAboutCenter 0.0412334, 0
Part.ActiveView().RotateAboutCenter 0.0343612, 0
Part.ActiveView().RotateAboutCenter 0.0274889, 0
Part.ActiveView().RotateAboutCenter 0.0274889, 0
Part.ActiveView().RotateAboutCenter 0.0412334, 0.00788213
Part.ActiveView().RotateAboutCenter 0.0412334, 0.00788213
Part.ActiveView().RotateAboutCenter 0.0274889, 0
Part.ActiveView().RotateAboutCenter 0.0343612, 0.00788213
Part.ActiveView().RotateAboutCenter 0.0343612, 0.00788213
Part.ActiveView().RotateAboutCenter 0.0274889, 0.00788213
Part.ActiveView().RotateAboutCenter 0.0274889, 0
Part.ActiveView().RotateAboutCenter 0.0137445, 0.00788213
Part.ActiveView().RotateAboutCenter 0.00687223, 0
Part.ActiveView().RotateAboutCenter 0.0206167, 0
Part.ActiveView().RotateAboutCenter 0.0274889, 0.00788213
Part.ActiveView().RotateAboutCenter 0.0343612, 0
Part.ActiveView().RotateAboutCenter 0.0137445, 0.00788213
Part.ActiveView().RotateAboutCenter 0.0274889, 0
Part.ActiveView().RotateAboutCenter 0.0137445, 0
Part.ActiveView().RotateAboutCenter 0.00687223, 0
Part.ActiveView().RotateAboutCenter 0.00687223, 0
boolstatus = Part.Extension.SelectByID("Conductivity_Sensor_Assy-3@AUV Nose/Conductivity_Cell_Guard-1@Conductivity_Sensor_Assy", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Conductivity_Sensor_Assy-3@AUV Nose/Conduct.Sensor-1@Conductivity_Sensor_Assy", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Conductivity_Sensor_Assy-3@AUV Nose/Conductivity_Cell_Guard-2@Conductivity_Sensor_Assy", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "AUV Nose"
Set Part = swApp.OpenDoc4 ("F:\CTD_AUV_5_5_02\CTD AUV\drawings\mid-body CTD\payload_full.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.OpenDoc4 ("F:\CTD_AUV_5_5_02\CTD AUV\drawings\Science Nose Assy\AUV Nose.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.OpenDoc4 ("F:\CTD_AUV_5_5_02\CTD AUV\drawings\Science Nose Assy\Shell_Bottom.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Shell_Bottom")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 2
swApp.LoadFile2 "F:\CTD_AUV_5_5_02\CTD AUV\drawings\Science Nose Assy\Backup of Part5.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("F:\CTD_AUV_5_5_02\CTD AUV\drawings\Science Nose Assy\Backup of Part5.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Backup of Part5")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 2
Set Part = swApp.ActivateDoc ("AUV Nose")
swApp.ActiveDoc.ActiveView.FrameWidth = 1187
swApp.ActiveDoc.ActiveView.FrameHeight = 883
Part.ActiveView().RotateAboutCenter 0.0549779, 0.00788213
Part.ActiveView().RotateAboutCenter 0.0962113, 0.0315285
Part.ActiveView().RotateAboutCenter 0.0824668, 0.0236464
Part.ActiveView().RotateAboutCenter 0.0824668, 0.0236464
Part.ActiveView().RotateAboutCenter 0.116828, 0.0551749
Part.ActiveView().RotateAboutCenter 0.130572, 0.0394107
Part.ActiveView().RotateAboutCenter 0.0687223, 0.0236464
Part.ActiveView().RotateAboutCenter 0.0618501, 0
Part.ActiveView().RotateAboutCenter 0.0687223, 0.0157643
Part.ActiveView().RotateAboutCenter 0.0481056, 0.00788213
Part.ActiveView().RotateAboutCenter 0.0481056, 0.0157643
Part.ActiveView().RotateAboutCenter 0.0481056, 0.00788213
Part.ActiveView().RotateAboutCenter 0.0274889, 0.00788213
Part.ActiveView().RotateAboutCenter 0.0549779, 0.00788213
Part.ActiveView().RotateAboutCenter 0.0206167, 0
Part.ActiveView().RotateAboutCenter 0.0137445, 0
Part.ActiveView().RotateAboutCenter 0.00687223, 0
Part.ActiveView().RotateAboutCenter 0.00687223, 0
Part.ActiveView().RotateAboutCenter 0.0137445, 0.00788213
Part.ActiveView().RotateAboutCenter 0.00687223, 0.00788213
Part.ActiveView().RotateAboutCenter 0, 0.00788213
Part.ActiveView().RotateAboutCenter -0.00687223, 0
Part.ActiveView().RotateAboutCenter -0.0412334, 0
Part.ActiveView().RotateAboutCenter -0.0274889, 0
Part.ActiveView().RotateAboutCenter -0.0137445, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0137445, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0137445, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0274889, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0206167, 0
Part.ActiveView().RotateAboutCenter -0.0137445, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0137445, 0
Part.ActiveView().RotateAboutCenter -0.00687223, -0.00788213
Part.ActiveView().RotateAboutCenter -0.00687223, 0
Part.ActiveView().RotateAboutCenter -0.0137445, 0
Part.ActiveView().RotateAboutCenter -0.0137445, 0
Part.ActiveView().RotateAboutCenter -0.0206167, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0206167, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0137445, 0
Part.ActiveView().RotateAboutCenter -0.0343612, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0549779, -0.0157643
Part.ActiveView().RotateAboutCenter -0.0274889, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0274889, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0206167, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0481056, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0412334, -0.0157643
Part.ActiveView().RotateAboutCenter -0.0549779, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0481056, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0549779, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0755946, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0549779, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0824668, -0.0157643
Part.ActiveView().RotateAboutCenter -0.0481056, -0.0236464
Part.ActiveView().RotateAboutCenter -0.0481056, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0343612, -0.0157643
Part.ActiveView().RotateAboutCenter -0.0274889, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0618501, -0.0236464
Part.ActiveView().RotateAboutCenter -0.0412334, -0.0157643
Part.ActiveView().RotateAboutCenter -0.0137445, -0.00788213
Part.ActiveView().RotateAboutCenter -0.00687223, 0
Part.ActiveView().RotateAboutCenter -0.0206167, -0.00788213
Part.ActiveView().RotateAboutCenter -0.0549779, -0.0315285
Part.ActiveView().RotateAboutCenter -0.0206167, -0.00788213
Part.ActiveView().RotateAboutCenter -0.00687223, 0
Part.ActiveView().RotateAboutCenter -0.00687223, -0.00788213
Part.ActiveView().RotateAboutCenter -0.00687223, 0
Part.ActiveView().RotateAboutCenter 0, -0.00788213
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.7808415778747, 0.03010859927105, 0.01434959211662, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", -0.8740371037295, 0.1031000885932, 0.005304463698967, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.9335157324434, 0.1585409205744, 0.09622477437119, False, 0, Nothing)