時鐘_工程圖動畫

ryouss

參考
時間精度,可依每台電腦的執行速度作調整,本例是有加快的.
; O3 C& g3 k9 N  ]" r+ o. H
) O) d" p1 {8 G3 W2 F! _. M! E, Q1 A, [
- |: |) D& a: E, r
% u, m2 I( U  I: V* e* M- [
! z& U7 l! ], g1 @* C+ y! E2 v
/ M! _; E# U( y- A' E/ Y- f
1 f$ J) f3 I4 F9 H& Z
4 Z; }! Q% V( T+ b  W

luxiang821

挺有意思，楼主这是怎么弄的？

剑南春17385

有心人

咸Yu菋

高手，怎么整的

中国龙1222

能够分享一下吗

啥也不懂的威客

求 分享

gmc87

如何做的啊！！！

极速尖兵

用参数。

qinghuap123

厉害

ryouss

如下參考
" \: K# d0 s6 h6 f. j7 |# N; R2 Y1.工程圖

7 C; |0 ?! I, u3 y4 Y, I% P

& F+ P- C! `$ ^+ m% y0 f2. 編程
' T4 L; V+ @( L: d6 Y5 V- S' ***************************************************
4 S5 }( K9 {$ n  v7 j2 z4 W4 y2 z" e' *  Macro1.swb - macro recorded on 04/18/19 by lsc *
1 n; L; S6 c$ h' E6 L) K; K- n' ***************************************************
' 注意:在 SolisWorks 的VBA,尺寸單位內定為米(M)
' 在VBA中,指令行的前面加 " ' " 的符號,表示本行只作備註,程式就會跳過不執行
' Sleep指令必須引用作業平台的時間
3 k8 d  n4 k9 Y5 s4 v6 fPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
# n- K; e4 f7 Z. ]  ]$ J
Sub main() '主程式

$ T+ x! b# _- q$ t1 o# p' 下三段是用要呼叫 SolisWorks 的物件必須寫的
Set swApp = _
1 f4 o( X9 n1 }+ MApplication.SldWorks
Set Part = swApp.ActiveDoc
, K, m, F1 h1 D* K+ O. G4 o
% y* R3 k! H( Q3 _( r; Y' 宣告時分的變數資料形態為為雙精度浮點數(按F1查 Double ,就知道意思了)
Dim M As Double
) G9 n0 U5 \" t, D* }0 n/ c, p2 a+ }9 FDim H As Double

+ X; w6 M0 X" n- S* s3 D. n# i' 定義時分的草圖弧長尺寸變數,如 myDimension_5,也可以定義成 D5,但變數名稱不能和指令名稱沖突
Set myDimension_5 = Part.Parameter("D5@草圖31") ' 分針的弧長,>> "D5@草圖31"務必要對應你的草圖 <<
6 Z4 d7 {2 R+ H% B/ fSet myDimension_6 = Part.Parameter("D6@草圖31") ' 時針的弧長

1 ]$ v( a" S; @/ _: s% x* c' 時針分針的弧長尺寸先歸零
# J. C' b- P+ c. b- m  h7 tmyDimension_5.SystemValue = 0 ' 分針弧長尺寸歸零
; {# I* S& }  Z) O' emyDimension_6.SystemValue = 0 ' 時針弧長尺寸歸零
: Q0 w( m2 V) v3 F& y& d
' 以1分鐘為單位循環計算,本例是由1分~180分作循環
' ], S  i- F# r: o0 SFor I = 1 To 180 '會取 1,2,3~180一步一步循環,
    Sleep 1000 ' 延遲時間 1000約1秒,所以可以依據電腦的執行速度作增減
    M = I / 1000 ' 米單位轉成mm
5 V/ y3 s$ N' v7 Q+ \: ^    myDimension_5.SystemValue = M ' 把分鐘轉成mm值,再丟給分鐘的SW草圖弧長尺寸"D5@草圖31"
  Q' J7 M  x7 s( {    H = M / 60 ' 依據分鐘計算成小時
    myDimension_6.SystemValue = H ' 把小時的值,再丟給時針SW草圖弧長尺寸"D6@草圖31"
Next I
8 J) ]: v2 f2 a' x& p* LEnd Sub