求助ssadd选择不了最后一个对象是什么原因

328302216

2. (defun c:txhy2()  ;;2012.12.18
   
3.   (setq v1 (getvar "cmdecho"))                  
   
4.   (setvar "cmdecho" 0)
   
5.   (setq hy (getfiled "图形还原" "" "txt" 2))
   
6.   (setq hy1 (open hy "r"))
   
7.   (setq hy4 '())
   
8.   (setq hy2 (read (read-line hy1)))  ;;读取文本上的数据
   
9.   (setq hy4 (ssadd))  ;;创建一个新选择集
   
10.    (while hy2
    
11.      (entmake hy2)
    
12.      (setq hy2 (read (read-line hy1)))
    
13.      (setq hy3 (entlast))  ;;取得图形中最后一个被完成的对象
    
14.      (setq hy4(ssadd hy3 hy4))  ;;取得还原出来的对象
    
15.    )
    
16.   (setq dian(entlast))
    
17.   (setq hy4(ssadd dian hy4))
    
18.   (close hy1)
    
19.   (setvar "cmdecho" v1)
    
20.   (prin1)
    
21.   )

(defun c:txhy2()  ;;2012.12.18<br />   (setq v1 (getvar "cmdecho"))                  <br />   (setvar "cmdecho" 0)<br />   (setq hy (getfiled "图形还原" "" "txt" 2))<br />   (setq hy1 (open hy "r"))<br />   (setq hy4 '())<br />   (setq hy2 (read (read-line hy1)))  ;;读取文本上的数据<br />   (setq hy4 (ssadd))  ;;创建一个新选择集<br />    (while hy2<br />      (entmake hy2)<br />      (setq hy2 (read (read-line hy1)))<br />      (setq hy3 (entlast))  ;;取得图形中最后一个被完成的对象<br />      (setq hy4(ssadd hy3 hy4))  ;;取得还原出来的对象<br />    )<br />   (setq dian(entlast))<br />   (setq hy4(ssadd dian hy4))<br />   (close hy1)<br />   (setvar "cmdecho" v1)<br />   (prin1)<br />   )

变量 hy4 的值怎么没有最后一个完成的对象？  附件是执行程序后选择的文件！ 程序还出现 ——  命令: TXHY2
; 错误: 参数类型错误: stringp nil
帮忙看看什么原因

328302216

15.16.这两句不要的

328302216

328302216 发表于 2012-12-18 13:00
15.16.这两句不要的

06.也不要   就知道怎么hy4的值就是少了最后一个对象