如何隐藏一个对话框

chenliguo · 发表于 2004-11-1 12:10:00

请教：我在启动一个对话框后，需要到屏幕上捕捉一个点，我用了人上button按钮，点上以后如何将对话框隐藏起来，使得光标能够到屏幕上取点，点完后重现对话框？我一时记不起有什么命令了，手头又没有资料在旁边，请指教！

meflying · 发表于 2004-11-1 12:23:00

帮助文件中搜索"隐藏对话框",有现成的例子

chenliguo · 发表于 2004-11-1 12:52:00

可惜我的是E文的，好难看哎

chenliguo · 发表于 2004-11-1 15:30:00

我看懂这段E文，但采用这种方法为什么在点完后不返回对话框呢？

meflying · 发表于 2004-11-1 15:57:00

不返回?你直接运行帮助中的例子看看...肯定是你什么地方改得不对了

chenliguo · 发表于 2004-11-1 16:00:00

我把HELP中的一段给复制过来用了，插在unload_dialog的前面，点完给一个nil就不弹出对话框了，我有点糊涂了，请飞版主解惑

meflying · 发表于 2004-11-1 16:05:00

你要嘛就只运行帮助文件中的那段代码,先把这个过程弄明白了,要嘛把你的程序贴上来,否则怎么给你解惑?

chenliguo · 发表于 2004-11-1 16:30:00

(defun c:ccd()
(setq ccd (load_dialog "dimccd.dcl"))
(if (null (new_dialog "dimccd" ccd))
(exit)
)
(setq sccd "3") ;设初值
(accd) ;运行一个子程序，取相应值
(mode_tile "accept" 1) ;使确定钮不可用
(action_tile "mccd" "(setq sccd (get_tile \"mccd\")) (accd)");按一个图象钮，取相应值
(action_tile "jccd" "(dccd \"jccd\") (setq ss 1)") ;按加工钮，将值付给ss为下面绘制图形作准备
(action_tile "wccd" "(dccd \"wccd\") (setq ss 2)") ;按加工钮，将值付给ss为下面绘制图形作准备
(action_tile "rccd" "(dccd \"rccd\") (setq ss 3)") ;按加工钮，将值付给ss为下面绘制图形作准备
(action_tile "dpoint" "(mode_tile \"accept\" 0) (done_dialog 4) ")
(setq what_next (start_dialog))
(cond
((= what_next 4)
(setq lg true)
(while (not lg)
(setvar "osmode" 0)
(setq pp1 (getpoint "\n在要标注粗糙度的轮廓外侧指定一点:"))
(setq lg (setq pp2 (osnap pp1 "nearest"))) ;捕捉距所指点最近的点
)
(setq ag0 (angle pp2 pp1))
)
((= what_next 0)
(prompt "\n用户中止了对话框")
)
)
(action_tile "accept" "(setq cd 1) (done_dialog)")
(unload_dialog ccd))

chenliguo · 发表于 2004-11-1 16:46:00

ACTION_tile调用有错，因为在start_dialog后面不能再接受动作了，改了一下 (defun c:ccd()
(setq ccd (load_dialog "dimccd.dcl"))
(if (null (new_dialog "dimccd" ccd))
(exit)
)
(setq sccd "3") ;设初值
(accd) ;运行一个子程序，取相应值
(mode_tile "accept" 1) ;使确定钮不可用
(action_tile "mccd" "(setq sccd (get_tile \"mccd\")) (accd)");按一个图象钮，取相应值
(action_tile "jccd" "(dccd \"jccd\") (setq ss 1)") ;按加工钮，将值付给ss为下面绘制图形作准备
(action_tile "wccd" "(dccd \"wccd\") (setq ss 2)") ;按加工钮，将值付给ss为下面绘制图形作准备
(action_tile "rccd" "(dccd \"rccd\") (setq ss 3)") ;按加工钮，将值付给ss为下面绘制图形作备
(action_tile "accept" "(setq cd 1) (done_dialog)") ;点确定后关闭对话框
(action_tile "dpoint" "(mode_tile \"accept\" 0) (done_dialog 4) ");按下点取后，确定钮可用，并隐藏对话框取点
(setq what_next (start_dialog))
(cond
((= what_next 4)
(setq lg true)
(while (not lg)
(setvar "osmode" 0)
(setq pp1 (getpoint "\n在要标注粗糙度的轮廓外侧指定一点:"))
(setq lg (setq pp2 (osnap pp1 "nearest"))) ;捕捉距所指点最近的点
)
(setq ag0 (angle pp2 pp1))
)
((= what_next 0)
(prompt "\n用户中止了对话框")
)
)
(unload_dialog ccd) (princ))

meflying · 发表于 2004-11-1 16:48:00

(while (>= what_next 2) ...;这句怎么没有??

再好好看看帮助文件,就那么几行代码,先把那几句弄明白了在写到你的程序里面去

账号		自动登录	找回密码
密码			注册