求助：lsp输入一个数据的命令 已解决

写了一个输入数据的命令，可是不知为什么得不到赋值？请见下面的语句：
(setq xn1 (getreal "\n请输入数据 <>: "))
(if (/= n1 "")
(setq n1 xn1)
)

当输入一个数，假如是：1.5
可是在后面的语句里：
(command "line"
(polar p0 (+ ang (* n1 pi)) (* n1 p_d1))
语句不认可n1为1.5
而直接写成(setq n1 1.5)时
(polar p0 (+ ang (* n1 pi)) (* n1 p_d1))
此时的n1又认可为是1.5
不知是为什么？望高手指教
谢谢


已解决

[ 本帖最后由 lin_461045462 于 2010-11-24 00:10 编辑 ]