这段程序有没有错误，返回结果老不对，请各位高手帮忙看看，先行谢过啦！！！

zxc001975cvb

DCL文件：
//
//    SBFdcl.DCL
//
sbf:dialog{
            label="绘图参数输入";                     
            :popup_list{                                
                 label="水泵台数:";
                 key=“n”;                           
                 edit_width=8;
                 fixed_width=true;

            }
          spacer_1;
          ok_cancel;

          }


LISP代码：

(defun C:BF ()


  (setvar "cmdecho" 0)       
  (setvar "blipmode" 0)


  (if (null dcl_pt)
    (setq dcl_pt '(-1 -1))
  )


  (setq dcl_id (load_dialog "bf.dcl"))


  (if (not (new_dialog "sbf" dcl_id))
    (exit)
  )

  ?
  (setq n_list (list "3" "4" "5" "6" "7"))

  (show_list "n" n_list)

  (action_tile "n" "(get_n $value)")


  (action_tile "accept" "(setq dcl_pt  (done_dialog 1))")
  (action_tile "cancel" "(setq dcl_pt  (done_dialog 0))")


  (setq dd (start_dialog))               
  (cond
    ((= dd 1)
       (done_dialog)
    )                                       
    ((= dd 0)
      ( progn (unload_dialog 0) (exit))
    )                                       
  )


  (prin1)
)


(defun show_list(key newlist)
   (start_list key)
   (mapcar 'add_list newlist)
   (end_list)
)

(defun get_n(vn)
   (set_tile "n" (nth (atoi vn) n_list))
   (setq n  (atoi (get_tile "n")))
)


(prompt "=========BF.lsp==========")
(prin1)

Lisphk

建议还是改用OPENDCL吧，功能太强了

zxc001975cvb

Lisphk，请指点一下喽

marting

zxc001975cvb 发表于 2018-11-27 22:18
Lisphk，请指点一下喽

你那里执行有什么错误提示，贴上来，方便大家帮你分析。

你的代码里面有个 ？
是不是这个地方错了？ 把它删除掉

)

  ?
  (setq n_list (list "3" "4" "5" "6" "7"))

zxc001975cvb

去掉那个问号也不行。
出现的问题：
见图
1、DCL文件中“key=n”时。列表框中有数据，改成“key=“n“ ”时，列表框中反而没有数据了，也不能选择。
2、在key=n的情况下，出现以下结果：
     选3，显示6，n的值为3；
     选4，显示7，n的值为4；
     选5，显示5，n的值为2；

     选6，显示6，n的值为3；

     选7，显示7，n的值为4；

不知道为什么，很郁闷，恳请指点一下。

zxc001975cvb

第一个问题已经解决了，是因为符号“”写成中文状态，第二个仍有问题，

fengyun7000

sbf:dialog{
            label="绘图参数输入";                     
            :popup_list{                                
                 label="水泵台数";
                 key="n";                           
                 edit_width=8;
                 fixed_width=true;
            }
          spacer_1;
          ok_cancel;

}
(defun c:CBF ()
  (setvar "cmdecho" 0)        
  (setvar "blipmode" 0)
  (if (null dcl_pt)(setq dcl_pt '(-1 -1)))
  (setq dcl_id (load_dialog "C:/Users/hanjianwen/Desktop/sbf.dcl"))
  ;(if (not (new_dialog "sbf" dcl_id))(exit))
  (new_dialog "sbf" dcl_id)
  (setq n_list (list "3" "4" "5" "6" "7"))
  (show_list "n" n_list)
  (action_tile "n" "(get_n $value)")
  (action_tile "accept" "(setq dcl_pt  (done_dialog 1))")
  (action_tile "cancel" "(setq dcl_pt  (done_dialog 0))")
  (setq dd (start_dialog))               
  (cond
    ((= dd 1)
       (done_dialog)
    )                                       
    ((= dd 0)
      ( progn (unload_dialog 0) (exit))
    )                                       
  )
  (prin1)
)

(defun show_list (key newlist)
   (start_list key)
   (mapcar 'add_list newlist)
   (end_list)
)

(defun get_n (vn)
   (set_tile "n" vn)
;(nth (atoi vn) n_list))
   (setq n (atoi (nth (atoi vn) n_list)))
)

zxc001975cvb

fengyun7000，非常感谢！！