救命！对话框中提取数据-困扰菜鸟多天的问题

lenglion

如果不要对话框程序可以正常运行，而要是添加驱动dcl的程序就无法运行下去了

改成

  (action_tile "ok" "(done_dialog 1)")
  (action_tile "cancel" "(done_dialog 0)")
  (setq st(start_dialog))
  (if (= st 1) (act))
  (if (= st 0) (exit))

输入参数，调用 act 函数，程序显示  错误: 参数类型错误: stringp nil

还是没有通过~~~~

tcsl9621

错在这一句:

(action_tile "ok" "(done_dialog 1)");这一句也不对.
  (action_tile "cancel" "(done_dialog 0)")
  (setq st(start_dialog))
  (if (= st 1) (act));错误句,窗口已退出不能再读出内容.
  (if (= st 0) (exit))

应为如下:

(action_tile "accept" "(act) (done_dialog 1)")

lenglion

程序过了！非常感谢tcsl大哥的帮助，问题就出在ok控件，在lisp程序里对ok控件的定义应该用"accept"，而非"ok"。再次感谢tcsl大哥！！在你的帮助下这个程序才得以运行，正如你所说，还应该将齿条刀的齿顶加上圆弧过渡，如果后面还有磨齿工艺的话，还要对齿条刀加留磨余量，还有很多工作要做~~~~

tcsl9621

过了就好，一起进步吧。

cable2004

不错的学习

another2121

高手真多啊。。。

lincctw_ccl

做一下記號!!
我也正在學習 dcl
明天好好研究一下
謝謝!