lenglion 发表于 2006-11-11 09:46:00

<P>如果不要对话框程序可以正常运行，而要是添加驱动dcl的程序就无法运行下去了</P>
<P>改成</P>
<P>&nbsp; (action_tile "ok" "(done_dialog 1)")<BR>&nbsp; (action_tile "cancel" "(done_dialog 0)")<BR>&nbsp; (setq st(start_dialog))<BR>&nbsp; (if (= st 1) (act))<BR>&nbsp; (if (= st 0) (exit))</P>
<P>输入参数，调用 act 函数，程序显示&nbsp; 错误: 参数类型错误: stringp nil</P>
<P>还是没有通过~~~~</P>

tcsl9621 发表于 2006-11-11 22:38:00

<P>错在这一句:</P>
<P>(action_tile "ok" "(done_dialog 1)");这一句也不对.<BR>&nbsp; (action_tile "cancel" "(done_dialog 0)")<BR>&nbsp; (setq st(start_dialog))<BR>&nbsp; (if (= st 1) (act));错误句,窗口已退出不能再读出内容.<BR>&nbsp; (if (= st 0) (exit))</P>
<P>应为如下:</P>
<P><FONT face="Courier New" color=#ff0000>(</FONT><A href="http://www.mjtd.com/object/autolisp/action_tile.htm" target="_blank" ><FONT face="Courier New" color=blue>action_tile</FONT></A><FONT face="Courier New"> <FONT color=#ff00ff>"accept"</FONT> <FONT color=#ff00ff>"<FONT color=red>(</FONT>act<FONT color=red>)</FONT> <FONT color=red>(</FONT><A href="http://www.mjtd.com/object/autolisp/done_dialog.htm" target="_blank" ><FONT color=blue>done_dialog</FONT></A> 1<FONT color=red>)</FONT>"</FONT><FONT color=red>)</FONT><BR></FONT></P>

lenglion 发表于 2006-11-12 13:33:00

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

tcsl9621 发表于 2006-11-12 15:25:00

过了就好，一起进步吧。

cable2004 发表于 2010-11-29 12:13:54

不错的学习

another2121 发表于 2010-11-29 20:57:30

高手真多啊。。。

lincctw_ccl 发表于 2010-12-31 01:23:58

做一下記號!!
我也正在學習 dcl
明天好好研究一下
謝謝!
页: 1 [2]
查看完整版本: 救命！对话框中提取数据-困扰菜鸟多天的问题