先进来看看再说吧!

梁旭武

下面是数据文件， F是得到的文件描述。1，(setq a (read-line f))但是读得到的数据它是 一行一行的读的，有什么办法提出每一行的每个数据吗？如第一行能否得到： j1 赋给 a1 , 502726.8747 赋给 a2 , 2408881.5442 赋给 a3 2，我想将得到的数据如 ( 502726.8747 2408881.5442)作为坐标数据然后就用PLINE 连起来。问题是它每次只提得一个坐标而已
j1 502726.8747 2408881.5442
j2 504291.7536 2408859.7449
j3 504291.7536 2408509.2473
j4 504232.4715 2408514.1838
j5 504202.8304 2408064.9545
j6 504449.8393 2408074.8276
j7 504423.0960 2407103.5430
j8 504188.8831 2407103.5430
j9 504183.6784 2406807.0891
j10 503369.5064 2406578.1236
j11 503381.5699 2406436.1454
j12 503300.6200 2406339.3800
j13 503306.3200 2406215.6200
j14 503290.3883 2406124.3347
j15 503268.1307 2405961.3882
j16 502998.7203 2405759.5390
j17 503156.6642 2405302.3054
j18 503053.7673 2405057.5702
j19 502688.7762 2404801.5825
j20 502412.1991 2404803.8479
j21 502398.5969 2405157.2469
j22 501906.7305 2405170.7134
j23 501909.0353 2405044.0389
j24 501638.7658 2405069.3069
j25 501608.3374 2405310.4950
j26 501420.3079 2405311.5979
j27 501350.3693 2404993.6655
j28 501275.5660 2404985.2860
j29 501259.9982 2405107.0556
j30 500610.8497 2405126.1869
j31 500614.8119 2404797.3320
j32 500418.6513 2404794.2147
j33 500406.1651 2406483.8417
j34 500882.5262 2406914.6048
j35 501588.0957 2406903.5770
j36 501965.6300 2407060.5224
j37 501980.0720 2408394.2697
j38 502469.4482 2408389.2619
j39 502474.1472 2408684.6612
j40 502725.3676 2408684.6184

spring

可以的 下面这个函数是取得文件的内容保存在 makelayer_list 然后你自己再循环一下表吧 (defun GET_FILE (fi / fil pe fel)
(setq makelayer_list nil)
(if (findfile fi)
(progn
(setq fil (findfile fi))
(setq pe (open fil "r"))
(while (setq fel (read-line pe))
(setq makelayer_list (cons fel makelayer_list))
)
(close pe)
(setq makelayer_list (cdr (reverse makelayer_list)))
;根据文本的内容而定
)
)
)

meflying

函数rd,返回你需要的数据的一个列表,之后你只要进行表操作就能满足你的要求 (defun rd(f / a str pt lst)
(while (setq str (read-line f))
(setq a (substr str 1 2))
(setq str (read (strcat "(" str ")")))
(if str
(progn
(setq pt (cdr str))
(setq lst (append lst (list (list a pt))))
)
)
)
lst
) 使用举例: (defun c:test( / f)
(setq f (open "d:\\abc.txt" "r"))
(print (rd f))
(close f)
(princ)
)