[求助]希望朋友们帮下忙!

wuxuloveguo

最近做了个注册码和时间限定代码!

出了点问题!

在程序运行中出现问题!

例如:COPY为注册模块,COPY1为时间代码!

(defun c:jz (/)
    (if(copy)
    (progn
    (copy1) 

(progn

.......以下为主程序!

可是运行JZ后只是出现距软件还有多长时间,不运行主程序!希望各位帮下忙!

wuxuloveguo

来个高人帮下忙吧!

f5612140

(if (條件)

  (progn

    條件成立時執行

  )

  (progn

　　條件不成立時執行　

  )

)

wuxuloveguo

比如下面这个程序!请朋友们帮忙检查一下!

(mycopyright)为注册模块,(my_a_date)为时间限定代码!

(defun c:t( / pt1 pt2 pt3 pt4 ss)
(if (mycopyright)
(progn
(if (my_a_date)
(progn
(princ "\n框选剪切")
(setvar "cmdecho" 0)
(princ "\n当前设置:投影=UCS，边=无")
(princ "选择剪切边...")
(setq ss (ssget))
(command "_.TRIM")
(if ss (command ss))
(if    (wcmatch (getvar "cmdnames") "*TRIM*")  (command ""))
(while (wcmatch (getvar "cmdnames") "*TRIM*")
(setvar "cmdecho" 0)
(initget 2 "F P E U")
(setq pt1 (getpoint "\n[栏选(F)/投影(P)/边(E)/放弃(U)]:"))
    (cond ((= (type pt1) 'STR)           
     (setvar "cmdecho" 1)
     (command pt1)
     (while (wcmatch (getvar "cmdnames") "*TRIM*")  (command pause))  
    )
   ((= (type pt1) 'list)    
     (if   (setq pt2 (getcorner pt1 ))  
    (progn
    (setq pt3 (list (car pt1) (cadr pt2) 0.0)
                        pt4 (list (car pt2) (cadr pt1) 0.0)
                  )
                  (command "F" pt1 pt2 pt3 pt4 "" )
    )
    (command "")       
     )
   ) 
   (T (command ""))       
    )
)
)
)
)
)
)

wuxuloveguo

没人帮忙啊!

ZZXXQQ

3. (defun c:t( / pt1 pt2 pt3 pt4 ss)
4. (if (or (mycopyright) (my_a_date))
5. (progn
6. (princ "\n框选剪切")
7. (setvar "cmdecho" 0)
8. (princ "\n当前设置:投影=UCS，边=无")
9. (princ "选择剪切边...")
10. (setq ss (ssget))
11. (command "_.TRIM")
12. (if ss (command ss))
13. (if (wcmatch (getvar "cmdnames") "*TRIM*")  (command ""))
14. (while (wcmatch (getvar "cmdnames") "*TRIM*")
15.   (setvar "cmdecho" 0)
16.   (initget 2 "F P E U")
17.   (setq pt1 (getpoint "\n[栏选(F)/投影(P)/边(E)/放弃(U)]:"))
18.   (cond
19.    ((= (type pt1) 'STR)            
20.     (setvar "cmdecho" 1)
21.     (command pt1)
22.     (while (wcmatch (getvar "cmdnames") "*TRIM*")  (command pause))
23.    )
24.    ((= (type pt1) 'list)
25.     (if (setq pt2 (getcorner pt1 ))
26.     (progn
27.      (setq pt3 (list (car pt1) (cadr pt2) 0.0)
28.            pt4 (list (car pt2) (cadr pt1) 0.0))
29.      (command "F" pt1 pt2 pt3 pt4 "" )
30.     )
31.      (command "")        
32.     )
33.    )
34.    (T (command ""))        
35.   )
36. )
37. ))
38. (princ)
39. )

(defun c:t( / pt1 pt2 pt3 pt4 ss) (if (or (mycopyright) (my_a_date)) (progn (princ "\n框选剪切") (setvar "cmdecho" 0) (princ "\n当前设置:投影=UCS，边=无") (princ "选择剪切边...") (setq ss (ssget)) (command "_.TRIM") (if ss (command ss)) (if (wcmatch (getvar "cmdnames") "*TRIM*")  (command "")) (while (wcmatch (getvar "cmdnames") "*TRIM*")   (setvar "cmdecho" 0)   (initget 2 "F P E U")   (setq pt1 (getpoint "\n[栏选(F)/投影(P)/边(E)/放弃(U)]:"))   (cond    ((= (type pt1) 'STR)                 (setvar "cmdecho" 1)     (command pt1)     (while (wcmatch (getvar "cmdnames") "*TRIM*")  (command pause))    )    ((= (type pt1) 'list)     (if (setq pt2 (getcorner pt1 ))     (progn      (setq pt3 (list (car pt1) (cadr pt2) 0.0)            pt4 (list (car pt2) (cadr pt1) 0.0))      (command "F" pt1 pt2 pt3 pt4 "" )     )      (command "")             )    )    (T (command ""))           ) ) )) (princ) )

wuxuloveguo

斑竹!非常感谢!问题已经解决!

我的思路是这样的,如果注册成果就校对时间,时间到就删除注册码重新注册!

如果我想再加上个限定次数的代码,比方在某个位置写一个文件,不注册的时候运行使用次数限制,注册的时候就是上面这样了!

那改如何去处理呢?比方说限定次数代码为(mynumber)!

如果斑竹能帮忙给写个限定次数代码就更好了!谢谢了!