彈簧成型-零件動畫

2011ayoon

shentu 發(fā)表于 2018-10-16 13:32
零件動畫，需要不建地重建。。與關(guān)鍵幀有啥關(guān)系

SW的動畫是通過插入關(guān)鍵幀來實現(xiàn)的，比如0秒拉伸高度為10，10秒拉伸高度改為100，那么就可以生成一段長度10秒的，從高度10拉伸到100的動畫

七曜神權(quán)

這個動畫是不是隔幾個幀把左邊的轉(zhuǎn)一個角度，然后右邊的彈簧長度拉伸一下

shentu

2011ayoon 發(fā)表于 2018-10-16 15:54
SW的動畫是通過插入關(guān)鍵幀來實現(xiàn)的，比如0秒拉伸高度為10，10秒拉伸高度改為100，那么就可以生成一段長度 ...

, j  ?" G' N& x; d你說的前提是裝配體，多零件。并且只是位置變化。。
+ X6 ~: Q; _- j) E; B9 W這種零件動畫，和幀沒產(chǎn)系，是通過宏程序，不斷改變草圖的尺寸，比如每1秒某尺寸減小0.1，這樣來實現(xiàn)動畫的。不信你試試。

2011ayoon

shentu 發(fā)表于 2018-10-17 11:09
3 ~# r9 @7 m( }你說的前提是裝配體，多零件。并且只是位置變化。。
1 J$ q% V8 f" D9 _1 [% Q這種零件動畫，和幀沒產(chǎn)系，是通過宏程序，不斷改變 ...

你自己試試就知道了，需不需要這么麻煩，看看SOLIDWORKS Motion的幫助吧

shentu

2011ayoon 發(fā)表于 2018-10-17 12:23
* ^4 q. {1 Y9 L你自己試試就知道了，需不需要這么麻煩，看看SOLIDWORKS Motion的幫助吧

感覺驢頭不對馬嘴。做動畫心里沒點數(shù)嗎
  t' t9 y2 [9 a0 _" q

shentu

https://www.jxcad.com.cn/data/attachment/forum/pw/Mon_1205/45_379520_81a75616c04f66f.gif

這東西是6年前我做的，當時就因為不懂VBA編程，只能用裝配體來動畫之。今年又看到類同的，慚愧，還是不懂VBA（沒基礎，年紀大，事情也多），有感而發(fā)。

* ?) O" _3 X/ X  n" f7 t; Qhttps://www.jxcad.com.cn/forum.php?mod=viewthread&tid=1362460
& f  ~3 T5 y  j: u

shentu

ryouss

shentu 發(fā)表于 2018-10-17 11:09
: ?4 P8 X4 B6 }1 \7 O你說的前提是裝配體，多零件。并且只是位置變化。。
, Y6 l$ c. Q4 q$ b8 U$ E這種零件動畫，和幀沒產(chǎn)系，是通過宏程序，不斷改變 ...

多討論多思考不管是對是錯總是會有進步.
4 U' p0 {! i( w# r5 H3 X% l, a
1#動畫就是如s大說的作法,附sw2012文件及宏swp文件.  
/ z, Z, }9 R& I+ g+ D# q' F% M

' N- y" E1 f! O9 l% \" N

1. ' ***********************************************
   
2. ' macro recorded on 01/16/17 by scliang
   
3. ' ***********************************************
   0 r  p3 ]8 }4 O
4. Option Explicit '強制用戶需先聲明定義變數(shù)型態(tài)
   " f5 f9 i& t+ H  }
5. 
   
6. Dim swApp                          As SldWorks.SldWorks '(Early Binding)
   ; N5 g; L9 p4 a, Y! U
7. Dim Part                           As SldWorks.ModelDoc2
   
8. Dim myModelView                    As ModelView 'Object 通用數(shù)據(jù)類型(Late Binding 運算速度較慢)
   
9. Dim boolstatus                     As Boolean
   
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
    4 x# b1 h$ O7 C$ T' v* e7 P
15.     Set myModelView = Part.ActiveView
    
16. 
    " Y1 J7 p! O8 s+ v8 ?+ ?+ q
17.     Dim myDimension_1 As Dimension 'Object
    
18.     Dim myDimension_2 As Dimension
    * q- {# o5 |+ o
19.     Set myDimension_1 = Part.Parameter("D5@螺旋曲線/渦捲線1") '材料圈數(shù)
    . w9 p  e4 l9 C- r" w0 T+ F
20.     Set myDimension_2 = Part.Parameter("D5@螺旋曲線/渦捲線2") '彈簧圈數(shù)
    
21.    
    
22.     myDimension_1.SystemValue = 10
    
23.     myDimension_2.SystemValue = 0.5
    % P9 ?# G4 g0 h
24.     boolstatus = Part.EditRebuild3()
    
25.     myModelView.RotateAboutCenter 0, 0
    
26. 
    
27.     L = 3788.97938701496 '"D5@螺旋曲線/渦捲線1"+"D5@螺旋曲線/渦捲線2" 的線圈總長
    
28.     D1 = 376.996476741742 '"D5@螺旋曲線/渦捲線1" 的單圈長
    
29.     D2 = 38.0292391950834 '"D5@螺旋曲線/渦捲線2" 的單圈長
    
30. 
    
31.     For N2 = 1 To 25.5 Step 0.5 '彈簧圈數(shù)之循環(huán)
    
32.         myDimension_2.SystemValue = N2
    0 y* F" g& m! Y+ B
33.         L2 = D2 * (N2 - 0.5) '"D5@螺旋曲線/渦捲線2"展開長的增量
    ) ~$ ]# k& d; j6 u* |/ K  X% ?0 P% |
34.         L1 = L - L2 '"D5@螺旋曲線/渦捲線1" 的目前展開長
    # m+ X  a$ g: ?1 o% ~% h$ j: q
35.         N1 = L1 / D1 '"D5@螺旋曲線/渦捲線1" 的目前圈數(shù)
    . @" D, m/ L, O% `, T+ W
36.         myDimension_1.SystemValue = N1
    
37.         boolstatus = Part.EditRebuild3()
    $ F& |3 |) t* L/ [
38.         myModelView.RotateAboutCenter 0, 0
    
39.     Next
    
40.    
    ' q  o4 G. h9 b
41.     Debug.Print "END"
    
42. End Sub
    - A' L( x, x4 ~3 _! L* p

復制代碼

! K& h- `( r* j. i& J3 e
& [+ o% X( e5 O/ B# {

shentu

ryouss 發(fā)表于 2018-10-17 13:53
2 ^4 y/ b0 H% h! G多討論多思考不管是對是錯總是會有進步.
5 p" R' ?0 j* r+ Y( O; X
  }4 @) p( a- e6 v( u3 N1#動畫就是如s大說的作法,附sw2012文件及宏swp文件.  

多謝樓主放源文件。
+ V1 @5 j4 V  v+ `! ]! X/ |! {
多討論多進步~但這個代碼，對我來說，還是像天書一樣難懂。但難說某日我也能略通一二呢，時間擠一擠，總會有的，未來什么樣，誰能說得定呢。