Lisp help with repeating a routine

[gccdaemon]

I have a lisp routine that I am using to move a detail next to another then move it again to leave a speace between the two. What I need is a routine that will repeat this function until the user presses Enter or Escape keys.

[gccdaemon · Accepted solution]

Dumb question. Should have googled first.

(defun C:DETAILMOVE (\ GP1)
	(while	(setq GP1 (getpoint "Pick LOWER LEFT corner of detail [press ENTER to exit]: "))
		(C:DTLMOVE)
	)
	(princ)
)
(princ)