请教各位同仁

koalabear · 发表于 2004-5-14 19:47:00

我刚学习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 · 发表于 2004-5-14 19:58:00

popup_list 返回的是索引值,你根据索引值到列表中取得实际值
在pp的动作函数里按照选择给dd填入相应的内容

koalabear · 发表于 2004-5-14 20:22:00

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

meflying · 发表于 2004-5-14 20:45:00

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

koalabear · 发表于 2004-5-14 21:09:00

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

meflying · 发表于 2004-5-14 21:31:00

copy


(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 · 发表于 2004-5-15 21:22:00

谢谢斑竹。非常感谢！

请教各位同仁

发表回复

精选推荐