对话框问题

Jack_PC

非常感谢你的热心,但是我测试还是没有通过...

zhynt

试试这个，可以将编辑框里的内容添加到列表框中，如列表框中已经有了，则不添加。

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

<br /> (setq ttt "8")<br /> (setq sss "0")<br /> (setq key t)<br /> (defun t_01 ()<br />   (setq key nil)<br />   (setq t_1 (get_tile "t_01"))<br />   (if (= (setq id (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 />     (progn<br />       (setq id (- (length s_dia_lis)(length id)))<br />     (set_tile "s_01" (rtos id)))<br />   )<br />   (setq s_1 t_1<br />         s_a (rtos id)<br />         )<br /> )<br /> (defun s_01 ()<br />   (setq s_a (get_tile "s_01"))<br />   (setq s_1 (nth (atoi s_a) s_dia_lis))<br />   (set_tile "t_01" s_1)<br />   (setq t_1 s_1)<br /> )<br /> (defun c:test (/ )<br />   (if (null t_1)<br />     (setq t_1 ttt)(setq ttt t_1)<br />   )<br />   (if (null s_1)<br />     (setq s_1 sss)(setq sss s_1)<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" s_a)<br />   (start_list "s_01")<br />   (mapcar 'add_list s_dia_lis)<br />   (end_list)<br />   (action_tile "s_01" "(s_01)")<br />   (action_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 />

Jack_PC

zhynt 发表于 2011-7-20 03:10
试试这个，可以将编辑框里的内容添加到列表框中，如列表框中已经有了，则不添加。

目前我感到还是比较复杂，还没有完全看明白