change the last number to 33
I'm not quite sure what you are trying to do. If you want 33 to be the last value it will use, that is, you want it to stop when it gets to 33, you should be able to just replace the 1000 in the (repeat) function with 33. Or am I misunderstanding?
A few other comments:
The angles in (polar) functions are peculiar calculations. Is there some reason to use (* pi 1) instead of just pi? Or (* pi 0) instead of just 0? [Also, (/ (* pi 3) 2) can be reduced to simply (* pi 1.5).]
This is also a strange construction:
(setq valor2 (+ valor 1))
(setq valor valor2)
Just eliminate the valor2 variable entirely, and do this:
(setq valor (1+ valor))
And since valor will always be an integer, instead of this:
(setq valor1 (rtos valor 2 0))
just do this:
(setq valor1 (itoa valor))
@john.uhden wrote:
I am wondering why he wants to make 1000 inserts one by one. ....
My guess is that it's just a way of being able to do as many as they might ever want to, until they cancel with ESCape, equivalent [for all practical purposes] to:
(while T
....
@alexandre_benekowski wrote:
....
I´d like to click and put number 1, click number 2 and when I click in the last, instead of put the sequencial number it put the number "33".
....
By what means would you want to indicate to the routine that a given click is the last one?
I will make the assumption that hitting ESCape is still the method for ending the routine. If so, then you could include an *error* handler, and within that, delete the last Insertion and re-do it using the same insertion point and other Attribute contents, but building the "33" into the one Attribute, in place of the valor1 variable. I think that might be easier than having it dig into that Block insertion and change the Attribute content to "33", but that's another possibility.
(defun c:notasdeserviço (/ *error*);; add other local variable names
(defun *error* (errmsg)
(if (not (wcmatch errmsg "Function cancelled,quit / exit abort,console break"))
(princ (strcat "\nError: " errmsg))
); if
(command-s "_.erase" "_last" ""); [if in a new-enough version to need the -s suffix]
(command-s
"_insert" "C:/Users/alexa/Desktop/Alexandre/12.LISP'S PARA AUTOCAD/BLOCOS/ponto_dist_cota"
local_final "1" "1" "0" "33" distancia_x distancia_y
); command-s
;; and other stuff if desired [reset System Variables? Undo end? etc.]
(princ)
); defun -- *error*
;information....
....
Hi Kent,
I tryed but it din´t work, maybe because I learning autolisp. anyway, thank you very much!!!! 
