关于读取dat数据报错的问题~

4041186888 · 发表于 2013-3-7 16:02

本帖最后由 4041186888 于 2013-3-7 16:03 编辑

一个简单的读取数据程序

(setq fd1 (getfiled "请选择一个DAT文件" (getvar "dwgprefix") "dat" 16))
(setq fd (open fd1 "r"))
(while (read dt1)
... ...
(setq dt1 (read-line fd))
）

↑这样就会报错~如果改成

(setq fd1 (getfiled "请选择一个DAT文件" (getvar "dwgprefix") "dat" 16))
(setq fd (open fd1 "r"))
(setq dt1 (read-line fd))
(while dt1
(if (/= dt1 nil)
... ...
(setq dt1 (read-line fd))
）

或者这样就不会报错到底是什么原因呢(read dt1)判断while实在想不出有什么问题啊

(setq fd1 (getfiled "请选择一个DAT文件" (getvar "dwgprefix") "dat" 16))
(setq fd (open fd1 "r"))
(while (setq dt1 (read-line fd))
... ...
(setq dt1 (read-line fd))
）

4041186888 · 发表于 2013-3-7 16:05

沉了吧。。。。自己犯二了知道原因了~~不好意思

xiabin68 · 发表于 2013-3-17 02:27

对了三，你第一个没有定义DT1的哇，肯定报错三，，你下面的都是先定义了DT1的
其实就用( WHILE  (SETQ  DT1 (READ-LINE FD))
   -       你的对读取的这段的处理
                     )
  不用在后面再加一句 (SETQ  DT1 (READ-LINE FD))
如果你加了这一句，那它又读了一行你的内容了这样你的内容可能会变少哦？

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

[函数] 关于读取dat数据报错的问题~

相关帖子