彈簧成型-零件動畫

2011ayoon

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

8 D5 ]2 T. s& s1 F2 k0 bSW的动画是通过插入关键帧来实现的，比如0秒拉伸高度为10，10秒拉伸高度改为100，那么就可以生成一段长度10秒的，从高度10拉伸到100的动画
3 m1 t" o- Q9 }+ K" l5 W( R7 ]

七曜神权

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

shentu

2011ayoon 发表于 2018-10-16 15:54
SW的动画是通过插入关键帧来实现的，比如0秒拉伸高度为10，10秒拉伸高度改为100，那么就可以生成一段长度 ...

6 _2 S& n* K7 V你说的前提是装配体，多零件。并且只是位置变化。。
. \% K& ?! f! o3 f7 C- @* p这种零件动画，和帧没产系，是通过宏程序，不断改变草图的尺寸，比如每1秒某尺寸减小0.1，这样来实现动画的。不信你试试。

2011ayoon

* K3 i) g6 E" F# V

shentu 发表于 2018-10-17 11:09
0 |1 ~/ F& G2 \8 s% u你说的前提是装配体，多零件。并且只是位置变化。。
这种零件动画，和帧没产系，是通过宏程序，不断改变 ...

4 m# l( B, K. {" A( g. }你自己试试就知道了，需不需要这么麻烦，看看SOLIDWORKS Motion的帮助吧

shentu

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

感觉驴头不对马嘴。做动画心里没点数吗
S# v$ x D \0 m

shentu

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

, n2 }: Q) e6 h$ b& G- Y这东西是6年前我做的，当时就因为不懂VBA编程，只能用装配体来动画之。今年又看到类同的，惭愧，还是不懂VBA（没基础，年纪大，事情也多），有感而发。

. t* v" ^) X/ Shttps://www.jxcad.com.cn/forum.php?mod=viewthread&tid=1362460
* r5 f) S+ m5 C$ F

shentu

ryouss

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

多討論多思考不管是對是錯總是會有進步.
# j+ ]2 }4 C4 \) D/ o
4 e* ]+ S( N; ^- T3 ]. g t& T1#動畫就是如s大說的作法,附sw2012文件及宏swp文件.
' C$ N# F" w) @+ I' W

/ B+ r& f2 S" | T, N

1. ' ***********************************************
   
2. ' macro recorded on 01/16/17 by scliang
   - r& `& D9 Y3 H
3. ' ***********************************************
   
4. Option Explicit '強制用戶需先聲明定義變數型態
   7 n f8 i7 t2 O0 s9 G. {
5. 
   6 H( H# ^# A3 Z% q1 J [
6. Dim swApp As SldWorks.SldWorks '(Early Binding)
   . u8 j% c9 n z6 k% ~3 G: Z. {
7. Dim Part As SldWorks.ModelDoc2
   
8. Dim myModelView As ModelView 'Object 通用數據類型(Late Binding 運算速度較慢)
   
9. Dim boolstatus As Boolean
   
10. Dim L, L1, L2, D1, D2, M2, N1, N2 As Double
    : K( O' L: s' W8 I. ?3 r
11. 
    
12. Sub main()
    
13. Set swApp = Application.SldWorks
    + v7 M7 ]% O$ ^( Y7 Q
14. Set Part = swApp.ActiveDoc
    . m/ t6 j3 v! a- i9 j% K
15. Set myModelView = Part.ActiveView
    / n! {4 @* C* p5 x
16. 
    
17. Dim myDimension_1 As Dimension 'Object
    7 N ?" F3 F( r6 X+ G
18. Dim myDimension_2 As Dimension
    
19. Set myDimension_1 = Part.Parameter("D5@螺旋曲線/渦捲線1") '材料圈數
    # q5 ?* P2 D5 v& t k) @$ {
20. Set myDimension_2 = Part.Parameter("D5@螺旋曲線/渦捲線2") '彈簧圈數
    
21. 
    
22. myDimension_1.SystemValue = 10
    / Y" V' S% Z" v. @
23. myDimension_2.SystemValue = 0.5
    9 k: p% z" F/ D- j* M- W$ }
24. boolstatus = Part.EditRebuild3()
    
25. myModelView.RotateAboutCenter 0, 0
    
26. 
    ( Y- x, M9 E8 M% a. m
27. L = 3788.97938701496 '"D5@螺旋曲線/渦捲線1"+"D5@螺旋曲線/渦捲線2" 的線圈總長
    
28. D1 = 376.996476741742 '"D5@螺旋曲線/渦捲線1" 的單圈長
    
29. D2 = 38.0292391950834 '"D5@螺旋曲線/渦捲線2" 的單圈長
    
30. 
    0 @6 s. n2 x9 Y( \5 B2 q8 ]; u- g& D
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" 的目前展開長
    2 K J+ B2 F o
35. N1 = L1 / D1 '"D5@螺旋曲線/渦捲線1" 的目前圈數
    - X, Q$ q# D) C( }# i p
36. myDimension_1.SystemValue = N1
    f" m' a5 }7 M% o
37. boolstatus = Part.EditRebuild3()
    
38. myModelView.RotateAboutCenter 0, 0
    6 p- n4 a; z9 F. y& M8 ~3 I
39. Next
    $ [( g" H- {; J7 G* m& |' L
40. 
    
41. Debug.Print "END"
    0 V ?" @% J. k& q( {
42. End Sub
    . O- B( v+ ~2 \* e+ b# h }

复制代码

' V7 `( E( s6 r+ o# A/ C! w

shentu

ryouss 发表于 2018-10-17 13:53
多討論多思考不管是對是錯總是會有進步.

1#動畫就是如s大說的作法,附sw2012文件及宏swp文件.

多谢楼主放源文件。
+ m2 \; k* f7 L; P: i
多讨论多进步~但这个代码，对我来说，还是像天书一样难懂。但难说某日我也能略通一二呢，时间挤一挤，总会有的，未来什么样，谁能说得定呢。
' F- ] h" V- w. [3 }