修改一下时间限制功能

ajunseo

求大神修改一下下面的功能，CAD插件时间限制功能，读取网络时间，不要读取电脑系统时间！

2. (defun day ( / ENDTIME ERRXP REDDAY SYSRQ TIMEBAE TODAY)
   
3. (setq timebae "20170322"
   
4.       endtime  "20210618"
   
5.       errxp 0
   
6.       today (rtos (getvar "cdate"))
   
7.       sysrq (atoi today)
   
8. )
   
9. (setq  redday (vl-registry-read
   
10.    "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\AutoCAD""License_day"))
    
11. (if(or(/= redday nil)  (= redday "NOTUSE")  )
    
12. (progn
    
13. (alert "\n 错误代码:err01，请联系XXX报告此bug。")
    
14. (exit)
    
15.   )
    
16. (progn
    
17. (if (> (atoi today) (atoi endtime));时间大于设置时间写入注册表
    
18.   (progn
    
19.   (setq errxp 1)
    
20.   (vl-registry-write"HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\AutoCAD""License_day" "NOTUSE")
    
21.   (alert "\n 错误代码:err02，请联系xxxx报告此bug。")
    
22.   )
    
23.   (princ "\n ---------*工具箱*-------\n")
    
24.   )
    
25. )
    
26. )
    
27. errxp
    
28. )

(defun day ( / ENDTIME ERRXP REDDAY SYSRQ TIMEBAE TODAY)<br /> (setq timebae "20170322"<br />       endtime  "20210618"<br />       errxp 0<br />       today (rtos (getvar "cdate"))<br />       sysrq (atoi today)<br /> )<br /> (setq  redday (vl-registry-read<br />    "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>""License_day"))<br /> (if(or(/= redday nil)  (= redday "NOTUSE")  )<br /> (progn<br /> (alert "\n 错误代码:err01，请联系XXX报告此bug。")<br /> (exit)<br />   )<br /> (progn<br /> (if (> (atoi today) (atoi endtime));时间大于设置时间写入注册表<br />   (progn<br />   (setq errxp 1)<br />   (vl-registry-write"HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\AutoCAD""License_day" "NOTUSE")<br />   (alert "\n 错误代码:err02，请联系xxxx报告此bug。")<br />   )<br />   (princ "\n ---------*<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a>箱*-------\n")<br />   )<br /> )<br /> )<br /> errxp <br /> )

liwen888888

这个代码看起来非常眼熟，期待高手解决

qazxswk

如果读取网络时间，使用者电脑没有联网，读取不到网络时间，那插件是不是不能用了？