tsangbee 发表于 2008-6-10 17:24:00

帮帮我！！！

<p>&nbsp;正在开发一套出图程序，其中涉及到了对话框激活程序，对一个子对话框的操作总是失败，想请大家帮我看看是什么原因....谢谢！</p><p><br/>(defun xg()<br/>&nbsp;&nbsp; (if (&lt; id 0)(exit))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (if (not(new_dialog "xgsz" id))(exit))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (set_tile "s1" "1")<br/>&nbsp;&nbsp;&nbsp;&nbsp; (set_tile "u2" "1")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq n 1) <br/>&nbsp; (while (&lt; n 48)<br/>&nbsp;&nbsp;&nbsp; (setq a 106)<br/>&nbsp;&nbsp;&nbsp; (setq a (+ n a))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq b (itoa a))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq x (strcat "x" b))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (action_tile "d1" "(fuc (get_tile \"d1\") x)" )&nbsp; 这句不起作用<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq n (+ n 1))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (action_tile "d1" "(fuc (get_tile&nbsp; \"d1\")&nbsp; \"z1\")")&nbsp;&nbsp;&nbsp;&nbsp; 这句不起作用<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (action_tile "d1" "(fuc (get_tile&nbsp; \"d1\")&nbsp; \"u2\")")&nbsp;&nbsp;&nbsp; 这句不起作用</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (action_tile "d1" "(fuc (get_tile&nbsp; \"d1\")&nbsp;&nbsp; \"h1\")")&nbsp;&nbsp;&nbsp; 这句不起作用<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq n 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (while (&lt; n 6)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq a 100)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq a (+ n a ))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq b (itoa a))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq x (strcat "x" b))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (action_tile "d1" "(fu_c (get_tile \"d1\") x)" )&nbsp; 这句不起作用<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq n (+ n 1)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (action_tile "accept" "(done_dialog 6)(setq sdt 6)")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (action_tile "cancel" "(done_dialog 7)(setq sdt 7)")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (start_dialog)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )</p><p>(defun fuc (xzz&nbsp; key);复选或者单选按钮选中的情况<br/>&nbsp;&nbsp; (if (= xzz "1")<br/>&nbsp;&nbsp;&nbsp;&nbsp; (mode_tile key 1)<br/>&nbsp; ))</p><p>其中标注的不起作用语句，是为什么？语法上没有错误啊！！！</p><p>请高人指点。。。谢谢啊，十万火急。。。</p>

Andyhon 发表于 2008-6-10 19:48:00

您未附DCL文件,调试有困难
页: [1]
查看完整版本: 帮帮我！！！