[求助]：为何获取不了新数据？

bdgxhmldzj

[PHP]
;建立下拉列表
(setq popthn_list '("0.5" "0.8" "1.0" "1.2" "1.5" "2.0"
                      "2.5" "3.0" "3.5" "4.0" "4.5" "5.0"))
;为对话框中填充数据
(start_list "thn")
(mapcar 'add_list popthn_list)
(end_list)
;设定对话框中该下拉列表默认显示为表中第6项“2.0”
(set_tile "thn" "5")
;获取下拉列表中的当前数列值
(setq thn_num (atoi (get_tile "thn")))
;根据当前数列值获取popthn_list列表中对应的元素值并转换为实数提供给绘图程序使用
(setq thn (atof (nth thn_num popthn_list)))
[/PHP]
以上这段代码是用于实现获取下拉列表中数据的一段程序，该下拉列表的默认选项为表中的第6项“2.0”，可当我在对话框中的下拉列表中选择了其它选项时（如选择第8项“3.0”），却发现程序并没有改变选项值，获取的仍然是第6项“2.0”，不知问题出在哪里？请教各位大侠指正！
急！急！急！

caddog

可以这样写控件"thn"的动作表达式：
(ACTION_TILE "thn" "(setq $thn (atof (nth (atoi $value) popthn_list)))")
你的所赋值的变量名为thn，与控件名相同不知会不会出错，我没这样写过，也没有去试。所以在前面加了个“$”。另，$value为LISP控件列表的当前点击项索引值,类型为字符串,形如"0",所以要用atoi函数来处理

bdgxhmldzj

感谢楼上的指正，但我按照你的方式改过后，再运行程序，提示我错误: 参数类型错误: numberp: nil，难道是$value返回了nil，而没有返回顺序代码吗？