[求助] 请高手帮忙看个程序,关于隐藏对话框

adereast

(1)yc.lsp (defun C:yc (/ index do_what hold )
(if (> (setq index (load_dialog "yc"))0)
(progn
(setq do_what 4)
(while (> do_what 1)
(if (new_dialog "yincang" index)
(progn

(action_tile "selobj" "(done_dialog 3)")
(setq do_what (start_dialog))
(cond
(
(= do_what 3) (setq hold (ssget))
)
)
)
(progn
(prompt "unable to display dialog box")
(setq do_what 0)
)
)
) (unload_dialog index)
)
(prompt "unable to load dialog box")
) ) (2)yc.dcl yincang: dialog
{
label="隐藏";
:button
{
label="select objects";
key="selobj";
}
:button
{
label="exit";
key="exit";
} ok_cancel;
} 程序应该没有错,可是运行后就没有响应,哪位高手给指点一下,不胜感激

meflying

晕...(while (> do_what 1))


还有你的对话框没有确定也没有取消按纽

adereast

谢谢斑竹了


呵呵,自己带不小心了


对了,还想问个问题,能不能不隐藏对话框就进行选择实体?

meflying

不可以

spring

可以啊，隐藏对话框后用ＳＳＧＥＴ函数啊

meflying

楼主问的是能不能“不隐藏”。。

spring

不好意思,没看清楚.