谁有办法设置这个文件在达到某天自动清除该文件。

英雄无敌 · 发表于 2009-7-19 14:33:00

zfsaaa，你的学习精神是可嘉的，但你如果真的想学习，就不应花时间在加密这方面，等到你入门了，简单的加密自然而然就会了。复杂的加密，可能就得专业的程序才能办到了，就是是微软，别人也能将它的软件盗得到处都是，何况是我等非专业的？

zfsaaa · 发表于 2009-7-20 09:35:00

英雄无敌,加密和解密只是矛盾的对立和统一，是共同发展的统一体，不管学加密、学解密，或学其他程序，都会使人进步，如果光打着编程的口号，加密、解密不去理他，似乎讲不过去，同样来论坛是带着问题和学习的态度来，能得到高手指点是菜鸟们的荣幸，毕竟学者不耻下问，能者多多析疑.我还是一句话，谁能会答我上面的问题，快快解答!

ayunger · 发表于 2009-7-20 10:34:00

zfsaaa:本程序通过 autoCAD 2002编译环境通过测试的，应该没有问题的。

可能是你对Lisp的语法使用还需要检查是否有妥的地方，因不知你的具体操作，所以...

zfsaaa · 发表于 2009-7-20 14:39:00

我的具体做法是，复制代码到txt文本直接生成BBB.LSP,20090720在CAD2004加载BBB.lsp后关闭，把时间改为20090920，再加载BBB.LSP一次，可是KKK.TXT还存在，也没删除里头内容，哪步错了，请指导，谢谢！

nzl1116 · 发表于 2009-7-20 15:44:00

本帖最后由 nzl1116 于 2013-6-16 14:06 编辑

(defun dt-dates (oneyear)
(if (numberp oneyear)
    (if (= 0 (rem oneyear 4))
      366
      365
    )
)
)

(defun dt-

zfsaaa · 发表于 2009-7-20 16:10:00

nzl1116你的程序我能用，谢谢！谢谢所有朋友帮助！

野狼谷/〈M〉 · 发表于 2012-1-5 21:49:30

楼主，功夫是用来强生健体的，当然，也可以用来自卫；如果用来逞能或攻击别人，就不对了，武有武德，程序员有咱们的风范，共勉吧！

AMTONNY · 发表于 2012-1-6 08:19:38

呵呵,学习可以,加密就不必了,小程序加密来干嘛呀,如果是工作的地方用,就把它编译成.VLX,文件好了,如果是碰上了高手,相信你的那点东东人家还不屑一顾呢......

xjf · 发表于 2012-1-7 08:44:18

15楼的大大要是能把第一次使用的日期存起就好了

是否改为7楼的以下语句就行了？？

(if (= Date0 nil) (setq Date0 (itoa (fix (getvar "Cdate")))))
(if (= Date1 nil) (setq Date1 (itoa (fix (getvar "Cdate")))))
(setq Date00 (strcat (substr Date0 1 4) "-" (substr Date0 5 2) "-" (substr Date0 7 2)));变成"2009-07-19"格式.
(setq Date11 (strcat (substr Date1 1 4) "-" (substr Date1 5 2) "-" (substr Date1 7 2)))

(setq passDays (xCalVB (strcat "CDate(\"" Date11 "\") - CDate(\"" Date00 "\")")));计算天数.

nzl1116 · 发表于 2012-1-7 09:33:13

xjf 发表于 2012-1-7 08:44
15楼的大大要是能把第一次使用的日期存起就好了

是否改为7楼的以下语句就行了？？

你想用来加密？？？

账号		自动登录	找回密码
密码			注册

谁有办法设置这个文件在达到某天自动清除该文件。

点评

本帖子中包含更多资源