Hi all,
I have a program that I've been using for some many years and I'm hoping to make a change that could improve it's usage.
My program simply inserts a block and increments a number held by an attribute; no big deal. I have a while loop that continues until the Right-Mouse-Button is clicked. The problem is that I have to click the Left-Mouse-Button twice everytime I want to insert. Is the double click really necessary? Can it be eliminated and reduced to a single mouse-click to insert, and, still exit with the Right-Mouse-Button click.
Here is what I have:
(SETQ CNUM 1)
(WHILE (/= (CAR (GRREAD nil 4 1)) 25) (PROGN (COMMAND "-INSERT" "CIRCNUM" pause 1 0 (ITOA CNUM)) (SETQ CNUM (1+ CNUM)) ) (PRINC "\n\t !> RIGHT-MOUSE-CLICK to exit : ") )
Thank you in advance for any suggestions.
Solved! Go to Solution.
Solved by hmsilva. Go to Solution.
Why not just
(WHILE (setq pt (getpoint "\nSpecify insertion point or right-mouse-click to exit:")) (COMMAND "-INSERT" "CIRCNUM" pt 1 0 (ITOA CNUM)) (SETQ CNUM (1+ CNUM)) )
Henrique
Can't find what you're looking for? Ask the community or share your knowledge.