lisp函数的到期日期

Grrr · 发表于 2022-7-5 17:52:18

这就是OP打算将lsp转换为vlx文件的原因。

无论如何，我不知道diesel函数可以比较“字符串数”：


_$ (> "20170102" "20170101")
T
_$ (> "20161121" "20170101")
nil
_$

此外，如果使用visual lisp，这样的方式可能更可取：

copy


(defun C:test ( / )
(and
        (> (rtos (getvar 'cdate) 2 0) "20170101") ; 1st Jan 2017
        (not (alert "This function is expired!\nPlease contact: 1234567890"))
        (vl-exit-with-value T)
)
(alert "\nThe main funciton is running.")
(princ)
) (vl-load-com)

因为（退出）/（退出）退出时出错。

Lee Mac · 发表于 2022-7-5 17:57:23

AutoLISP“>”，“>=”，“

copy

_$ (< "10" "2")
T

Grrr · 发表于 2022-7-5 17:59:56

我明白了，不确定到底是什么逻辑。我怀疑这与ascii以及字符串到列表的转换有关。
也许可以用以下方法来应对：

copy


_$ (apply '< (mapcar 'atof '("10" "2")))
nil
_$ (apply '> (mapcar 'atof '("10" "2")))
T
_$

[编程交流] lisp函数的到期日期

发表回复

精选推荐