请教NONSMALL，关于定时提醒的程序！

aicr317

你的程序中这样写到：

(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)))
 (cond
  ((= time 1100)
   (alert "午饭时间到了，请注意保存后离开!")
  )

 )
)

我在想能否把(alert "午饭时间到了，请注意保存后离开!")
改为：(c:555)

其中555是我设定的一个程序

我是想在指定的时间执行指定的某个程序！能否做到

aicr317

顶。。。。。。。。。。。。。。。。

nonsmall

为什么不去尝试呢？

但是好像在反应器回调函数里面最好用vlisp 就是说不推荐用command之类的autolisp方式

详见反应器规则

另外

我在那个帖子写的那个加密的小闹钟

里面使用写文件方式写了一段VBS

用单独的外部例程来做闹钟提醒

效果比Lisp的这个反应器效果要好很多的！

（只是外部例程最好记录进程ID 结束的时候比较方便）

这类程序不是Lisp长项，建议看看VBA