DCL中屏蔽确认键的问题

meflying

可以显示图片的。。。

zhanghong

还是不好使呀，只输入了一个就可以用了，怎么才能必须输入全部选项才可以呢？


++++++|

meflying

都告诉你方法了，还有例子，具体怎么满足你的要求，应该是你自己琢磨了，，，

zhanghong

一天也没想出来？

BDYCAD

是不是用幻灯片的做法做啊? 可是显示效果太差了. 看.

onej

当然是的啊，可如何在幻灯片里图片的质量提上来啊？

CADghost

看样子不像哦，


myflying版主，讲讲吧

meflying

楼上几位晕，还是解决楼主问题吧。。。 注意，输入最后一位要确认后才有动作的（如回车或转移焦点） (defun C:BCB (/ BOBLST)
(defun BoB (key val)
(if (/= val "")
(if (not (assoc key boblst)) (setq boblst (append boblst (list (list key val)))))
(if (assoc key boblst)
(setq boblst (vl-remove (assoc key boblst) boblst))
)
)
(if (< (length boblst) 4)
(mode_tile "accept" 1)
(mode_tile "accept" 0)
)
)
(setq dcl_id (load_dialog "tmp"))
(if (not (new_dialog "BDYCADFaC08K6" dcl_id))(exit))
(mode_tile "accept" 1)
(action_tile "name" "(BoB $key $value)")
(action_tile "nam" "(BoB $key $value)")
(action_tile "O" "(BoB $key $value)")
(action_tile "X" "(BoB $key $value)")
(action_tile "accept" "(done_dialog 1)")
(action_tile "cancel" "(done_dialog 2)")
(action_tile "help" "(help \"\")")
(SETQ DD (start_dialog))
(princ)
)