关于读取本文数据的问题~参数类型错误: stringp nil

4041186888

  本人写了一个简单的展点小程序自己使用的
为方便阅读，将简化如下
;展点号，点号,X,Y,Z
(defun C:zdh ()
  (setq oce (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  ;--------------------
  (setq fd1 (getfiled "请选择一个DAT文件" (getvar "dwgprefix") "dat" 16))
  (setq fd (open fd1 "r"))
  (setq dt1 (read-line fd))
  (while (read dt1);dt1改为(read dt1)解决了读取空行报错的问题!
    (setq n (vl-string-position (ascii ",") dt1)
          n1 (vl-string-position (ascii ",") dt1 (1+ n))
          n2 (vl-string-position (ascii ",") dt1 (1+ n1))
   dh (substr dt1 1 n)
          y (atof (substr dt1 (+ n 2) (- (- n1 n) 1)))
          x (atof (substr dt1 (+ n1 2) (- (- n2 n1) 1)))
    )
    (command ".point" (list x y 0) )
    (command ".TEXT" "ML" (list (+ 5 x) y 0) 2 0 dh)   
    (setq dt1 (read-line fd))
  );while
  ;--------------------
  (setvar "cmdecho" oce)
  (princ)
)
whlie 循环的dt1改为(read dt1)是为了防止空行报错
请问还有没有什么好的思路解决空行问题啊~
使用后可以正常展点，没什么问题
就是会报错，; 错误: 参数类型错误: stringp nil
我仔细检查了，应该没有什么逻辑错误啊 虽然能运行但是报错还是心理不爽
请各位高手看看 是什么原因呢 哪里需要修改下

Andyhon

  (setq dt1 (read-line fd))
  (while (read dt1);dt1改为(read dt1)解决了读取空行报错的问题!
==>
  ;; (setq dt1 (read-line fd))
  (while (setq dt1 (read-line fd))
    (if (read dt1)  ;dt1改为(read dt1)解决了读取空行报错的问题!
    ;; or (if (/= dt1 "") ....
       ....  

zhynt

2. 
   
3. 
   
4. (defun C:zdh ()
   
5.   (setq oce (getvar "cmdecho"))
   
6.   (setvar "cmdecho" 0)
   
7.   (setvar "osmode" 0)                                            ;--------------------
   
8.   (setq fd1 (getfiled "请选择一个DAT文件" (getvar "dwgprefix") "dat" 16))
   
9.   (setq fd (open fd1 "r"))
   
10.   (setq dt1 (read-line fd))
    
11.   (while dt1  
    
12.     (if        (/= dt1 nil)
    
13.       (progn (setq n  (vl-string-position (ascii ",") dt1)
    
14.                    n1 (vl-string-position (ascii ",") dt1 (1+ n))
    
15.                    n2 (vl-string-position (ascii ",") dt1 (1+ n1))
    
16.                    dh (substr dt1 1 n)
    
17.                    y  (atof (substr dt1 (+ n 2) (- (- n1 n) 1)))
    
18.                    x  (atof (substr dt1 (+ n1 2) (- (- n2 n1) 1)))                  
    
19.              )
    
20.              (command ".point" (list x y 0))
    
21.              (command ".TEXT" "ML" (list (+ 5 x) y 0) 2 0 dh)
    
22.       )
    
23.     )
    
24.     (setq dt1 (read-line fd))
    
25.   )        
    
26.   (setvar "cmdecho" oce)
    
27.   (princ)
    
28. )
    

<br /> <br /> (defun C:zdh ()<br />   (setq oce (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 0)                                            ;--------------------<br />   (setq fd1 (getfiled "请选择一个DAT文件" (getvar "dwgprefix") "dat" 16))<br />   (setq fd (open fd1 "r"))<br />   (setq dt1 (read-line fd))<br />   (while dt1  <br />     (if        (/= dt1 nil)<br />       (progn (setq n  (vl-string-position (ascii ",") dt1)<br />                    n1 (vl-string-position (ascii ",") dt1 (1+ n))<br />                    n2 (vl-string-position (ascii ",") dt1 (1+ n1))<br />                    dh (substr dt1 1 n)<br />                    y  (atof (substr dt1 (+ n 2) (- (- n1 n) 1)))<br />                    x  (atof (substr dt1 (+ n1 2) (- (- n2 n1) 1)))                   <br />              )<br />              (command ".point" (list x y 0))<br />              (command ".TEXT" "ML" (list (+ 5 x) y 0) 2 0 dh)<br />       )<br />     )<br />     (setq dt1 (read-line fd))<br />   )        <br />   (setvar "cmdecho" oce)<br />   (princ)<br /> )<br />

4041186888

我想问下为什么会出现这个情况呢
我的程序如果是空行那(read dt1)为nil
就已经推出whlie循环了 那个报错是那个语句发出的呢~

Andyhon

(while (read dt1)
------------------------
当 dt1 为 空行时 (read dt1) ===> nil
照说在空行之下还有资料待处理吧
(while nil ===> 跳出了

zhynt

或者这样也行：

2. 
   
3. (defun C:zdh ()
   
4.   (setq oce (getvar "cmdecho"))
   
5.   (setvar "cmdecho" 0)
   
6.   (setvar "osmode" 0)                                            ;--------------------
   
7.   (setq fd1 (getfiled "请选择一个DAT文件" (getvar "dwgprefix") "dat" 16))
   
8.   (setq fd (open fd1 "r"))  
   
9.   (while (setq dt1 (read-line fd))
   
10.     (setq n  (vl-string-position (ascii ",") dt1)
    
11.           n1 (vl-string-position (ascii ",") dt1 (1+ n))
    
12.           n2 (vl-string-position (ascii ",") dt1 (1+ n1))
    
13.           dh (substr dt1 1 n)
    
14.           y  (atof (substr dt1 (+ n 2) (- (- n1 n) 1)))
    
15.           x  (atof (substr dt1 (+ n1 2) (- (- n2 n1) 1)))
    
16.     )
    
17.     (command ".point" (list x y 0))
    
18.     (command ".TEXT" "ML" (list (+ 5 x) y 0) 2 0 dh)  
    
19.   )      
    
20.   (setvar "cmdecho" oce)
    
21.   (princ)
    
22. )
    

<br /> (defun C:zdh ()<br />   (setq oce (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 0)                                            ;--------------------<br />   (setq fd1 (getfiled "请选择一个DAT文件" (getvar "dwgprefix") "dat" 16))<br />   (setq fd (open fd1 "r"))  <br />   (while (setq dt1 (read-line fd))<br />     (setq n  (vl-string-position (ascii ",") dt1)<br />           n1 (vl-string-position (ascii ",") dt1 (1+ n))<br />           n2 (vl-string-position (ascii ",") dt1 (1+ n1))<br />           dh (substr dt1 1 n)<br />           y  (atof (substr dt1 (+ n 2) (- (- n1 n) 1)))<br />           x  (atof (substr dt1 (+ n1 2) (- (- n2 n1) 1)))<br />     )<br />     (command ".point" (list x y 0))<br />     (command ".TEXT" "ML" (list (+ 5 x) y 0) 2 0 dh)  <br />   )      <br />   (setvar "cmdecho" oce)<br />   (princ)<br /> )<br />