求助nonsmall，关于定时提醒的程序
www.dimcax.com
求助nonsmall，关于定时提醒的程序
;;********************************定时提醒
(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 1355)
(c:555)
)
)
)
这里的555是我的某个命令，能否让我再13：55自动运行这个程序呢！！！
d