|
|
樓主 |
發表於 2013/4/20 11:08:28
|
顯示全部樓層
不敢說是教程,僅分享我的作法:
注意! 做图是在"工程图" 而不是在零件上作,
因零件有不可為零尺寸(長度,弧長,角度...)的魔咒,須用到"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. 原檔及編程作參考
CLOCK.swp
(39.5 KB, 下載次數: 104)
CLOCK 工程圖.rar
(166.14 KB, 下載次數: 97)
[2012版]
|
|
發表於 2013/4/18 17:20:10
發表於 2013/4/19 13:42:10
發表於 2013/4/19 23:35:45
發表於 2013/4/20 17:31:45
發表於 2013/4/24 08:57:11
