钣金折弯动画-教程

1、新建一个基体法兰的零件。
2、在基体法兰的可以折弯的位置建立一个“绘制的折弯”特征，角度1度。如下图：

[ 本帖最后由 kmlgq 于 2006-7-8 13:31 编辑 ]

然后通过：工具--宏--新建，命令新建一个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

[ 本帖最后由 kmlgq 于 2006-7-8 13:09 编辑 ]

樓主真厲害，有沒有辦法在隨形陣列時，使圓柱體的直徑跟著變化？

你牛！

谢谢楼主的教程啦！

厉害

请问楼主，你有没有SOLIDWORK2005的视频教程，能共享一下吗？我的邮箱是chengpamtek@163.com     谢谢了

谢谢老师~

谢谢楼主分享  学习了

谢谢楼主分享  学习了