' ******************************************************************************
' swxJRNL.swj - journal recorded on 03/14/05 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 ("X:\600027.MOOS.Mooring\Project.Drawings\Termination\BenthicTermination.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("BenthicTermination.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.013802, 0
Part.ActiveView().RotateAboutCenter -0.0621089, 0.0409773
Part.ActiveView().RotateAboutCenter -0.117317, 0.0983455
Part.ActiveView().RotateAboutCenter -0.0966138, 0.106541
Part.ActiveView().RotateAboutCenter -0.013802, 0.0245864
Part.ActiveView().RotateAboutCenter -0.00690099, 0.0163909
Part.ActiveView().RotateAboutCenter -0.0345049, 0.0901501
Part.ActiveView().RotateAboutCenter -0.013802, 0.0327818
Part.ActiveView().RotateAboutCenter -0.00690099, 0.0163909
Part.ActiveView().RotateAboutCenter -0.020703, 0.0327818
Part.ActiveView().RotateAboutCenter -0.0828119, 0.0655637
Part.ActiveView().RotateAboutCenter -0.158723, 0.00819546
Part.ActiveView().RotateAboutCenter -0.0345049, -0.0245864
Part.ActiveView().RotateAboutCenter -0.013802, -0.0573682
Part.ActiveView().RotateAboutCenter -0.027604, -0.147518
Part.ActiveView().RotateAboutCenter -0.00690099, -0.237668
Part.ActiveView().RotateAboutCenter -0.00690099, -0.0737591
Part.ActiveView().RotateAboutCenter 0, -0.0819546
Part.ActiveView().RotateAboutCenter 0.0483069, -0.0983455
Part.ActiveView().RotateAboutCenter 0.0828119, -0.147518
Part.ActiveView().RotateAboutCenter 0.124218, -0.0983455
Part.ActiveView().RotateAboutCenter 0.0759109, 0
Part.ActiveView().RotateAboutCenter 0.0690099, 0.0245864
Part.ActiveView().RotateAboutCenter 0.0897128, 0
Part.ActiveView().RotateAboutCenter 0.027604, -0.114736
Part.ActiveView().RotateAboutCenter -0.0966138, -0.254059
Part.ActiveView().RotateAboutCenter -0.131119, -0.221277
Part.ActiveView().RotateAboutCenter -0.0552079, -0.0409773
Part.ActiveView().RotateAboutCenter -0.103515, 0
Part.ActiveView().RotateAboutCenter -0.0966138, 0.0573682
Part.ActiveView().RotateAboutCenter -0.0621089, 0.0983455
Part.ActiveView().RotateAboutCenter -0.013802, 0.1803
Part.ActiveView().RotateAboutCenter 0.013802, 0.147518
Part.ActiveView().RotateAboutCenter 0.00690099, 0.0245864
Part.ActiveView().RotateAboutCenter 0.0483069, 0.0901501
Part.ActiveView().RotateAboutCenter 0.0966138, 0.196691
Part.ActiveView().RotateAboutCenter 0.020703, 0.0409773
Part.ActiveView().RotateAboutCenter 0, 0.00819546
Part.ActiveView().RotateAboutCenter 0.013802, 0.122932
Part.ActiveView().RotateAboutCenter 0.00690099, 0.0573682
boolstatus = Part.Extension.SelectByID("BenthicTermination.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", -0.3054796498698, 0.2460625, 0.2404676954465, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.2563480951188, 0.2460625, -0.2430214109439, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection2 True
Part.ActiveView().RotateAboutCenter 0, -0.0163909
Part.ActiveView().RotateAboutCenter 0, -0.147518
Part.ActiveView().RotateAboutCenter 0, -0.0491728
Part.ActiveView().RotateAboutCenter 0, -0.0327818
Part.ActiveView().RotateAboutCenter -0.013802, -0.0327818
Part.ActiveView().RotateAboutCenter -0.013802, -0.0327818
Part.ActiveView().RotateAboutCenter -0.0345049, -0.0655637
Part.ActiveView().RotateAboutCenter -0.0552079, -0.0573682
Part.ActiveView().RotateAboutCenter -0.110416, -0.106541
Part.ActiveView().RotateAboutCenter -0.0759109, -0.0655637
Part.ActiveView().RotateAboutCenter -0.0414059, -0.0983455
Part.ActiveView().RotateAboutCenter 0.020703, -0.147518
Part.ActiveView().RotateAboutCenter 0.117317, -0.229473
Part.ActiveView().RotateAboutCenter 0.0759109, -0.0737591
Part.ActiveView().RotateAboutCenter 0.0345049, 0
Part.ActiveView().RotateAboutCenter 0.0828119, 0.0983455
Part.ActiveView().RotateAboutCenter 0.103515, 0.213082
Part.ActiveView().RotateAboutCenter 0.00690099, 0.114736
Part.ActiveView().RotateAboutCenter -0.013802, 0.0163909
boolstatus = Part.Extension.SelectByID("double stack-1@BenthicTermination", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection2 True
Part.ActiveView().RotateAboutCenter 0, 0.0163909
Part.ActiveView().RotateAboutCenter -0.0414059, 0.0409773
Part.ActiveView().RotateAboutCenter -0.0345049, 0.0245864
Part.ActiveView().RotateAboutCenter -0.0345049, 0.0409773
Part.ActiveView().RotateAboutCenter -0.020703, 0.0491728
Part.ActiveView().RotateAboutCenter -0.0552079, 0.0573682
Part.ActiveView().RotateAboutCenter -0.013802, 0.00819546
Part.ShowNamedView2 "*Isometric", 7
Part.ActiveView().RotateAboutCenter -0.0179276, 0
Part.ActiveView().RotateAboutCenter -0.0627465, -0.0409773
Part.ActiveView().RotateAboutCenter -0.125493, -0.0819546
Part.ActiveView().RotateAboutCenter -0.143421, -0.0655637
Part.ActiveView().RotateAboutCenter -0.134457, -0.0491728
Part.ActiveView().RotateAboutCenter -0.0717103, -0.0327818
Part.ActiveView().RotateAboutCenter -0.0358551, -0.0163909
Part.ActiveView().RotateAboutCenter -0.0448189, -0.0245864
Part.ActiveView().RotateAboutCenter -0.0268914, -0.0573682
Part.ActiveView().RotateAboutCenter -0.0268914, -0.114736
Part.ActiveView().RotateAboutCenter -0.0358551, -0.1803
Part.ActiveView().RotateAboutCenter -0.0268914, -0.0819546
Part.ActiveView().RotateAboutCenter -0.00896378, -0.0327818
Part.ActiveView().RotateAboutCenter 0.0179276, -0.0573682
Part.ActiveView().RotateAboutCenter 0.116529, -0.0573682
Part.ActiveView().RotateAboutCenter 0.161348, -0.0327818
Part.ActiveView().RotateAboutCenter 0.116529, -0.00819546
Part.ActiveView().RotateAboutCenter 0.116529, 0.00819546
Part.ActiveView().RotateAboutCenter 0.0179276, 0
Part.ActiveView().RotateAboutCenter 0.0268914, 0.0245864
Part.ActiveView().RotateAboutCenter 0.00896378, 0.0737591
Part.ActiveView().RotateAboutCenter -0.00896378, 0.0901501
Part.ActiveView().RotateAboutCenter -0.00896378, 0.0573682
Part.ActiveView().RotateAboutCenter -0.0358551, 0.0573682
Part.ActiveView().RotateAboutCenter -0.0806741, 0.0737591
Part.ActiveView().RotateAboutCenter -0.0717103, 0.0409773
Part.ActiveView().RotateAboutCenter -0.0627465, 0.0163909
Part.ActiveView().RotateAboutCenter -0.0448189, 0
Part.ActiveView().RotateAboutCenter -0.0627465, -0.0409773
Part.ActiveView().RotateAboutCenter -0.0627465, -0.0737591
Part.ActiveView().RotateAboutCenter -0.0627465, -0.0409773
Part.ActiveView().RotateAboutCenter -0.0358551, -0.0245864
Part.ActiveView().RotateAboutCenter -0.0268914, -0.0163909
Part.ActiveView().RotateAboutCenter -0.0268914, -0.0245864
Part.ActiveView().RotateAboutCenter 0, 0.0163909
Part.ActiveView().RotateAboutCenter 0, 0.0409773
Part.ActiveView().RotateAboutCenter 0.0179276, 0.0409773
Part.ActiveView().RotateAboutCenter 0.0537827, 0.0655637
Part.ActiveView().RotateAboutCenter 0.0537827, 0.0409773
Part.ActiveView().RotateAboutCenter 0.0806741, 0.0245864
Part.ActiveView().RotateAboutCenter 0.0806741, 0.00819546
Part.ActiveView().RotateAboutCenter 0.0986016, -0.00819546
Part.ActiveView().RotateAboutCenter 0.0537827, -0.00819546
Part.ActiveView().RotateAboutCenter 0.0358551, -0.0163909
Part.ActiveView().RotateAboutCenter 0.0268914, -0.0163909
Part.ActiveView().RotateAboutCenter 0.0268914, -0.0245864
Part.ActiveView().RotateAboutCenter 0.0179276, -0.0327818
Part.ActiveView().RotateAboutCenter 0.0358551, -0.0491728
Part.ActiveView().RotateAboutCenter 0, -0.0163909
Part.ActiveView().RotateAboutCenter -0.00896378, -0.00819546
Part.ActiveView().RotateAboutCenter -0.0537827, -0.00819546
Part.ActiveView().RotateAboutCenter -0.0268914, -0.00819546
Part.ActiveView().RotateAboutCenter -0.0179276, 0
Part.ActiveView().RotateAboutCenter -0.0179276, -0.0163909
Part.ActiveView().RotateAboutCenter -0.0179276, 0
Part.ActiveView().RotateAboutCenter -0.00896378, -0.00819546
boolstatus = Part.Extension.SelectByID("A-LoadCell-1@BenthicTermination", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("A-LoadCell-1@BenthicTermination", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection2 True
Part.ViewZoomTo2 -0.729824, 2.16368, 0.446012, 0.494211, -0.928011, 0.446012
swApp.LoadFile2 "C:\Program Files\SolidWorks\data\templates\Drawing.drwdot", ""
Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\data\templates\Drawing.drwdot", 2, 0.279400, 0.431800)
Set Part = swApp.ActivateDoc ("Draw1 - Sheet1")
Part.CreateDrawViewFromModelView "X:\600027.MOOS.Mooring\Project.Drawings\Termination\BenthicTermination.SLDASM", "*Isometric", 0.1395065465116, 0.1608255639535, 0
Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "BenthicTermination - 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 ("BenthicTermination.SLDASM")
Part.ActiveView().RotateAboutCenter 0, 0.00819546
Part.ActiveView().RotateAboutCenter 0, -0.00819546
Part.ActiveView().RotateAboutCenter 0, -0.0163909
Part.ActiveView().RotateAboutCenter 0, -0.0163909
Part.ActiveView().RotateAboutCenter 0, -0.00819546
Part.ActiveView().RotateAboutCenter 0, -0.00819546
Part.ActiveView().RotateAboutCenter 0, -0.0327818
Part.ActiveView().RotateAboutCenter -0.01071, -0.0163909
Part.ActiveView().RotateAboutCenter 0, -0.0163909
Part.ActiveView().RotateAboutCenter 0.01071, -0.0245864
Part.ActiveView().RotateAboutCenter 0.0963898, -0.0163909
Part.ActiveView().RotateAboutCenter 0.13923, 0.00819546
Part.ActiveView().RotateAboutCenter 0.0856798, 0.0245864
Part.ActiveView().RotateAboutCenter 0.01071, 0.00819546
Part.ActiveView().RotateAboutCenter 0, 0.0163909
Part.ActiveView().RotateAboutCenter 0, 0.0245864
Part.ActiveView().RotateAboutCenter 0, 0.00819546
Part.ActiveView().RotateAboutCenter 0, 0.00819546
Part.ActiveView().RotateAboutCenter -0.01071, 0.00819546
Part.ActiveView().RotateAboutCenter -0.0321299, -0.0163909
Part.ActiveView().RotateAboutCenter -0.0749698, -0.0819546
Part.ActiveView().RotateAboutCenter -0.0963898, -0.114736
Part.ActiveView().RotateAboutCenter -0.0214199, -0.0327818
Part.ActiveView().RotateAboutCenter -0.11781, 0.0163909
Part.ActiveView().RotateAboutCenter -0.0963898, 0.0409773
Part.ActiveView().RotateAboutCenter -0.0642598, 0.0655637
Part.ActiveView().RotateAboutCenter -0.01071, 0.0245864
Part.ActiveView().RotateAboutCenter -0.01071, 0.0573682
Part.ActiveView().RotateAboutCenter -0.01071, 0.00819546
Part.ActiveView().RotateAboutCenter 0, 0.00819546
Part.ActiveView().RotateAboutCenter 0.01071, 0.00819546
Part.ActiveView().RotateAboutCenter 0.13923, 0.0573682
Part.ActiveView().RotateAboutCenter 0.1071, 0.0819546
Part.ActiveView().RotateAboutCenter 0, 0.0245864
Part.ActiveView().RotateAboutCenter -0.0214199, 0.0327818
Part.ActiveView().RotateAboutCenter -0.0642598, 0.0491728
Part.ActiveView().RotateAboutCenter -0.0642598, 0.0491728
Part.ActiveView().RotateAboutCenter -0.0642598, 0.0245864
Part.ActiveView().RotateAboutCenter -0.0856798, 0
Part.ActiveView().RotateAboutCenter -0.0321299, -0.0163909
Part.ActiveView().RotateAboutCenter -0.0321299, -0.0409773
Part.ActiveView().RotateAboutCenter 0, -0.0737591
Part.ActiveView().RotateAboutCenter 0.01071, -0.114736
Part.ActiveView().RotateAboutCenter 0.0214199, -0.0737591
Part.ActiveView().RotateAboutCenter 0.0321299, -0.0327818
Part.ActiveView().RotateAboutCenter 0.0214199, 0
Part.ActiveView().RotateAboutCenter 0.0856798, 0.0245864
Part.ActiveView().RotateAboutCenter 0.12852, 0.122932
Part.ActiveView().RotateAboutCenter 0.0642598, 0.0983455
Part.ActiveView().RotateAboutCenter 0.0321299, 0.0655637
Part.ActiveView().RotateAboutCenter 0.0428399, 0.0327818
Part.ActiveView().RotateAboutCenter 0.13923, 0.0655637
Part.ActiveView().RotateAboutCenter 0.1071, 0.0163909
Part.ActiveView().RotateAboutCenter 0.13923, -0.0163909
Part.ActiveView().RotateAboutCenter 0.11781, -0.114736
Part.ActiveView().RotateAboutCenter 0.0321299, -0.0901501
Part.ActiveView().RotateAboutCenter 0, -0.0491728
Part.ActiveView().RotateAboutCenter -0.11781, -0.0409773
Part.ActiveView().RotateAboutCenter -0.20349, -0.0163909
Part.ActiveView().RotateAboutCenter -0.267749, 0.00819546
Part.ActiveView().RotateAboutCenter -0.1071, 0.0327818
Part.ActiveView().RotateAboutCenter -0.0321299, 0.0163909
Part.ActiveView().RotateAboutCenter -0.0428399, 0.0491728
Part.ActiveView().RotateAboutCenter -0.0642598, 0.0573682
Part.ActiveView().RotateAboutCenter -0.0428399, 0.0327818
Part.ActiveView().RotateAboutCenter -0.0321299, 0.00819546
Part.ActiveView().RotateAboutCenter -0.0321299, 0
Part.ActiveView().RotateAboutCenter -0.0856798, -0.0491728
Part.ActiveView().RotateAboutCenter -0.0321299, -0.0327818
Part.ActiveView().RotateAboutCenter -0.0214199, -0.0245864
Part.ActiveView().RotateAboutCenter 0, -0.0327818
Part.ActiveView().RotateAboutCenter 0, -0.0655637
Part.ActiveView().RotateAboutCenter 0.01071, -0.0737591
Part.ActiveView().RotateAboutCenter 0.01071, -0.0163909
Part.ActiveView().RotateAboutCenter 0.0428399, -0.0327818
Part.ActiveView().RotateAboutCenter 0.0535499, -0.0163909
Part.ActiveView().RotateAboutCenter 0.0428399, 0.00819546
Part.ActiveView().RotateAboutCenter 0.0214199, 0.0163909
Part.ActiveView().RotateAboutCenter 0.0214199, 0.0327818
Part.ActiveView().RotateAboutCenter 0.0214199, 0.0245864
Part.ActiveView().RotateAboutCenter 0, 0.00819546
Part.ActiveView().RotateAboutCenter 0.01071, 0.00819546
Part.ActiveView().RotateAboutCenter 0, 0.0245864
Part.ActiveView().RotateAboutCenter 0, 0.0409773
Part.ActiveView().RotateAboutCenter 0.01071, 0.0163909
Part.ActiveView().RotateAboutCenter 0, 0.00819546
Part.ActiveView().RotateAboutCenter 0.01071, 0
Part.ActiveView().RotateAboutCenter 0.0321299, -0.0245864
Part.ActiveView().RotateAboutCenter 0.0428399, -0.0491728
Part.ActiveView().RotateAboutCenter 0.0214199, -0.0655637
Part.ActiveView().RotateAboutCenter 0.0428399, -0.0655637
Part.ActiveView().RotateAboutCenter 0.0214199, -0.0327818
Part.ActiveView().RotateAboutCenter 0.0214199, -0.0163909
Part.ActiveView().RotateAboutCenter 0.01071, -0.00819546
Part.ActiveView().RotateAboutCenter 0.0428399, 0
Part.ActiveView().RotateAboutCenter 0.01071, 0
Part.ActiveView().RotateAboutCenter 0.01071, 0.0245864
Part.ActiveView().RotateAboutCenter -0.0428399, 0.0983455
Part.ActiveView().RotateAboutCenter -0.0642598, 0.131127
Part.ActiveView().RotateAboutCenter -0.0321299, 0.0491728
Part.ActiveView().RotateAboutCenter -0.01071, 0.00819546
Part.ActiveView().RotateAboutCenter -0.0428399, -0.00819546
Part.ActiveView().RotateAboutCenter -0.0428399, -0.0163909
Part.ActiveView().RotateAboutCenter -0.0428399, -0.0409773
Part.ActiveView().RotateAboutCenter 0, -0.00819546
Part.ActiveView().RotateAboutCenter -0.01071, -0.00819546
Part.ActiveView().RotateAboutCenter 0, -0.00819546
Part.ActiveView().RotateAboutCenter 0, -0.00819546
Part.ActiveView().RotateAboutCenter 0, -0.00819546
Part.ActiveView().RotateAboutCenter 0, -0.0327818
Part.ActiveView().RotateAboutCenter 0, -0.0491728
Part.ActiveView().RotateAboutCenter 0, -0.0245864
Part.ActiveView().RotateAboutCenter 0, -0.00819546
Part.ActiveView().RotateAboutCenter 0, -0.00819546
Part.ActiveView().RotateAboutCenter 0.01071, -0.0245864
Part.ActiveView().RotateAboutCenter 0.0321299, -0.0245864
Part.ActiveView().RotateAboutCenter 0, -0.00819546
Part.ActiveView().RotateAboutCenter 0.0214199, 0
Part.ActiveView().RotateAboutCenter 0.0321299, 0
Part.ActiveView().RotateAboutCenter 0.0214199, 0
Part.ActiveView().RotateAboutCenter 0.0214199, 0
Part.ActiveView().RotateAboutCenter 0.01071, 0.00819546
Part.ActiveView().RotateAboutCenter 0.01071, 0
Part.ActiveView().RotateAboutCenter 0, 0.0163909
Part.ActiveView().RotateAboutCenter -0.0321299, 0.0245864
Part.ActiveView().RotateAboutCenter -0.0428399, 0.0327818
Part.ActiveView().RotateAboutCenter -0.0214199, 0.0163909
Part.ActiveView().RotateAboutCenter -0.01071, 0
Part.ActiveView().RotateAboutCenter 0, 0.00819546
Part.ActiveView().RotateAboutCenter 0.01071, 0.0573682
Part.ActiveView().RotateAboutCenter 0.0214199, 0.0819546
Part.ActiveView().RotateAboutCenter 0.0214199, 0.0409773
Part.ActiveView().RotateAboutCenter 0.0642598, 0.0573682
Part.ActiveView().RotateAboutCenter 0.0214199, 0.00819546
Part.ActiveView().RotateAboutCenter 0.0642598, 0
Part.ActiveView().RotateAboutCenter 0.0642598, -0.00819546
Part.ActiveView().RotateAboutCenter 0.0642598, -0.0327818
Part.ActiveView().RotateAboutCenter 0, -0.00819546
Part.ActiveView().RotateAboutCenter -0.0321299, -0.0573682
Part.ActiveView().RotateAboutCenter -0.0321299, -0.0327818
Part.ActiveView().RotateAboutCenter -0.0428399, -0.0245864
Part.ActiveView().RotateAboutCenter -0.0535499, -0.0245864
Part.ActiveView().RotateAboutCenter -0.0749698, -0.0163909
Part.ActiveView().RotateAboutCenter -0.0321299, -0.0163909
Part.ActiveView().RotateAboutCenter -0.01071, 0.0163909
Part.ActiveView().RotateAboutCenter -0.0321299, 0.00819546
Part.ActiveView().RotateAboutCenter -0.01071, 0
Part.ActiveView().RotateAboutCenter 0, -0.0163909
Part.ActiveView().RotateAboutCenter 0, -0.0245864
Part.ActiveView().RotateAboutCenter 0, -0.0163909
Part.ActiveView().RotateAboutCenter 0.01071, 0
Part.ActiveView().RotateAboutCenter 0.01071, 0.00819546
Part.ActiveView().RotateAboutCenter 0.0321299, 0.0409773
Part.ActiveView().RotateAboutCenter 0.0214199, 0.0573682
Part.ActiveView().RotateAboutCenter 0, 0.0327818
Part.ActiveView().RotateAboutCenter -0.01071, 0.0409773
Part.ActiveView().RotateAboutCenter -0.0321299, 0.0409773
Part.ActiveView().RotateAboutCenter -0.0214199, 0
Part.ActiveView().RotateAboutCenter -0.0214199, 0
Part.ActiveView().RotateAboutCenter -0.0214199, 0
Part.ActiveView().RotateAboutCenter -0.01071, -0.00819546
Part.ActiveView().RotateAboutCenter -0.01071, 0
Part.ActiveView().RotateAboutCenter 0, -0.00819546
Part.ActiveView().RotateAboutCenter 0, -0.0163909
Part.ActiveView().RotateAboutCenter 0.01071, -0.0245864
Part.ActiveView().RotateAboutCenter 0, -0.0163909
Part.ActiveView().RotateAboutCenter 0.01071, -0.0163909
Part.ActiveView().RotateAboutCenter 0, -0.00819546
Part.ActiveView().RotateAboutCenter 0.01071, -0.00819546
Part.ActiveView().RotateAboutCenter 0.01071, 0
Part.ActiveView().RotateAboutCenter 0.0214199, 0
Part.ActiveView().RotateAboutCenter 0.01071, 0
Part.ActiveView().RotateAboutCenter 0.0214199, 0
Part.ActiveView().RotateAboutCenter 0.01071, 0
Part.ActiveView().RotateAboutCenter 0.01071, 0
Part.ActiveView().RotateAboutCenter 0.01071, 0
Part.ActiveView().RotateAboutCenter 0.0321299, 0
Part.ActiveView().RotateAboutCenter 0.0321299, 0
Part.ActiveView().RotateAboutCenter 0.0428399, 0
Part.ViewZoomtofit2
Part.ViewZoomTo2 -0.532863, 2.12475, 0.391873, 0.545124, -0.885919, 0.391873
Part.PrintPreview
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.PrintPreview
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.PrintDirect
swApp.PageSetup
Part.PrintDirect
swApp.ActiveDoc.ActiveView.FrameState = 1
' MSGBOX
' Save changes to BenthicTermination.SLDASM?

swApp.ExitApp
End Sub