下拉菜单key值问题

jay86chan

popup_list如何直接获得key值？

部分程序如下：

(defun sub_khg(vvs)
       (set_tile "khg" (nth (atoi vvs) hg_list)))

。。。。。。。。。。。

。。。。。。。。。。。

      (setq hg_list '("0.5" "0.6" "0.7" "0.8" "0.9" "1"))

      (set_tile "khg" "0.8")

      (action_tile "khg" "(sub_khg $value)")

      (action_tile "accept" "(get_input_data)(done_dialog 1)")

     (start_dialog)
)

(defun get_input_data()
       (setq khg (atof (get_tile "khg")))
       (princ "\t测试khg=")
       (princ khg)
       )

结果出来是测试kgh=5.0，只是popup菜单value值，请各位指教~~~~