草图動片_秒錶

如題,為了動片效果分鐘有加快一些.
草图做图是依據阿丹版主 所提供資料 bs.icax.org/thread-880924-1-1.html 作參考.



该贴已经同步到 ryouss的微博

牛啊   见识了  

gt.adan 发表于 2013-4-20 00:26
梁兄人材啊~~連數字、品牌一併給上了~~
梁兄若是有空有意願的話，能否就這個數字鐘，給大家做 ...

不敢說是教程,僅分享我的作法:
注意! 做图是在"工程图" 而不是在零件上作,
因零件有不可為零尺寸(長度,弧長,角度...)的魔咒,須用到"0"相當難處理
宏裡面的繁體字須手改為簡體字

1.作工程图

2. 編程
' ***************************************************
' *  Macro1.swb - macro recorded on 04/18/19 by lsc *
' ***************************************************
' 注意:在 SolisWorks 的VBA,尺寸單位內定為米(M)
' 在VBA中,指令行的前面加 " ' " 的符號,表示本行只作備註,程式就會跳過不執行
' Sleep指令必須引用作業平台的時間
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub main() '主程式

' 下三段是用要呼叫 SolisWorks 的物件必須寫的
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc

' 宣告時分的變數資料形態為為雙精度浮點數(按F1查 Double ,就知道意思了)
Dim M As Double
Dim H As Double

' 定義時分的草圖弧長尺寸變數,如 myDimension_5,也可以定義成 D5,但變數名稱不能和指令名稱沖突
Set myDimension_5 = Part.Parameter("D5@草圖31") ' 分針的弧長,>> "D5@草圖31"務必要對應你的草圖 <<
Set myDimension_6 = Part.Parameter("D6@草圖31") ' 時針的弧長

' 時針分針的弧長尺寸先歸零
myDimension_5.SystemValue = 0 ' 分針弧長尺寸歸零
myDimension_6.SystemValue = 0 ' 時針弧長尺寸歸零

' 已1分鐘為單位循環計算,本例是由1分~180分作循環
For I = 1 To 180 '會取 1,2,3~180一步一步循環,
    Sleep 1000 ' 延遲時間 1000=1秒,所以可以依據電腦的執行速度作增減
    M = I / 1000 ' 米單位轉成mm
    myDimension_5.SystemValue = M ' 把分鐘轉成mm值,再丟給分鐘的SW草圖弧長尺寸"D5@草圖31"
    H = M / 60 ' 依據分鐘計算成小時
    myDimension_6.SystemValue = H ' 把小時的值,再丟給時針SW草圖弧長尺寸"D6@草圖31"
Next I
End Sub

Double (雙精度浮點數) 變數係以 IEEE 64 位元 (8 個位元組) 浮點數字的形式儲存，它的範圍在負數的時候是從 -1.79769313486231E308 到 -4.94065645841247E-324，而正數的時候是從 4.94065645841247E-324 到 1.79769313486232E308。Double 的型態宣告字元是數字符號(#)。

3. 原檔及編程作參考
[2012版]
編程不能上傳

转发微博\n\n 来自 大魔王哉阿斯 的新浪微博

转发微博\n\n 来自 王铂668 的新浪微博

梁兄人材啊~~連數字、品牌一併給上了~~{:soso_e179:}
梁兄若是有空有意願的話，能否就這個數字鐘，給大家做個巨集的教程呢？
讓我等想學習卻沒基礎又不得其門而入的人有個方向？
謝謝回覆~

ps：梁兄上頭給的宏，俺只要一運行，SW就崩潰…不知道是什麼原因…

gt.adan 发表于 2013-4-19 16:20
謝梁兄回覆~
您知道俺對二次開發這塊徹底文盲…所以只能用手動更改尺寸。
再次謝謝您提供 ...

做參考

ryouss 发表于 2013-4-19 16:14
謝謝阿丹版主提供資料,時間動作應該是手動操作的吧!
這跟用"宏"跑的概念是有差異,"宏"是依據電腦的時間實 ...

謝梁兄回覆~
您知道俺對二次開發這塊徹底文盲…所以只能用手動更改尺寸。{:soso_e109:}
再次謝謝您提供的資料~{:soso_e181:}
再練一個無參無方程的鐘面~也實現跑過360°的要求~

gt.adan 发表于 2013-4-19 13:17
梁兄最近著魔得不輕呀~  
您這「秒錶」的動畫，阿丹最早是看到悶大在2009年做的。
悶大厲害 ...

謝謝阿丹版主提供資料,時間動作應該是手動操作的吧!
這跟用"宏"跑的概念是有差異,"宏"是依據電腦的時間實際計算的(當然也有些許的時間差),
所提供的是基本宏的寫法,比較理想的應該要思考兩個問題:
1. 如何歸零.
2. 如何過60秒(360度).
這就留給有興趣者自個測試,才能真正體會個中玄機.

梁兄最近著魔得不輕呀~{:soso_e120:}  
您這「秒錶」的動畫，阿丹最早是看到悶大在2009年做的。
悶大厲害的地方在於直接用草繪完成，沒有用到巨集~
https://www.icax.org/forum.php?mo ... 541&fromuid=1110525
當然，梁兄的做法也是值得學習！並且謝謝您檔案的分享！

利用中午，俺也抽空做一個不用巨集的~{:soso_e130:}

fumingjun 发表于 2013-4-18 22:40
好酷，不会宠呀，动不起来呀还请指点

附上 SW 基本檔及 .SWP 宏
開SW檔后,執行宏就是.


[2012版]