(read-line f)函数运行是出现参数类型错误

漫天飘雪

我有个程序在r14中运行完全正常，但在2000及以上版本中运行至(read-line f)发生参数类型错误的提示，有时又顺利通过．

     ....... 

     (setq n 0)

      (while(/=setq c(read-line f))nil)

      (princ c f1)

      (princ (getvar "name))f1)

      (princ "\n" f1)

      (setq n (+n 1)))

      (close f)

      (close f1)

        ........

程序总是在(read-line f)处发生错误．请各位大虾帮帮忙，指点一二．多谢！

ZZXXQQ

将

(while(/=setq c(read-line f))nil)

改为

(while (setq c (read-line f))

漫天飘雪

改过以后 (read-line f)函数返回值也是nil,出现一样的提示。

下面的程序中的(read-line fr)也出现了同样的提示。

(defun l3-4()
  (setq fr(open "a.txt" "r")
           fw(open "b.txt" "a")
            s(read-line fr)
   )
  (while s
    (princ s fw)
    (princ "\\n" fw)
    (setq s(read-line fr))
    )
  (close fr)
  (close fw)
  )
遇到（read-line f)程序就出错，f值为nil ,参数类型错误。

怎么办啊，真是愁死人了。

龙龙仔

  (setq FR (open (findfile "a.txt") "r");要有完整路径
          FW (open "c:\\b.txt" "a");要有完整路径
            S  (read-line FR)
  )

漫天飘雪

问题的确出在路径上,文件没被找到,经过修改,程序能正常运行了!

可是我还有个疑问,存放程序的路径我在AUTOCAD工具菜单中已经设置了支持路径,为什么还找不到.或把相关的所有文件统统拷贝到AUTOCAD的目录之下,也运行不起来.我的程序和AUTOCAD安装在C盘，现在我把一个(read f)要读的文件单独拷入到Ｃ盘根目录下，就可运行，把它搬回来就又不行了．换一台机器，这样修改又有了其他的问题，好怪啊．

....　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　(setq c1 (getstring "\n直径(回车退出)DN="))
(while (/= c1 "") (progn
......

(setq f1 (open "dn" "r"))；f1值为#<file "dn">
(read-line f1)       ;此处为nil
１．这个程序名叫dn.lsp, 而其中要打开的进行读操作的文件也叫dn，这样的命名有冲突吗？

２．如果(setq f1 (open dn "r"))中dn是个变量名，此处dn 的路径该怎么表

达．

ljpnb

仔细看看4楼的回复，要“要有完整路径”

xyp1964

用findfile得到支持路径下的文件名。