(= A nil) and at same time (= B nil) ... stop the while XX
@Anonymous wrote:
Good afternoon everybody.
I have a routine that writes the value of getpoin "A" and getpoint "B", and now I need it when (= A nil) and at...
Thanks
(while
(And (setq a (Getpoint "\Pick first point:"))
(setq b (Getpoint a "\Pick next point:"))
)
(print a)
(print b)
(princ)
)
once A is nil there is no point in testing B yes"?
use OR
(while
(or (setq a (Getpoint "\Pick first point:"))
(setq b (Getpoint "\Pick next point:"))
)
(and a (print a))
(and b (print b))
(princ)
)
HTH
EDIT: Now I'm confused 😄
@Anonymous wrote:
get the value of getpoint "A" and getpoint "B".
(While
(progn
(setq a (Getpoint "\nPick first point:"))
(setq b (Getpoint "\nPick next point:"))
(or a b)
)
(and a (print "A"))
(and b (print "B"))
(princ)
)
HTH
@Anonymous wrote:
....get the value of getpoint "A" and getpoint "B".
.... when both (at the same time) are (invalid) "nil" the routine ends and leaves the rest of the operations.
....
(if (and (not A) (not B))
(quit); then
(progn ; else
... other operations ...
); progn
); if
Or, to turn it around the other way:
(if (or A B)
(progn ; then
... other operations ...
); progn
); if
No need for an 'else' argument to (quit) in that case.
The (exit) function can be used instead of (quit) [they're equivalent].
Kent Cooper, AIA 
@ronjonp wrote:
Another:
(while (and a b) ;; Do your stuff )....
If I understand correctly, that should be an (or) function, not (and):
(while (or a b)
;; Do your stuff
)because they only want to give up when both A and B at the same time are nil [see Message 3], which means that if either of them exists, they want to keep going.
Kent Cooper, AIA
@Kent1Cooper Ah yes .. you are correct. Not enough coffee this morning 🙂 Now if only I could go edit my incorrect post... 🤓
@ronjonp wrote:
Now if only I could go edit my incorrect post... 🤓
And you already know the answer to that.
I also suggested both options (and a b) and (or a b) , then i was told "thats not it". my post after should satisfy the requirement
(Defun c:foo ()
(While
(progn
(setq a (Getpoint "\nPick first point:"))
(setq b (Getpoint "\nPick next point:"))
(or a b)
)
(and a (print "A"))
(and b (print "B"))
(princ)
)
)
Command: FOO
Pick first point: < user press enter >
Pick next point: < user pick point >
"B"
Pick first point: < user pick point >
Pick next point: < user press enter >
"A"
Pick first point: < user pick point >
Pick next point: < user pick point >
"A"
"B"
Pick first point: < user press enter >
Pick next point: < user press enter >
exit
But hey, It appears that the OP doesn't agree with my suggestion 😊
Accepted solution
On your first post, you want the loop to end when both is nil. The way have it right now, regardless if both pt1 and pt2 is nil it will still continue, you are evaluating variable a as a condition for while. the only way to exit is to press esc. as the value for variable a remains the same never change.
Do you need it to exit and still insert the block? You cant because there is no pt1 or pt2 for insertion, unless you use pause for the insertion and leave the two attribtue values as default or " " .
...
(while
(progn
(setq pt1 (getpoint "\npoint (NA) ? : "))
(setq pt2 (getpoint "\npoint (NO) ? : "))
(or pt1 pt2)
)
(cond
((And pt1
(setq y1 (cadr pt1))
(setq yy (strcat "+" (rtos y1 2 P) " (NA)"))
pt2)
(setq y2 (cadr pt2))
(setq yy1 (strcat "+" (rtos y2 2 P) " (NO)"))
)
( pt1
(setq yy1 " ")
)
( pt2
(setq yy " " pt1 pt2)
(setq y2 (cadr pt2))
(setq yy1 (strcat "+" (rtos y2 2 P) " (NO)"))
)
)
(command "insert" "nivel_corte_na+no" pt1 sc "" r yy yy1)
)
(command "insert" "nivel_corte_na+no" pause sc "" r "" "")
)
HTH