请教各位同仁

koalabear

	我刚学习lisp编程，遇到一个问题，不知道怎么解决。请知道的麻烦解决一下。 我的问题是：我编写一个dcl对话框，内容如下: bzfl593:dialog{ label="标准法兰绘制(HG20595-97)"; :boxed_row{ label="参数选择"; :popup_list{label="设计压力";key="pp";edit_width=8;} :popup_list{label="公称直径";key="dd";edit_width=8;} } spacer_1; ok_cancel; } 在主程序里有3个列表List1（"1" "2"） list2("0.1" "0.2" "0.3") list3("0.1" "0.2") 我想问.在lisp里面如何获取Popup_list的数值并赋值。同时还想当pp显示1的时候直径框显示List2 当pp为2的时候，直径显示list3.

因为在网吧上网，没办法发程序，希望大家能看懂！

meflying

popup_list 返回的是索引值,你根据索引值到列表中取得实际值


在pp的动作函数里按照选择给dd填入相应的内容

koalabear

不好意思斑竹。我明白是明白了。我也差不多这么做的，但是就是连接不上，因为办公室机子不能上论坛，我就没办法发程序，假若有这方面的例题还请发个上来，我看一下。

meflying

这个程序不复杂,你现写一个都可以啊

koalabear

呵呵，斑竹太高估我了。我编程是初学阶段，学习dcl纯粹是还不会走就跑了。呵呵。我编程大部分就是在凑程序，东摘西凑。因此记不住很多。

meflying

2. (defun act_pp(val)
3.    (start_list "dd")
4.    (cond
5.        ((= val "0") (mapcar 'add_list list2))
6.        ((= val "1") (mapcar 'add_list list3))
7.    )
8.    (end_list)
9. )
10. (defun c:test( / dcl_id list1 list2 list3)
11.    (setq list1 '("1" "2"))
12.    (setq list2 '("0.1" "0.2" "0.3"))
13.    (setq list3 '("0.1" "0.2"))
14.    (setq dcl_id (load_dialog "tmp"))
15.    (new_dialog "bzfl593" dcl_id)
16.    (start_list "pp") (mapcar 'add_list list1) (end_list)
17.    (start_list "dd") (mapcar 'add_list list2) (end_list)
18.    (action_tile "pp" "(act_pp $value)")
19.    (start_dialog)
20.    (unload_dialog dcl_id)
21.    (princ)
22. )

(defun act_pp(val)    (start_list "dd")    (cond        ((= val "0") (mapcar 'add_list list2))        ((= val "1") (mapcar 'add_list list3))    )    (end_list) ) (defun c:test( / dcl_id list1 list2 list3)    (setq list1 '("1" "2"))    (setq list2 '("0.1" "0.2" "0.3"))    (setq list3 '("0.1" "0.2"))    (setq dcl_id (load_dialog "tmp"))    (new_dialog "bzfl593" dcl_id)    (start_list "pp") (mapcar 'add_list list1) (end_list)    (start_list "dd") (mapcar 'add_list list2) (end_list)    (action_tile "pp" "(act_pp $value)")    (start_dialog)    (unload_dialog dcl_id)    (princ) )

koalabear

谢谢斑竹。非常感谢！