同步電腦系統時間

humancom

[table=98%]請幫忙測試,時鐘是否能夠同步電腦系統時間
宏裡面的繁體字須更改為簡体,並對應秒分時三針的角度尺寸(請解除隱藏顯示)
' ******************************************************************************
' 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

nowtime.rar (15.87 KB, 下载次数: 81)

2013-12-24 23:46 上传

点击文件名下载附件
下载积分: 金币 -1

[2012版]
Macro1.rar (15.87 KB, 下载次数: 165)

2013-12-24 23:46 上传

点击文件名下载附件
下载积分: 金币 -1

创业青年科技

  
謝謝梁兄分享。
大侠測試結果如下：巨集能正常執行，但對不上系統時間。不知工程师是如何操作成功的…

52249is50i

牛叉啊，鼓励鼓励啊

zhangyunsheng

谢谢分享！

herod

   经典案例图书

這就是想和大家討論的問題,
sw對角度的定義,不是固定在起始點,所以就會有0和180度的誤差,
目前像這樣的問題,我只會在起始宏時,先手改修正時分秒三針調到接近角度.
除此之外,不知道是否尚有較佳的解決處理.

陈风

深奥的东西需要学习~！

yfqzdrymbr

   经典案例图书

高手啊，

skyflyki

学习学习……

8ti54n0361

真牛....

小小孩

原來如此，跟進關注~
再次謝謝梁兄無私分享！

jzzhj308

高手~~ 谢谢分享！

guo_shubo

未来的方向

mdxqjiegme

未来方向

cfb1230

謝謝分享

liwenping

加入QQ群
参与讨论和学习

或扫描二维码加入

都是高手啊

玻玻

   经典案例图书

膜拜中。。。。 刚试了一下，出现“运行时错误'91”  我都转换成简体了
2013-12-31 11:04:30 上传
下载次数: 0

/ka花奴醉红颜

加入QQ群
参与讨论和学习

或扫描二维码加入

可以了

bbzy89

   经典案例图书

可以执行。。。时间能跟系统对上

liang0

厉害

xiaoshiwen

咋不行？改了简体
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(&quot;角度60@草图1&quot;)
Set myDimension_m = Part.Parameter(&quot;角度66@草图1&quot;) '
Set myDimension_h = Part.Parameter(&quot;角度69@草图1&quot;) '
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 '
    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