请看帮忙看看这个对话框文件，怎么到command命令就不运行了？

cyclone99

请看帮忙看看这个对话框文件，怎么到command命令就不运行了？


我检查过，它运行到command命令时程序就运行不下去了


整个程序没有响应


请问是怎么回事？


谢谢！

mkhsj928

(action_tile "gear" "(gear)")改成 (action_tile "gear" "(done_dialog 0)(gear)(new_dialog \"dchi.dcl\" index)")试试

chen4

看看你lisp程序里的空格，养成良好的习惯

cyclone99

mkhsj928发表于2004-12-3 15:59:00(action_tile \"gear\" \"(gear)\")改成 (action_tile \"gear\" \"(done_dialog 0)(gear)(new_dialog \\"dchi.dcl\\" inde...

谢谢你的指导哈
不过还是不行啊，这次它不死程序了，它提示的是： 错误: 参数类型错误: stringp nil 请问这又是哪儿的问题啊，我检查出来是运行到
(setq m(read m)
z(read z)
b(read b)
r(read r)
ang(read ang))
时跳出来了！

mkhsj928

要在done_dialog 之前取得对话框中的值。done_dialog之后不能使用action_tile之类操作对话框的语句。


建议你在调用（gear)之前取得各个值，然后以参数形式传到gear中去

winabcd

（action_tile "gear" "(gear)")改成 (action_tile "gear" "(setq done (done_dialog 0）)") 在(start_dialog)后加 （if (= done 0) (gear)) 试试看

meflying

楼上的，错了，应该是(setq done (start_dialog))


       

cyclone99

谢谢上楼的指导哈
不过好像下面的程序有点问题哦
(defun c:chi ( / index lst)
(if (< (setq index (load_dialog "dchi.dcl")) 0) (exit))
(setq what_next 2)
(while (>= what_next 2) (if (not (new_dialog "dchi" index)) (exit))
(initdlg lst)
(action_tile "gear" "(setq lst (gear))")
(action_tile "clear" "(initdlg \"\")")
(action_tile "reset" "(initdlg nil)")
(setq what_next (start_dialog))
(if (= what_next 2)
(draw lst))
);while
(unload_dialog index)
) 在执行完draw子程序后它怎么又返回到了条件判断while？？

meflying

因为你用了GEAR控件来画图，而不是使用确定来画，所以我认为你画完后并不想退出，而要继续。。。


如果你只画一次，把while部分去掉就可以了

cyclone99

哈哈，在大家的指导下，我的程序终于写完了哈
谢谢大家的关照了！
现在把整个程序贴出来，大家看看怎么样改进更好啊