同步電腦系統時間

ryouss

請幫忙測試,時鐘是否能夠同步電腦系統時間
宏裡面的繁體字須更改為簡体,並對應秒分時三針的角度尺寸(請解除隱藏顯示)
' ******************************************************************************
' macro recorded on 12/24/13 by lsc
' 功能:同步電腦系統時間
'
' 操作說明:
' 1. 打開 now time.SLDDRW 檔.
' 2. 執行 Macro1.swp 巨集(宏)
' 3. 須停止執行巨集(宏)時,請同時按下 Ctrl-Pause Break 兩鍵.
'
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Dim sec_rad As Double
Dim myDimension_s As Object
Dim myDimension_m As Object
Dim myDimension_h As Object
Set myDimension_s = Part.Parameter("D8@草圖1") '對應工程圖秒針角度值
Set myDimension_m = Part.Parameter("D9@草圖1") '對應工程圖分針角度值
Set myDimension_h = Part.Parameter("D10@草圖1") '對應工程圖時針角度值
pi = 4 * Atn(1)
sec = Second(Time)
sec_rad = sec * pi / 30
myDimension_s.SystemValue = sec_rad '執行程式起始的系統秒
While hor < 13
    sec = Second(Time) '系統秒
    min = Minute(Time) '系統分
    hor = Hour(Time) Mod 12 '系統時(12小時制)
    sec_rad = sec * pi / 30 '秒針轉動弧度
    min_rad = min * pi / 30 '分針轉動弧度
    hor_rad = hor * pi / 6 + (min * pi / 360) '時針轉動弧度
    myDimension_s.SystemValue = sec_rad
    myDimension_m.SystemValue = min_rad
    myDimension_h.SystemValue = hor_rad
    Set myModelView = Part.ActiveView
    myModelView.RotateAboutCenter 0, 0
Wend
End Sub


[2012版]






该贴已经同步到 ryouss的微博

Francis

ryouss

wutong490

gt.adan

Francis

gt.adan

drinklee

ryouss

ryouss