SolidWorks如何通过宏创建动画？
效果：方法：1.点击“旋转凸台/基体”，在前视基准面绘制如下图所示的草绘。2.不退出草图，点击【工具】-【宏】-【录制】，如下图所示。此时弹出如下图所示的宏命令窗口。3.标注圆弧的半径，注意标注的名称：D1@草图1，我们会在后面的程序里用到。4.暂停宏的录制。5.再次点击“旋转凸台/基体”，在前视基准面绘制如下图所示的草绘。6.点击宏窗口中的“录制/暂停宏”，重新开始宏的录制。7.标注圆弧的半径，注意标注的名称：D2@草图2，我们会在后面的程序里用到。8.停止宏的录制，保存宏文件。9.完成。10.点击“拉伸凸台/基体”，在右视基准面绘制直径为5的圆，拉伸深度250mm。11.点击【工具】-【宏】-【编辑】，对第8步创建的宏文件进行编辑。'*********************************************************************' 机械时代网'*********************************************************************Dim swApp As ObjectDim Part As ObjectDim boolstatus As BooleanDim longstatus As Long, longwarnings As LongSub main()Set swApp = _Application.SldWorksSet Part = swApp.ActiveDocDim myModelView As ObjectSet myModelView = Part.ActiveViewmyModelView.FrameState = swWindowState_e.swWindowMaximizedboolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", -3.34257815068415E-02, 3.85000625199539E-02, 0, False, 0, Nothing, 0)Dim myDisplayDim As ObjectSet myDisplayDim = Part.AddDimension2(-7.66050911352832E-02, 5.93818597992822E-02, 0)Part.ClearSelection2 TrueDim myDimension As Object'设置草图1中的尺寸D1命名为myDimension1Set myDimension1 = Part.Parameter("D1@草图1")myDimension1.SystemValue = 0.05boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0.218813672939049, 2.90099272265772E-02, 0, False, 0, Nothing, 0)Set myDisplayDim = Part.AddDimension2(0.148814034900672, 8.75673167394499E-02, 0)Part.ClearSelection2 True'设置草图2中的尺寸D2命名为myDimension2Set myDimension2 = Part.Parameter("D2@草图2")myDimension2.SystemValue = 0.05'对尺寸D1和D2进行操作For i = 0 To 24myDimension1.SystemValue = myDimension1.SystemValue + 0.002myDimension2.SystemValue = myDimension2.SystemValue - 0.002boolstatus = Part.EditRebuild3()t = TimerWhile Timer < t + 0.1DoEventsWendNext'对尺寸D1和D2进行操作Fori = 0To24myDimension1.SystemValue = myDimension1.SystemValue-0.002myDimension2.SystemValue = myDimension2.SystemValue + 0.002boolstatus = Part.EditRebuild3()t = TimerWhileTimer < t + 0.1DoEventsWendNextEndSub12.运行宏文件。来源：SolidWorks技巧
