How do I make one selection automatic with getkword?

[jeremyearle5]

I want to make the insert option happen by just pressing enter in the following code:

 

 

(defun c:mak521 () 
(if (/= (tblsearch "block" "521") 
nil)
   (progn
     
(beep)
     (initget 1 "Yes No 
INsert")
     (prompt "\n521 has already been 
created.")
     (setq x (getkword 
"\nInsert 521 at 0,0 or redefine it? [Yes/No] <INsert>: 
"))
     
(cond
       ((= x "Yes") 
(mak521))
       ((= x "No") 
(exit))
       ((= x "INsert") (ins521))

 

How can I do this?

[Lee Mac]

See my tutorial here:

 

http://lee-mac.com/promptwithdefault.html

[jeremyearle5]

Thanks. I think I can figure it out from your tutorial.