修改一下时间限制功能
本帖最后由 ajunseo 于 2021-6-21 12:02 编辑求大神修改一下下面的功能，CAD插件时间限制功能，读取网络时间，不要读取电脑系统时间！
(defun day ( / ENDTIME ERRXP REDDAY SYSRQ TIMEBAE TODAY)
(setq timebae "20170322"
endtime"20210618"
errxp 0
today (rtos (getvar "cdate"))
sysrq (atoi today)
)
(setqredday (vl-registry-read
"HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\AutoCAD""License_day"))
(if(or(/= redday nil)(= redday "NOTUSE"))
(progn
(alert "\n 错误代码:err01，请联系XXX报告此bug。")
(exit)
)
(progn
(if (> (atoi today) (atoi endtime));时间大于设置时间写入注册表
(progn
(setq errxp 1)
(vl-registry-write"HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\AutoCAD""License_day" "NOTUSE")
(alert "\n 错误代码:err02，请联系xxxx报告此bug。")
)
(princ "\n ---------*工具箱*-------\n")
)
)
)
errxp
)
这个代码看起来非常眼熟，期待高手解决 如果读取网络时间，使用者电脑没有联网，读取不到网络时间，那插件是不是不能用了？
页:
[1]