Grid escape and enter

Hello,
i need help with escape key and enter. With this code, the grid is not closed with enter key but the modeless dialog is closed with escape. i don't know how can i inhibit the escape key, i search on the forum but nothing exactly what i want, if you cn help me; thanks



(defun c:Metre_Metre_OnCancelClose (intIsESC)   
  (/= intIsESC 1)
)

Hi, the same event will be thrown when you press esc

(defun c:Metre_Metre_OnCancelClose (intIsESC)     
  (cond
    ((= intIsESC 0) (princ "\nEnter was pressed!\n"))
    ((= intIsESC 1) (princ "\nESC was pressed!\n"))
  ); cond
); c:Metre_Metre_OnCancelClose

Regards, Fred

Thank you Fred  :)