简单的试用次数限制,思路

love1030312

spp_wall 发表于 2014-10-9 22:57
次数的可以 我再看看时间的！

哥们我使用怎么不行 求指教

鱼与熊掌

love1030312 发表于 2014-10-11 13:30
哥们我使用怎么不行 求指教

可以写个定义函数     弄在文件的开始地方。。

love1030312

鱼与熊掌 发表于 2014-10-11 20:13
可以写个定义函数     弄在文件的开始地方。。

怎么写啊  我是小白 大哥来个实例  谢谢啊

鱼与熊掌

love1030312 发表于 2014-10-12 16:50
怎么写啊  我是小白 大哥来个实例  谢谢啊

(prompt "试用次数内")
这个后面就可以加程序的代码了

357785513

C:\\Program Files\\WINDOWNS.TXT
不是的，要在这下面放一个文件才行的

鱼与熊掌

357785513 发表于 2014-10-13 00:21
C:\\Program Files\\WINDOWNS.TXT
不是的，要在这下面放一个文件才行的

后面写了 如果不存在文件就创建一个

love1030312

还是不行啊 使用TT这个命令是可以限制次数  但是用加载在zz版说的那位置的程序根本就不受限制 为什么呢  我 随便贴一个加进去的程序 大神们帮我看看

2. (defun c:tt()
   
3. (if (setq TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "r")) (progn
   
4.   (setq tmpxx(atoi (read-line tmptxt)))
   
5.   (close TMPTXT)
   
6.   (setq TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "w"))
   
7.   (write-line (itoa(1+ tmpxx)) tmptxt)
   
8.   (close TMPTXT)
   
9. )
   
10.   (setq tmpxx 31);文件不存在就直接超次数
    
11. )
    
12. (if (< tmpxx 30) (progn
    
13. (prompt "试用次数内")
    
14. ;要用的程序加在这里
    
15. ;; 直线变矩形
    
16. (defun c:r1 ()
    
17.   (setvar "osmode" 0)
    
18.   (setq ww (getreal "\n请输入宽度: "))
    
19.   (prompt "\n框选欲变矩形的直线: ")
    
20.   (setq ss (ssget '((0 . "LINE")))
    
21.           d  (* ww 0.5)
    
22.            i  -1
    
23.   )
    
24.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
25.     (setq p1 (vlax-curve-getstartPoint s1)
    
26.           p2 (vlax-curve-getendPoint s1)
    
27.           r  (+ (angle p1 p2) (* pi 0.5))
    
28.     )
    
29.     (command "pline" (polar p1 r (- d)) (polar p2 r (- d)) (polar p2 r d) (polar p1 r d) "c")
    
30.   )
    
31.   (princ)
    
32. )
    
33. 
    
34. 
    
35. 
    
36. ) (progn
    
37. (alert "试用超过限制,注册联系QQ775452144")
    
38. ))
    
39. )
    

(defun c:tt()<br /> (if (setq TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "r")) (progn<br />   (setq tmpxx(atoi (read-line tmptxt)))<br />   (close TMPTXT)<br />   (setq TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "w"))<br />   (write-line (itoa(1+ tmpxx)) tmptxt)<br />   (close TMPTXT)<br /> )<br />   (setq tmpxx 31);文件不存在就直接超次数<br /> )<br /> (if (< tmpxx 30) (progn <br /> (prompt "试用次数内")<br /> ;要用的程序加在这里<br /> ;; 直线变矩形<br /> (defun c:r1 ()<br />   (setvar "osmode" 0)<br />   (setq ww (getreal "\n请输入宽度: "))<br />   (prompt "\n框选欲变矩形的直线: ")<br />   (setq ss (ssget '((0 . "LINE")))<br />           d  (* ww 0.5)<br />            i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq p1 (vlax-curve-getstartPoint s1)<br />           p2 (vlax-curve-getendPoint s1)<br />           r  (+ (angle p1 p2) (* pi 0.5))<br />     )<br />     (command "pline" (polar p1 r (- d)) (polar p2 r (- d)) (polar p2 r d) (polar p1 r d) "c")<br />   )<br />   (princ)<br /> )<br /> <br /> <br /> <br /> ) (progn<br /> (alert "试用超过限制,注册联系QQ775452144")<br /> ))<br /> )<br />

ZZXXQQ

2. (defun c:tt()
   
3. (if (setq TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "r")) (progn
   
4.   (setq tmpxx(atoi (read-line tmptxt)))
   
5.   (close TMPTXT)
   
6.   (setq TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "w"))
   
7.   (write-line (itoa(1+ tmpxx)) tmptxt)
   
8.   (close TMPTXT)
   
9. )
   
10.   (setq tmpxx 31);文件不存在就直接超次数
    
11. )
    
12. (if (< tmpxx 30) (progn
    
13. (prompt "试用次数内")
    
14. ;要用的程序加在这里
    
15. ;; 直线变矩形
    
16.   (setvar "osmode" 0)
    
17.   (setq ww (getreal "\n请输入宽度: "))
    
18.   (prompt "\n框选欲变矩形的直线: ")
    
19.   (setq ss (ssget '((0 . "LINE")))
    
20.           d  (* ww 0.5)
    
21.            i  -1
    
22.   )
    
23.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
24.     (setq p1 (vlax-curve-getstartPoint s1)
    
25.           p2 (vlax-curve-getendPoint s1)
    
26.           r  (+ (angle p1 p2) (* pi 0.5))
    
27.     )
    
28.     (command "pline" (polar p1 r (- d)) (polar p2 r (- d)) (polar p2 r d) (polar p1 r d) "c")
    
29.   )
    
30. ) (progn
    
31. (alert "试用超过限制,注册联系QQ775452144")
    
32. ))
    
33. )
    

(defun c:tt()<br /> (if (setq TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "r")) (progn<br />   (setq tmpxx(atoi (read-line tmptxt)))<br />   (close TMPTXT)<br />   (setq TMPTXT (open "C:\\Program Files\\WINDOWNS.TXT" "w"))<br />   (write-line (itoa(1+ tmpxx)) tmptxt)<br />   (close TMPTXT)<br /> )<br />   (setq tmpxx 31);文件不存在就直接超次数<br /> )<br /> (if (< tmpxx 30) (progn <br /> (prompt "试用次数内")<br /> ;要用的程序加在这里<br /> ;; 直线变矩形<br />   (setvar "osmode" 0)<br />   (setq ww (getreal "\n请输入宽度: "))<br />   (prompt "\n框选欲变矩形的直线: ")<br />   (setq ss (ssget '((0 . "LINE")))<br />           d  (* ww 0.5)<br />            i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq p1 (vlax-curve-getstartPoint s1)<br />           p2 (vlax-curve-getendPoint s1)<br />           r  (+ (angle p1 p2) (* pi 0.5))<br />     )<br />     (command "pline" (polar p1 r (- d)) (polar p2 r (- d)) (polar p2 r d) (polar p1 r d) "c")<br />   )<br /> ) (progn<br /> (alert "试用超过限制,注册联系QQ775452144")<br /> ))<br /> )<br />

水沙漠

存在明显的漏洞，只要把C:\\Program Files\\WINDOWNS.TXT文本文件内的数字改为小于30就可以破除限制。

f4800

不错的函数和源码，，多谢多谢