设为首页收藏本站
开启辅助访问 切换到宽版

SolidWorks机械工程师网——最大的SolidWorks学习平台

 找回密码
 立即注册

QQ登录

只需一步，快速开始

好品数字
好品数字
SolidWorks机械工程师网——最大的SolidWorks学习平台»学习社区 › Solidworks高级应用区 › SolidWorks动画仿真（Motion） › 翩翩起舞-零件動畫
返回列表 发新帖
查看: 516|回复: 14
打印 上一主题 下一主题

翩翩起舞-零件動畫

  [复制链接]
ryouss

97

主题

332

帖子

2976

金币

传奇

Rank: 8Rank: 8

积分
7916

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
跳转到指定楼层
楼主
 楼主| 发表于 2019-1-7 10:41:42 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
https://www.swbbsc.com/forum.php? ... d=236284#pid2695557

參考如上,借用blucewels大大的图稍加修改.







分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 转播转播 分享教程|习题|模型|技巧 点赞点赞 拍砖拍砖
SolidWorks机械工程师网
提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）
回复

使用道具 举报

9uordd

0

主题

374

帖子

43

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1631

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
沙发
发表于 2019-1-7 13:12:57 | 只看该作者
感谢楼主分享，很不错！
SolidWorks机械工程师网
提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）
回复 支持 反对

使用道具 举报

1159833411

0

主题

726

帖子

842

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2704

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
板凳
发表于 2019-1-7 19:33:54 | 只看该作者
谢谢楼主分享。
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

cnyatong

7

主题

66

帖子

710

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1178
QQ
地板
发表于 2019-1-10 11:26:52 | 只看该作者
非常不错，求楼主分享！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

ryouss

97

主题

332

帖子

2976

金币

传奇

Rank: 8Rank: 8

积分
7916

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
5#
 楼主| 发表于 2019-1-10 16:36:01 | 只看该作者

   经典案例图书
cnyatong 发表于 2019-1-10 11:26
非常不错，求楼主分享！

分享在零件如何拍動翼片的基本概念.(在零件做動畫就要用到宏)
Wing Swing.rar (110.4 KB, 下载次数: 63) (sw2012 及 swp 文件)





  1. ' *****************************
  2. ' 零件翼片擺動之概念宏
  3. ' *****************************
  4. Dim swApp As Object
  5. Dim Part As Object
  6. Dim boolstatus As Boolean

  8. Sub main()

  10.     Set swApp = Application.SldWorks
  11.     Set Part = swApp.ActiveDoc
  12.     Dim myDimension As Object
  13.     Set myDimension = Part.Parameter("D1@平面1") '平面1角度
  14.     Set myModelView = Part.ActiveView
  15.     pi = Atn(1) * 4 '圓周率

  17.     For i = 60 To 120 Step 2 '翼片拍下角度之循環
  18.         A = i * pi / 180 '角度轉弧度
  19.         myDimension.SystemValue = A '平面1角度值(弧度)
  20.         boolstatus = Part.EditRebuild3() '重畫
  21.         myModelView.RotateAboutCenter 0, 0 '作延遲用
  22.     Next i

  24.     For j = 118 To 60 Step -2 '翼片提起角度之循環
  25.         A = j * pi / 180 '角度轉弧度
  26.         myDimension.SystemValue = A
  27.         boolstatus = Part.EditRebuild3()
  28.         myModelView.RotateAboutCenter 0, 0
  29.     Next j
  30. Debug.Print "end"
  31. End Sub
复制代码






SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

uubrowneyes

4

主题

316

帖子

614

金币

传奇

Rank: 8Rank: 8

积分
4005

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
6#
发表于 2019-1-10 21:55:10 | 只看该作者
太厉害了，学习
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

fusheng_0713

0

主题

36

帖子

206

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
347

最佳新人活跃会员宣传达人
7#
发表于 2019-1-10 22:19:27 | 只看该作者

   经典案例图书
感谢楼主分享，很不错！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

ryouss

97

主题

332

帖子

2976

金币

传奇

Rank: 8Rank: 8

积分
7916

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
8#
 楼主| 发表于 2019-1-11 10:44:10 | 只看该作者
有如上概念,再來海闊天空任你翱"想"了!



SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

ryouss

97

主题

332

帖子

2976

金币

传奇

Rank: 8Rank: 8

积分
7916

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
9#
 楼主| 发表于 2019-1-12 11:07:58 | 只看该作者
參考



SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

light5133100

0

主题

4

帖子

438

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1157

最佳新人宣传达人
10#
发表于 2019-1-14 13:59:12 | 只看该作者
SolidWorks机械工程师网
回复

使用道具 举报

aooboo

0

主题

44

帖子

265

金币

堂主

Rank: 4

积分
905

最佳新人活跃会员宣传达人
11#
发表于 2019-1-15 09:52:49 | 只看该作者
活到老学到老！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

houyitang

2

主题

39

帖子

180

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
468

最佳新人活跃会员宣传达人
12#
发表于 2019-1-16 11:21:10 | 只看该作者
感谢楼主  
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

houyitang

2

主题

39

帖子

180

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
468

最佳新人活跃会员宣传达人
13#
发表于 2019-1-16 11:52:30 | 只看该作者
感谢楼主  感谢楼主
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

aguolaode

0

主题

4238

帖子

4

金币

传奇

Rank: 8Rank: 8

积分
8671

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
14#
发表于 2019-6-27 19:16:30 | 只看该作者
SW机械工程师网，找到组织了！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

22669988

0

主题

4119

帖子

3

金币

传奇

Rank: 8Rank: 8

积分
8452

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
15#
发表于 2019-6-27 19:41:22 | 只看该作者
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

楼主辛苦了！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭 卷起
关闭 卷起

手机版|小黑屋| GMT+8, 2024-5-14 20:15 , Processed in 0.199569 second(s), 37 queries .

SolidWorks机械工程师网 ( 鲁ICP备14025122号-2 ) 鲁公网安备 37028502190335号

声明：本网言论纯属发表者个人意见，与本网立场无关。
如涉版权，可发邮件： admin@swbbsc.com

快速回复 返回顶部 返回列表