用宏制作SolidWorks草图动画（宏练习题）

Qallen · 发表于 2016-9-10 21:08:51

经典图书

用SolidWorks中的宏功能，可以制作草图动画，见动图。以圆变大为例，介绍实现过程：
（1）先画一个草图圆，标注尺寸，退出草图
（2）点击“录制宏”
（3）在左侧设计树选中草图（注意，只是选中，不要进入草图编辑！）
（4）选中后，草图尺寸会出现，双击尺寸进行修改
（5）修改后，点击界面上边的红绿灯，重建模型
（6）停止录制宏，命名保存
（7）从SolidWorks中打开刚刚录制的宏进行编辑，需要对录制好的代码进行修改，默认的代码如下（视自己情况可能与我录制的有差别）

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("[url=https://www.swbbsc.com/forum-38-1.html]草图[/url]1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("D1@[url=https://www.swbbsc.com/forum-38-1.html]草图[/url]1@[url=https://www.swbbsc.com/forum-38-1.html]草图[/url]圆.SLDPRT", "DIMENSION", 0.164474880690605, 0.09932560972766, -0.154271506219927, True, 0, Nothing, 0)
Dim myDimension As Object
Set myDimension = Part.Parameter("D1@[url=https://www.swbbsc.com/forum-38-1.html]草图[/url]1")
myDimension.SystemValue = 0.5 '此处为修改尺寸时输入的值
Part.ClearSelection2 True
boolstatus = Part.EditRebuild3()
End Sub

复制代码

（8）刚才我们是手动修改尺寸的，被宏记录了下来，我们希望该尺寸随着时间的变化逐渐增加，于是就呈现出动画的效果。所以我们需要添加随着时间变化的代码。可以用循环实现，每循环一次，就在原来的尺寸上加一个增量，然后让时间暂停一会儿，等到下一个循环再在原来的尺寸上加一个增量......

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("[url=https://www.swbbsc.com/forum-38-1.html]草图[/url]1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("D1@[url=https://www.swbbsc.com/forum-38-1.html]草图[/url]1@零件1.SLDPRT", "DIMENSION", 2.45310775659767E-02, 1.51205195478819E-02, -2.32173731154895E-02, True, 0, Nothing, 0)
Dim myDimension As Object
Set myDimension = Part.Parameter("D1@[url=https://www.swbbsc.com/forum-38-1.html]草图[/url]1")
For i = 0 To 20 '（开始循环)
myDimension.SystemValue = myDimension.SystemValue + 0.005 '(在原来基础上增加0.005m,即5mm)
t = Timer '(获取系统当前时间)
While Timer < t + 0.1 '(当时间在0.1秒之内时，执行下一行语句)
DoEvents '(什么也不做，等待就行)
Wend '(直到满足while的结束条件就结束)
Part.ClearSelection2 True
boolstatus = Part.EditRebuild3()
Next '（下一个循环）
End Sub

复制代码

（9）代码中，凡是括号中的注释都是自己添加的。修改并保存后，执行宏代码就可以看到圆逐渐变大，如果在SolidWorks中将草图圆拉伸为圆柱，执行宏代码就可以看到一个直径逐渐变大的圆柱。如果有类似的需求，可以参照该方法进行。
也许论坛中有人发过类似的贴，我没有搜过，如有重复请见谅。这是我很早以前尝试过的一个操作，刚刚注册了SolidWorks论坛，我将陆陆续续把我的一些经验分享给大家。论坛高手如云，献丑了。。。。。。。。。。。。。。。。。。

Qallen · 发表于 2016-9-10 21:28:58

我把附件也传上来，大家可以直接打开看看效果。

用宏控制的动画.rar (1.33 MB, 下载次数: 144, 售价: 45 金币)

cgl760324 · 发表于 2016-9-10 23:42:33

经典图书

好东西，努力学习学习！

radar79 · 发表于 2016-9-11 13:41:24

楼主太有才了，膜拜中……

自由设计 · 发表于 2016-9-12 08:53:27

经典案例图书

楼主太有才了，膜拜中……

Qallen · 发表于 2016-9-12 12:44:48

自由设计发表于 2016-9-12 08:53
楼主太有才了，膜拜中……

Qallen · 发表于 2016-9-12 12:47:15

经典案例图书

radar79 发表于 2016-9-11 13:41
楼主太有才了，膜拜中……

s5219399 · 发表于 2016-9-14 10:32:01

楼主辛苦了！

一根白沙烟哎 · 发表于 2016-9-19 19:35:59

楼主太有才了，膜拜中……

xiaoxifeng14 · 发表于 2016-9-21 08:58:34

经典图书

楼主想问下有没有办法将SW的模型编译转成SWB文件，或者插件实现

Qallen · 发表于 2016-9-21 21:31:16

xiaoxifeng14 发表于 2016-9-21 08:58
楼主想问下有没有办法将SW的模型编译转成SWB文件，或者插件实现

这个我没有研究过。

xiaoxifeng14 · 发表于 2016-9-22 08:33:13

Qallen 发表于 2016-9-21 21:31
这个我没有研究过。

可以不可以研究下呢啊

Qallen · 发表于 2016-9-23 13:17:15

xiaoxifeng14 发表于 2016-9-22 08:33
可以不可以研究下呢啊

理论上，只要从建模开始就录制宏，应该就可以将整个建模的过程生成代码，但是实际操作时，录制的代码在运行时会报错，只有很简单的模型才有可能用代码重建。我对这个研究的不深，也无能为力啦。

hdle999 · 发表于 2016-9-23 19:16:08

我只是来看看，钱攒够了再出手。

幻影-43 · 发表于 2016-10-15 15:53:54

加入QQ群
参与讨论和学习

或扫描二维码加入

感觉立马转程序猿了

Qallen · 发表于 2016-10-16 16:17:50

经典案例图书

幻影-43 发表于 2016-10-15 15:53
感觉立马转程序猿了

确实在兼职当码农

土豆思Y · 发表于 2016-12-12 12:37:20

加入QQ群
参与讨论和学习

或扫描二维码加入

顶顶顶，老大厉害

风拂River～ · 发表于 2018-3-15 10:19:03

经典案例图书

不错，拿来学习下，好好学习

nusmud908 · 发表于 2018-4-4 19:20:51

SW机械工程师论坛，找到组织了！

SW819518320 · 发表于 2018-4-6 11:21:22

对于我来说，简直是黑技术

		自动登录	找回密码
密码			立即注册

用宏制作SolidWorks草图动画（宏练习题）

本帖被以下淘专辑推荐:

评分

浏览过的版块

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献