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

tianliangle · 发表于 2004-2-14 00:09:00

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

BDYCAD · 发表于 2004-2-14 09:32:00

幫助文件中有
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 · 发表于 2004-2-14 14:15:00

用下面的函数把字串转成实数表
;;;_$ (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 · 发表于 2004-2-14 22:57:00

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

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

发表回复

精选推荐