;;********************************定时提醒 (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自动运行这个程序呢!!! |