新手求助，下拉选单提取字符串问题
本帖最后由 骑着蜗牛去把妹 于 2012-3-23 12:16 编辑高手们帮忙看下这个LISP，提取字符串出错了，能不能指点下我jdtl:dialog{label="机电图例";
:boxed_row{:popup_list{label="第一列";key=jd1;edit_width=20;list="防溅水插座\n排风、烟机插座";}}
:boxed_row{:popup_list{label="第二列";key=jd2;edit_width=20;list="防溅水插座\n排风、烟机插座";}}
spacer_1;
:row{fixed_width=true; alignment=centered;
:button{label="插入";key="jd_ok";width=8;}
:spacer{width=2;}
cancel_button;}}
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
(defun c:jdtl()
(setq feng_id (load_dialog "feng"))
(new_dialog "jdtl" feng_id)
(action_tile "jd1" "(setq jd1 $value)")
(action_tile "jd2" "(setq jd2 $value)")
(action_tile "jd_ok" "(done_dialog 1)")
(setq dd (start_dialog))
(cond (= dd 1)(dtl1))
(prin1))
(defun jdtl1()
(setq pa (getpoint "\npa:"))
(setq pb (polar pa (* pi 1.5) 15))
(setq pc (polar pb (* pi 1.5) 8))
(command "insert" "*机电图例" pa "1" "" "0")
(command "insert" jd1 pb "1" "" "0")
(command "insert" jd2 pc "1" "" "0")
(prin1))
页:
[1]