love1030312 发表于 2014-10-9 00:07:08

机械工程师 发表于 2014-10-8 09:09 static/image/common/back.gif
(progn
(alert "试用超过限制,注册联系QQ775452144")
)


缺陷问题我解决了 但是加载后其他的程序还是能用啊    这跟楼主的没什么不一样的   请大哥指点

ZZXXQQ 发表于 2014-10-9 07:51:14

本帖最后由 ZZXXQQ 于 2014-10-9 20:24 编辑

改了一下(defun c:tt()
(if (setq TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "r")) (progn
(setq tmpxx(atoi (read-line tmptxt)))
(close TMPTXT)
(setq TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "w"))
(write-line (itoa(1+ tmpxx)) tmptxt)
(close TMPTXT)
)
(setq tmpxx 31);文件不存在就直接超次数
)
(if (< tmpxx 30) (progn
(prompt "试用次数内")
;要用的程序加在这里
) (progn
(alert "试用超过限制,注册联系QQ775452144")
))
)

spp_wall 发表于 2014-10-9 08:04:09

ZZXXQQ 发表于 2014-10-9 07:51 static/image/common/back.gif
改了一下

Z版能改成试用时间么

机械工程师 发表于 2014-10-9 08:33:00

love1030312 发表于 2014-10-9 00:07 static/image/common/back.gif
缺陷问题我解决了 但是加载后其他的程序还是能用啊    这跟楼主的没什么不一样的   请大哥指点

改成函数调用啊。。。

bai2000 发表于 2014-10-9 08:42:24

能改为附加到别的程序中最好，别的程序附加到这里就哈哈哈了

love1030312 发表于 2014-10-9 08:55:38

ZZXXQQ 发表于 2014-10-9 07:51 static/image/common/back.gif
改了一下

ZZ版我按照你改的弄了下为什么提示用于比较的参数类型不正确呢


求指教

love1030312 发表于 2014-10-9 09:20:40

ZZXXQQ 发表于 2014-10-9 07:51 static/image/common/back.gif
改了一下

按照Z版的使用方法使用 还是不行啊加载进去的程序还是没有限制到
请ZZ版出手修改下 谢谢

fan_zh 发表于 2014-10-9 09:22:31

学习了, 马克

ZZXXQQ 发表于 2014-10-9 20:50:41

spp_wall 发表于 2014-10-9 08:04 static/image/common/back.gif
Z版能改成试用时间么

;限制时间主程序日期格式：20141010
(defun c:tt()
(if (setq TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "r")) (progn
(setq time (atoi (read-line tmptxt)))
(close TMPTXT)
(if (< time (fix(getvar "CDATE"))) (progn
   (setq TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "w"))
   (write-line (fix(getvar "CDATE")) tmptxt)
   (close TMPTXT)
   (prompt "试用次数内")
;要用的程序加在这里
) (progn
   (alert "试用超时,注册联系QQ775452144")
))
)
(alert "试用超时,注册联系QQ775452144");文件不存在就直接超时
)
(princ)
)

spp_wall 发表于 2014-10-9 22:57:03

本帖最后由 spp_wall 于 2014-10-9 23:10 编辑

ZZXXQQ 发表于 2014-10-9 07:51 static/image/common/back.gif
改了一下次数的可以 我再看看时间的！
页: 1 [2] 3 4
查看完整版本: 简单的试用次数限制,思路