' ******************************************************************************
' swxJRNL.swj - journal recorded on 09/04/23 by elite105
' *****************************************************************************
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

swApp.ActivateDoc2 "CS58RZ_拖动模型.SLDASM", False, longstatus
Set Part = swApp.ActiveDoc
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.024460493648183299, -0.48979161055966963
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.017471781177273781, -0.28200123032223406
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.059368680067838749
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0034943562354547565, -0.051947595059358899
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006988712470909513, -0.066789765076318591
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0034943562354547565, -0.037105425042399214
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006988712470909513, -0.037105425042399214
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0034943562354547565, -0.029684340033919374
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0034943562354547565, -0.044526510050879056
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.010483068706364271, -0.051947595059358899
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.010483068706364271, -0.081631935093278277
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006988712470909513, -0.074210850084798427
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006988712470909513, -0.029684340033919374
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0034943562354547565, -0.0074210850084798436
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.014842170016959687
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.0074210850084798436

' Roll View
Dim swModelView As Object
Set swModelView = Part.ActiveView
swModelView.RollBy 0
boolstatus = Part.Extension.SelectByID2("CS58RZ_Link4-1@CS58RZ_拖动模型", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("CS58RZ_Link4-1@CS58RZ_拖动模型", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Part.OpenCompFile

' Open
Set Part = swApp.OpenDoc6("E:\01_ElitProjectFiles\01_各型号机械臂数模\02_SolidWorksFiles\28_CS_R系列机械臂\CS58RZ\新建文件夹\CS58RZ_Link4.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 22
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "CS58RZ_Link4.SLDPRT", False, longstatus
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized

' Redraw
Part.GraphicsRedraw2

' Redraw
Part.GraphicsRedraw2

' Redraw
Part.GraphicsRedraw2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("输入1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
longstatus = Part.ImportDiagnosis(True, False, True, 0)
Part.ClearSelection2 True
Part.ClearSelection2 True
Part.ClearSelection2 True
Part.ClearSelection2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("基准面1", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("基准面1", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.EditDelete

' Save
Dim swErrors As Long
Dim swWarnings As Long
boolstatus = Part.Save3(1, swErrors, swWarnings)

' Save
boolstatus = Part.Save3(1, swErrors, swWarnings)

' Close Document
swPart = Nothing
Set Part = Nothing
swApp.CloseDoc "CS58RZ_Link4.SLDPRT"
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "CS58RZ_拖动模型.SLDASM", False, longstatus
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
boolstatus = Part.Extension.SelectByRay(0.028493032346304403, 0.92057396251811241, -0.034698212471425904, -0.20007624911473884, -0.094060368536415279, 0.97525491109297713, 0.0056076786391217725, 2, False, 0, 0)
boolstatus = Part.Extension.SelectByID2("CS58RZ_Link3-1@CS58RZ_拖动模型", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("CS58RZ_Link4-1@CS58RZ_拖动模型", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Part.OpenCompFile

' Open
Set Part = swApp.OpenDoc6("E:\01_ElitProjectFiles\01_各型号机械臂数模\02_SolidWorksFiles\28_CS_R系列机械臂\CS58RZ\新建文件夹\CS58RZ_Link4.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 22
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "CS58RZ_Link4.SLDPRT", False, longstatus
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Part.ClearSelection2 True

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.57214922657760559
Dim swTranslation() As Double
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.043261048944008201
swTranslation(1) = -0.15671323190065958
swTranslation(2) = -0.01369738784053675
Dim swTranslationVar As Variant
swTranslationVar = swTranslation
Dim swMathUtils As Object
Set swMathUtils = swApp.GetMathUtility()
Dim swTranslationVector As MathVector
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.68933641756338027
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.04974635414940743
swTranslation(1) = -0.20542715977704265
swTranslation(2) = -0.016502876916309344
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.83052580429322931
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.057559974878804196
swTranslation(1) = -0.26411863914617884
swTranslation(2) = -0.019882984236517288
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.0006334991484691
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.066973975757595394
swTranslation(1) = -0.334831264892126
swTranslation(2) = -0.023955402694599146
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.2055825290945412
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.08017268593858308
swTranslation(1) = -0.41767558162562507
swTranslation(2) = -0.028861930957348361
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.4525090711982425
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.0968173625766061
swTranslation(1) = -0.51711670333552107
swTranslation(2) = -0.034773410791985981
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.7500109291545092
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.11755192134875095
swTranslation(1) = -0.63661586030097184
swTranslation(2) = -0.041895675652995151
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 2.1084469025957944
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.14296651023085311
swTranslation(1) = -0.78034320948482017
swTranslation(2) = -0.050476717654211023
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 2.5402974730069814
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.1786610407256406
swTranslation(1) = -0.95010503294212378
swTranslation(2) = -0.060815322474953054
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 3.0605993650686525
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.22172838383467891
swTranslation(1) = -1.1545754656789788
swTranslation(2) = -0.07327147286138927
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 3.6874691145405456
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.27367863370787482
swTranslation(1) = -1.4009253846390446
swTranslation(2) = -0.088278882965529201
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector
boolstatus = Part.Extension.SelectByRay(0.061294288090323334, 0.3975002052698855, 0.018737803065334901, -0.20007624911473884, -0.094060368536415279, 0.97525491109297713, 0.00022392439368734045, 2, True, 0, 0)
boolstatus = Part.InsertAxis2(True)

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 3.0728909287837882
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.23324648047084803
swTranslation(1) = -1.1674378205325371
swTranslation(2) = -0.073565735804607665
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 2.5607424406531569
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.19955301943999243
swTranslation(1) = -0.97286485044378079
swTranslation(2) = -0.061304779837173057
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 2.1339520338776308
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.17147513524761271
swTranslation(1) = -0.81072070870315094
swTranslation(2) = -0.051087316530977561
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.7782933615646923
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.14807689842062965
swTranslation(1) = -0.675600590585959
swTranslation(2) = -0.042572763775814655
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.4819111346372436
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.12857836773147713
swTranslation(1) = -0.56300049215496606
swTranslation(2) = -0.035477303146512221
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.2349259455310364
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.11232959215718327
swTranslation(1) = -0.46916707679580499
swTranslation(2) = -0.029564419288760177
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.029104954609197
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.098788945845271772
swTranslation(1) = -0.39097256399650415
swTranslation(2) = -0.024637016073966816
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.85758746217433091
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.0875050739186789
swTranslation(1) = -0.32581046999708668
swTranslation(2) = -0.020530846728305692
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.71465621847860916
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.078101847313184758
swTranslation(1) = -0.27150872499757228
swTranslation(2) = -0.017109038940254742
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.59554684873217434
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.070265825141939714
swTranslation(1) = -0.22625727083131014
swTranslation(2) = -0.014257532450212286
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.49628904061014528
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.063735806665902159
swTranslation(1) = -0.18854772569275852
swTranslation(2) = -0.01188127704184358
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.41357420050845439
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.058294124602537502
swTranslation(1) = -0.15712310474396549
swTranslation(2) = -0.0099010642015363148
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.34464516709037868
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.053759389549733597
swTranslation(1) = -0.13093592061997122
swTranslation(2) = -0.0082508868346135977
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.28720430590864893
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.049980443672397082
swTranslation(1) = -0.10911326718330931
swTranslation(2) = -0.006875739028844665
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.23933692159054079
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.046831322107949977
swTranslation(1) = -0.090927722652757809
swTranslation(2) = -0.0057297825240372182
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.19944743465878401
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.044207054137577327
swTranslation(1) = -0.075773102210631507
swTranslation(2) = -0.0047748187700310148
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector
boolstatus = Part.Extension.SelectByRay(0.0013230913968271807, 0.24245473337252577, -0.036161440865612349, -0.20007624911473884, -0.094060368536415279, 0.97525491109297713, 0.0041400095575404279, 2, True, 0, 0)

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.24029811404672774
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.03918991462358714
swTranslation(1) = -0.085816099909538784
swTranslation(2) = -0.0057527936988325456
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.28951580005629851
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.033268937584356305
swTranslation(1) = -0.097916097137137975
swTranslation(2) = -0.0069310767455813826
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.34881421693529946
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.026258999671341477
swTranslation(1) = -0.112494407049908
swTranslation(2) = -0.0083506948741944378
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.42025809269313191
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.017998945387158401
swTranslation(1) = -0.13012052054205789
swTranslation(2) = -0.010061078161680044
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.50633505143750834
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.0080470727556125072
swTranslation(1) = -0.15141868653948459
swTranslation(2) = -0.0121217809176868
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector
boolstatus = Part.InsertAxis2(True)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("基准轴1", "AXIS", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("基准轴2", "AXIS", 0, 0, 0, True, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("基准轴1", "AXIS", 0, 0, 0, True, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("基准轴2", "AXIS", 0, 0, 0, True, 1, Nothing, 0)
Dim myRefPlane As Object
Set myRefPlane = Part.FeatureManager.InsertRefPlane(4, 0, 4, 0, 0, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("基准轴1", "AXIS", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("基准轴2", "AXIS", 0, 0, 0, True, 0, Nothing, 0)
Part.ClearSelection2 True
Part.ClearSelection2 True

' Save
boolstatus = Part.Save3(1, swErrors, swWarnings)

' Close Document
swPart = Nothing
Set Part = Nothing
swApp.CloseDoc "CS58RZ_Link4.SLDPRT"
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "CS58RZ_拖动模型.SLDASM", False, longstatus
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
boolstatus = Part.Extension.SelectByID2("重合4", "MATE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("同心4", "MATE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("同心4", "MATE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.DeSelectByID("NullFeature, 477;NullFeature, 479;;NullFeature, 472;", "GHOST_FACE", 0, 0, 0)

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.17740611629774056
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.073253578587163679
swTranslation(1) = -0.10065878090500674
swTranslation(2) = -0.012112986668235596
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.21374230879245851
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.071799363185911499
swTranslation(1) = -0.12173977475646254
swTranslation(2) = -0.014593959841247707
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.25752085396681751
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.069923527074247926
swTranslation(1) = -0.14738610125563473
swTranslation(2) = -0.01758308414608158
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.3102660891166476
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.067663483566219526
swTranslation(1) = -0.17865659789835511
swTranslation(2) = -0.021184438730218774
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.37381456520078027
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.071624085191658624
swTranslation(1) = -0.23068914118562578
swTranslation(2) = -0.025523420156890086
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.45037899421780758
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.077014741194769448
swTranslation(1) = -0.29405968387252679
swTranslation(2) = -0.030751108622759146
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.5426252942383224
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.084561547050496733
swTranslation(1) = -0.37164742893419761
swTranslation(2) = -0.037049528461155591
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.65376541474496686
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.094149161678739671
swTranslation(1) = -0.4659311407124585
swTranslation(2) = -0.044637986097777846
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.78766917439152639
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.10310134797782747
swTranslation(1) = -0.5755034698773166
swTranslation(2) = -0.053780706141901016
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.94899900529099579
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.11308261374264932
swTranslation(1) = -0.70510482171105271
swTranslation(2) = -0.064796031496266296
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.1433722955313204
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.12442750364863081
swTranslation(1) = -0.85964202701848003
swTranslation(2) = -0.078067507826826865
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.377556982567856
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.13760096825136242
swTranslation(1) = -1.0445937373716625
swTranslation(2) = -0.094057238345574556
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.6597072079130797
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.15712380856446423
swTranslation(1) = -1.2556071491569087
swTranslation(2) = -0.11332197391033079
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.9996472384494939
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.18095472632551635
swTranslation(1) = -1.5095307519962757
swTranslation(2) = -0.13653249868714554
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, 0, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.027954849883638052, 0.014842170016959687, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.027954849883638052, 0.029684340033919374, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.013977424941819026, 0.022263255025439528, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.010483068706364271, 0.014842170016959687, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.010483068706364271, 0.014842170016959687, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.006988712470909513, 0.014842170016959687, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, 0.0074210850084798436, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.010483068706364271, 0.0074210850084798436, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.017471781177273781, 0, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.006988712470909513, 0, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, 0, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, -0.029684340033919374, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.024460493648183299, -0.051947595059358899, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.055909699767276104, -0.051947595059358899, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.062898412238185625, -0.022263255025439528, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.045426631060911833, -0.0074210850084798436, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.059404056002730868, -0.022263255025439528, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.045426631060911833, -0.029684340033919374, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.045426631060911833, -0.029684340033919374, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.031449206119092812, -0.014842170016959687, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.041932274825457083, -0.022263255025439528, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.024460493648183299, -0.022263255025439528, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.024460493648183299, -0.014842170016959687, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.020966137412728542, -0.014842170016959687, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.020966137412728542, -0.0074210850084798436, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.024460493648183299, -0.014842170016959687, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.010483068706364271, -0.0074210850084798436, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.0034943562354547565, -0.0074210850084798436, 0.056300261773444049, 0.76004497409623895, -0.02184805095066622

' Roll View
Set swModelView = Part.ActiveView
swModelView.RollBy 0

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 2.4092135403005952
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.20308262970585841
swTranslation(1) = -1.7570222985746149
swTranslation(2) = 0.60964251540414649
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 2.9026669160248137
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.23620303062667969
swTranslation(1) = -2.1134597358041831
swTranslation(2) = 0.73450905470379113
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector
boolstatus = Part.Extension.SelectByRay(0.041066508164805171, 0.77593528088286234, 0.03707453464903665, 0.022344430459892844, 0.31150778582308475, 0.94998085549079481, 0.00028446746030546865, 2, True, 1, 0)
boolstatus = Part.Extension.SelectByRay(0.012999999999999469, 0.77269999232104447, 0, 0.022344430459892844, 0.31150778582308475, 0.94998085549079481, 0.00028446746030546865, 2, True, 1, 0)
boolstatus = Part.Extension.SelectByRay(0.013000000000000145, 0.77279999232104446, 0, 0.022344430459892844, 0.31150778582308475, 0.94998085549079481, 0.00028446746030546865, 2, True, 1, 0)

' Edit Mate
Part.EditMate4 1, 1, False, 0.026499999999999725, 0.001, 0.001, 0.001, 0.001, 0, 0.52359877559830004, 0.52359877559830004, False, False, 0, False, longstatus
Part.ClearSelection2 True
Part.EditRebuild3

boolstatus = Part.Extension.SelectByID2("重合4", "MATE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.DeSelectByID("NullFeature, 481;NullFeature, 483;;NullFeature, 479;", "GHOST_FACE", 0, 0, 0)
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.024460493648183299, 0.022263255025439528, 0.048372658149274272, 0.77909999232105065, 0.005671634151951821
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.034943562354547562, 0.029684340033919374, 0.048372658149274272, 0.77909999232105065, 0.005671634151951821
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.027954849883638052, 0.014842170016959687, 0.048372658149274272, 0.77909999232105065, 0.005671634151951821
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.038437918590002326, 0.0074210850084798436, 0.048372658149274272, 0.77909999232105065, 0.005671634151951821
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.045426631060911833, 0.0074210850084798436, 0.048372658149274272, 0.77909999232105065, 0.005671634151951821
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.034943562354547562, 0, 0.048372658149274272, 0.77909999232105065, 0.005671634151951821
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.010483068706364271, 0, 0.048372658149274272, 0.77909999232105065, 0.005671634151951821
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.0034943562354547565, -0.0074210850084798436, 0.048372658149274272, 0.77909999232105065, 0.005671634151951821
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.076875837180004652, -0.13357953015263718, 0.048372658149274272, 0.77909999232105065, 0.005671634151951821
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.055909699767276104, -0.096474105110237962, 0.048372658149274272, 0.77909999232105065, 0.005671634151951821
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.045426631060911833, -0.074210850084798427, 0.048372658149274272, 0.77909999232105065, 0.005671634151951821
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.013977424941819026, -0.022263255025439528, 0.048372658149274272, 0.77909999232105065, 0.005671634151951821
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, -0.0074210850084798436, 0.048372658149274272, 0.77909999232105065, 0.005671634151951821
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.0034943562354547565, 0, 0.048372658149274272, 0.77909999232105065, 0.005671634151951821
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.0034943562354547565, 0, 0.048372658149274272, 0.77909999232105065, 0.005671634151951821
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.0034943562354547565, -0.0074210850084798436, 0.048372658149274272, 0.77909999232105065, 0.005671634151951821
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.006988712470909513, 0, 0.048372658149274272, 0.77909999232105065, 0.005671634151951821
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.010483068706364271, -0.0074210850084798436, 0.048372658149274272, 0.77909999232105065, 0.005671634151951821
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.017471781177273781, -0.014842170016959687, 0.048372658149274272, 0.77909999232105065, 0.005671634151951821

' Roll View
Set swModelView = Part.ActiveView
swModelView.RollBy 0

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 3.497189055451583
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.14860050821195728
swTranslation(1) = -2.5128644046732953
swTranslation(2) = 1.0104383221398565
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 4.2134807897007027
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.18213435584917403
swTranslation(1) = -3.029744381706208
swTranslation(2) = 1.2173955688432005
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 5.0764828791574734
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.22253658191810985
swTranslation(1) = -3.6524294573052423
swTranslation(2) = 1.4667416492086753
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 6.1162444327198484
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.27486515893748181
swTranslation(1) = -4.4083458306603607
swTranslation(2) = 1.7671586135044284
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 7.3689691960480106
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.33791163727407458
swTranslation(1) = -5.319088449160505
swTranslation(2) = 2.1291067632583478
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 8.8782761398168812
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.41387124972780059
swTranslation(1) = -6.4163687124136892
swTranslation(2) = 2.5651888713956001
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector
boolstatus = Part.Extension.SelectByRay(0.056990581011120867, 0.77269999232109399, -0.017044854870277959, 0.29968396971590272, 0.34077324761707178, 0.89110218942825636, 9.3003897683601068e-005, 2, True, 1, 0)
boolstatus = Part.Extension.SelectByRay(0.012999999999999469, 0.77269999232104447, 0, 0.29968396971590272, 0.34077324761707178, 0.89110218942825636, 9.3003897683601068e-005, 2, True, 1, 0)
boolstatus = Part.Extension.SelectByRay(0.013000000000000173, 0.77269999232104447, 0, 0.29968396971590272, 0.34077324761707178, 0.89110218942825636, 9.3003897683601068e-005, 2, True, 1, 0)

' Edit Mate
Part.EditMate4 0, 1, False, 0, 0.001, 0.001, 0.001, 0.001, 0, 0.52359877559830004, 0.52359877559830004, False, False, 0, False, longstatus
Part.ClearSelection2 True
Part.EditRebuild3

boolstatus = Part.Extension.SelectByID2("重合5", "MATE", 0, 0, 0, False, 0, Nothing, 0)

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 7.3985634498474013
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.35501175572554816
swTranslation(1) = -5.3469739270114083
swTranslation(2) = 2.1376573928296669
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 6.1654695415395011
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.30596217739033776
swTranslation(1) = -4.4558116058428405
swTranslation(2) = 1.7813811606913892
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 5.1378912846162512
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.26508752877766245
swTranslation(1) = -3.7131763382023673
swTranslation(2) = 1.4844843005761577
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 4.2815760705135428
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.23102532160043299
swTranslation(1) = -3.0943136151686392
swTranslation(2) = 1.2370702504801314
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 3.567980058761286
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.20264014895274177
swTranslation(1) = -2.5785946793072001
swTranslation(2) = 1.0308918754001097
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 2.9733167156344051
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.17898583841299912
swTranslation(1) = -2.148828899422667
swTranslation(2) = 0.85907656283342471
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 2.4777639296953375
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.15927391296321358
swTranslation(1) = -1.7906907495188893
swTranslation(2) = 0.71589713569452051
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 2.0648032747461147
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.14284730842172558
swTranslation(1) = -1.4922422912657411
swTranslation(2) = 0.59658094641210047
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.7206693956217622
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.12915847130381894
swTranslation(1) = -1.2435352427214512
swTranslation(2) = 0.49715078867675039
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.4338911630181352
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.11775110703889675
swTranslation(1) = -1.0362793689345426
swTranslation(2) = 0.41429232389729204
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.1949093025151127
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.10824497015146156
swTranslation(1) = -0.86356614077878557
swTranslation(2) = 0.34524360324774328
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.99575775209592732
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.10032318941193226
swTranslation(1) = -0.7196384506489879
swTranslation(2) = 0.28770300270645272
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.82979812674660614
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.093721705462324514
swTranslation(1) = -0.59969870887415666
swTranslation(2) = 0.23975250225537734
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.69149843895550511
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.088220468837651347
swTranslation(1) = -0.49974892406179716
swTranslation(2) = 0.19979375187948109
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.57624869912958765
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.083636104983757134
swTranslation(1) = -0.41645743671816443
swTranslation(2) = 0.16649479323290092
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.48020724927465641
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.079815801772178507
swTranslation(1) = -0.3470478639318037
swTranslation(2) = 0.13874566102741745
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.40017270772888036
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.07663221576252971
swTranslation(1) = -0.28920655327650313
swTranslation(2) = 0.11562138418951454
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.33347725644073367
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.073979227421155716
swTranslation(1) = -0.24100546106375267
swTranslation(2) = 0.096351153491262151
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.27789771370061139
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.071768403803344039
swTranslation(1) = -0.20083788421979384
swTranslation(2) = 0.080292627909385128
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.23158142808384283
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.069926050788501004
swTranslation(1) = -0.16736490351649494
swTranslation(2) = 0.066910523257820931
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector
boolstatus = Part.Extension.SelectByID2("重合5", "MATE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.DeSelectByID("NullFeature, 209;NullFeature, 235;;NullFeature, 203;", "GHOST_FACE", 0, 0, 0)

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.27901376877571427
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.068656679091137193
swTranslation(1) = -0.22067400165498527
swTranslation(2) = 0.080615088262434867
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.33616116719965577
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.067127315600337398
swTranslation(1) = -0.2849018307375038
swTranslation(2) = 0.097126612364379361
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.40501345445741666
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.065222824303332511
swTranslation(1) = -0.36228475734294785
swTranslation(2) = 0.11702001489684261
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.48796801741857432
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.062866371794032275
swTranslation(1) = -0.45551719903625382
swTranslation(2) = 0.14098796975523209
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.58791327399828242
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.059841618340486354
swTranslation(1) = -0.56784544204023701
swTranslation(2) = 0.16986502380148447
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.70832924578106327
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.060900572871498179
swTranslation(1) = -0.69804424600372816
swTranslation(2) = 0.20465665518251144
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.8534087298567028
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.063104691927794734
swTranslation(1) = -0.85460085146748677
swTranslation(2) = 0.24657428335242348
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.0282032889839794
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.067183604732282798
swTranslation(1) = -1.0429138442809653
swTranslation(2) = 0.29707744982219697
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.2387991433541921
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.078595849075039581
swTranslation(1) = -1.2655269251233661
swTranslation(2) = 0.35792463833999633
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.4925290883785447
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.092345541054264541
swTranslation(1) = -1.5333641481692879
swTranslation(2) = 0.43123450402409197
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.798227817323548
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.108911435005138
swTranslation(1) = -1.8556882895327049
swTranslation(2) = 0.51955964340252037
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 2.1665395389440341
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.12880845869810087
swTranslation(1) = -2.2435355510721062
swTranslation(2) = 0.62597547397894049
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.13357953015263718, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.006988712470909513, 0.037105425042399214, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.051947595059358899, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.006988712470909513, 0.051947595059358899, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, 0.044526510050879056, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, 0.014842170016959687, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.006988712470909513, 0.037105425042399214, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, 0.022263255025439528, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.006988712470909513, 0.037105425042399214, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.014842170016959687, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, 0.029684340033919374, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, 0.022263255025439528, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, 0.014842170016959687, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, 0.014842170016959687, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.022263255025439528, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.0074210850084798436, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, 0.022263255025439528, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.0074210850084798436, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, 0.022263255025439528, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, 0.029684340033919374, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.022263255025439528, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, 0.037105425042399214, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, 0.037105425042399214, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.014842170016959687, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, 0.044526510050879056, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.044526510050879056, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.014842170016959687, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.029684340033919374, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.0074210850084798436, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.0074210850084798436, 0.049576272618509165, 1.1077637609689646, -0.03729711297302174

' Roll View
Set swModelView = Part.ActiveView
swModelView.RollBy 0

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 2.6102886011373907
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.76950012593718986
swTranslation(1) = -2.7691106347993699
swTranslation(2) = 0.1343352391804109
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 3.1449260254667362
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.9347856508709691
swTranslation(1) = -3.3522131787599987
swTranslation(2) = 0.16184968575953129
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 3.7890675005623331
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 1.1339248375381727
swTranslation(1) = -4.054746364254731
swTranslation(2) = 0.19499962139702565
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 4.5651415669425708
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 1.3688389092542532
swTranslation(1) = -4.8982014242311731
swTranslation(2) = 0.23493930288798281
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 5.5001705625814115
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 1.65186791132182
swTranslation(1) = -5.9144123398654402
swTranslation(2) = 0.28305940106985894
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 6.6267115211824237
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 1.9928667089935868
swTranslation(1) = -7.1387628406296191
swTranslation(2) = 0.34103542297573358
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.038437918590002326, -0.1187373601356775, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, -0.0074210850084798436, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.010483068706364271, -0.029684340033919374, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.006988712470909513, -0.0074210850084798436, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, -0.014842170016959687, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.013977424941819026, -0.029684340033919374, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, -0.014842170016959687, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.010483068706364271, -0.022263255025439528, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.024460493648183299, -0.051947595059358899, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.006988712470909513, -0.0074210850084798436, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.010483068706364271, -0.022263255025439528, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.017471781177273781, -0.029684340033919374, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, -0.0074210850084798436, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.006988712470909513, -0.014842170016959687, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.010483068706364271, -0.014842170016959687, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.010483068706364271, -0.014842170016959687, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.006988712470909513, -0.0074210850084798436, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, -0.0074210850084798436, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, -0.0074210850084798436, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, 0, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, -0.0074210850084798436, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, -0.0074210850084798436, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, -0.0074210850084798436, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, 0, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, -0.0074210850084798436, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, -0.0074210850084798436, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, 0, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, -0.0074210850084798436, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, -0.0074210850084798436, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, 0, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, -0.0074210850084798436, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.0074210850084798436, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.0034943562354547565, 0.029684340033919374, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.0074210850084798436, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.014842170016959687, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.044526510050879056, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.022263255025439528, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.014842170016959687, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.022263255025439528, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.0074210850084798436, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.014842170016959687, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.022263255025439528, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.014842170016959687, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.0034943562354547565, 0.044526510050879056, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.022263255025439528, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.0034943562354547565, 0.0074210850084798436, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.0034943562354547565, 0.022263255025439528, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.0034943562354547565, 0.014842170016959687, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.0034943562354547565, 0.014842170016959687, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.006988712470909513, 0, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.014842170016959687, 0.062000942736517572, 1.1314819337162731, -0.015775736351713476

' Roll View
Set swModelView = Part.ActiveView
swModelView.RollBy 0
boolstatus = Part.Extension.SelectByRay(0.062000465415735562, 1.1364435556210744, -0.0077875168417449459, -0.41366563244810778, -0.00020402323879501746, 0.91042885658673245, 0.00012460392806822398, 2, True, 1, 0)
boolstatus = Part.Extension.SelectByRay(0.061999999912524577, 1.1004999923210443, 2.9279018974516892e-006, -0.41366563244810778, -0.00020402323879501746, 0.91042885658673245, 0.00012460392806822398, 2, True, 1, 0)
boolstatus = Part.Extension.SelectByRay(0.062000083926787332, 1.1384739715427212, -0.0014030955917133678, -0.41366563244810778, -0.00020402323879501746, 0.91042885658673245, 0.00012460392806822398, 2, True, 1, 0)

' Edit Mate
Part.EditMate4 0, 1, False, 0, 0.001, 0.001, 0.001, 0.001, 0, 0.52359877559830004, 0.52359877559830004, False, False, 0, False, longstatus
Part.ClearSelection2 True
Part.EditRebuild3


' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 5.5222596009853531
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 1.3491607305363362
swTranslation(1) = -6.0716078790335164
swTranslation(2) = -0.69075004993393863
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 4.601883000821128
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 1.1344196563993278
swTranslation(1) = -5.0596732325279321
swTranslation(2) = -0.57562504161161554
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 3.8349025006842736
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.95546876128515434
swTranslation(1) = -4.216394360439943
swTranslation(2) = -0.47968753467634623
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 3.1957520839035616
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.80634301535667618
swTranslation(1) = -3.5136619670332863
swTranslation(2) = -0.39973961223028864
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 2.6631267365863014
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.6820715604162777
swTranslation(1) = -2.9280516391944054
swTranslation(2) = -0.33311634352524055
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 2.2192722804885845
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.57851201463261248
swTranslation(1) = -2.4400430326620044
swTranslation(2) = -0.27759695293770037
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.8493935670738204
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.49221239314622478
swTranslation(1) = -2.0333691938850036
swTranslation(2) = -0.23133079411475041
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.5411613058948503
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.4202960419075682
swTranslation(1) = -1.6944743282375032
swTranslation(2) = -0.19277566176229197
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.2843010882457087
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.3603657492086878
swTranslation(1) = -1.4120619401979193
swTranslation(2) = -0.16064638480190999
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.0702509068714239
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.31042383862628747
swTranslation(1) = -1.1767182834982661
swTranslation(2) = -0.13387198733492497
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Save
boolstatus = Part.Save3(1, swErrors, swWarnings)
boolstatus = Part.Extension.SelectByRay(0.02382709151254403, 1.0216346936134908, -0.036424910286484646, -0.41366563244810778, -0.00020402323879501746, 0.91042885658673245, 0.00077151467979413185, 2, False, 0, 0)
Part.OpenCompFile

' Open
Set Part = swApp.OpenDoc6("E:\01_ElitProjectFiles\01_各型号机械臂数模\02_SolidWorksFiles\28_CS_R系列机械臂\CS58RZ\新建文件夹\CS58RZ_Link4.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 22
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "CS58RZ_Link4.SLDPRT", False, longstatus
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("基准轴1", "AXIS", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("基准轴2", "AXIS", 0, 0, 0, True, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("基准面1", "PLANE", 0, 0, 0, True, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("基准面1", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.EditDelete

' Save
boolstatus = Part.Save3(1, swErrors, swWarnings)

' Close Document
swPart = Nothing
Set Part = Nothing
swApp.CloseDoc "CS58RZ_Link4.SLDPRT"
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "CS58RZ_拖动模型.SLDASM", False, longstatus
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized

' Save
boolstatus = Part.Save3(1, swErrors, swWarnings)

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.8918757557261866
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.2688055798076206
swTranslation(1) = -0.9805985695818884
swTranslation(2) = -0.11155998944577084
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.74322979643848885
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.23412369745873138
swTranslation(1) = -0.81716547465157374
swTranslation(2) = -0.092966657871475691
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.61935816369874075
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.20522212883465712
swTranslation(1) = -0.68097122887631156
swTranslation(2) = -0.077472214892896421
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.51613180308228401
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.18113748831459522
swTranslation(1) = -0.56747602406359299
swTranslation(2) = -0.064560179077413696
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.43010983590190338
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.16106695454787695
swTranslation(1) = -0.47289668671966084
swTranslation(2) = -0.053800149231178068
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.35842486325158618
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.14434150974227844
swTranslation(1) = -0.39408057226638415
swTranslation(2) = -0.044833457692648383
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.2986873860429885
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.13040363907094632
swTranslation(1) = -0.32840047688865343
swTranslation(2) = -0.037361214743873661
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.24890615503582372
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.11878874684483624
swTranslation(1) = -0.27366706407387792
swTranslation(2) = -0.03113434561989472
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.20742179586318646
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.10910966998974445
swTranslation(1) = -0.22805588672823157
swTranslation(2) = -0.025945288016578933
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.17285149655265539
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.10104377261050133
swTranslation(1) = -0.19004657227352637
swTranslation(2) = -0.021621073347149109
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.14404291379387948
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.094322191461132077
swTranslation(1) = -0.15837214356127199
swTranslation(2) = -0.018017561122624259
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.12003576149489957
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.088720873836657679
swTranslation(1) = -0.13197678630105997
swTranslation(2) = -0.015014634268853549
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.10002980124574964
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.08405310914959567
swTranslation(1) = -0.10998065525088331
swTranslation(2) = -0.012512195224044627
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.083358167704791375
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.080163305243710709
swTranslation(1) = -0.091650546042402775
swTranslation(2) = -0.010426829353370522
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.069465139753992822
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.076921801988806535
swTranslation(1) = -0.076375455035335632
swTranslation(2) = -0.0086890244611421003
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.013977424941819026, -0.096474105110237962
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.017471781177273781, -0.089053020101758112
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.031449206119092812, -0.11131627512719765
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.034943562354547562, -0.11131627512719765
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.013977424941819026, -0.059368680067838749
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.031449206119092812, -0.1038951901187178
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.027954849883638052, -0.081631935093278277
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.017471781177273781, -0.051947595059358899
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.013977424941819026, -0.022263255025439528
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0034943562354547565, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0034943562354547565, -0.0074210850084798436
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006988712470909513, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006988712470909513, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.017471781177273781, -0.0074210850084798436
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.024460493648183299, -0.014842170016959687
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.010483068706364271, -0.0074210850084798436
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.031449206119092812, -0.0074210850084798436
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.027954849883638052, -0.0074210850084798436
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.020966137412728542, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.034943562354547562, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.048920987296366597, 0.014842170016959687
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.024460493648183299, 0.014842170016959687
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.027954849883638052, 0.0074210850084798436
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.031449206119092812, 0.022263255025439528
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.010483068706364271, 0.0074210850084798436
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.031449206119092812, 0.022263255025439528
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.024460493648183299, 0.014842170016959687
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006988712470909513, 0.0074210850084798436
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.013977424941819026, 0.022263255025439528
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.010483068706364271, 0.022263255025439528
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0034943562354547565, 0.0074210850084798436
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0034943562354547565, 0.022263255025439528
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0034943562354547565, 0.014842170016959687
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.0074210850084798436
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0034943562354547565, 0.014842170016959687
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006988712470909513, 0.014842170016959687
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0034943562354547565, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006988712470909513, 0.022263255025439528
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.013977424941819026, 0.037105425042399214
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.017471781177273781, 0.022263255025439528
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.041932274825457083, 0.051947595059358899
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.041932274825457083, 0.044526510050879056
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.020966137412728542, 0.014842170016959687
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.031449206119092812, 0.029684340033919374
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.031449206119092812, 0.0074210850084798436
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.013977424941819026, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.020966137412728542, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.010483068706364271, -0.0074210850084798436
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006988712470909513, -0.0074210850084798436
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0034943562354547565, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.0074210850084798436
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.020966137412728542, -0.014842170016959687

' Roll View
Set swModelView = Part.ActiveView
swModelView.RollBy 0

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.08369293946264196
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.067423573345010909
swTranslation(1) = -0.083388687296953784
swTranslation(2) = -0.019374527214188236
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.10083486682246021
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.063908874942353935
swTranslation(1) = -0.091464076777741238
swTranslation(2) = -0.023342803872515944
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 0.12148779135236171
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = 0.059674298553610554
swTranslation(1) = -0.10113157701276913
swTranslation(2) = -0.028123860087368613
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Close Document
swAssembly = Nothing
Set Part = Nothing
swApp.CloseDoc "CS58RZ_拖动模型.SLDASM"
swApp.ExitApp
End Sub
