怎样判断用户点击了哪一个单选开关

HQ_2003

[此贴子已经被作者于2003-7-6 7:42:07编辑过]

njshf

通过返回码

HQ_2003

我通过“(action_tile "accept" "(setq bbb (get_tile \"xx\"))")
来判断用户点击了第二个单选开关，但是“bbb"为什么没有值啊？基本问题不要见笑

meflying

有几个问题，accept的动作应该还有结束对话框，
动作函数应该放在new_dialog之后start_dialog之前调用。
你这样写函数，即使返回了正确的值，你也看不出来，必须要将返回的值打印出来，或别的显示才可以知道其值。
这样改，再试试。

2. (defun c:test( / dcl_id bbb)
   
3. (setq dcl_id (load_dialog "HQ_2003.dcl"));加载 DCL 文件
   
4.   (if (not (new_dialog "hello" dcl_id));初始化对话框
   
5.     (exit);
   
6.   )
   
7.   (action_tile "accept" "(PRINC (setq bbb (get_tile "xx"))) (DONE_DIALOG)")
   
8.   (start_dialog);
   
9.   
   
10.   (unload_dialog dcl_id);卸载 DCL 文件
    
11.   (princ)
    
12. )

(defun c:test( / dcl_id bbb)<br /> (setq dcl_id (load_dialog "HQ_2003.dcl"));加载 DCL 文件 <br />   (if (not (new_dialog "hello" dcl_id));初始化对话框 <br />     (exit);<br />   )<br />   (action_tile "accept" "(PRINC (setq bbb (get_tile "xx"))) (DONE_DIALOG)")<br />   (start_dialog);<br />   <br />   (unload_dialog dcl_id);卸载 DCL 文件<br />   (princ)<br /> )

龙龙仔

(defun C:TT ()
  (setq DCL_ID (load_dialog "2.dcl"))        ;加載 DCL 文件
  (if (not (new_dialog "hello" DCL_ID))        ;初始化對話框
    (exit)                                ;
  )
  (action_tile
    "xx"
    "(setq bbb $value)"
  )
  (action_tile "accept" "(done_dialog 1)")
  (start_dialog)
  (unload_dialog DCL_ID)                ;卸載 DCL 文件
  (print BBB)
)