帮帮我！！！

tsangbee

 正在开发一套出图程序，其中涉及到了对话框激活程序，对一个子对话框的操作总是失败，想请大家帮我看看是什么原因....谢谢！

(defun xg()
   (if (< id 0)(exit))
     (if (not(new_dialog "xgsz" id))(exit))
     (set_tile "s1" "1")
     (set_tile "u2" "1")
      (setq n 1)
  (while (< n 48)
    (setq a 106)
    (setq a (+ n a))
       (setq b (itoa a))
       (setq x (strcat "x" b))
           (action_tile "d1" "(fuc (get_tile \"d1\") x)" )  这句不起作用
          (setq n (+ n 1))
                  )
       (action_tile "d1" "(fuc (get_tile  \"d1\")  \"z1\")")     这句不起作用
       (action_tile "d1" "(fuc (get_tile  \"d1\")  \"u2\")")    这句不起作用

       (action_tile "d1" "(fuc (get_tile  \"d1\")   \"h1\")")    这句不起作用
       (setq n 1)
          (while (< n 6)
     (setq a 100)
     (setq a (+ n a ))
         (setq b (itoa a))
       (setq x (strcat "x" b))
           (action_tile "d1" "(fu_c (get_tile \"d1\") x)" )  这句不起作用
          (setq n (+ n 1)))
                        
       (action_tile "accept" "(done_dialog 6)(setq sdt 6)")
       (action_tile "cancel" "(done_dialog 7)(setq sdt 7)")
       (start_dialog)
               )

(defun fuc (xzz  key);复选或者单选按钮选中的情况
   (if (= xzz "1")
     (mode_tile key 1)
  ))

其中标注的不起作用语句，是为什么？语法上没有错误啊！！！

请高人指点。。。谢谢啊，十万火急。。。

Andyhon

您未附DCL文件,调试有困难