命令反应器的，提醒报工作

菜卷鱼

我们工程师每天都低着头画图，忙起来就没啥时间概念，每天都被文员催着报工作，所以就写了一个提醒他们报工作的小程序。
只要他们一输入命令，就会弹出要他们报工作的提示，
缺点：必须要在操作CAD，否则没办法提醒
如果有大神有更好的办法，能够不进行任何操作的情况下，就能弹出提醒，能告诉在下就好了。

1. (or *reportmyworkcmd*
   
2.     (setq *reportmyworkcmd*
   
3.      (vlr-command-reactor
   
4.        nil
   
5.        '(
   
6.          (:vlr-commandWillStart . reportmywork)
   
7.          ))))
   
8. (defun reportmywork  (x1 x2)
   
9.   (if (= (getenv "come_date") nil)
   
10.     (setenv "come_date" "20200418"))
    
11. ;;;设置系统初次提醒日期
    
12.   (if (= (getenv "noti_time") nil)
    
13.     (setenv "noti_time" "1600"))   
    
14. ;;;设置系统初次提醒时间
    
15.   (if (= noti_time nil)
    
16.     (setq noti_time (atoi (getenv "noti_time"))))   ;;;设置本地提醒时间
    
17.   (if (= come_date nil)
    
18.     (setq come_date (atoi (getenv "come_date"))))   ;;;设置本地提醒日期
    
19.   (setq this_date (atoi (substr (rtos (* (getvar "cdate") 1e8)) 1 8)))
    
20.   (setq this_time (atoi (substr (rtos (* (getvar "cdate") 1e8)) 9 4)))
    
21.   (if (and (>= this_date come_date) (>= this_time noti_time))
    
22.     (progn (princ "\n**工作报了吗**\n**一分钟之后提醒你哦**\n**报了就输入命令:bl**")
    
23.      (setq noti_time (1+ this_time)))
    
24.     )
    
25.   )
    
26. (defun c:bl  nil
    
27.   (princ "\n**别啰嗦了，已经报了。")
    
28.   (princ "\n**[提示:设置报工作时间:bgzsj]。\n**[提示:设置报工作日期:bgzrq]。")
    
29.   (setenv "come_date" (itoa (1+ this_date)))
    
30.   (princ "\n**哦，我知道了。")
    
31.   (prin1)
    
32.   )
    
33. (defun c:bgzsj  nil
    
34.   (prinx "时间格式:" (getenv "noti_time"))
    
35.   (setenv "noti_time" (getstring "\n设置提醒报工作时间:"))
    
36.   (prin1)
    
37.   )
    
38. (defun c:bgzrq  nil
    
39.   (prinx "日期格式:" (getenv "come_date"))
    
40.   (setenv "come_date" (getstring "\n设置提醒报工作日期:"))
    
41.   (prin1)
    
42.   )

(or *reportmyworkcmd*<br />     (setq *reportmyworkcmd*<br />      (vlr-command-reactor<br />        nil<br />        '(<br />          (:vlr-commandWillStart . reportmywork)<br />          ))))<br /> (defun reportmywork  (x1 x2)<br />   (if (= (getenv "come_date") nil)<br />     (setenv "come_date" "20200418"))<br /> ;;;设置系统初次提醒日期<br />   (if (= (getenv "noti_time") nil)<br />     (setenv "noti_time" "1600"))    <br /> ;;;设置系统初次提醒时间<br />   (if (= noti_time nil)<br />     (setq noti_time (atoi (getenv "noti_time"))))   ;;;设置本地提醒时间<br />   (if (= come_date nil)<br />     (setq come_date (atoi (getenv "come_date"))))   ;;;设置本地提醒日期<br />   (setq this_date (atoi (substr (rtos (* (getvar "cdate") 1e8)) 1 8)))<br />   (setq this_time (atoi (substr (rtos (* (getvar "cdate") 1e8)) 9 4)))<br />   (if (and (>= this_date come_date) (>= this_time noti_time))<br />     (progn (princ "\n**工作报了吗**\n**一分钟之后提醒你哦**\n**报了就输入命令:bl**")<br />      (setq noti_time (1+ this_time)))<br />     )<br />   )<br /> (defun c:bl  nil<br />   (princ "\n**别啰嗦了，已经报了。")<br />   (princ "\n**[提示:设置报工作时间:bgzsj]。\n**[提示:设置报工作日期:bgzrq]。")<br />   (setenv "come_date" (itoa (1+ this_date)))<br />   (princ "\n**哦，我知道了。")<br />   (prin1)<br />   )<br /> (defun c:bgzsj  nil<br />   (prinx "时间格式:" (getenv "noti_time"))<br />   (setenv "noti_time" (getstring "\n设置提醒报工作时间:"))<br />   (prin1)<br />   )<br /> (defun c:bgzrq  nil<br />   (prinx "日期格式:" (getenv "come_date"))<br />   (setenv "come_date" (getstring "\n设置提醒报工作日期:"))<br />   (prin1)<br />   )

zzyong00

能否了解一下你们的管理制度，报工作是怎么一回事儿？每天都报什么内容呢？

669423907

右击我的电脑，点管理，双击任务计划程序，，，，，，，，