作者: randy0402 时间: 2006-7-8 13:00
然后通过：工具--宏--新建，命令新建一个VB宏，在窗口中输入如下代码，并保存：
Dim swApp As Object
Sub main()
Set swApp = CreateObject("SldWorks.Application")
Set part = swApp.ActiveDoc
For I = 1 To 90 Step 1
part.Parameter("D4@草图折弯1").SystemValue = I * 3.14 / 180
part.EditRebuild
part.GraphicsRedraw2
Next I
End Sub
这里其实只是使用到了一个循环指令，从1到90，每循环一次增加1。
大家有兴趣可以找相关的书进行进一步的学。
然后“打开屏幕捕捉”命令，再通过：工具--宏--运行，来执行刚才的宏代码。
当动画完成后，关闭屏幕捕捉就可以了
如果要进行多处折弯只需再添加相应的循环变量就可以了，如下：
Dim swApp As Object
Sub main()
Set swApp = CreateObject("SldWorks.Application")
Set part = swApp.ActiveDoc
For I = 1 To 90 Step 1
part.Parameter("D4@草图折弯1").SystemValue = I * 3.14 / 180
part.EditRebuild
part.GraphicsRedraw2
Next I
ForJ = 1 To 90 Step 1
part.Parameter("D4@草图折弯2").SystemValue = J * 3.14 / 180
part.EditRebuild
part.GraphicsRedraw2
Next J
For I = K To 90 Step 1
part.Parameter("D4@草图折弯3").SystemValue = K * 3.14 / 180
part.EditRebuild
part.GraphicsRedraw2
Next K------------------------------
------------------------
------------------------------
End Sub
