love1030312 发表于 2014-10-11 13:30:51

spp_wall 发表于 2014-10-9 22:57 static/image/common/back.gif
次数的可以 我再看看时间的！

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

鱼与熊掌 发表于 2014-10-11 20:13:21

love1030312 发表于 2014-10-11 13:30 static/image/common/back.gif
哥们我使用怎么不行 求指教

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

love1030312 发表于 2014-10-12 16:50:59

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

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

鱼与熊掌 发表于 2014-10-12 22:15:00

love1030312 发表于 2014-10-12 16:50 static/image/common/back.gif
怎么写啊我是小白 大哥来个实例谢谢啊

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

357785513 发表于 2014-10-13 00:21:09

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

鱼与熊掌 发表于 2014-10-13 19:49:08

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

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

love1030312 发表于 2014-10-14 23:07:53

还是不行啊 使用TT这个命令是可以限制次数但是用加载在zz版说的那位置的程序根本就不受限制 为什么呢我 随便贴一个加进去的程序 大神们帮我看看(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 "试用次数内")
;要用的程序加在这里
;; 直线变矩形
(defun c:r1 ()
(setvar "osmode" 0)
(setq ww (getreal "\n请输入宽度: "))
(prompt "\n框选欲变矩形的直线: ")
(setq ss (ssget '((0 . "LINE")))
          d(* ww 0.5)
         i-1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
    (setq p1 (vlax-curve-getstartPoint s1)
          p2 (vlax-curve-getendPoint s1)
          r(+ (angle p1 p2) (* pi 0.5))
    )
    (command "pline" (polar p1 r (- d)) (polar p2 r (- d)) (polar p2 r d) (polar p1 r d) "c")
)
(princ)
)



) (progn
(alert "试用超过限制,注册联系QQ775452144")
))
)

ZZXXQQ 发表于 2014-10-15 08:48:56

(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 "试用次数内")
;要用的程序加在这里
;; 直线变矩形
(setvar "osmode" 0)
(setq ww (getreal "\n请输入宽度: "))
(prompt "\n框选欲变矩形的直线: ")
(setq ss (ssget '((0 . "LINE")))
          d(* ww 0.5)
         i-1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
    (setq p1 (vlax-curve-getstartPoint s1)
          p2 (vlax-curve-getendPoint s1)
          r(+ (angle p1 p2) (* pi 0.5))
    )
    (command "pline" (polar p1 r (- d)) (polar p2 r (- d)) (polar p2 r d) (polar p1 r d) "c")
)
) (progn
(alert "试用超过限制,注册联系QQ775452144")
))
)

水沙漠 发表于 2022-2-22 18:02:49

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

f4800 发表于 2022-2-25 11:32:14

不错的函数和源码，，多谢多谢
页: 1 2 [3] 4
查看完整版本: 简单的试用次数限制,思路