' ******************************************************************************
' swxJRNL.swj - journal recorded on 12/02/09 by craig
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc6 ("C:\project data\soliddata\MRS BRS\BRS chamber\BRS chamber body.SLDDRW", 3, 0, "", longstatus, longwarnings)
swApp.OpenDoc6 "C:\project data\soliddata\MRS BRS\BRS chamber\BRS chamber body.SLDDRW", 3, 0, "", longstatus, longwarnings
Set Part = swApp.ActivateDoc2 ("BRS chamber body - Sheet1", False, longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.ActivateView("Drawing View1")
boolstatus = Part.Extension.SelectByID2("DetailItem109@Drawing View1", "NOTE", 0.1414738466764, 0.1700790345205, 0, False, 0, Nothing, 0)
boolstatus = Part.ActivateSheet("Sheet1")
boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.1399603004726, 0.1955930991, 0, False, 0, Nothing, 0)
Part.PrintDirect
swApp.PageSetup
Part.PrintDirect
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.4229934405958, 0.1114831743422, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
' MSGBOX
' Save changes to BRS chamber body - Sheet1?

Part.ViewZoomtofit2
Set Part = Nothing
swApp.CloseDoc "BRS chamber body - Sheet1"
Set Part = swApp.OpenDoc6 ("C:\project data\soliddata\MRS BRS\BRS chamber\BRS chamber top.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.OpenDoc6 "C:\project data\soliddata\MRS BRS\BRS chamber\BRS chamber top.SLDPRT", 1, 0, "", longstatus, longwarnings
Set Part = swApp.ActivateDoc2 ("BRS chamber top.SLDPRT", False, longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.Extension.InsertScene "\scenes\02 studio scenes\66 light cards.p2s"
boolstatus = Part.Extension.SelectByID2("1/4 NPT Tapped Hole1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Part.EditDelete
Part.ActiveView().RotateAboutCenter -0.00515619, 0
Part.ActiveView().RotateAboutCenter -0.00257809, 0
Part.ActiveView().RotateAboutCenter -0.0154686, 0
Part.ActiveView().RotateAboutCenter -0.0128905, 0.0046103
Part.ActiveView().RotateAboutCenter -0.05414, 0
Part.ActiveView().RotateAboutCenter -0.0386714, 0.0046103
Part.ActiveView().RotateAboutCenter -0.0489838, 0
Part.ActiveView().RotateAboutCenter -0.0438276, 0.0046103
Part.ActiveView().RotateAboutCenter -0.0696086, 0.0138309
Part.ActiveView().RotateAboutCenter -0.0232029, 0.0046103
Part.ActiveView().RotateAboutCenter -0.0180467, 0.0046103
Part.ActiveView().RotateAboutCenter -0.0309371, 0
Part.ActiveView().RotateAboutCenter -0.0103124, 0
Part.ActiveView().RotateAboutCenter -0.0128905, 0
Part.ActiveView().RotateAboutCenter -0.0206248, 0
Part.ActiveView().RotateAboutCenter -0.00773428, 0
Part.ActiveView().RotateAboutCenter -0.00773428, 0
Part.ActiveView().RotateAboutCenter -0.00773428, 0
Part.ActiveView().RotateAboutCenter -0.0103124, 0
Part.ActiveView().RotateAboutCenter -0.0128905, -0.00922061
Part.ActiveView().RotateAboutCenter -0.0180467, -0.0046103
Part.ActiveView().RotateAboutCenter -0.0515619, -0.00922061
Part.ActiveView().RotateAboutCenter -0.0309371, -0.0138309
Part.ActiveView().RotateAboutCenter -0.0309371, -0.0138309
Part.ActiveView().RotateAboutCenter -0.0644524, -0.0230515
Part.ActiveView().RotateAboutCenter -0.0232029, -0.0138309
Part.ActiveView().RotateAboutCenter -0.0180467, -0.00922061
Part.ActiveView().RotateAboutCenter -0.0180467, -0.0138309
Part.ActiveView().RotateAboutCenter -0.00773428, 0
Part.ActiveView().RotateAboutCenter -0, -0.0046103
Part.ActiveView().RotateAboutCenter -0.00515619, 0
Part.ActiveView().RotateAboutCenter -0.00257809, 0
Part.ActiveView().RotateAboutCenter -0, -0.0046103
Part.ActiveView().RotateAboutCenter -0, -0.0046103
Part.ActiveView().RotateAboutCenter 0.00515619, 0
Part.ActiveView().RotateAboutCenter 0.00515619, 0
Part.ActiveView().RotateAboutCenter 0.00515619, 0
Part.ActiveView().RotateAboutCenter 0.0128905, -0.0046103
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.00257809, -0.0046103
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter -0, 0.0046103
Part.ActiveView().RotateAboutCenter 0.00515619, 0
Part.ActiveView().RotateAboutCenter 0.00773428, 0
Part.ActiveView().RotateAboutCenter 0.0412495, 0
Part.ActiveView().RotateAboutCenter 0.0232029, -0.00922061
Part.ActiveView().RotateAboutCenter 0.0180467, -0.0046103
Part.ActiveView().RotateAboutCenter 0.0103124, -0.0046103
Part.ActiveView().RotateAboutCenter 0.0103124, -0.0046103
Part.ActiveView().RotateAboutCenter 0.00257809, -0.0046103
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter -0, -0.0046103
Part.ActiveView().RotateAboutCenter -0.00257809, 0
Part.ActiveView().RotateAboutCenter -0.00257809, 0
Part.ActiveView().RotateAboutCenter -0.0128905, 0
Part.ActiveView().RotateAboutCenter -0.0128905, 0
Part.ActiveView().RotateAboutCenter -0.0180467, 0
Part.ActiveView().RotateAboutCenter -0.0360933, -0.00922061
Part.ActiveView().RotateAboutCenter -0.0154686, 0
Part.ActiveView().RotateAboutCenter -0.00515619, 0
Part.ActiveView().RotateAboutCenter -0.00773428, 0
Part.ActiveView().RotateAboutCenter -0.00257809, 0
Part.ActiveView().RotateAboutCenter -0, -0.0046103
Part.ActiveView().RotateAboutCenter -0.00257809, 0
Part.ActiveView().RotateAboutCenter -0.0412495, -0.0138309
Part.ActiveView().RotateAboutCenter -0.0309371, -0.0138309
Part.ActiveView().RotateAboutCenter -0.0592962, -0.0230515
Part.ActiveView().RotateAboutCenter -0.0309371, -0.0138309
Part.ActiveView().RotateAboutCenter -0.0464057, -0.0138309
Part.ActiveView().RotateAboutCenter -0.0128905, -0.00922061
Part.ActiveView().RotateAboutCenter -0.0154686, -0.0046103
Part.ActiveView().RotateAboutCenter -0.0309371, -0.00922061
Part.ActiveView().RotateAboutCenter -0.0154686, -0.0046103
Part.ActiveView().RotateAboutCenter -0.0128905, -0.0046103
Part.ActiveView().RotateAboutCenter -0.0103124, 0
Part.ActiveView().RotateAboutCenter -0.0257809, -0.0138309
Part.ActiveView().RotateAboutCenter -0.0103124, 0
Part.ActiveView().RotateAboutCenter -0.0128905, -0.00922061
Part.ActiveView().RotateAboutCenter -0.0154686, 0
Part.ActiveView().RotateAboutCenter -0.00257809, 0
Part.ActiveView().RotateAboutCenter -0.00257809, 0
Part.ActiveView().RotateAboutCenter -0.00257809, 0
Part.ActiveView().RotateAboutCenter -0, -0.0046103
boolstatus = Part.Extension.SelectByID2("BOTTOM Chamfer1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Part.EditDelete
boolstatus = Part.Extension.SelectByID2("Sketch7", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.EditDelete
Part.ActiveView().RotateAboutCenter 0.00773428, 0
Part.ActiveView().RotateAboutCenter 0.0154686, 0
Part.ActiveView().RotateAboutCenter 0.0670305, 0
Part.ActiveView().RotateAboutCenter 0.0592962, -0.00922061
Part.ActiveView().RotateAboutCenter 0.0644524, 0
Part.ActiveView().RotateAboutCenter 0.167576, 0.0230515
Part.ActiveView().RotateAboutCenter 0.0850771, 0.0184412
Part.ActiveView().RotateAboutCenter 0.0773428, 0.0184412
Part.ActiveView().RotateAboutCenter 0.126327, 0.0322721
Part.ActiveView().RotateAboutCenter 0.0438276, 0.00922061
Part.ActiveView().RotateAboutCenter 0.0438276, 0.00922061
Part.ActiveView().RotateAboutCenter 0.0799209, 0.0184412
Part.ActiveView().RotateAboutCenter 0.0386714, 0
Part.ActiveView().RotateAboutCenter 0.0309371, 0
Part.ActiveView().RotateAboutCenter 0.0257809, 0
Part.ActiveView().RotateAboutCenter 0.0412495, -0.00922061
Part.ActiveView().RotateAboutCenter 0.0103124, -0.0046103
Part.ActiveView().RotateAboutCenter 0.00773428, 0
Part.ActiveView().RotateAboutCenter 0.00515619, 0
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.00773428, 0
Part.ActiveView().RotateAboutCenter 0.0360933, 0.0184412
Part.ActiveView().RotateAboutCenter 0.0206248, 0.0046103
Part.ActiveView().RotateAboutCenter 0.0232029, 0
Part.ActiveView().RotateAboutCenter 0.0515619, 0
Part.ActiveView().RotateAboutCenter 0.028359, 0
Part.ActiveView().RotateAboutCenter 0.0309371, 0
Part.ActiveView().RotateAboutCenter 0.0386714, -0.00922061
Part.ActiveView().RotateAboutCenter 0.0103124, 0
Part.ActiveView().RotateAboutCenter 0.0128905, 0
Part.ActiveView().RotateAboutCenter 0.0232029, 0.0046103
Part.ActiveView().RotateAboutCenter 0.0103124, 0
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.00773428, 0
Part.ActiveView().RotateAboutCenter 0.00257809, -0.0046103
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.001049596660266, 0.01799999999992, 0.001034757800539, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
Dim SkCircle As Object
Set SkCircle = Part.SketchManager.CreateCircle(0, 0, 0, 0.004177763306569, -0.00321893238375, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0.003492884075984, 0.009, -0.004451714998803, False, 0, Nothing, 0)
Dim Annotation As Object
Set Annotation = Part.AddDimension2(0.0260939, 0.018, -0.0215737)
Part.ClearSelection2 True
Part.Parameter("D1@Sketch4").SystemValue = 0.01
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("D1@Sketch4@BRS chamber top.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing, 0)
Part.FeatureManager.FeatureCut True, False, False, 1, 0, 0.01, 0.01, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Part.ActiveView().RotateAboutCenter -0.00515619, -0.0046103
Part.ActiveView().RotateAboutCenter -0.0128905, -0.00922061
Part.ActiveView().RotateAboutCenter -0.0412495, -0.0322721
Part.ActiveView().RotateAboutCenter -0.0232029, -0.00922061
Part.ActiveView().RotateAboutCenter -0.0232029, -0.00922061
Part.ActiveView().RotateAboutCenter -0.0799209, 0
Part.ActiveView().RotateAboutCenter -0.0438276, 0.0046103
Part.ActiveView().RotateAboutCenter -0.139217, 0.0691546
Part.ActiveView().RotateAboutCenter -0.0335152, 0.0322721
Part.ActiveView().RotateAboutCenter -0.028359, 0.0322721
Part.ActiveView().RotateAboutCenter -0.028359, 0.046103
Part.ActiveView().RotateAboutCenter -0.00257809, 0
Part.ActiveView().RotateAboutCenter -0, -0.0046103
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.00163151941544, 0.009786220356887, -0.00472632461819, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "thru hole"
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.003002769033117, 0.01339924098556, -0.003997921726778, True, 0, Nothing, 0)
Part.FeatureManager.InsertFeatureChamfer  4, 1, 0.004, 0.7853981633975, 0, 0, 0, 0
Part.ActiveView().RotateAboutCenter -0.0257809, -0.0138309
Part.ActiveView().RotateAboutCenter -0.0335152, -0.00922061
Part.ActiveView().RotateAboutCenter -0.0876552, -0.00922061
Part.ActiveView().RotateAboutCenter -0.0464057, 0
Part.ActiveView().RotateAboutCenter -0.05414, 0
Part.ActiveView().RotateAboutCenter -0.10828, 0.0184412
Part.ActiveView().RotateAboutCenter -0.0515619, 0
Part.ActiveView().RotateAboutCenter -0.0438276, 0.0046103
Part.ActiveView().RotateAboutCenter -0.0696086, 0
Part.ActiveView().RotateAboutCenter -0.028359, 0
Part.ActiveView().RotateAboutCenter -0.0206248, 0
Part.ActiveView().RotateAboutCenter -0.0232029, -0.00922061
Part.ActiveView().RotateAboutCenter -0.028359, -0.00922061
Part.ActiveView().RotateAboutCenter -0.0103124, 0
Part.ActiveView().RotateAboutCenter -0.0103124, 0
Part.ActiveView().RotateAboutCenter -0.0257809, -0.00922061
Part.ActiveView().RotateAboutCenter -0.0180467, 0
Part.ActiveView().RotateAboutCenter -0.0257809, 0
Part.ActiveView().RotateAboutCenter -0.0670305, 0.0046103
Part.ActiveView().RotateAboutCenter -0.0360933, 0
Part.ActiveView().RotateAboutCenter -0.0438276, 0.0046103
Part.ActiveView().RotateAboutCenter -0.0773428, 0.0046103
Part.ActiveView().RotateAboutCenter -0.0412495, 0.0046103
Part.ActiveView().RotateAboutCenter -0.0309371, 0.0046103
Part.ActiveView().RotateAboutCenter -0.0567181, 0
Part.ActiveView().RotateAboutCenter -0.0180467, 0
Part.ActiveView().RotateAboutCenter -0.0232029, 0
Part.ActiveView().RotateAboutCenter -0.0128905, 0
Part.ActiveView().RotateAboutCenter -0.0309371, 0.0046103
Part.ActiveView().RotateAboutCenter -0.0103124, 0
Part.ActiveView().RotateAboutCenter -0.00515619, 0
Part.ActiveView().RotateAboutCenter -0.00515619, 0
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.0103124, 0
Part.ActiveView().RotateAboutCenter 0.0103124, 0
Part.ActiveView().RotateAboutCenter 0.0180467, 0
Part.ActiveView().RotateAboutCenter 0.0128905, 0.0046103
Part.ActiveView().RotateAboutCenter 0.0180467, 0.0046103
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.0128905, 0
Part.ActiveView().RotateAboutCenter 0.0128905, 0
Part.ActiveView().RotateAboutCenter 0.0309371, -0.00922061
Part.ActiveView().RotateAboutCenter 0.0721867, -0.0184412
Part.ActiveView().RotateAboutCenter 0.0386714, -0.0046103
Part.ActiveView().RotateAboutCenter 0.0567181, -0.00922061
Part.ActiveView().RotateAboutCenter 0.110858, -0.00922061
Part.ActiveView().RotateAboutCenter 0.0386714, -0.0046103
Part.ActiveView().RotateAboutCenter 0.0360933, -0.00922061
Part.ActiveView().RotateAboutCenter 0.05414, -0.00922061
Part.ActiveView().RotateAboutCenter 0.0206248, -0.0046103
Part.ActiveView().RotateAboutCenter 0.0180467, 0
Part.ActiveView().RotateAboutCenter 0.0232029, 0
Part.ActiveView().RotateAboutCenter 0.0412495, 0
Part.ActiveView().RotateAboutCenter 0.0128905, 0
Part.ActiveView().RotateAboutCenter 0.0103124, 0
Part.ActiveView().RotateAboutCenter 0.00773428, 0
Part.ActiveView().RotateAboutCenter 0.00515619, 0
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.00773428, 0
Part.ActiveView().RotateAboutCenter 0.00515619, 0
Part.ActiveView().RotateAboutCenter 0.00773428, 0
Part.ActiveView().RotateAboutCenter 0.0335152, -0.00922061
Part.ActiveView().RotateAboutCenter 0.0206248, -0.00922061
Part.ActiveView().RotateAboutCenter 0.0335152, -0.00922061
Part.ActiveView().RotateAboutCenter 0.0309371, -0.00922061
Part.ActiveView().RotateAboutCenter 0.0618743, -0.00922061
Part.ActiveView().RotateAboutCenter 0.0257809, 0
Part.ActiveView().RotateAboutCenter 0.0257809, 0
Part.ActiveView().RotateAboutCenter 0.0412495, 0
Part.ActiveView().RotateAboutCenter 0.0180467, 0
Part.ActiveView().RotateAboutCenter 0.0206248, 0
Part.ActiveView().RotateAboutCenter 0.0412495, 0
Part.ActiveView().RotateAboutCenter 0.0232029, 0.0046103
Part.ActiveView().RotateAboutCenter 0.0206248, 0
Part.ActiveView().RotateAboutCenter 0.05414, 0.0046103
Part.ActiveView().RotateAboutCenter 0.0309371, 0
Part.ActiveView().RotateAboutCenter 0.0309371, 0.0046103
Part.ActiveView().RotateAboutCenter 0.0747647, 0
Part.ActiveView().RotateAboutCenter 0.0386714, 0
Part.ActiveView().RotateAboutCenter 0.0412495, 0
Part.ActiveView().RotateAboutCenter 0.0412495, 0
Part.ActiveView().RotateAboutCenter 0.0928114, 0
Part.ActiveView().RotateAboutCenter 0.0489838, 0
Part.ActiveView().RotateAboutCenter 0.0515619, 0
Part.ActiveView().RotateAboutCenter 0.12117, -0.00922061
Part.ActiveView().RotateAboutCenter 0.0644524, -0.00922061
Part.ActiveView().RotateAboutCenter 0.0747647, -0.00922061
Part.ActiveView().RotateAboutCenter 0.126327, 0
Part.ActiveView().RotateAboutCenter 0.0489838, 0
Part.ActiveView().RotateAboutCenter 0.0464057, 0
Part.ActiveView().RotateAboutCenter 0.0721867, 0
Part.ActiveView().RotateAboutCenter 0.0206248, 0
Part.ActiveView().RotateAboutCenter 0.0103124, 0
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter -0.00257809, 0
Part.ActiveView().RotateAboutCenter -0.00515619, 0
Part.ActiveView().RotateAboutCenter -0.0257809, 0
Part.ActiveView().RotateAboutCenter -0.028359, 0.00922061
Part.ActiveView().RotateAboutCenter -0.0257809, 0.0138309
Part.ActiveView().RotateAboutCenter -0.0721867, 0.0368824
Part.ActiveView().RotateAboutCenter -0.0412495, 0.0322721
Part.ActiveView().RotateAboutCenter -0.0489838, 0.046103
Part.ActiveView().RotateAboutCenter -0.0515619, 0.0553236
Part.ActiveView().RotateAboutCenter -0.136639, 0.170581
Part.ActiveView().RotateAboutCenter -0.0670305, 0.110647
Part.ActiveView().RotateAboutCenter -0.082499, 0.119868
Part.ActiveView().RotateAboutCenter -0.172732, 0.285839
Part.ActiveView().RotateAboutCenter -0.0953895, 0.170581
Part.ActiveView().RotateAboutCenter -0.0979676, 0.198243
Part.ActiveView().RotateAboutCenter -0.201091, 0.428758
Part.ActiveView().RotateAboutCenter -0.0876552, 0.207464
Part.ActiveView().RotateAboutCenter -0.0876552, 0.225905
Part.ActiveView().RotateAboutCenter -0.141795, 0.368824
Part.ActiveView().RotateAboutCenter -0.05414, 0.106037
Part.ActiveView().RotateAboutCenter -0.0567181, 0.133699
Part.ActiveView().RotateAboutCenter -0.0850771, 0.170581
Part.ActiveView().RotateAboutCenter -0.0335152, 0.0599339
Part.ActiveView().RotateAboutCenter -0.0309371, 0.0691546
Part.ActiveView().RotateAboutCenter -0.0206248, 0.0507133
Part.ActiveView().RotateAboutCenter -0.028359, 0.0645443
Part.ActiveView().RotateAboutCenter -0.00515619, 0.0138309
Part.ActiveView().RotateAboutCenter -0.00257809, 0.00922061
Part.ActiveView().RotateAboutCenter -0, -0.0046103
Part.ActiveView().RotateAboutCenter -0, -0.0046103
Part.ActiveView().RotateAboutCenter -0, -0.00922061
Part.ActiveView().RotateAboutCenter -0, -0.00922061
Part.ActiveView().RotateAboutCenter -0.00257809, -0.00922061
Part.ActiveView().RotateAboutCenter -0, -0.0138309
Part.ActiveView().RotateAboutCenter -0, -0.0138309
Part.ActiveView().RotateAboutCenter -0, -0.0184412
Part.ActiveView().RotateAboutCenter 0.0128905, -0.0507133
Part.ActiveView().RotateAboutCenter 0.0128905, -0.0368824
Part.ActiveView().RotateAboutCenter 0.0180467, -0.0507133
Part.ActiveView().RotateAboutCenter 0.0232029, -0.0553236
Part.ActiveView().RotateAboutCenter 0.05414, -0.119868
Part.ActiveView().RotateAboutCenter 0.0412495, -0.0737649
Part.ActiveView().RotateAboutCenter 0.0309371, -0.0507133
Part.ActiveView().RotateAboutCenter 0.082499, -0.129089
Part.ActiveView().RotateAboutCenter 0.0464057, -0.0737649
Part.ActiveView().RotateAboutCenter 0.0386714, -0.0553236
Part.ActiveView().RotateAboutCenter 0.0567181, -0.0599339
Part.ActiveView().RotateAboutCenter 0.0232029, -0.0184412
Part.ActiveView().RotateAboutCenter 0.0128905, -0.00922061
Part.ActiveView().RotateAboutCenter 0.0309371, -0.0138309
Part.ActiveView().RotateAboutCenter 0.0154686, -0.0046103
Part.ActiveView().RotateAboutCenter 0.0180467, -0.0046103
Part.ActiveView().RotateAboutCenter 0.028359, -0.00922061
Part.ActiveView().RotateAboutCenter 0.0180467, -0.0046103
Part.ActiveView().RotateAboutCenter 0.0206248, -0.0138309
Part.ActiveView().RotateAboutCenter 0.0232029, -0.0046103
Part.ActiveView().RotateAboutCenter 0.0412495, -0.0414927
Part.ActiveView().RotateAboutCenter 0.0206248, -0.0322721
Part.ActiveView().RotateAboutCenter 0.0257809, -0.0414927
Part.ActiveView().RotateAboutCenter 0.0670305, -0.115258
Part.ActiveView().RotateAboutCenter 0.0360933, -0.0968164
Part.ActiveView().RotateAboutCenter 0.0438276, -0.101427
Part.ActiveView().RotateAboutCenter 0.0438276, -0.142919
Part.ActiveView().RotateAboutCenter 0.0180467, -0.0414927
Part.ActiveView().RotateAboutCenter 0.0128905, -0.0368824
Part.ActiveView().RotateAboutCenter 0.00515619, -0.0184412
Part.ActiveView().RotateAboutCenter -0.00257809, 0
Part.ActiveView().RotateAboutCenter -0.00257809, 0
Part.ActiveView().RotateAboutCenter -0.00515619, 0.0046103
Part.ActiveView().RotateAboutCenter -0.00257809, 0.0046103
Part.ActiveView().RotateAboutCenter -0.0154686, 0.0184412
Part.ActiveView().RotateAboutCenter -0.00773428, 0.00922061
Part.ActiveView().RotateAboutCenter -0.00773428, 0.00922061
Part.ActiveView().RotateAboutCenter -0.00515619, 0
Part.ActiveView().RotateAboutCenter -0, -0.0046103
Part.ActiveView().RotateAboutCenter -0, -0.00922061
Part.ActiveView().RotateAboutCenter -0, -0.0046103
Part.ActiveView().RotateAboutCenter -0, -0.00922061
Part.ActiveView().RotateAboutCenter -0, -0.0046103
Part.ShowNamedView2 "*Front", 1
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.00773428, -0.0046103
Part.ActiveView().RotateAboutCenter 0.00515619, 0
Part.ActiveView().RotateAboutCenter 0.00257809, -0.0046103
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.00257809, -0.0046103
Part.ActiveView().RotateAboutCenter 0.00515619, 0
Part.ActiveView().RotateAboutCenter 0.00515619, -0.0046103
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.0128905, -0.0046103
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.00257809, -0.0046103
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.0154686, 0
Part.ActiveView().RotateAboutCenter 0.0180467, 0
Part.ActiveView().RotateAboutCenter 0.0128905, 0
Part.ActiveView().RotateAboutCenter 0.0438276, 0
Part.ActiveView().RotateAboutCenter 0.028359, 0
Part.ActiveView().RotateAboutCenter 0.0257809, 0
Part.ActiveView().RotateAboutCenter 0.0257809, -0.00922061
Part.ActiveView().RotateAboutCenter 0.0206248, -0.0046103
Part.ActiveView().RotateAboutCenter 0.00515619, 0
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.00257809, -0.0046103
Part.ActiveView().RotateAboutCenter -0.00257809, 0
Part.ActiveView().RotateAboutCenter -0.0128905, -0.0046103
Part.ActiveView().RotateAboutCenter -0.0232029, -0.0138309
Part.ActiveView().RotateAboutCenter -0.12117, -0.0553236
Part.ActiveView().RotateAboutCenter -0.0696086, -0.0230515
Part.ActiveView().RotateAboutCenter -0.0618743, -0.0230515
Part.ActiveView().RotateAboutCenter -0.0567181, -0.00922061
Part.ActiveView().RotateAboutCenter -0.0747647, -0.0138309
Part.ActiveView().RotateAboutCenter -0.028359, -0.0046103
Part.ActiveView().RotateAboutCenter -0.0206248, -0.0046103
Part.ActiveView().RotateAboutCenter -0.0257809, -0.0046103
Part.ActiveView().RotateAboutCenter -0.0128905, -0.00922061
Part.ActiveView().RotateAboutCenter -0.0103124, 0
Part.ActiveView().RotateAboutCenter -0.0206248, -0.0046103
Part.ActiveView().RotateAboutCenter -0.00773428, 0
Part.ActiveView().RotateAboutCenter -0.0128905, 0
Part.ActiveView().RotateAboutCenter -0.0360933, 0
Part.ActiveView().RotateAboutCenter -0.0180467, 0
Part.ActiveView().RotateAboutCenter -0.0257809, 0
Part.ActiveView().RotateAboutCenter -0.0360933, 0.0046103
Part.ActiveView().RotateAboutCenter -0.0128905, 0
Part.ActiveView().RotateAboutCenter -0.00773428, 0
Part.ActiveView().RotateAboutCenter -0.00515619, 0
Part.ActiveView().RotateAboutCenter 0.00773428, 0
Part.ActiveView().RotateAboutCenter 0.0128905, -0.00922061
Part.ActiveView().RotateAboutCenter 0.0567181, 0
Part.ActiveView().RotateAboutCenter 0.0412495, -0.00922061
Part.ActiveView().RotateAboutCenter 0.0412495, 0
Part.ActiveView().RotateAboutCenter 0.0799209, 0
Part.ActiveView().RotateAboutCenter 0.0257809, 0
Part.ActiveView().RotateAboutCenter 0.0232029, 0
Part.ActiveView().RotateAboutCenter 0.00773428, 0
Part.ActiveView().RotateAboutCenter 0.00257809, 0
Part.ActiveView().RotateAboutCenter 0.00515619, 0
Part.ActiveView().RotateAboutCenter 0.0128905, -0.0046103
Part.ActiveView().RotateAboutCenter 0.0103124, 0
Part.ActiveView().RotateAboutCenter 0.0128905, -0.00922061
Part.ActiveView().RotateAboutCenter 0.0180467, 0
Part.ActiveView().RotateAboutCenter 0.0464057, -0.0138309
Part.ActiveView().RotateAboutCenter 0.0232029, -0.0046103
Part.ActiveView().RotateAboutCenter 0.0180467, -0.0046103
Part.ActiveView().RotateAboutCenter 0.0180467, -0.00922061
Part.ActiveView().RotateAboutCenter 0.00257809, -0.0046103
Part.ActiveView().RotateAboutCenter -0.00257809, 0
Part.ActiveView().RotateAboutCenter -0.00257809, 0
Part.ActiveView().RotateAboutCenter -0.00515619, 0
Part.ShowNamedView2 "*Front", 1
Part.ViewDisplayWireframe
boolstatus = Part.EditRebuild3
Part.ClearSelection2 True
Part.ViewDisplayShadedWithEdges
Part.ActiveView().RotateAboutCenter -0, -0.0046103
Part.ActiveView().RotateAboutCenter 0.00257809, -0.0046103
Part.ActiveView().RotateAboutCenter 0.00515619, -0.0046103
Part.ActiveView().RotateAboutCenter 0.0232029, -0.0368824
Part.ActiveView().RotateAboutCenter 0.0128905, -0.0184412
Part.ActiveView().RotateAboutCenter 0.0180467, -0.0322721
Part.ActiveView().RotateAboutCenter 0.0412495, -0.0599339
Part.ActiveView().RotateAboutCenter 0.0206248, -0.0230515
Part.ActiveView().RotateAboutCenter 0.0232029, -0.0230515
Part.ActiveView().RotateAboutCenter 0.0464057, -0.0276618
Part.ActiveView().RotateAboutCenter 0.0180467, -0.00922061
Part.ActiveView().RotateAboutCenter 0.0154686, -0.0046103
Part.ActiveView().RotateAboutCenter 0.00515619, 0
Part.ActiveView().RotateAboutCenter -0, -0.0046103
Part.ShowNamedView2 "*Isometric", 7
Set Part = Nothing
swApp.CloseDoc "BRS chamber top.SLDPRT"
Set Part = swApp.OpenDoc6 ("C:\project data\soliddata\MRS BRS\BRS chamber\BRS chamber top.SLDDRW", 3, 0, "", longstatus, longwarnings)
swApp.OpenDoc6 "C:\project data\soliddata\MRS BRS\BRS chamber\BRS chamber top.SLDDRW", 3, 0, "", longstatus, longwarnings
Set Part = swApp.ActivateDoc2 ("BRS chamber top - Sheet1", False, longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.ActivateView("Drawing View7")
boolstatus = Part.Extension.SelectByID2("RD2@Drawing View7", "DIMENSION", 0.2435301049944, 0.2563511681409, 0, False, 0, Nothing, 0)
Part.EditDelete
boolstatus = Part.Extension.SelectByID2("RD3@Drawing View7", "DIMENSION", 0.2843958524988, 0.2217558263382, 0, False, 0, Nothing, 0)
Part.EditDelete
boolstatus = Part.Extension.SelectByID2("RD1@Drawing View7", "DIMENSION", 0.2459085347433, 0.2135394326601, 0, False, 0, Nothing, 0)
Part.EditDelete
boolstatus = Part.ActivateView("Drawing View5")
boolstatus = Part.Extension.SelectByID2("RD3@Drawing View5", "DIMENSION", 0.2738010290717, 0.08618533064897, 0, False, 0, Nothing, 0)
Part.EditDelete
boolstatus = Part.Extension.SelectByID2("RD4@Drawing View5", "DIMENSION", 0.3192074151877, 0.09959102559751, 0, False, 0, Nothing, 0)
Part.EditDelete
boolstatus = Part.Extension.SelectByID2("Detail Circle1", "DETAILCIRCLE", 0.3055854993529, 0.09591527053098, 0, False, 0, Nothing, 0)
Part.EditDelete
boolstatus = Part.Extension.SelectByID2("RD1@Drawing View5", "DIMENSION", 0.3014773025139, 0.1158075920675, 0, False, 0, Nothing, 0)
boolstatus = Part.ActivateSheet("Sheet1")
boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.2798552138872, 0.1454298534861, 0, False, 0, Nothing, 0)
boolstatus = Part.ActivateView("Drawing View7")
boolstatus = Part.Extension.SelectByID2("DetailItem118@Drawing View7", "NOTE", 0.2463409765158, 0.208566352276, 0, False, 0, Nothing, 0)
boolstatus = Part.ActivateView("Drawing View5")
boolstatus = Part.Extension.SelectByID2("Detail Circle2", "DETAILCIRCLE", 0.2662332980524, 0.09591527053098, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Detail Circle2", "DETAILCIRCLE", 0.2670981815974, 0.09483416609964, 0, False, 0, Nothing, 0)
boolstatus = Part.ActivateView("Drawing View7")
boolstatus = Part.Extension.SelectByID2("Drawing View7", "DRAWINGVIEW", 0.2753145752756, 0.2131069908876, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("DetailItem118@Drawing View7", "NOTE", 0.2714225993228, 0.06521190468109, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Drawing View7", "DRAWINGVIEW", 0.1903397669727, 0.1999175168253, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Drawing View7", "DRAWINGVIEW", 0.1899073252002, 0.2035932718918, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Drawing View7", "DRAWINGVIEW", 0.1892586625414, 0.2042419345506, 0, False, 0, Nothing, 0)
boolstatus = Part.ActivateView("Drawing View2")
boolstatus = Part.Extension.SelectByID2("RD3@Drawing View2", "DIMENSION", 0.1667716903696, 0.2079176896172, 0, False, 0, Nothing, 0)
Part.EditDelete
boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.09952699474068, 0.1845658338969, -499.88235, False, 0, Nothing, 0)
Set Annotation = Part.AddDimension2(0.159155, 0.207497, -1.55373e-015)
Part.ClearSelection2 True
boolstatus = Part.ActivateSheet("Sheet1")
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"<MOD-DIAM>", "<HOLE-DEPTH>", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"<MOD-DIAM>", "<HOLE-DEPTH>", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"<MOD-DIAM>", "<HOLE-DEPTH>T", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"<MOD-DIAM>", "<HOLE-DEPTH>TH", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"<MOD-DIAM>", "<HOLE-DEPTH>THR", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"<MOD-DIAM>", "<HOLE-DEPTH>THRU", 1,"", "", 0
boolstatus = Part.ActivateSheet("Sheet1")
boolstatus = Part.ActivateSheet("Sheet1")
boolstatus = Part.ActivateSheet("Sheet1")
boolstatus = Part.ActivateSheet("Sheet1")
boolstatus = Part.ActivateView("Drawing View2")
boolstatus = Part.ActivateSheet("Sheet1")

Dim Gtol As Object

Set Gtol = Part.InsertGtol()
If Not Gtol Is Nothing Then
   Gtol.SetFrameSymbols2 1, "<GTOL-POSI>", 0, "", 0, "", "", "", ""
   Gtol.SetFrameValues 1, ".13", "", "A", "B", ""
   Gtol.SetFrameSymbols2 2, "", 0, "", 0, "", "", "", ""
   Gtol.SetFrameValues 2, "", "", "", "", ""
   Gtol.SetPTZHeight "", 0
   Gtol.SetCompositeFrame 0
   Gtol.SetBetweenTwoPoints 0, "", ""
   Set Annotation = Gtol.GetAnnotation()
   If Not Annotation Is Nothing Then
      boolstatus = Annotation.SetPosition (0.1460380172031, 0.2050854190903, 0)
      longstatus = Annotation.SetLeader2 (0, 0, 1, 1, 0, 0)

   End If
End If

Part.WindowRedraw
boolstatus = Part.ActivateView("Drawing View2")
boolstatus = Part.Extension.SelectByID2("RD3@Drawing View2", "DIMENSION", 0.1643932606207, 0.2070528060721, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.ActivateSheet("Sheet1")
boolstatus = Part.ActivateView("Drawing View4")
boolstatus = Part.ActivateView("Drawing View7")
boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.2848282942713, 0.1960255408742, 249.9875, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.2861256195889, 0.1940795528978, 249.9875, True, 0, Nothing, 0)
Set Annotation = Part.AddDimension2(0.284828, 0.19408, -1.46004e-015)
Part.ClearSelection2 True
boolstatus = Part.ActivateSheet("Sheet1")
boolstatus = Part.ActivateView("Drawing View2")
boolstatus = Part.ActivateSheet("Sheet1")
boolstatus = Part.ActivateView("Drawing View2")
boolstatus = Part.ActivateSheet("Sheet1")
Part.ClearSelection2 True
boolstatus = Part.ActivateView("Drawing View7")
boolstatus = Part.Extension.SelectByID2("RD1@Drawing View7", "DIMENSION", 0.2891527119966, 0.1945119946686, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("RD1@Drawing View7", "DIMENSION", 0.3047206158079, 0.2048905972094, 0, False, 0, Nothing, 0)
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"", "@", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"", "@4", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"", "@45", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"", "@45<MOD-DEG>", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"", "@45<MOD-DEG>", 1,"", "", 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("RD1@Drawing View7", "DIMENSION", 0.3019097442864, 0.2057554807545, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("RD1@Drawing View7", "DIMENSION", 0.3099099170783, 0.2003499585978, 0, False, 0, Nothing, 0)
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 1, 2, 1, 12, 12,"", "@45<MOD-DEG>", 1,"", "", 0
boolstatus = Part.Extension.SelectByID2("RD1@Drawing View7", "DIMENSION", 0.3107748006233, 0.2003499585978, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.ActivateSheet("Sheet1")
boolstatus = Part.ActivateView("Drawing View7")
boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2508816151274, 0.1921335649214, 249.9875, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2800714347734, 0.1923497858077, 249.9875, True, 0, Nothing, 0)
Set Annotation = Part.AddDimension2(0.267531, 0.210887, -1.5774e-015)
Part.ClearSelection2 True
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 0, 2, 1, 12, 12,"", "", 1,"", "", 0
boolstatus = Part.ActivateSheet("Sheet1")
boolstatus = Part.ActivateView("Drawing View7")
boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2664495189386, 0.1953768782154, 249.9785058459, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2653684145073, 0.1880253680824, 249.9825046773, True, 0, Nothing, 0)
Set Annotation = Part.AddDimension2(0.232503, 0.200727, -1.50646e-015)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2668819607112, 0.1681330465458, 249.9825293058, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2664495189386, 0.1599166528677, 249.9785058459, True, 0, Nothing, 0)
Set Annotation = Part.AddDimension2(0.256287, 0.148904, -1.14458e-015)
Part.ClearSelection2 True
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.ActivateSheet("Sheet1")
Part.SetPickMode
boolstatus = Part.ActivateView("Drawing View7")
boolstatus = Part.Extension.SelectByID2("RD4@Drawing View7", "DIMENSION", 0.2746659126168, 0.1465109579174, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("RD3@Drawing View7", "DIMENSION", 0.2169349359835, 0.1999175168253, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("DetailItem118@Drawing View7", "NOTE", 0.268395506915, 0.1452136325998, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2798552138872, 0.1644572914793, 249.9875, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2508816151274, 0.1629437452754, 249.9875, True, 0, Nothing, 0)
Set Annotation = Part.AddDimension2(0.267531, 0.149487, -1.14865e-015)
Part.ClearSelection2 True
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"", "", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 0, 2, 1, 12, 12,"", "", 1,"", "", 0
boolstatus = Part.ActivateSheet("Sheet1")
boolstatus = Part.ActivateView("Drawing View2")
boolstatus = Part.ActivateView("Drawing View7")
boolstatus = Part.ActivateSheet("Sheet1")
boolstatus = Part.ActivateView("Drawing View4")
boolstatus = Part.ActivateView("Drawing View7")
boolstatus = Part.ActivateSheet("Sheet1")
boolstatus = Part.ActivateView("Drawing View5")
boolstatus = Part.ActivateSheet("Sheet1")
boolstatus = Part.ActivateView("Drawing View5")
boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.3135856721448, 0.09937480470775, -499.8475, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.312937009486, 0.09786125850389, -499.8475, True, 0, Nothing, 0)
Set Annotation = Part.AddDimension2(0.32365, 0.0934792, -7.57549e-016)
Part.ClearSelection2 True
boolstatus = Part.ActivateSheet("Sheet1")
boolstatus = Part.ActivateSheet("Sheet1")
boolstatus = Part.ActivateSheet("Sheet1")
boolstatus = Part.ActivateView("Drawing View5")
boolstatus = Part.ActivateSheet("Sheet1")
boolstatus = Part.ActivateView("Drawing View2")
boolstatus = Part.ActivateSheet("Sheet1")
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"", "", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 1, 2, 1, 12, 12,"", "", 1,"", "", 0
boolstatus = Part.ActivateView("Drawing View2")
boolstatus = Part.ActivateSheet("Sheet1")
boolstatus = Part.ActivateView("Drawing View1")
boolstatus = Part.ActivateSheet("Sheet1")
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 1, 2, 1, 12, 12,"", "@", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 1, 2, 1, 12, 12,"", "@4", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 1, 2, 1, 12, 12,"", "@45", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 1, 2, 1, 12, 12,"", "@45<MOD-DEG>", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 1, 2, 1, 12, 12,"", "@45<MOD-DEG>", 1,"", "", 0
Part.ClearSelection2 True
boolstatus = Part.ActivateView("Drawing View4")
boolstatus = Part.ActivateView("Drawing View7")
boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2865580613614, 0.1757007775652, 249.9875, False, 0, Nothing, 0)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.ActivateSheet("Sheet1")
boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.3682895563703, 0.07450940279056, 0, False, 0, Nothing, 0)
Part.EditTemplate
Part.EditSketch
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("DetailItem21@Sheet Format1", "NOTE", 0.4113175127374, 0.01548110083973, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("DetailItem19@Sheet Format1", "NOTE", 0.412614838055, 0.01483243818093, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("DetailItem21@Sheet Format1", "NOTE", 0.4119661753962, 0.015697321726, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Part.ViewZoomTo2 0.310775, 0.100456, -8.06267e-016, 0.427102, 0.00488628, -1.38907e-016
boolstatus = Part.Extension.SelectByID2("DetailItem119@Sheet Format1", "NOTE", 0.4114129192815, 0.01565532834583, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Part.ActiveView().TranslateBy 0, -0.00097624
Part.ActiveView().TranslateBy -0.000585744, -0.00195248
Part.ActiveView().TranslateBy -0.00624794, -0.025187
Part.ActiveView().TranslateBy -0.0189391, -0.0570124
Part.ActiveView().TranslateBy -0.0117149, -0.0462738
Part.ActiveView().TranslateBy -0.00937191, -0.0644319
Part.ActiveView().TranslateBy 0.000390496, -0.0595507
Part.ActiveView().TranslateBy 0.00351447, -0.026749
Part.ActiveView().TranslateBy 0.0097624, 0
Part.ActiveView().TranslateBy 0.00917666, 0
Part.ActiveView().TranslateBy 0.00292872, 0
Part.ActiveView().TranslateBy 0.00156198, 0
Part.ActiveView().TranslateBy 0, 0.000195248
Part.ActiveView().TranslateBy 0, -0.000195248
Part.ActiveView().TranslateBy -0.000585744, -0.00136674
Part.ActiveView().TranslateBy -0.000585744, -0.00644319
Part.ActiveView().TranslateBy -0.00117149, -0.0255775
Part.ActiveView().TranslateBy 0.000390496, -0.0493978
Part.ActiveView().TranslateBy 0.00156198, -0.0406116
Part.ActiveView().TranslateBy 0.00390496, -0.0585744
Part.ActiveView().TranslateBy 0.00878616, -0.0492025
Part.ActiveView().TranslateBy 0.00644319, -0.0261632
Part.ActiveView().TranslateBy 0.00917666, -0.0292872
Part.ActiveView().TranslateBy 0.00410021, 0
Part.ActiveView().TranslateBy 0.00312397, 0
Part.ActiveView().TranslateBy 0.000390496, 0
Part.ActiveView().TranslateBy 0, 0.000195248
Part.ActiveView().TranslateBy 0, 0.000195248
Part.ActiveView().TranslateBy 0, 0.000390496
Part.ActiveView().TranslateBy 0.000390496, 0.00312397
Part.ActiveView().TranslateBy 0.00292872, 0.00761468
Part.ActiveView().TranslateBy 0.00331922, 0.00683368
Part.ActiveView().TranslateBy 0.00390496, 0.00898141
Part.ActiveView().TranslateBy 0.00097624, 0.00468595
Part.ActiveView().TranslateBy 0, 0.000390496
Part.ActiveView().TranslateBy 0, 0.000195248
Part.ActiveView().TranslateBy 0, 0.000195248
Part.SetPickMode
boolstatus = Part.Extension.SelectByID2("DetailItem120@Sheet Format1", "NOTE", 0.3264325539533, 0.2573482886005, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line129", "SKETCHSEGMENT", 0.3300579961601, 0.2572547970094, 0, False, 0, Nothing, 0)
Part.EditCopy
Part.Paste
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Line130", "SKETCHSEGMENT", 0.3175864749686, 0.2572547970094, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Part.SetPickMode
boolstatus = Part.Extension.SelectByID2("Line130", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing, 0)
Part.SketchManager.SketchExtend 0.3771162360048, 0.2537018636467, 0
Part.SetPickMode
boolstatus = Part.Extension.SelectByID2("Line94", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing, 0)
Part.SketchManager.SketchExtend 0.402131787232, 0.2600101330866, 0
Part.SetPickMode
boolstatus = Part.Extension.SelectByID2("Line95", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing, 0)
Part.SketchManager.SketchExtend 0.3928506551825, 0.2594300623335, 0
Part.SetPickMode
boolstatus = Part.Extension.SelectByID2("Line93", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing, 0)
Part.SketchManager.SketchExtend 0.327882730836, 0.2593575534893, 0
Part.SetPickMode
boolstatus = Part.Extension.SelectByID2("Line88", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing, 0)
Part.SketchManager.SketchExtend 0.3222995498375, 0.2591400269569, 0
Part.SetPickMode
boolstatus = Part.Extension.SelectByID2("Line130", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing, 0)
Part.SketchManager.SketchTrim 0, 0.3143960858266, 0.2536293548025, 0
Part.SetPickMode
Part.SetPickMode
boolstatus = Part.Extension.SelectByID2("DetailItem120@Sheet Format1", "NOTE", 0.3247648505381, 0.2589950092686, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("DetailItem1@Sheet Format1", "NOTE", 0.3389765839889, 0.2589950092686, 0, True, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("DetailItem92@Sheet Format1", "NOTE", 0.3958960266362, 0.2585599562038, 0, True, 0, Nothing, 0)
Part.EditCopy
Part.Paste
boolstatus = Part.Extension.SelectByID2("DetailItem120@Sheet Format1", "NOTE", 0.3572488127114, 0.2607836585366, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("DetailItem1@Sheet Format1", "NOTE", 0.3889351775991, 0.2593575534893, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("DetailItem92@Sheet Format1", "NOTE", 0.4301927099129, 0.25972009771, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("DetailItem120@Sheet Format1", "NOTE", 0.3257074655119, 0.2547894963087, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("DetailItem1@Sheet Format1", "NOTE", 0.3426745350399, 0.2550795316853, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("DetailItem92@Sheet Format1", "NOTE", 0.3993764511548, 0.2554420759059, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("DetailItem92@Sheet Format1", "NOTE", 0.4040170171795, 0.2552970582177, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Part.SetPickMode
boolstatus = Part.Extension.SelectByID2("Sheet Format1", "SHEET", 0.4052496675299, 0.2462334527006, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("DetailItem92@Sheet Format1", "NOTE", 0.403726981803, 0.2553695670618, 0, False, 0, Nothing, 0)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("DetailItem92@Sheet Format1", "NOTE", 0.3980712919603, 0.2548620051528, 0, False, 0, Nothing, 0)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Sheet Format1", "SHEET", 0.3897327748846, 0.2562396731914, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("DetailItem92@Sheet Format1", "NOTE", 0.3942283232211, 0.2557321112825, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("DetailItem92@Sheet Format1", "NOTE", 0.3942283232211, 0.2557321112825, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("DetailItem92@Sheet Format1", "NOTE", 0.3942283232211, 0.2557321112825, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("DetailItem92@Sheet Format1", "NOTE", 0.4002465572844, 0.2523241956081, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("DetailItem92@Sheet Format1", "NOTE", 0.3986513627134, 0.2556596024383, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("DetailItem92@Sheet Format1", "NOTE", 0.4040170171795, 0.2556596024383, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Sheet Format1", "SHEET", 0.4047421056209, 0.2471760676744, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("DetailItem92@Sheet Format1", "NOTE", 0.4039445083354, 0.2553695670618, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("DetailItem92@Sheet Format1", "NOTE", 0.3941558143769, 0.2550795316853, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("DetailItem92@Sheet Format1", "NOTE", 0.3941558143769, 0.2550795316853, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("DetailItem92@Sheet Format1", "NOTE", 0.3889351775991, 0.2446382581296, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("DetailItem92@Sheet Format1", "NOTE", 0.4060472648154, 0.2595025711776, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("DetailItem92@Sheet Format1", "NOTE", 0.4015517164789, 0.2589950092686, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("DetailItem92@Sheet Format1", "NOTE", 0.3964035885452, 0.2449282935061, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Sheet Format1", "SHEET", 0.4019142606996, 0.2415928866758, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Sheet Format1", "SHEET", 0.3046073918681, 0.2505839833488, 0, False, 0, Nothing, 0)
Part.EditSheet
Part.EditSketch
Part.ClearSelection2 True
Part.ViewZoomtofit2
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.1282843726142, 0.2567836099135, 0, False, 0, Nothing, 0)
Part.ViewZoomtofit2
Part.PrintDirect
Set Part = swApp.OpenDoc6 ("C:\project data\soliddata\MRS BRS\BRS chamber\BRS chamber body.SLDDRW", 3, 0, "", longstatus, longwarnings)
swApp.OpenDoc6 "C:\project data\soliddata\MRS BRS\BRS chamber\BRS chamber body.SLDDRW", 3, 0, "", longstatus, longwarnings
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc2 ("BRS chamber body - Sheet1", False, longstatus)
Set Part = Nothing
swApp.CloseDoc "BRS chamber body - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc2 ("BRS chamber top - Sheet1", False, longstatus)
Set Part = Nothing
swApp.CloseDoc "BRS chamber top - Sheet1"
Set Part = swApp.OpenDoc6 ("C:\project data\soliddata\BRS3\acid pump\acid pump housing end cap.SLDDRW", 3, 0, "", longstatus, longwarnings)
swApp.OpenDoc6 "C:\project data\soliddata\BRS3\acid pump\acid pump housing end cap.SLDDRW", 3, 0, "", longstatus, longwarnings
Set Part = swApp.ActivateDoc2 ("acid pump housing end cap - Sheet1", False, longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.PrintDirect
Part.ViewZoomtofit2
Part.ViewZoomtofit2
Set Part = Nothing
swApp.CloseDoc "acid pump housing end cap - Sheet1"
Set Part = swApp.OpenDoc6 ("C:\project data\soliddata\MRS\Glass Detritus.Sampler\Glass Detritus Sampler Optode.SLDASM", 2, 0, "", longstatus, longwarnings)
swApp.OpenDoc6 "C:\project data\soliddata\MRS\Glass Detritus.Sampler\Glass Detritus Sampler Optode.SLDASM", 2, 0, "", longstatus, longwarnings
Set Part = swApp.ActivateDoc2 ("Glass Detritus Sampler Optode.SLDASM", False, longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.Extension.InsertScene "\scenes\02 studio scenes\66 light cards.p2s"
Part.ActiveView().RotateAboutCenter 0.0489838, -0.235619
Part.ActiveView().RotateAboutCenter 0.309371, -0.461814
Part.ActiveView().RotateAboutCenter -0.0154686, 0.00942478
Part.ActiveView().RotateAboutCenter 0.440854, -0.311018
Part.ActiveView().RotateAboutPoint -0.239763, 0.461814, -0.0642125, 0.282042, 0.121452
Part.ActiveView().RotateAboutPoint -0.342887, -0.428827, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0, -0.00471239, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00257809, -0.00471239, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00257809, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00257809, -0.00942478, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.0180467, -0.084823, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.028359, -0.122522, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.0360933, -0.146084, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.0154686, -0.0612611, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00773428, -0.0424115, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00257809, -0.0235619, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00515619, -0.0376991, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00257809, -0.0612611, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0, -0.0329867, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0, -0.00942478, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0, -0.00942478, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.00257809, -0.0282743, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.00515619, -0.0141372, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0, -0.00942478, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0, -0.00471239, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0, -0.00471239, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0, -0.00942478, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0, -0.00471239, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.00257809, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.00257809, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0, -0.00471239, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.00515619, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0, -0.00471239, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.00257809, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.00773428, -0.00471239, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.0128905, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.00515619, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.0103124, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.00515619, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.00773428, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.00257809, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.00515619, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.00257809, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.00773428, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.00515619, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00257809, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0, -0.00471239, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00257809, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.00257809, 0.0141372, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.0232029, 0.0612611, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.0618743, 0.127235, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.0438276, 0.0706858, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint 0.0206248, 0.0282743, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0, 0.00471239, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0, 0.00471239, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0, 0.00471239, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0, 0.00942478, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00515619, 0.0329867, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.0154686, 0.0753982, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00773428, 0.0329867, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00257809, 0.00471239, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00773428, 0.0141372, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.0128905, 0.0282743, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00257809, 0.00942478, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.0103124, 0.0141372, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.0154686, 0.0141372, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.0412495, 0.0235619, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.0464057, 0.0141372, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.0206248, 0.00942478, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.0154686, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00773428, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00515619, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00515619, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00773428, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.0154686, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.0103124, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.0103124, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.0103124, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00773428, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00773428, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00257809, -0.00471239, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00515619, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00515619, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00773428, -0.00471239, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00773428, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.0309371, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.0464057, 0.00471239, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.0232029, 0.00471239, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.0180467, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00257809, 0, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00257809, -0.00471239, -0.0965873, 0.282176, 0.119073
Part.ActiveView().RotateAboutPoint -0.00773428, -0.00942478, -0.0965873, 0.282176, 0.119073
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub