[讨论]用(setq pt (read-line ff))读取得到字符串怎么还原为点列表?

redearth · 发表于 2004-5-13 11:48:00

用(write-line pt ff) pt为点坐标 ff为文件

之后用(setq pt (read-line ff))读取

得到字符串

怎么还原为点列表?

redearth · 发表于 2004-5-13 11:51:00

;;;点转化程序
(defun ch_pt(pt / n px py p pp)
(setq n 1 px "" py "")
(setq p (substr pt n 1))
(while (/= p " ")
(setq px (strcat px p))
(setq n (+ n 1))
(setq p (substr pt n 1))
)
(if (not (minusp (atof px))) (setq px (strcat "+" px))) (setq n (+ n 1))
(setq p (substr pt n 1))
(while (/= p " ")
(setq py (strcat py p))
(setq n (+ n 1))
(setq p (substr pt n 1))
)
(if (not (minusp (atof py))) (setq py (strcat "+" py))) (setq pp -------------------------------------
)
;;;点坐标转化为形式+px+py型

meflying · 发表于 2004-5-13 11:56:00

(read pt)

redearth · 发表于 2004-5-13 12:06:00

谢谢

我到是不知道read函数

听不错

redearth · 发表于 2004-5-13 12:40:00

那反过来呢?

怎么样由list点列表,用write-line输出

我假设不用princ,prin1,就想用write-line

怎么转化

meflying · 发表于 2004-5-13 13:12:00

vl-prin1-to-string

应该学会使用帮助文件,这些函数帮助文件中都有,,,
如你以上这些函数都是涉及字符串的,就应该在帮助文件中到函数摘要中的字符串处理函数中去看看

wb0815 · 发表于 2004-5-13 15:20:00

我只知道要是往出写文件用princ

white line 只能一行一行的写永远写第一行

所以不行

meflying · 发表于 2004-5-13 17:57:00

white line是什么?

在打开文件未关闭的情况下,write-line写的不是第一行,是接着前面一直写下去的...

wb0815 · 发表于 2004-5-13 18:15:00

哎那这个现象怪了

我记得以前写的一个程序总是往第一行写

我写错了经常写颜色习惯了^_^

wjm3 · 发表于 2004-5-14 00:15:00

没什么奇怪,因为你每次都是只写一行,就把文件关闭了.

账号		自动登录	找回密码
密码			注册

[讨论]用(setq pt (read-line ff))读取得到字符串 怎么还原为点列表?

[讨论]用(setq pt (read-line ff))读取得到字符串怎么还原为点列表?