SW宏录制动画问题

我用宏录制动画的时候，每次重建模型后，画面都会闪一下，不知道是什么原因闪的时候就是类似于按住鼠标滚轮时装配体的样子
代码如下，改变的是配合里的一个角度0.01745329251994 * i，i代表度数
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
Set Part = swApp.ActiveDoc

For i = 1 To 10 Step 1
boolstatus = Part.Extension.SelectByID2("LimitAngle2", "MATE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("右视基准面@推动单元－驱动齿轮组件-1@地震仪装配总图/推动单元－手柄把手-1@推动单元－驱动齿轮组件", "PLANE", 0.2999, 1.408, 1.334, True, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("上视基准面", "PLANE", 0, 0, 0, True, 1, Nothing, 0)
Part.EditMate2 6, 0, False, 0, 0, 0, 0.001, 0.001, 0.01745329251994 * i, 6.28318530718, 0, longstatus
Part.ClearSelection2 True
Part.EditRebuild3
Next i
End Sub

附图