本帖最后由 ryouss 于 2013-4-20 11:32 编辑
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版]
編程不能上傳
|
发表于 2013-4-20 02:37:15
发表于 2013-4-20 11:11:06
