Диалоговые окна и клавиша Esc

 cancel_test : dialog {
     label = "is_cancel";
     : spacer { height = 1; }
     : row {
        : button {
          key = "1";
          label = "1";
          is_default = true;
          //is_cancel = true;
        }
        : button {
          key = "2";
          label = "2";
          //is_cancel = true;
        }
        : button {
          key = "3";
          label = "3";
          //is_cancel = true;
        }
        : button {
          key = "4";
          label = "4";
          //is_cancel = true;
        }
        : button {
          key = "5";
          label = "5";
          is_cancel = true;
       }
    }
 }
 
 (defun cancel_test ( / dcl_id select)
   (setq dcl_id (load_dialog "tmp.dcl"))
   (new_dialog "cancel_test" dcl_id)
   (action_tile "1" "(alert \"1\")(done_dialog)")
   (action_tile "2" "(alert \"2\")(done_dialog)")
   (action_tile "3" "(alert \"3\")(done_dialog)")
   (action_tile "4" "(alert \"4\")(done_dialog)")
   (action_tile "5" "(alert \"5\")(done_dialog)")
   (setq select (start_dialog))
   (unload_dialog dcl_id)
   select
 );defun

 cancel_test : dialog {
     label = "is_cancel";
     : spacer { height = 1; }
     : row {
        ok_only;
        : button {
          key = "cancel";
          label = "Выход";
          is_cancel = true;
        }
    }
 }
 
 (defun cancel_test ( / dcl_id select)
   (setq dcl_id (load_dialog "tmp.dcl"))
   (new_dialog "cancel_test" dcl_id)
   (action_tile "accept" "(alert \"OK\")")
   (action_tile "cancel" "(alert \"Cancel\")")
   (setq select (start_dialog))
   (unload_dialog dcl_id)
   select
 );defun

 dcl_settings : default_dcl_settings { audit_level = 3 ; }
 txt : dialog {
    key = "txt" ;
    label = "Text Settings" ;
    value = "Standard Text Settings" ;
    : text {
       label = "tx" ;
       value = "Current Text Style will be used for settings." ;
    }
    : text {
       key = "tx2" ;
       label = "tt" ;
       value = "Preset Higtht:" ;
    }
    : text {
       key = "tx4" ;
       label = "tttt" ;
       value = "Standartd Tex t - 1/8 (0.125)  Standard Subtitle - 3/16 (0.18)  Standard Title - 1/4 (0.25)" ;
    }
    : row {
       key = "r1" ;
       : button {
          fixed_width = true ;
          key = "bt1" ;
          label = "Standard Text" ;
          width = 30 ;
       }
       : button {
          fixed_width = true ;
          key = "bt2" ;
          label = "Standard Subtitle" ;
          width = 30 ;
       }
       : button {
          fixed_width = true ;
          key = "bt3" ;
          label = "Standard Title" ;
          width = 30 ;
       }
    }
    ok_cancel ;
 }
 
 a etot lisp vizivaet dialog
 (defun c:txtT (/ scl szx szs szt)
 
 (defun bt1()
 (setq pset "a")
 (done_dialog)
 )
 
 (defun bt2()
 (setq pset "b")
 (done_dialog)
 )
 
 (defun bt3()
 (setq pset "c")
 (done_dialog)
 )
 (setq pset nil)
 
    (setq dcl_id (load_dialog "txt.dcl"))
    (if (not (new_dialog "txt" dcl_id)) (exit))
 
    (action_tile "bt1" "(bt1)")
    (action_tile "bt2" "(bt2)")
    (action_tile "bt3" "(bt3)")
 
    (action_tile "accept" "(EXIT)")
    (action_tile "cancel" "(EXIT)")
 
    (start_dialog)
    (unload_dialog dcl_id)
    (princ)
 
   (setq scl (getvar "dimscale"))
   (setq szx (* 0.125 scl))
   (setq szs (* 0.18 scl))
   (setq szt (* 0.25 scl))
   (cond
     ((= pset "a")(setvar "textsize" szx)(COMMAND"STYLE" "STANDARD" "ROMANS" "" "" "" "" "" ""))
     ((= pset "b")(setvar "textsize" szs)(COMMAND"STYLE" "SUBTITLE" "ROMANS" "" "" "" "" "" ""))
     ((= pset "c")(setvar "textsize" szt)(COMMAND"STYLE" "TITLE" "ROMAND" "" "" "" "" "" ""))
   )
   (INITDIA)
   (command "mtext")
   (princ)
 )