有没有办法得到dcl中list_box复选的选择集？

citykunan

list_box能通过 multiple_select = true;实现复选，可是我怎么都能得到复选的选择集供以后程序调用？

meflying

参考，5楼程序 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=15119

龙龙仔

2. (defun C:ABC (/ A B LHY S_D DCL_ID LHY LST)
3.    (setq LHY '("Steel" "Concrete" "Wood" "Plastic"))
4.    (if (< (setq DCL_ID (load_dialog "abc")) 0)
5.        exit
6.    )
7.    (if (not (new_dialog "abc" DCL_ID))
8.        exit
9.    )
10.    (start_list "lb1")
11.    (mapcar 'add_list LHY)
12.    (end_list)
13.    (action_tile "lb1" "(setq b $value)")
14.    (setq S_D (start_dialog))
15.    (unload_dialog DCL_ID)
16.    (if (and (= S_D 1) B)
17.        (foreach ENT (read (strcat "(" B ")"))
18.            (setq LST (append LST (list (nth ENT LHY))))
19.        )
20.    )
21.    LST
22. )  ;|
23. abc : dialog { //dialog name
24. label = "multiple_select" ; //give it a label
25.            : list_box { //define list box
26.                      key = "lb1"; //give it a name
27.                    //list = "Steel\nConcrete\nWood\nPlastic";//the list
28.                  height = 5; //give it a height
29.                width = 10; //give it a width
30.                    fixed_width = true; //fix the width
31.                fixed_height = true; //fix the height
32.                alignment = centered; //center it
33.                multiple_select = true; //allow multiple select
34.    } //end list box
35. spacer ; //add a space
36. ok_cancel ; //predefined OK/Cancel button
37. } //end dialog  |;

(defun C:ABC (/ A B LHY S_D DCL_ID LHY LST)    (setq LHY '("Steel" "Concrete" "Wood" "Plastic"))    (if (< (setq DCL_ID (load_dialog "abc")) 0)        exit    )    (if (not (new_dialog "abc" DCL_ID))        exit    )    (start_list "lb1")    (mapcar 'add_list LHY)    (end_list)    (action_tile "lb1" "(setq b $value)")    (setq S_D (start_dialog))    (unload_dialog DCL_ID)    (if (and (= S_D 1) B)        (foreach ENT (read (strcat "(" B ")"))            (setq LST (append LST (list (nth ENT LHY))))        )    )    LST )  ;| abc : dialog { //dialog name label = "multiple_select" ; //give it a label            : list_box { //define list box                      key = "lb1"; //give it a name                    //list = "Steel\nConcrete\nWood\nPlastic";//the list                  height = 5; //give it a height                width = 10; //give it a width                    fixed_width = true; //fix the width                fixed_height = true; //fix the height                alignment = centered; //center it                multiple_select = true; //allow multiple select    } //end list box spacer ; //add a space ok_cancel ; //predefined OK/Cancel button } //end dialog  |;

citykunan

谢谢。可以了