请帮忙解决用autolisp读取txt文件问题

xuwei821

请专家帮忙：

我在试图用autolisp读取txt文件中的数据，程序如下：

(defun c:zdm()

(setq f  (open "d:\ct-aaa.txt" "r"))
(setq hantxt (read-line))
(print yhantxt)
  (close f)
)

d:\ct-aaa.txt的内容如下：

25223562， 47547477，
545747，  5

可是好像什么都读不出来，死循环，要敲回车键才能退出。

各位高手能否指点迷津？

tcsl9621

(defun c:zdm(/ str list1)

(setq f  (open "d:\\ct-aaa.txt" "r"）;注意此处有错

 str(read-line a)

 list1 nil

)

(while str

  (setq list1 (append list1 (list str))

str(read-line f)

)

)

  (close f)

list1
)

(princ (c:zdm))

试试这个。

wzz1968

(defun c:zdm()

  (setq f  (open "d:/ct-aaa.txt" "r"))
  (setq hantxt (read-line))
  (print hantxt)
  (close f)
)

tywsc

您看：下面的程序产生的txt文件，第一列代表节点号，第一列代表坐标X值，第一列代表坐标Y值.

T1.txt

T1         493364.659    331110.429

T2         493381.852    331052.463

T3     493524.444    331099.020

 

我想画pline线并标节点号，

怎么读完是下面这样啊：

 ("T1  \t493364.659 \t331110.429" "T2  \t493381.852 \t331052.463" "T3 \t493524.444 \t331099.020")

对于这样的结果是不能用的吧。

我能变成下面的文件就好用了

（T1     493364.659    331110.429）

（T2     493381.852    331052.463）

（T3   493524.444     331099.020）

 

请问各大侠：我怎么编程啊；我用read函数后，\t493364.659会变为493364.0，小数点后4舍5入了，好郁闷啊？

jdhszh

加上这一句

....

(setq hantxt (read (strcat "(" (read-line) ")")))

......

ZZXXQQ

2. (DEFUN C:TEST ()
3. (SETVAR "CMDECHO" 0)
4. (IF (SETQ F (OPEN "D:/T-AAA.TXT" "r")) (PROGN
5.   (SETQ LST (LIST (READ (STRCAT "(" (SUBSTR (READ-LINE F) 2) ")"))))
6.   (WHILE (SETQ STR (READ-LINE F))
7.    (SETQ LST (APPEND LST (LIST (READ (STRCAT "(" (SUBSTR STR 2) ")"))))
8.   )
9.   (CLOSE F)
10.   (SETQ I 0)
11.   (SETQ PT (CDAR LST))
12.   (COMMAND "PLINE" PT)
13.   (REPEAT (LENGTH LST)
14.    (SETQ PT (CDR (NTH (SETQ I (1+ I)) LST))
15.    (COMMAND PT)
16.   )
17.   (COMMAND "")
18.   (SETQ I -1)
19.   (REPEAT (LENGTH LST)
20.    (SETQ PS (NTH (SETQ I (1+ I)) LST)
21.          PN (STRCAT "T" (CAR PS))
22.          PT (CDR PS))
23.    (COMMAND "TEXT" PT "" "" PN)
24.   )
25. ))
26. (SETVAR "CMDECHO" 1)
27. (PRINC)
28. )

复制代码

tywsc

楼上ZZXXQQ版主,您好

我怎么运行程序后,总提示有错"错误: 输入的列表有缺陷"

另外,"read"函数不能随便用,比如(read "(493364.659 331110.429  )"),运行后为(493365.0 331110.0).

read函数,受lisp限制,数据被四舍五入了,所以是不能用的.

用下面的程序,能把txt数据,按行加括号

(setq f (getfiled "选择一个文件" "" "" 8))
          (setq f(findfile f))
          (SetQ  fn (Open f "r") )
          (SetQ  fnn (Open "asasw" "w") )
(While (SetQ a1 (Read-Line fn))
   (setq fila (strcat "(" a1 ")"  ) )
    (SetQ  fnnn (write-line fila  fnn )) ;
)
  (Close fn)
(Close fnn)

功能:

T1.txt

T1         493364.659    331110.429

T2         493381.852    331052.463

T3     493524.444    331099.020

变成下面的文件就好用了

（T1     493364.659    331110.429）

（T2     493381.852    331052.463）

（T3   493524.444     331099.020）

（T1     493364.659    331110.429）

（T2     493381.852    331052.463）

（T3   493524.444     331099.020）

tywsc

用autolisp读取txt文件问题,实际上有好多方法,上面只是其中一种,最终还要根据txt文件的结构来确定.

最主要函数是字符串的转换.对任何txt文件,合理利用下面函数的搭配,就能解决lisp读txt问题

(vl-string-trim " " aa)
(ascii "(")
(ascii ")")
(ascii ".")
(chr 9)
(vl-string-search " " a1)

(write-char 67 f)

(setq a1w(vl-string->list  fila))
(SetQ  fnn (Open "asas" "w") )

(foreach a  a1w
  (progn  (write-char a  fnn)
      )
)

tywsc

还有一个例子,(转贴)

(这是一个有关DMC配准前读txt中(见附件)的特定字符串后坐标的小程序,例子中我只提取西南和东北角点的X,Y坐标)

(defun c:DMCpz ( / txt fi start li str_tfh str_blc
  str_WSx str_WSy str_ENx str_ENy WS_x WS_y EN_x EN_y
        )
 
   (setq path_txt (getfiled "Select .txt file" "" "txt" 2))
   (setq fi (open path_txt "r"))
 
   (setq ;str_tfh ""
 str_WSx ""
 str_WSy ""
 str_ENx ""
 str_ENy ""
 ;str_blc "1:5000"
 )
 
  (setq start T)
 
  (while (and start (setq li (read-line fi)))
    (cond
      ((wcmatch li "*图号*") (setq str_tfh li))
      ((wcmatch li "*DOM裁切范围西南角点X坐标*") (setq str_WSx li))
      ((wcmatch li "*DOM裁切范围西南角点Y坐标*") (setq str_WSy li))
      ((wcmatch li "*DOM裁切范围东北角点X坐标*") (setq str_ENx li))
      ((wcmatch li "*DOM裁切范围东北角点Y坐标*") (setq str_ENy li)(setq start nil))
      (t nil)
    )
  )
    (setq WS_x
      (atof (substr str_WSx (+ 1 (strlen "：") (vl-string-search "：" str_WSx)))
             ))
    (setq WS_y
      (atof (substr str_WSy (+ 1 (strlen "：") (vl-string-search "：" str_WSy)))
             ))
    (setq EN_x
      (atof (substr str_ENx (+ 1 (strlen "：") (vl-string-search "：" str_ENx)))
             ))
    (setq EN_y
      (atof (substr str_ENy (+ 1 (strlen "：") (vl-string-search "：" str_ENy)))
             ))
  
     (command ".line" (list WS_x WS_y) (list EN_x EN_y) "")
      
    (close fi)
  (princ)
)

ZZXXQQ

太忙，程序未调试。下面是调试好的程序：

2. (DEFUN C:TEST ()
3. (SETVAR "CMDECHO" 0)
4. (IF (SETQ F (OPEN "D:/T-AAA.TXT" "r")) (PROGN
5.   (SETQ LST (LIST (READ (STRCAT "(" (SUBSTR (READ-LINE F) 2) ")"))))
6.   (WHILE (SETQ STR (READ-LINE F))
7.    (SETQ LST (APPEND LST (LIST (READ (STRCAT "(" (SUBSTR STR 2) ")")))))
8.   )
9.   (CLOSE F)
10.   (SETQ I 0)
11.   (SETQ PT (CDAR LST))
12.   (COMMAND "PLINE" PT)
13.   (REPEAT (LENGTH LST)
14.    (SETQ PT (CDR (NTH (SETQ I (1+ I)) LST)))
15.    (COMMAND PT)
16.   )
17.   (COMMAND "")
18.   (SETQ I -1)
19.   (REPEAT (LENGTH LST)
20.    (SETQ PS (NTH (SETQ I (1+ I)) LST)
21.   PN (STRCAT "T" (ITOA (CAR PS)))
22.   PT (CDR PS))
23.    (COMMAND "TEXT" PT 10 "" PN)
24.   )
25. ))
26. (SETVAR "CMDECHO" 1)
27. (PRINC)
28. )

复制代码