请教对话框的问题

benq3

做了个程序，需要中间点选button，运行子程序进cad选择对象，子程序运行完成后再次进入该对话框，直到按确定或者取消退出对话框。我现在在点button后不知道如何写 (action_tile "kobb1" "(done_dialog 2)")，这句该怎么写？done_dialog对话框的话，该如何在打开？不done又如何获得控制权？

/db_自贡黄明儒_

执行(action_tile "kobb1" "(done_dialog 2)")时，2传给了 (setq return# (start_dialog))这句的return#

benq3

/db_自贡黄明儒_ 发表于 2015-6-5 15:53
执行(action_tile "kobb1" "(done_dialog 2)")时，2传给了 (setq return# (start_dialog))这句的return#

再需要返回时该怎么写？用new_dialog？好像不太对

zxq0220

2. (while (> re 1)
   
3. (new_dialog "dialogname" dcl_id)
   
4. ;...set_tile
   
5. (action_tile "kobb1" "(done_dialog 2)")
   
6. (action_tile "accept" "(done_dislog 1)")
   
7. (action_tile "cancel" "(done_dialog 0)")
   
8. (setq re (start_dialog))
   
9. (if (= re 2) (progn
   
10. (setq s1 (entsel  "\n选择对象: "))
    
11. ))
    
12. )
    
13. (unload_dialog dcl_id)
    
14. (if (= re 1) (progn
    
15. ;...
    
16. ))

(while (> re 1)<br /> (new_dialog "dialogname" dcl_id)<br /> ;...set_tile<br /> (action_tile "kobb1" "(done_dialog 2)")<br /> (action_tile "accept" "(done_dislog 1)")<br /> (action_tile "cancel" "(done_dialog 0)")<br /> (setq re (start_dialog))<br /> (if (= re 2) (progn<br /> (setq s1 (entsel  "\n选择对象: "))<br /> ))<br /> )<br /> (unload_dialog dcl_id)<br /> (if (= re 1) (progn<br /> ;...<br /> ))

benq3

zxq0220 发表于 2015-6-5 19:58

我实际做的和这个差不多，只是用的是cond，后面执行的是一个子函数，我希望执行完该子函数后，返回对话框，直到按下“确定”，可是cond或者if执行完成后并不能返回对话框函数。我的没有while，我加上试试，谢谢。

benq3

zxq0220 发表于 2015-6-5 19:58

按这个程序确实能返回对话框，不过我的对话框中set_tile会赋值给edit_box，如果先改默认edit_box值，再while返回时会重新赋默认值，之前改过的就白改了。这个怎么破？

zxq0220

benq3 发表于 2015-6-5 22:32
按这个程序确实能返回对话框，不过我的对话框中set_tile会赋值给edit_box，如果先改默认edit_box值，再wh ...

用变量存放相应最新的值。

benq3

zxq0220 发表于 2015-6-6 09:56
用变量存放相应最新的值。

我在关闭对话框之前提取值，存起来，再次循环时再赋值，成功解决。谢谢
我想再问一下mode_tile一般怎么用？能不能给举个简单的用法例子？我的目的是当一个toggle被选中时，下面的几个edit_box都变灰，不能输入可是看了几本书都没有怎么用，不太明白特问一下，是不是这样 (action_tile "toggle_key" "(mode_tile \"edit_box_key1\" \"edit_box_key2\" \"edit_box_key3\" 1)"
还没有试，不知道对不对。

zxq0220

(action_tile "toggle_key" "(mode_tile \"key1\" 1)(mode_tile \"key2" 1)(mode_tile \"key3\" 1)")

benq3

zxq0220 发表于 2015-6-6 12:57
(action_tile "toggle_key" "(mode_tile \"key1\" 1)(mode_tile \"key2" 1)(mode_tile \"key3\" 1)")

我用了上面的语句，默认所有对象打开，勾选toggle后，变灰，可是在取消勾选，却不能变正常,这个设置还有别的技巧吗？
我又增加了(action_tile "toggle_key" "(mode_tile \"key1\" 0)(mode_tile \"key2" 0)(mode_tile \"key3\" 0)")，默认打开，勾选后没反应。

zxq0220

(action_tile "toggle_key" "(tomode)")
...
(defun tomode ()
(if (= (get_tile "toggle_key") "1") (progn
(mode_tile "key1" 1)
(mode_tile "key2" 1)
(mode_tile "key3" 1)
) (progn
(mode_tile "key1" 0)
(mode_tile "key2" 0)
(mode_tile "key3" 0)
))
)

benq3

太感谢zxq0220。原来还得这么复杂的语句呀。我再试试

/db_自贡黄明儒_

benq3 发表于 2015-6-6 20:50
太感谢zxq0220。原来还得这么复杂的语句呀。我再试试

简化一下，看起来就没那么长了
(defun dcl-disablectrls        (keylist value)
  (foreach key keylist (mode_tile key value))
)
(if (= (get_tile "toggle_key") "1")
  (dcl-disablectrls (list "key1" "key2" "key3") 1)
  (dcl-disablectrls (list "key1" "key2" "key3") 0)
)