[LISP]求助

ding9736

我写一个更改图层的对话框，但我想要图中所示的效果，也就是当点选列表中的层名时，选中的层名就显示下面的小框中，请问各位大侠该如何做呢

meflying

2. test:dialog{
3.   :list_box{
4.    label = "列表";
5.    key = "list1";
6.   }
7.   :edit_box{
8.    label = "选中";
9.    key = "edit1";
10.   }
11.   ok_cancel;
12. }
13. (defun c:test( / dcl_id lst)
14.    (setq dcl_id (load_dialog "tmp.dcl"))
15.    (new_dialog "test" dcl_id)
16.    (setq lst '("A" "B" "C" "D" "E" "F"))
17.    (start_list "list1")
18.    (mapcar 'add_list lst)
19.    (end_list)
20.    (action_tile "list1" "(set_tile "edit1" (nth (atoi (get_tile "list1")) lst))")
21.    (start_dialog)
22.    (unload_dialog dcl_id)
23.    (princ)
24. )

test:dialog{   :list_box{    label = "列表";    key = "list1";   }   :edit_box{    label = "选中";    key = "edit1";   }   ok_cancel; } (defun c:test( / dcl_id lst)    (setq dcl_id (load_dialog "tmp.dcl"))    (new_dialog "test" dcl_id)    (setq lst '("A" "B" "C" "D" "E" "F"))    (start_list "list1")    (mapcar 'add_list lst)    (end_list)    (action_tile "list1" "(set_tile "edit1" (nth (atoi (get_tile "list1")) lst))")    (start_dialog)    (unload_dialog dcl_id)    (princ) )

ding9736

谢谢meflying

ding9736

这个程式是别人没写完的，我接着写完了，但我对DCL语言不是很通，我想要这样效果：当选择列表中的图层时，图层名就显示在Pick后面的小框中；或点选"pick"按扭则选取一个实体并提取它的图层显示在Pick后面的小框中，请高手帮我完善

ding9736

怎么没人回啊