明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
123
返回列表 发新帖
楼主: 李义东

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

  [复制链接]
发表于 2004-6-26 15:24:00 | 显示全部楼层
我觉得你真的没有动脑筋,我已经把你的问题说得很明白了,也指出了你现在的问题所在,并告诉你该怎样去做(不单针对这个程序的问题,是针对你对对话框的理解),你不仅在上次回答对我的话不屑一顾,而且还是没有解决这个问题,,,这种只求别人把东西做好了给你的做法是极其消极的学习方法。。。 不过我还是把你的改好了,希望你能针对我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)
)
 楼主| 发表于 2004-6-26 17:05:00 | 显示全部楼层
感谢meflying版主! 其实关于双按钮多按钮方面的对话框资料介绍很少,
版主为这样的事发那么大的火我认为一则不是很有必要
二则表现出版主情绪的控制能力不是非常的强.这样对自已和自已周
围的同事和上级在沟通上很容易出问题,,,或者会让您感觉到自已有
很好的本事却难以得到别人的认可,或者别人只认可你的技术.
发表于 2004-6-26 17:24:00 | 显示全部楼层
首先,我好象没有发火吧,,,我只是有什么说什么,不喜欢总客客气气的,好象生怕得罪什么人似的。你对我的回答视而不见,我说几句总可以吧,又没有让你磕头道歉,几乎都没有怪罪语言,我所有的话,都是针对学习来的,请你仔细看看我的话,都是针对你的学习方法,学习态度,,,在我的希望里,也没有说让你尊重别人之类的话,而是希望你能真正把问题弄明白,如果你觉得我这样的话是在对你发情绪的话,你大可不看。。。


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


求鱼和求渔哪个更好,我想大家都明白
 楼主| 发表于 2004-6-26 18:24:00 | 显示全部楼层
"我希望的是更多的人能学好,能自己解决问题,而不是总求别人解决。" "今天周六了祝版主有个好心情! 有时间到珠海来!坐坐!,没记错的话版主也在珠三角! D@dip.com.tw" target="_blank" >LD@dip.com.tw 我很少用LSP,只是在想办法解决用autoCAD,来做非标设备3D设计开发的一个系统。一台设备上100个零件每个零件一层因层太多不好操作。建层也烦。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-6 11:41 , Processed in 0.168642 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表