对话框问题

Jack_PC

请高手帮我修正一下，如何才能将下拉列表的值付给编辑框，下面是我写的测试代码


(defun c:test()
  (setvar "cmdecho" 0)
  (setq dcl_id (load_dialog "test"))
  (new_dialog "test" dcl_id)
  (if (null t_01)(setq t_1 "8"))
  (set_tile "t_01" t_1)
  (action_tile "t_01" "(setq t_01 $value)")
  (if (null s_01)(setq s01 "2"))
  (set_tile "s_01" s01)
  (setq s_dia_lis (list "2" "4" "5" "6" "8" "10"))
  (start_list "s_01")
  (mapcar 'add_list s_dia_lis)
  (end_list)
  (action_tile "s_01" "(setq s_a (atoi $value))
  (setq s_bb (nth s_a s_dia_lis))
  (set_tile \"s_01\" s_bb)")
  (action_tile "s_01" "(setq s_01 $value)")
  (action_tile "cancel" "(done_dialog 0)")
  (setq what(start_dialog))
  (cond ((= 1 what) (t01))
((= 2 what) (t02))
  )
(setvar "cmdecho" 1)
(princ)
);end defun

//这是对话框文件
test: dialog{label="对话框测试";
:row{
:edit_box{
   label="编辑框:";
   width=3;
   key="t_01";}
:popup_list{
     label="下拉列表:";
     key="s_01";
     width=3;}
}
spacer;
:button{   
    label = "Cancel";
    is_cancel = true;
    key = "cancel";
    width = 8;}
}

zhynt

是你的动作函数有错：应如下：
(action_tile
    "s_01"
    "(setq s_a (atoi $value))
  (setq s_bb (nth s_a s_dia_lis))
  (set_tile \"t_01\" s_bb)"
  )  

Jack_PC

zhynt 发表于 2011-7-18 23:50
是你的动作函数有错：应如下：
(action_tile
    "s_01"

请帮我测试看看,我改了还是不能将下拉列表的值付给编辑框,不知是什么原因

2. (defun c:test()
   
3.   (setvar "cmdecho" 0)
   
4.   (setq dcl_id (load_dialog "test"))
   
5.   (new_dialog "test" dcl_id)
   
6. 
   
7.   (if (null t_01)(setq t_1 "8"))
   
8.   (set_tile "t_01" t_1)
   
9.   (action_tile "t_01" "(setq t_01 $value)")
   
10. 
    
11.   (if (null s_01)(setq s01 "2"))
    
12.   (set_tile "s_01" s01)
    
13.   (setq s_dia_lis (list "2" "4" "5" "6" "8" "10"))
    
14.   (start_list "s_01")
    
15.   (mapcar 'add_list s_dia_lis)
    
16.   (end_list)
    
17.   (action_tile "s_01" "(setq s_a (atoi $value))
    
18.   (setq s_bb (nth s_a s_dia_lis))
    
19.   (set_tile "t_01" s_bb)");;;这里已改
    
20.   (action_tile "s_01" "(setq s_01 $value)")
    
21. 
    
22.   (action_tile "cancel" "(done_dialog 0)")
    
23.   (setq what(start_dialog))
    
24.   (cond ((= 1 what) (t01))
    
25.         ((= 2 what) (t02))
    
26.   )
    
27. (setvar "cmdecho" 1)
    
28. (princ)
    
29. );end defun
    

(defun c:test()<br />   (setvar "cmdecho" 0)<br />   (setq dcl_id (load_dialog "test"))<br />   (new_dialog "test" dcl_id)<br /> <br />   (if (null t_01)(setq t_1 "8"))<br />   (set_tile "t_01" t_1)<br />   (action_tile "t_01" "(setq t_01 $value)")<br /> <br />   (if (null s_01)(setq s01 "2"))<br />   (set_tile "s_01" s01)<br />   (setq s_dia_lis (list "2" "4" "5" "6" "8" "10"))<br />   (start_list "s_01")<br />   (mapcar 'add_list s_dia_lis)<br />   (end_list)<br />   (action_tile "s_01" "(setq s_a (atoi $value))<br />   (setq s_bb (nth s_a s_dia_lis))<br />   (set_tile "t_01" s_bb)");;;这里已改<br />   (action_tile "s_01" "(setq s_01 $value)")<br /> <br />   (action_tile "cancel" "(done_dialog 0)")<br />   (setq what(start_dialog))<br />   (cond ((= 1 what) (t01))<br />         ((= 2 what) (t02))<br />   )<br /> (setvar "cmdecho" 1)<br /> (princ)<br /> );end defun<br />

zhynt

(set_tile \"t_01\" s_bb)")
为了醒目，我加了颜色代码，程序中请将其去掉：
(set_tile \“t_01\" s_bb)")

Jack_PC

zhynt 发表于 2011-7-19 00:00
(set_tile \"t_01\" s_bb)")
为了醒目，我加了颜色代码，程序中请将其去掉：
(set_tile \“t_01\" s_bb)" ...

我将此句去掉了,测试还是不能将下拉列表的值付给编辑框中,刚接触LISP还不会,你能够帮我将程序完整一下
(defun c:test()
  (setvar "cmdecho" 0)
  (setq dcl_id (load_dialog "test"))
  (new_dialog "test" dcl_id)
  (if (null t_01)(setq t_1 "8"))
  (set_tile "t_01" t_1)
  (action_tile "t_01" "(setq t_01 $value)")
  (if (null s_01)(setq s01 "2"))
  (set_tile "s_01" s01)
  (setq s_dia_lis (list "2" "4" "5" "6" "8" "10"))
  (start_list "s_01")
  (mapcar 'add_list s_dia_lis)
  (end_list)
  (action_tile "s_01" "(setq s_a (atoi $value))
  (setq s_bb (nth s_a s_dia_lis))
  ;;;(set_tile \"t_01\" s_bb)"
)

  (action_tile "s_01" "(setq s_01 $value)")
  (action_tile "cancel" "(done_dialog 0)")
  (setq what(start_dialog))
  (cond ((= 1 what) (t01))
((= 2 what) (t02))
  )
(setvar "cmdecho" 1)
(princ)
);end defun

zhynt

没有叫你将他去掉啊。代码如下。
(defun c:test()
  (setvar "cmdecho" 0)
  (setq dcl_id (load_dialog "test"))
  (new_dialog "test" dcl_id)
  (if (null t_01)(setq t_1 "8"))
  (set_tile "t_01" t_1)
  (action_tile "t_01" "(setq t_01 $value)")
  (if (null s_01)(setq s01 "2"))
  (set_tile "s_01" s01)
  (setq s_dia_lis (list "2" "4" "5" "6" "8" "10"))
  (start_list "s_01")
  (mapcar 'add_list s_dia_lis)
  (end_list)
  (action_tile "s_01" "(setq s_a (atoi $value))
  (setq s_bb (nth s_a s_dia_lis))
  (set_tile \"t_01\" s_bb)"
)

  (action_tile "s_01" "(setq s_01 $value)")
  (action_tile "cancel" "(done_dialog 0)")
  (setq what(start_dialog))
  (cond ((= 1 what) (t01))
((= 2 what) (t02))
  )
(setvar "cmdecho" 1)
(princ)
);end defun

Jack_PC

zhynt 发表于 2011-7-19 00:15
没有叫你将他去掉啊。代码如下。
(defun c:test()
  (setvar "cmdecho" 0)

测试了一下，当我点下拉列表时那编辑框还是没有反映，

我需要的效果是点下拉列表时，那个编辑框的值跟着变成下拉列表选择的值

zhynt

不会吧，我测试的好的。

2. 
   
3. (defun c:test ()
   
4.   (setvar "cmdecho" 0)
   
5.   (setq dcl_id (load_dialog "test"))
   
6.   (new_dialog "test" dcl_id)
   
7.   (if (null t_01)
   
8.     (setq t_1 "8")
   
9.   )
   
10.   (set_tile "t_01" t_1)
    
11.   (action_tile "t_01" "(setq t_01 $value)(set_tile "s_01" t_01)")
    
12.   (if (null s_01)
    
13.     (setq s01 "2")
    
14.   )
    
15.   (set_tile "s_01" s01)
    
16.   (setq s_dia_lis (list "2" "4" "5" "6" "8" "10"))
    
17.   (start_list "s_01")
    
18.   (mapcar 'add_list s_dia_lis)
    
19.   (end_list)
    
20.   (action_tile
    
21.     "s_01"
    
22.     "(setq s_a (atoi $value))
    
23.   (setq s_bb (nth s_a s_dia_lis))
    
24.   (set_tile "t_01" s_bb)"
    
25.   )  
    
26.   (action_tile "cancel" "(done_dialog 0)")
    
27.   (setq what (start_dialog))
    
28.   (cond        ((= 1 what) (t01))
    
29.         ((= 2 what) (t02))
    
30.   )
    
31.   (setvar "cmdecho" 1)
    
32.   (princ)
    
33. )                                        ;end defun
    
34. 
    

<br /> (defun c:test ()<br />   (setvar "cmdecho" 0)<br />   (setq dcl_id (load_dialog "test"))<br />   (new_dialog "test" dcl_id)<br />   (if (null t_01)<br />     (setq t_1 "8")<br />   )<br />   (set_tile "t_01" t_1)<br />   (action_tile "t_01" "(setq t_01 $value)(set_tile "s_01" t_01)")<br />   (if (null s_01)<br />     (setq s01 "2")<br />   )<br />   (set_tile "s_01" s01)<br />   (setq s_dia_lis (list "2" "4" "5" "6" "8" "10"))<br />   (start_list "s_01")<br />   (mapcar 'add_list s_dia_lis)<br />   (end_list)<br />   (action_tile<br />     "s_01"<br />     "(setq s_a (atoi $value))<br />   (setq s_bb (nth s_a s_dia_lis))<br />   (set_tile "t_01" s_bb)"<br />   )  <br />   (action_tile "cancel" "(done_dialog 0)")<br />   (setq what (start_dialog))<br />   (cond        ((= 1 what) (t01))<br />         ((= 2 what) (t02))<br />   )<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )                                        ;end defun<br /> <br />

Jack_PC

zhynt 发表于 2011-7-19 00:23
不会吧，我测试的好的。

现在是可以，但是下拉列表和编辑框的值不能记忆上一次输入，如果做到记忆上一次输入

zhynt

可能有点乱，你自己整理一下。

2. 
   
3. (setq ttt "8")
   
4. (setq sss "0")
   
5. (setq key t)
   
6. (defun t_01 ()
   
7.   (setq key nil)
   
8.   (if (= (member t_1 s_dia_lis) nil)
   
9.     (progn
   
10.       (setq s_dia_lis (cons t_1 s_dia_lis))
    
11.       (start_list "s_01" 1)
    
12.       (mapcar 'add_list s_dia_lis)
    
13.       (end_list)
    
14.       (set_tile "s_01" "0")
    
15.     )
    
16.   )
    
17. )
    
18. (defun c:test (/ )
    
19.   (if (null t_1)
    
20.     (setq t_1 ttt)(setq ttt t_1)
    
21.   )
    
22.   (if (null s_a)
    
23.     (setq s_a sss)(setq sss s_a)
    
24.   )
    
25.   (if key
    
26.     (setq s_dia_lis (list "2" "4" "5" "6" "8" "10"))
    
27.   )
    
28.   (setvar "cmdecho" 0)
    
29.   (setq dcl_id (load_dialog "test"))
    
30.   (new_dialog "test" dcl_id)  
    
31.   (set_tile "t_01" t_1)  
    
32.   (set_tile "s_01" (rtos s_a))
    
33.   (start_list "s_01")
    
34.   (mapcar 'add_list s_dia_lis)
    
35.   (end_list)
    
36.   (action_tile "s_01" "(setq s_a (atoi $value))(setq s_1 (nth s_a s_dia_lis))(set_tile "t_01" s_1)(setq t_1 s_1)")
    
37.   (action_tile "t_01" "(setq t_1 (get_tile "t_01"))(t_01)")  
    
38.   (action_tile "cancel" "(done_dialog 0)")
    
39.   (setq what (start_dialog))
    
40.   (cond        ((= 1 what) (t01))
    
41.         ((= 2 what) (t02))
    
42.   )
    
43.   (setvar "cmdecho" 1)
    
44.   (princ)
    
45. )
    

<br /> (setq ttt "8")<br /> (setq sss "0")<br /> (setq key t)<br /> (defun t_01 ()<br />   (setq key nil)<br />   (if (= (member t_1 s_dia_lis) nil)<br />     (progn<br />       (setq s_dia_lis (cons t_1 s_dia_lis))<br />       (start_list "s_01" 1)<br />       (mapcar 'add_list s_dia_lis)<br />       (end_list)<br />       (set_tile "s_01" "0")<br />     )<br />   )<br /> )<br /> (defun c:test (/ )<br />   (if (null t_1)<br />     (setq t_1 ttt)(setq ttt t_1)<br />   )<br />   (if (null s_a)<br />     (setq s_a sss)(setq sss s_a)<br />   )<br />   (if key<br />     (setq s_dia_lis (list "2" "4" "5" "6" "8" "10"))<br />   )<br />   (setvar "cmdecho" 0)<br />   (setq dcl_id (load_dialog "test"))<br />   (new_dialog "test" dcl_id)  <br />   (set_tile "t_01" t_1)  <br />   (set_tile "s_01" (rtos s_a)) <br />   (start_list "s_01")<br />   (mapcar 'add_list s_dia_lis)<br />   (end_list)<br />   (action_tile "s_01" "(setq s_a (atoi $value))(setq s_1 (nth s_a s_dia_lis))(set_tile "t_01" s_1)(setq t_1 s_1)")<br />   (action_tile "t_01" "(setq t_1 (get_tile "t_01"))(t_01)")  <br />   (action_tile "cancel" "(done_dialog 0)")<br />   (setq what (start_dialog))<br />   (cond        ((= 1 what) (t01))<br />         ((= 2 what) (t02))<br />   )<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )<br />