求助button的问题
<p>(defun c:kjb()<br/> (setvar "cmdecho" 0)<br/> (dcl_1st)<br/> (prin1)<br/>)<br/>(defun dcl_1st()<br/> (setq dcl_id(load_dialog "kjb"))<br/> (new_dialog "kjb" dcl_id)<br/> (action_tile "bb1" "(get_bb1)(done_dialog 1)")<br/> (setq dd(start_dialog))<br/> (if(= dd 1)(action_tile "kjbz" "(setq kjbz $value)(sub_bb1)") <br/> )<br/>) <br/>(defun get_bb1()<br/> (setq sl(atof(get_tile "scl")))<br/> (setq sw(atof(get_tile "skw")))<br/> (setq sh(atof(get_tile "sgh")))<br/>)<br/>(defun sub_bb1()<br/> (set_tile "kjbz" "(/ (* 5 sh (+ sl sw)) (* sl sw))")<br/>)</p><p> </p><p> </p><p> </p><p>kjb:dialog{<br/> label="空间比计算"; <br/> :boxed_column{<br/> label="数据输入:";<br/> :row{<br/> :edit_box{<br/> label="室长L(m):";<br/> key="scl";<br/> width=22;<br/> }<br/> :edit_box{<br/> label="室宽W(m):";<br/> key="skw";<br/> width=22;<br/> }<br/> :edit_box{<br/> fixed_width=true;<br/> alignment=centered;<br/> key="kjbz";<br/> width=16;<br/> }<br/> <br/> }<br/> :row{<br/> :edit_box{<br/> label="灯具数量:";<br/> key="djsl";<br/> width=22;<br/> }<br/> :edit_box{<br/> label="室高H(m):";<br/> key="sgh";<br/> width=22;<br/> }<br/> :button{<br/> label="计算空间比";<br/> fixed_width=true;<br/> alignment=centered;<br/> key="bb1";<br/> width=12;<br/> }<br/> <br/> }<br/> }<br/> <br/> spacer_1;<br/> ok_cancel;<br/>} </p><p> </p><p><font size="4">请问如何能点击"计算空间比"button能在"kjbz"edit_box显示计算结果啊。</font></p> <p>你應重新把DCL看一遍吧!</p><p>(defun C:KJB ()<br/> (setvar "cmdecho" 0)<br/> (DCL_1ST)<br/> (prin1)<br/>)<br/>(defun DCL_1ST ()<br/> (setq DCL_ID (load_dialog "kjb"))<br/> (new_dialog "kjb" DCL_ID)<br/> (action_tile "bb1" "(get_bb1)")<br/> (start_dialog)<br/>)<br/>(defun GET_BB1 ()<br/> (setq SL (atof (get_tile "scl")))<br/> (setq SW (atof (get_tile "skw")))<br/> (setq SH (atof (get_tile "sgh")))<br/> (set_tile "kjbz" (rtos (/ (* 5 SH (+ SL SW)) (* SL SW))))<br/>)</p><p></p>
页:
[1]