你说的BUG就是，按保存文件，就会弹出警告窗吧。

网友答: 这是从上班画到下班的节奏啊


网友答: 这是从上班画到下班的节奏啊

网友答: (vlax-put-property (vlax-get (vlax-get (vlax-get-acad-object) 'Preferences) 'OpenSave) 'AutoSaveInterval 1);每隔1分钟 可自定义
(if (not (equal (type dwg_reactor_Gohome) 'VLR-DWG-Reactor))
        (setq dwg_reactor_Gohome(vlr-dwg-reactor nil '((:vlr-beginsave . GotoHome))))
)
(defun GotoHome(ii jj / time)
 (setq time (read (substr (rtos (getvar "cdate") 2 12) 10 4)))
 (if (> time 1728);下午5点28分 下班前
  (alert "准备下班!")
 )
)

网友答: 本帖最后由 作者 于 2009-1-19 15:40:25 编辑

Lisp小闹钟 v1.0

使用命令 alarm

输入正确的时间和需要调用的Lisp函数可以使用

例:

先加载自定义函数

(defun test()(alert "ok"))

对话框输入:

点击开始即可

网友答:

呵呵~

方法不错

有点意思。老猫就是厉害~

网友答: 能否效仿该程序，作一个能够定时运行的程序，比如在下午5点整，运行一次某个命令呢？该不如写呢？

网友答:

nonsmall 真强，学习了！

网友答:

只要在gohome函数中调用即可

但是要注意反应器的规则

一些方法需要用vlisp方法才可以