[求助]：在LISP下，如何直接获取对话框中下拉选单里的字符串

mhy007

我想直接在对话框的下拉选单popup_list里选择单位名称，然后让LISP直接读取里面的字符串，不用再通过编辑框edit_box了。
如果通过编辑框获取：
   (action_tile "dwmc""(sub_dwmc $value)")
      ……　……
   (defun sub_dwmc(vvs)
                 (set_tile "dw"(nth(atoi vvs)dwmc_list))
      )
      (defun ok_dw()
                  (setq dw (get_tile "dw"))
      )
       popup_list的key="dwmc", edit_box的key="dw".
      则用"-mtext"命令在屏幕上写出的字符串是正常的。但是如果
不用编辑框，用同样的方法则写出来的都是一个阿拉伯数字，资料说明$value的DCL 对象的当前值在list_box和popup_list 下，其值为
选单顺序，怎样才能把这个顺序的数字直接转换成想要的单位名称字符串呢？望各位高手指点迷津！谢谢！

mmmm

(action_tile "dwmc""(Setq dw (nth (read $value) dwmc_list))")

cy956

试试用dcl激活doslib的对话框选取。

mhy007

用mmmm朋友的办法，怎么试得到的还是一个数字；斑竹的那一句话，对我等超级菜鸟来说，
具体怎样操作，无从下手。既然我要的效果是不能随便改变单位名称，那把编辑框隐藏起来
不就解决了吗？于是把编辑框的宽度设为零，可是编辑框还存在，再试把宽度值改为一个负
值，ok！一切如我所愿。但愿这个绕弯的办法对遇到我同样的问题的初级编程的朋友有所帮助
也再请高手指点一个不用经过编辑框的真正的具体的办法。谢谢！

mmmm

把你的代码全部贴上来看看

lsjjm

参考这个改改你的程序：
(setq alist (list "0" "45" "90" "180" "270"))
(if (findfile "dial.dcl")(setq index (load_dialog (findfile "dial.dcl"))))  
    (if (not (new_dialog "dend" index))(exit))
    (start_list "angle")
    (mapcar 'add_list alist)
    (end_list)
   (action_tile "accept"
     "(setq estyle (nth (atoi (get_tile \"etype\")) elist)
              size (nth (atoi (get_tile \"size\")) slist)
               ang (angtof (nth (atoi (get_tile \"angle\")) alist))
                ran (get_tile \"ran\"))
      (done_dialog 1)")
    (action_tile "cancel" "(setq lp 1)(exit)")
    (start_dialog)
    (unload_dialog index)

ll_j

对话框每个需要交互的控件都应该有一个action_tile激活操作，否则是无效的，而对变量的赋值、取值过程都应该在这个激活操作中，你程序中(setq estyle (nth (atoi (get_tile \"etype\")) elist))应该是激活etype的过程，写成(action_tile "etype" "(setq estyle (nth (atoi (get_tile \"etype\")) elist))")，同样size、angle等控件也应该独立激活，最后激活Ok键：(action_tile "accept" "(done_dialog 1)")，然后在主程序中对done_dialog值进行判别，为1进行，0取消，其它则进行相应操作。

mmmm

实际上，在程序中使用变量和Edit_box来传递变量的结果应该是一样的。没有道理会不同。
代码为：
(action_tile "list" "(alert (nth (read $Value) listX))")

mhy007

问题顺利解决，感谢各位的帮助，我感觉这真是一个好网站！