時鐘_工程圖動畫

ryouss

參考
, h8 P0 |' x! X9 G9 X/ M6 D時間精度,可依每臺電腦的執行速度作調整,本例是有加快的.





) s+ X4 q9 X' E( g+ d6 n* b
) m: p. v; n) q, l0 E& _5 F! Q" S
. C/ d5 S% J* W8 r! ~0 x' J

luxiang821

挺有意思，樓主這是怎么弄的？

劍南春17385

有心人

咸Yu菋

高手，怎么整的

中國龍1222

能夠分享一下嗎

啥也不懂的威客

求 分享

gmc87

如何做的啊！！！

極速尖兵

用參數。

qinghuap123

厲害

ryouss

如下參考
4 \# q/ ]" `' S) k; Q1.工程圖
! J7 h  @- }2 H$ b% ]


. r7 d& m2 K  S9 j4 b) _6 [) n2. 編程
' ***************************************************
' *  Macro1.swb - macro recorded on 04/18/19 by lsc *
" A3 }/ _. u; ?- |+ V' ***************************************************
8 D# \+ ]' A5 Q4 |% P' 注意:在 SolisWorks 的VBA,尺寸單位內定為米(M)
. t1 b- J2 U$ o+ D' 在VBA中,指令行的前面加 " ' " 的符號,表示本行只作備註,程式就會跳過不執行
/ n* K: w4 z" j: v* n' Sleep指令必須引用作業平臺的時間
  i. y8 @; J3 G( t. APrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub main() '主程式

  `" n2 V7 m: A. X' v: V' 下三段是用要呼叫 SolisWorks 的物件必須寫的
Set swApp = _
3 k" e* ^5 n# HApplication.SldWorks
Set Part = swApp.ActiveDoc
" Y+ M6 ^; r% Y( d
) q" m( j, q3 a# |' 宣告時分的變數資料形態為為雙精度浮點數(按F1查 Double ,就知道意思了)
* T9 z; K/ I& a: _0 W4 Z" ?0 `Dim M As Double
! x8 ]1 [3 \+ e, p4 v: z! ZDim H As Double

: L- T2 `: z6 \8 I9 A' 定義時分的草圖弧長尺寸變數,如 myDimension_5,也可以定義成 D5,但變數名稱不能和指令名稱沖突
+ c0 D! j& P/ s- L2 SSet myDimension_5 = Part.Parameter("D5@草圖31") ' 分針的弧長,>> "D5@草圖31"務必要對應你的草圖 <<
3 E( h# o0 }, n8 `# C: [- ASet myDimension_6 = Part.Parameter("D6@草圖31") ' 時針的弧長
6 Y/ N: }9 W9 V
6 d1 C- l5 }! Y) X1 i4 H. l' 時針分針的弧長尺寸先歸零
! e* S9 ?5 i5 ~# amyDimension_5.SystemValue = 0 ' 分針弧長尺寸歸零
2 }( `" x5 y" c( m7 e- cmyDimension_6.SystemValue = 0 ' 時針弧長尺寸歸零
5 \2 V$ k$ \. z- r4 C- c
' 以1分鐘為單位循環計算,本例是由1分~180分作循環
For I = 1 To 180 '會取 1,2,3~180一步一步循環,
    Sleep 1000 ' 延遲時間 1000約1秒,所以可以依據電腦的執行速度作增減
& L! q" A) n3 g  i4 [    M = I / 1000 ' 米單位轉成mm
9 O% F0 l1 u; e6 {3 c% @    myDimension_5.SystemValue = M ' 把分鐘轉成mm值,再丟給分鐘的SW草圖弧長尺寸"D5@草圖31"
: l$ U3 ~! T& M/ T1 G2 ~    H = M / 60 ' 依據分鐘計算成小時
    myDimension_6.SystemValue = H ' 把小時的值,再丟給時針SW草圖弧長尺寸"D6@草圖31"
Next I
- k& h% S1 t5 s9 tEnd Sub