iCAx开思网

标题: 钣金折弯动画-教程 [打印本页]

作者: kmlgq 时间: 2006-7-8 12:56
标题: 钣金折弯动画-教程
1、新建一个基体法兰的零件。
2、在基体法兰的可以折弯的位置建立一个“绘制的折弯”特征，角度1度。如下图：

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

作者: kmlgq 时间: 2006-7-8 13:04
标题: 二
然后通过：工具--宏--新建，命令新建一个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 编辑 ]

作者: chenbolin05923 时间: 2006-7-8 14:17
樓主真厲害，有沒有辦法在隨形陣列時，使圓柱體的直徑跟著變化？

作者: yfy222 时间: 2006-7-11 15:09
你牛！

作者: wangzonghe 时间: 2006-7-12 15:23
谢谢楼主的教程啦！

作者: 孤城傲剑 时间: 2006-7-12 17:06
厉害

作者: 孤城傲剑 时间: 2006-7-12 17:09
请问楼主，你有没有SOLIDWORK2005的视频教程，能共享一下吗？我的邮箱是chengpamtek@163.com 谢谢了

作者: liweiabcd 时间: 2007-12-1 16:50
谢谢老师~

作者: zhoushan403 时间: 2007-12-1 17:05
谢谢楼主分享学习了

作者: tan2009 时间: 2008-1-9 10:21
谢谢楼主分享学习了

作者: zhangdingjun 时间: 2008-2-12 11:05
提示: 作者被禁止或删除内容自动屏蔽

作者: diyes 时间: 2008-6-30 13:31
标题: dddd
牛啊，楼主可真是牛～

作者: kingfox_ht 时间: 2012-2-21 10:35
这个方法比之前那个用装配体做的要高明很多，多谢分享了····

作者: yzd_369 时间: 2013-3-25 22:00
不错，一定要好好研究一下

欢迎光临 iCAx开思网 (https://www.icax.org/)