[求助]：关于dcl的问题 action_tile 为何不能用

zj-11

关于dcl的问题 action_tile 为何不能用
(action_tile "accept" "(getdata)(done_dialog 1)" )
程序中这句不能用,问各位原因
全程序在下

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun getdata ()
  (setq x (atof (get_tile "x")))
  (setq y (atof (get_tile "y")))
)

(defun c:ldcl () ;加dcl   测用
  (setq id (load_dialog "e:\hello.dcl"))
  (if (< id 0)(exit))
  (setq x 0 y 0)
  (if (not (new_dialog "hello" id))(exit))
  (set_tile "x" (rtos x 2 2))
  (set_tile "y" (rtos y 2 2))
  (action_tile "accept" "(setq g 1)" )
  (action_tile "accept" "(getdata)(done_dialog 1)" )
  ;(start_dialog)
  (unload_dialog id)
  (princ)
)   
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

aidraft

You can have only one action for a specific tile, the other one will be overridden.

zj-11

将(action_tile "accept" "(setq g 1)" )行去掉后
出现如下错误

;;; 复制到窗口于9:54 上午 8/17/04
(lambda ($KEY $VALUE $DATA $REASON $X $Y)
  (getdata)(done_dialog 1)
  )
;;; 文字结尾

现程序如下
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun getdata ()
(setq x (atof (get_tile "x")))
(setq y (atof (get_tile "y")))
)

(defun c:ldcl () ;加dcl 测用
(setq id (load_dialog "e:\hello.dcl"))
(if (< id 0)(exit))
(setq x 0 y 0)
(if (not (new_dialog "hello" id))(exit))
(set_tile "x" (rtos x 2 2))
(set_tile "y" (rtos y 2 2))
(action_tile "accept" "(getdata)(done_dialog 1)" )
(start_dialog)
(unload_dialog id)
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

aidraft

Your lisp file have no problem at all. Errors might be hidden in your DCL files. Otherwise, try "e:\\hello.dcl"

zj-11

dcl如下 hello.dcl,请帮我看下有什么问题

hello: dialog{
label = "Sample dialog box";
: edit_box {
label="&x";
key="x";
edit_width=7;
}
: edit_box {
label="&y";
key="y";
edit_width=7;
}

/*:row {
:spacer{width = 1;}
:button {
key = "accept";
label="ok";
is_default = true;
}
:button {
key = "cancel";
label="cancel";
is_default = true;
}
:spacer{width = 1;}
}*/
ok_cancel;
}

aidraft

No problem at all.

zxq0220

应将(start_dialog)改为(setq ed (start_dialog))。
因为(action_tile "accept" "(getdata)(done_dialog 1)" )中
(done_dialog 1)的参数要赋值给变量才行。

aidraft

(start_dialog) is OK

aeo

看着好像没错

可能
:button {
key = "accept";
label="ok";
is_default = true;
}
:button {
key = "cancel";
label="cancel";
is_default = true;
}
:spacer{width = 1;}
}*/
ok_cancel;


因为ok_cancel 本身就是 "accept"和“cancel"的组合，你相当于写了两遍

zj-11

多谢各位老大,我找到问题了 我对dcl不熟,(start_dialog)处我加了断点,这才出现错误,取消断点后,就正常执行了,问题出在断点的位置不对,几位指出的我也查了,与各位分享,如有不对,还请指出
(setq ed (start_dialog))里设变量ed是为了方便控制或取值 ,如(if (= ed 1)(setq pty y)),就可把输入的y的值放入变量pty.
(done_dialog 1)里的1指的是接受键,如是0指的就是取消键了,和我的错误没关系
至于ok_cancel 本身就是 "accept"和“cancel"的组合这到没事,前面的
/*:row {
:spacer{width = 1;}
:button {
key = "accept";
label="ok";
is_default = true;
}
:button {
key = "cancel";
label="cancel";
is_default = true;
}
:spacer{width = 1;}
}*/ 我用/* */ 注释了 并未执行,也就是说没有执行两遍ok_cancel
最后再次谢谢几位老大的帮助,以后也请多多指教