amcdicsac 发表于 2022-7-5 17:37:13

终止Lisp

您好，我有以下代码，希望在运行后10天内过期
 
(defun c:S ()
(vl-cmdf "stretch" "c")
(princ))

rkmcswain 发表于 2022-7-5 18:08:26

从什么时候算起10天？今天
 


(defun c:S ()
(if (< (fix (getvar "date")) 2457553)
   (vl-cmdf "stretch" "c")
)
(princ)
)


 
如果距离其他日期还有10天，抓取（fix（getvar“date”））并加上10，然后将其存储在某处（即：2457553=2016年6月13日），然后与之进行比较。

amcdicsac 发表于 2022-7-5 18:20:22

自程序加载之日起10天

BIGAL 发表于 2022-7-5 18:45:21

使用注册表项保存第一次运行的日期https://knowledge.autodesk.com/search-result/caas/CloudHelp/cloudhelp/2015/ENU/AutoCAD-AutoLISP/files/GUID-9DDE1962-43C5-40D2-85E3-B7A729CAB157-htm.html确保你做了一个FAS，这样代码就不会打开。确保你告诉人们它的时间被炸了，当事情停止工作时，他们会非常不安，另一种方式是说20去再次写信给登记处。
页: [1]
查看完整版本: 终止Lisp