求助button的问题

lixiaomin96

(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))")
)

 

 

 

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;
}       

 

请问如何能点击"计算空间比"button能在"kjbz"edit_box显示计算结果啊。

龙龙仔

你應重新把DCL看一遍吧!

(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)")
  (start_dialog)
)
(defun GET_BB1 ()
  (setq SL (atof (get_tile "scl")))
  (setq SW (atof (get_tile "skw")))
  (setq SH (atof (get_tile "sgh")))
  (set_tile "kjbz" (rtos (/ (* 5 SH (+ SL SW)) (* SL SW))))
)