restric number of uses for a code
@dani-perez wrote:
I'd like to restrict the number of uses for a lisp. Not to create a time deadline, but you can only call the code 3 times in each different complitation of it for example.
The posted link does create a "time deadline". Is that what you really wanted all along? Confusing ....
@pbejse wrote:
....
The posted link does create a "time deadline". ....
If you're saying that because of the wording:
(alert "\nEvalution Period has Expired ..."
that's a misleading way that they worded it. Its evaluation is not about "Period" [of time] but about number of times it's been called. So it should be okay on the same computer, as the OP has noted, but if it should be limited to a total number of uses by all Users, I assume something else would need to be done, most likely either re-writing or appending something to the end of the file that defines the routine, or maybe editing a file in the same folder with some kind of associated name. Either assumes the file is in a shared Server location that can be affected by usage of the routine by anyone who gets it from that Server.
@Kent1Cooper wrote:.... if it should be limited to a total number of uses by all Users, I assume something else would need to be done, ... maybe editing a file in the same folder with some kind of associated name. ....
If your routine is called MyFile.lsp, defining a command called MyCommandName, and you want it to be used no more than 5 times, try building it something like this [minimally tested]:
(defun C:MyCommandName (/ txtfile counter count); add to other localized variables
(if
(and
(setq txtfile (findfile "MyFile.txt")); associated counter file established already?
(setq counter (open txtfile "r"))
(= (read-line counter) "5")
); and
(progn ; then
(alert "This routine has already been used 5 times.")
(close counter)
(quit)
); progn
(progn ; else -- go ahead, and increment counter
(.... the command's operational code ....)
(if
(setq txtfile (findfile "MyFile.txt")); counter file established already?
(progn ; then
(setq
counter (open txtfile "r"); for reading
count (atoi (read-line counter)); how many times used, as number
); setq
(close counter)
); progn
); if
(setq counter
(open ; file called MyFile.txt in same folder location
(strcat (substr (setq pathname (findfile "MyFile.lsp")) 1 (- (strlen pathname) 3)) "txt")
"w" ; for writing
); open
); setq
(write-line (itoa (if count (1+ count) 1)) counter); increment number of uses, as text
(close counter)
); progn
); if
(princ)
); defun
Again, it needs to be in one location that all Users load it from, and not installed separately on each User's computer. A clever-enough User might still be able to figure out [especially if the .lsp file is readable and they understand how it works] that there's a file that controls this, and edit or delete it to get around the limitation. And there's the possibility that more than one User could call it at close enough to the same time to get around it, or even if not collectively exceeding the limit, to interfere with both/all successfully upgrading the counter.
