请教：如何在对话框中进行多个实数的输入与读出？

tianliangle

                         我在edit_box中输入一组实数，如1，2，3，4，5。（，分隔）用((action_tile "KEY" "(setq        A $value)")可以获得这一组字符串。可是我想分别得到每一个实数，在用的时候赋值其它函数，请问我该怎么做？

BDYCAD

幫助文件中有

Converts a string into a real number

(atof string)

Arguments

string

A string to be converted into a real number.

Return Values

A real number.

Examples

Command: (atof "97.1")

97.1

Command: (atof "3")

3.0

Command: (atof "3.9")

3.9

alin

用下面的函数把字串转成实数表 ;;;_$ (str2lst "23, 45, 1.023")
;;;(23 45 1.023) (defun str2lst(str / lst pos)
(setq lst '())
(while (setq pos (vl-string-position 44 str))
(setq lst (append lst (list (read (substr str 1 pos)))))
(setq str (substr str (+ pos 2)))
)
(append lst (list (read str)))
)

tianliangle

好高的效率啊！谢谢 BDYCAD和 alin 。


我是一个初学者，能得到大家的帮助,真的很高兴。        alin的程序我基本上可以明白，BDYCAD的我还需要研究一下，感谢大家能够帮助我提高自己。


                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 非常感谢。