I've coded the following to allow multiple entity selections from xrefs, I would like the loop to continue adding enames to the selection set until the user right clicks.
All works well except for one little annoyance, namely the loop also ends if the user left clicks on nothing by mistake.
Does anybody know of any other solutions to distinguish between a left and right mouse click?
(setq SS (ssadd))
(while (setq ENT (nentsel "\nSelect Objects."))
(if (member (cdr (assoc 0 (entget (car ENT)))) (list "POLYLINE" "LWPOLYLINE" "LINE" "ARC" "CIRCLE" "ELLIPSE" "SPLINE"))
(progn
(redraw (car ENT) 3)
(setq SS (ssadd (car ENT) SS))
)
(prompt "\nUnable to process selected object.")
)
)