请教怎么用LISP设置系统日期与时间

LONGXIN

请教怎么用LISP设置系统日期与时间?

snddd2000

我感觉在lisp里运行vba代码简单点
Time = #9:00:00 AM#
Date = #6/4/1989#
MsgBox Date & Time

highflybird

你可以利用shell命令，修改时间和日期：
或者更高级一点的：

1. (vl-load-com)
   
2. (defun C:CDT (/ item WMI COM SYS)
   
3.   (setq WMI (vlax-create-object "WbemScripting.SWbemLocator"))
   
4.   (setq COM (vlax-invoke WMI 'ConnectServer))
   
5.   (setq SYS (vlax-invoke COM 'ExecQuery "Select * from Win32_OperatingSystem"))
   
6.   (vlax-for item SYS
   
7.    ;UTC时间格式 (例如：2011-10-12 18:25:08 UTC+08:00)
   
8.    (vlax-invoke item 'SetDateTime "20111012182508.000000+480")     
   
9.   )
   
10.   (vlax-release-object COM)
    
11.   (vlax-release-object SYS)
    
12.   (vlax-release-object WMI)
    
13.   (princ)
    
14. )

(vl-load-com)<br /> (defun C:CDT (/ item WMI COM SYS)<br />   (setq WMI (vlax-create-object "WbemScripting.SWbemLocator"))<br />   (setq COM (vlax-invoke WMI 'ConnectServer))<br />   (setq SYS (vlax-invoke COM 'ExecQuery "Select * from Win32_OperatingSystem"))<br />   (vlax-for item SYS<br />    ;UTC时间格式 (例如：2011-10-12 18:25:08 UTC+08:00)<br />    (vlax-invoke item 'SetDateTime "20111012182508.000000+480")     <br />   )<br />   (vlax-release-object COM)<br />   (vlax-release-object SYS)<br />   (vlax-release-object WMI)<br />   (princ)<br /> )

不过对于windows 7 或者vista 需要开启UAC。

LONGXIN

highflybird 发表于 2011-10-12 18:43
你可以利用shell命令，修改时间和日期：
或者更高级一点的：

谢谢。
使用SHELL会出现闪屏，有没有办法让SHELL使用时不闪屏呢？

highflybird

LONGXIN 发表于 2011-10-13 13:10
谢谢。
使用SHELL会出现闪屏，有没有办法让SHELL使用时不闪屏呢？

可以利用 wscript.

1. (defun c:test()
   
2.   (setq wsh (vlax-create-object "wscript.shell"))
   
3.   (vlax-invoke wsh 'run "cmd.exe /c date 2011-10-13" 0)
   
4.   (vlax-invoke wsh 'run "cmd.exe /c time 14:47:08" 0)
   
5.   (vlax-release-object wsh)
   
6.   (princ)
   
7. )

(defun c:test()<br />   (setq wsh (vlax-create-object "wscript.shell"))<br />   (vlax-invoke wsh 'run "cmd.exe /c date 2011-10-13" 0)<br />   (vlax-invoke wsh 'run "cmd.exe /c time 14:47:08" 0)<br />   (vlax-release-object wsh)<br />   (princ)<br /> )

不管怎么样，在windows 7和vista中UAC始终是个问题。

寒潮大冬瓜

        (SETQ
                bn2 (strcat "0导出TQQ"
                                        (menucmd "M=$(edtime,$(getvar,date),YYYYMODDhhmmss)")
                                )
我是这样利用时间来做图层名或者块名的