先进来看看再说吧!

梁旭武 · 发表于 2004-8-30 15:53:00

下面是数据文件， 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 · 发表于 2004-8-30 16:00:00

可以的
下面这个函数是取得文件的内容保存在 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 · 发表于 2004-8-30 16:10:00

函数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)
)

先进来看看再说吧!

发表回复

精选推荐