终止Lisp

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

您好，我有以下代码，希望在运行后10天内过期

(defun c:S () 
(vl-cmdf "stretch" "c") 
(princ))

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

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

copy


(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去再次写信给登记处。

[编程交流] 终止Lisp

发表回复

精选推荐