Simple qusetion about dismissing a slide

[rapidcad]

Hi all. I've searched and come up dry - been looking for a way to have the user issue a redraw by hitting enter.

I've started putting together a lisp routine to gather 5 points I will need further down the road. I am using slides to show them one of 4 possible configurations they will need to follow. So far so good, but once I get the slide to load, I'm having trouble getting rid of it. I have already finished all the slides which say "Press Enter to begin selecting points", so I'm hoping to be able to make it so they can hit Enter to continue.  I'm just trying to issue (command "_.redraw") when the user hits ENTER while the screen is filled with the slide.

I just tried this and it seems like it might work:

(defun CTC-IR (/)
  (command "_.vslide" "CTC-IR")
  (command pause)
  (command "_.redraw")
  )

Did I just answer my own question, or is there a more bulletproof way to do this?

All help appreciated,

Ron

[Anonymous]

(defun CTC-IR ()
(command "_.vslide" "CTC-IR")
(getstring "\nPress Enter to begin selecting points...")
(redraw)
(princ)
)
;with out testing