Lines to hopefully PAUSE for user input offering the user an opportunity toĬontinue through another six circuit labels or exit. This is the thing, It was running in an infinite loop,Īllowing only the ESC key to exit. I am working to improve an old LISP that inserts a block with anĪttribute repeatedly, while increasing the numerical value. "A blind man lets nothing block his vision." Then the user would just hit enter to finish the inserting loop. (command "_.insert" "CIRCNUM" InsPt 1 1 0 CNUM) (while (setq InsPt (getpoint "\n Select insertion point: ")) The point? It looks like you are inserting it, and then moving it to a Why don't you loop with a getpoint, and then insert it where the user picks If, it is not possible the way I'm trying to do this, then please let me know what might be the best way to do this. (if (equal (cdr (assoc 10 (entget tEnt))) (command "move" (setq tEnt (entlast)) "" "0,0" pause) (progn (command "-INSERT" "CIRCNUM" "0,0" 1 1 0 CNUM) " circuits are complete, press ENTER to exit, do nothing to continue: " (DEFUN C:add_Circuit_Numbers (/ CNUM tEnt) It doesn't work my way and I'm unsure where to go from here, please help. I tried to change this by adding a few lines to hopefully PAUSE for user input offering the user an opportunity to continue through another six circuit labels or exit. This is the thing, It was running in an infinite loop, allowing only the ESC key to exit. I am working to improve an old LISP that inserts a block with an attribute repeatedly, while increasing the numerical value.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |