求助高手

kjb:dialog{
            label="空间比计算";          
            :boxed_column{
                        label="数据输入:";
                        :row{
                        :edit_box{
                                 label="室长L(m):";
                                 key="scl";
                                 width=22;
                         }
                        :edit_box{
                                 label="室宽W(m):";
                                 key="skw";
                                 width=22;
                         }
                        :edit_box{
                                 fixed_width=true;
                                 alignment=centered;
                                 key="kjbz";
                                 width=16;
                         }
                       
                        }
                        :row{
                        :edit_box{
                                 label="灯具数量:";
                                 key="djsl";
                                 width=22;
                         }
                        :edit_box{
                                 label="室高H(m):";
                                 key="sgh";
                                 width=22;
                         }
                        :button{
                               label="计算空间比";
                               fixed_width=true;
                               alignment=centered;
                               key="bb1";
                               width=12;
                         }
 
                      }
                 }
          
               spacer_1;
               ok_cancel;
}       

(defun c:kjb()
  (setvar "cmdecho" 0)
  (dcl_1st)
  (prin1)
)
(defun dcl_1st()
   (setq dcl_id(load_dialog "kjb"))
   (new_dialog "kjb" dcl_id)
  (action_tile "bb1" "(get_bb1)(done_dialog 1)")
   (setq dd(start_dialog))
  (if(= dd 1)(action_tile "kjbz" "(setq kjbz $value)(sub_bb1)") 
 )
)
(defun get_bb1()
  (setq sl(atof(get_tile "scl")))
 (setq sw(atof(get_tile "skw")))
 (setq sh(atof(get_tile "sgh")))
)
(defun sub_bb1()
 (set_tile "kjbz" "(/ (* 5 sh (+ sl sw)) (* sl sw))")
)

请问 如何在点击"计算空间比"button控制框不关闭 在"kjbz"edit_box显示 计算结果啊