彈簧成型-零件動畫

2011ayoon

shentu 发表于 2018-10-16 13:32
零件动画，需要不建地重建。。与关键帧有啥关系

SW的动画是通过插入关键帧来实现的，比如0秒拉伸高度为10，10秒拉伸高度改为100，那么就可以生成一段长度10秒的，从高度10拉伸到100的动画
* Q; K$ a) o/ s: l4 J2 G

七曜神权

这个动画是不是隔几个帧把左边的转一个角度，然后右边的弹簧长度拉伸一下

shentu

2011ayoon 发表于 2018-10-16 15:54
: u6 z$ \2 v# ?3 e5 G6 }1 K# BSW的动画是通过插入关键帧来实现的，比如0秒拉伸高度为10，10秒拉伸高度改为100，那么就可以生成一段长度 ...

; `0 V2 y; E/ C- [你说的前提是装配体，多零件。并且只是位置变化。。
3 Y0 y% m  |, T% U- J' H/ G这种零件动画，和帧没产系，是通过宏程序，不断改变草图的尺寸，比如每1秒某尺寸减小0.1，这样来实现动画的。不信你试试。

2011ayoon

1 L9 Q7 u1 g6 [! f& H5 @  Q4 E

shentu 发表于 2018-10-17 11:09
你说的前提是装配体，多零件。并且只是位置变化。。
+ G6 N+ [: s6 l% c9 k* j: l8 n, t3 x这种零件动画，和帧没产系，是通过宏程序，不断改变 ...

  S0 }, U8 o  y; P( F1 x1 p* F你自己试试就知道了，需不需要这么麻烦，看看SOLIDWORKS Motion的帮助吧

shentu

2011ayoon 发表于 2018-10-17 12:23
你自己试试就知道了，需不需要这么麻烦，看看SOLIDWORKS Motion的帮助吧

% @' W! f) k% v4 G% e感觉驴头不对马嘴。做动画心里没点数吗
& X$ S" p6 X0 ?4 {- Q. r. Y* r8 {

shentu

https://www.jxcad.com.cn/data/attachment/forum/pw/Mon_1205/45_379520_81a75616c04f66f.gif
* N: x! U8 Z& F' x( T# s" d
8 q+ @7 E! F; u这东西是6年前我做的，当时就因为不懂VBA编程，只能用装配体来动画之。今年又看到类同的，惭愧，还是不懂VBA（没基础，年纪大，事情也多），有感而发。

https://www.jxcad.com.cn/forum.php?mod=viewthread&tid=1362460

shentu

ryouss

shentu 发表于 2018-10-17 11:09
你说的前提是装配体，多零件。并且只是位置变化。。
这种零件动画，和帧没产系，是通过宏程序，不断改变 ...

多討論多思考不管是對是錯總是會有進步.

1#動畫就是如s大說的作法,附sw2012文件及宏swp文件.  
2 {8 o( }! I. ?. j  w/ N% C

1. ' ***********************************************
   
2. ' macro recorded on 01/16/17 by scliang
   
3. ' ***********************************************
   
4. Option Explicit '強制用戶需先聲明定義變數型態
   
5. 
   
6. Dim swApp                          As SldWorks.SldWorks '(Early Binding)
   
7. Dim Part                           As SldWorks.ModelDoc2
   
8. Dim myModelView                    As ModelView 'Object 通用數據類型(Late Binding 運算速度較慢)
   
9. Dim boolstatus                     As Boolean
   ! n4 w& o" U% L, G5 d/ J
10. Dim L, L1, L2, D1, D2, M2, N1, N2  As Double
    
11. 
    
12. Sub main()
    
13.     Set swApp = Application.SldWorks
    
14.     Set Part = swApp.ActiveDoc
    
15.     Set myModelView = Part.ActiveView
    " o9 A: Y% c" d- {
16. 
    " }% h9 _6 U# F5 P+ S
17.     Dim myDimension_1 As Dimension 'Object
    9 `5 Y6 B# }- g( J2 b  J
18.     Dim myDimension_2 As Dimension
      z5 Q  S! e& Z/ k
19.     Set myDimension_1 = Part.Parameter("D5@螺旋曲線/渦捲線1") '材料圈數
    ; p& i. S8 k# ]' L) o8 S
20.     Set myDimension_2 = Part.Parameter("D5@螺旋曲線/渦捲線2") '彈簧圈數
    ' ?) V: U7 @, [( Z$ i  R3 O
21.    
    ) s) l& a/ ?7 [7 p2 c3 R
22.     myDimension_1.SystemValue = 10
    
23.     myDimension_2.SystemValue = 0.5
    
24.     boolstatus = Part.EditRebuild3()
    2 k+ ?) [! }+ c/ a: C0 d6 D
25.     myModelView.RotateAboutCenter 0, 0
    ) d7 ^9 i1 y3 E5 p9 f
26. 
    
27.     L = 3788.97938701496 '"D5@螺旋曲線/渦捲線1"+"D5@螺旋曲線/渦捲線2" 的線圈總長
    
28.     D1 = 376.996476741742 '"D5@螺旋曲線/渦捲線1" 的單圈長
    
29.     D2 = 38.0292391950834 '"D5@螺旋曲線/渦捲線2" 的單圈長
    2 W2 @* ~2 T) R% n1 |' Q
30. 
    
31.     For N2 = 1 To 25.5 Step 0.5 '彈簧圈數之循環
    
32.         myDimension_2.SystemValue = N2
    
33.         L2 = D2 * (N2 - 0.5) '"D5@螺旋曲線/渦捲線2"展開長的增量
    
34.         L1 = L - L2 '"D5@螺旋曲線/渦捲線1" 的目前展開長
    9 ]8 b2 k% h; W+ [/ s6 @
35.         N1 = L1 / D1 '"D5@螺旋曲線/渦捲線1" 的目前圈數
    1 q! o7 @. |  f6 r1 ]: u
36.         myDimension_1.SystemValue = N1
    : ^8 j7 s% t5 F) M% |( s4 j
37.         boolstatus = Part.EditRebuild3()
    
38.         myModelView.RotateAboutCenter 0, 0
    
39.     Next
    
40.    
    5 ?$ V$ i3 |4 c, p. \- k
41.     Debug.Print "END"
    
42. End Sub
    4 Z5 J/ V7 {: v! Z4 S

复制代码

" Z# e# R" h4 `+ c: S2 H, c$ q/ J

shentu

ryouss 发表于 2018-10-17 13:53
多討論多思考不管是對是錯總是會有進步.
8 n# r7 L. F0 F2 Y
1#動畫就是如s大說的作法,附sw2012文件及宏swp文件.  

多谢楼主放源文件。
5 i) T, `7 n; T7 y0 g( _
- j" W; W5 r/ m$ F- b2 c多讨论多进步~但这个代码，对我来说，还是像天书一样难懂。但难说某日我也能略通一二呢，时间挤一挤，总会有的，未来什么样，谁能说得定呢。