钣金折弯动画-教程

ksyjhrnrlg

   经典图书

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

randy0402

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

紫桃1705

   经典图书

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

天上人间

你牛！

s13s

   经典案例图书

谢谢楼主的教程啦！

fanruike

厉害

flanker

   经典案例图书

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

enetuse

谢谢老师~

ftam

谢谢楼主分享  学习了

ypkb

   经典图书

谢谢楼主分享  学习了

zdy381336

牛啊，楼主可真是牛～

wxfkain

这个方法比之前那个用装配体做的要高明很多，多谢分享了····

Bearcat

不错，一定要好好研究一下

aguolaode

SolidWorks机械工程师网，顶一下。

22669988

加入QQ群
参与讨论和学习

或扫描二维码加入

很不错，找到组织了！

YU7630

   经典案例图书

不错，一定要好好研究一下

潇湘夜夕雨

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢楼主分享！学习了