[求助]：程序提示出错，请高手帮忙看看。谢谢！！

czg09180274

下面的是我写的一个读坐标文件绘多段线的程序，当中还有个小问题没有解决，请高手帮忙诊治诊治。

(defun c:dplwt (/ datafile ff data dt data1file ff1 data1 h)
(setvar "cmdecho" 0)
(setq oldosmode (getvar "osmode"))
(setvar "osmode" 0)

;;;以下文件由用户提取
(setq datafile (getfiled "多段线坐标文件" D:\\program files" "txt" 2))
(setq ff (open datafile "r"))
(setq data (read-line ff))
(command "pline")
(while data
  (command data)
(setq data (read-line ff))
)
(command "")
(close ff)
(setvar "osmode" oldosmode)

;;;以下为标注坐标到图形当中
(setq dt (getstring "\n 是否需要标注坐标到图？Y/N:"))
(setq dt (strcase dt))
(cond ((= dt "Y")
  (progn
     (setq data1file datafile)
     (setq ff1 (open data1file "r"))
     (setq data1 (read-line ff1))
     (setq h (getreal "\n 请输入标注的文字高度："))
     (while data1
            (subdata)
)
)
)
(t (princ "\n 您选择了不将坐标值标注到图"))
)
(close ff1)
(prin1)
)

(defun subdata ()
  (command "TEXT" data1 h "0" data1)
  (setq data1 (read-line ff1))
)


程序运行时，选择标注到图没有出现问题，但选择"N"或直接回车时会提示；“参数类型错误：STREAMP NIL”，图形还是能绘出来。
不知这是哪个参数在作怪，请高手指点一下。

先谢谢啦。

zxq0220

楼主照下面改后试一下。

2. 
   
3. ;;;以下为标注坐标到图形当中
   
4. (setq dt (getstring "\n 是否需要标注坐标到图？Y/N:"))
   
5. (setq dt (strcase dt))
   
6. (cond ((= dt "Y")
   
7. (setq data1file datafile)
   
8. (setq ff1 (open data1file "r"))
   
9. (setq data1 (read-line ff1))
   
10. (setq h (getreal "\n 请输入标注的文字高度："))
    
11. (while data1 (subdata))
    
12. (close ff1)
    
13. )
    
14. (t (princ "\n 您选择了不将坐标值标注到图"))
    
15. )
    
16. (prin1)
    
17. )
    

<br /> ;;;以下为标注坐标到图形当中<br /> (setq dt (getstring "\n 是否需要标注坐标到图？Y/N:"))<br /> (setq dt (strcase dt))<br /> (cond ((= dt "Y")<br /> (setq data1file datafile)<br /> (setq ff1 (open data1file "r"))<br /> (setq data1 (read-line ff1))<br /> (setq h (getreal "\n 请输入标注的文字高度："))<br /> (while data1 (subdata))<br /> (close ff1)<br /> )<br /> (t (princ "\n 您选择了不将坐标值标注到图"))<br /> )<br /> (prin1)<br /> )<br />

czg09180274

多谢楼上朋友的指点，
我试试看