求助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 1355)
   (C:555)
  )

 )
)

这里的555是我的某个命令，能否让我再13：55自动运行这个程序呢！！！