对话框问题,不知问题出在何处?

meflying

我觉得你真的没有动脑筋，我已经把你的问题说得很明白了，也指出了你现在的问题所在，并告诉你该怎样去做（不单针对这个程序的问题，是针对你对对话框的理解），你不仅在上次回答对我的话不屑一顾，而且还是没有解决这个问题，，，这种只求别人把东西做好了给你的做法是极其消极的学习方法。。。 不过我还是把你的改好了，希望你能针对我17楼说的来看这个程序，，，真正把这个问题弄明白了 另，你的程序还有对话框还有很多书写方面的小问题，希望以后要仔细，如果你原来的是对的，放上来的时候漏掉或改掉某些东西，导致错误，就不应该了， 我只改了主程序部分，其余都不变。。。 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;以下为快速创建图层LISP;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:cjtc ()
(setq dcl_file "cjtc" ; 指定DCL档案的名称
dcl_name "cjtc"
) ; 指定对话框的名称
(setq dcl_flag (load_dialog dcl_file)) ; 载入DCL档案
(if (< dcl_flag 0)
(exit)
) ; 判断DCL档案是否已载入?
(if (not (new_dialog dcl_name dcl_flag))
(exit)
) ; 显现对话框画面
(action_tile
"addlay_j"
"(setq dnum (get_tile \"dnum_c\")) (setq numy (get_tile \"num_c\"))(DONE_DIALOG 1)")
(action_tile "pglay" "(DONE_DIALOG 10)") ;新加部分
(setq index (start_dialog))
(cond
((= index 1) ; 令对话框开始接受使用者输入资料
(cjtc-1 dnum numy))
((= index 10) ; 新加部分
(pglqy_1))
)
(unload_dialog dcl_flag)
(princ)
)

李义东

感谢meflying版主! 其实关于双按钮多按钮方面的对话框资料介绍很少,
版主为这样的事发那么大的火我认为一则不是很有必要
二则表现出版主情绪的控制能力不是非常的强.这样对自已和自已周
围的同事和上级在沟通上很容易出问题,,,或者会让您感觉到自已有
很好的本事却难以得到别人的认可,或者别人只认可你的技术.

meflying

首先，我好象没有发火吧，，，我只是有什么说什么，不喜欢总客客气气的，好象生怕得罪什么人似的。你对我的回答视而不见，我说几句总可以吧，又没有让你磕头道歉，几乎都没有怪罪语言，我所有的话，都是针对学习来的，请你仔细看看我的话，都是针对你的学习方法，学习态度，，，在我的希望里，也没有说让你尊重别人之类的话，而是希望你能真正把问题弄明白，如果你觉得我这样的话是在对你发情绪的话，你大可不看。。。


其次，我不需要别人认可我的什么技术，我只是自己喜欢，工作中几乎都不用，如果你也喜欢某样东西，你就应该明白，这个喜欢不是为别人喜欢的，不需要别人认可的。我希望的是更多的人能学好，能自己解决问题，而不是总求别人解决。


求鱼和求渔哪个更好，我想大家都明白

李义东

"我希望的是更多的人能学好，能自己解决问题，而不是总求别人解决。" "今天周六了祝版主有个好心情! 有时间到珠海来!坐坐!,没记错的话版主也在珠三角！ D@dip.com.tw" target="_blank" >LD@dip.com.tw 我很少用LSP，只是在想办法解决用autoCAD,来做非标设备3D设计开发的一个系统。一台设备上100个零件每个零件一层因层太多不好操作。建层也烦。