同步電腦系統時間

swpu_lover · 发表于 2013-12-24 23:22:00

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

now time.rar (27.14 KB, 下载次数: 175) [2012版]

Macro1.rar (8.18 KB, 下载次数: 26)

流水/时光 · 发表于 2013-12-24 23:26:08

没多少实用意义

whq6349 · 发表于 2013-12-24 23:31:35

我认为这是对软件的二次开发的一种运用，是思路的一种扩展

proeboy · 发表于 2013-12-24 23:32:46

厉害，宏程序总是这么神奇。

sirlan · 发表于 2013-12-24 23:36:06

经典案例图书

謝謝總版鼓勵

忘记你的我 · 发表于 2013-12-24 23:38:19

有用沒用另碼事,最起碼是鍛鍊思維,不要讓頭腦死掉!

james · 发表于 2013-12-24 23:38:39

经典案例图书

好东西

yong · 发表于 2013-12-24 23:40:19

大师为什么我电脑运行不了？请帮忙看看

hxb110 · 发表于 2013-12-24 23:43:54

已有提示了!
簡繁版的問題,如下"草圖"是繁體字,須手改為簡体字,並對應作图角度之尺寸名稱.
Set myDimension_s = Part.Parameter("D8@草圖1")
Set myDimension_m = Part.Parameter("D9@草圖1")
Set myDimension_h = Part.Parameter("D10@草圖1")

红领巾丶 · 发表于 2013-12-24 23:44:58

很有趣的思維~謝謝梁兄分享，測試成功~~

壤驷贝莉 · 发表于 2013-12-24 23:48:49

感謝丹兄支持

灯火南山下 · 发表于 2013-12-24 23:50:54

大师高人，我按大师上面给的宏重新拷贝了就正常启动了

闻人仙仪 · 发表于 2013-12-24 23:51:09

扩展应用，不错

20iyz7q622 · 发表于 2013-12-24 23:51:12

发一个高人编的闹钟软件
闹钟适用于Windows 原子闹钟原子闹钟是来取代标准的Windows时钟的应用程序。为用户提供了在微软的操作系统尚未公布，如闹钟一堆额外的工具，外观为Windows时钟，一个原子时间同步器，每小时编钟等。闹钟当谈到设立了报警，该软件的选项是既简单又灵活。该报警器可在特定日期和时间，每隔几个小时触发一次，每天或在特定日期和时间等。灵活的时间表是不是所有的原子闹钟提供。此外，它还可以播放您所选择的声音为指定的次数，以小时计或直到您关闭报警窗口。它也可以自动关闭计算机或运行您选择的程序，用某些参数。

ataclock.part1.rar (3.3 MB, 下载次数: 183)

ataclock.part2.rar (2.31 MB, 下载次数: 12)

		自动登录	找回密码
密码			立即注册

同步電腦系統時間

相关帖子