[求助]Lisp的Edit_box问题。

qizhixuan

我是一个Visual lisp初学者，我想用edit_box输入3个数值，通过计算公式计算结果，显示在第4个edit_box里。

代码如下：

(defun JS (/ a1 b1 d1 r1) ;计算子程序
  (setq a1 (get_tile "A"))
  (setq b1 (get_tile "B"))
  (setq d1 (get_tile "D"))
  (setq r1 (+ b1 a1 d1) )
  (set_tile "R" r1)

)

但是运行完就直接跳出了，请问用什么方法解决？（我直接把a1赋给r1就能显示，计算后就不显示，直接跳出对话框了。）

Andyhon

(get_tile key)

Return Values
A string containing the tile’s value.

 (setq r1 (+ b1 a1 d1) )
==> string + string + string

so should convert to real first .....

yxp

qizhixuan发表于2008-5-11 13:30:00我是一个Visual lisp初学者，我想用edit_box输入3个数值，通过计算公式计算结果，显示在第4个edit_box里。代码如下：(defun JS (/ a1 b1 d1 r1)  ;计算子程序  (setq a1 (get_t

(defun JS (/ a1 b1 d1 r1)  ;计算子程序
  (setq a1 (atof (get_tile "A")))
  (setq b1 (atof (get_tile "B")))
  (setq d1 (atof (get_tile "D")))
  (setq r1  (+ b1 a1 d1) )
  (set_tile "R" (rtos r1))
)

leslie114

set_tile是設定dcl對話框的值，你都沒加載對話框怎麽能用set_tile