[求助]：请帮忙看下这个程序

frankxie

我运行下边这个程序时提出这样的错误：; 错误: 参数类型错误: consp nil


(setq n1 0)
(setq f_handle (open "filename.txt" "w"))
(write-line "jfdiajfdskl" f_handle)
(while (< n1 (length lista))
;(setq data (nth n1 lista))
(write-line (strcat (rtos (car (nth n1 lista))) "," (rtos (cadr (nth n1 lista)))) f_handle)
(write-line (strcat (rtos (car (nth n1 listin))) "," (rtos (cadr (nth n1 listin)))) f_handle)
(setq n1 (+ n1 1))
)
(close f_handle)

而这样时则是正确的
(setq n1 0)
(setq f_handle (open "filename.txt" "w"))
(write-line "jfdiajfdskl" f_handle)
(while (< n1 (length lista))
(write-line (strcat (rtos (car (nth n1 lista))) "," (rtos (cadr (nth n1 lista)))) f_handle)
;(write-line (strcat (rtos (car (nth n1 listin))) "," (rtos (cadr (nth n1 listin)))) f_handle)
(setq n1 (+ n1 1))
)
(close f_handle)
是不是不能连着使用write-line这个命令阿

王咣生

当然不是了,
根据"错误: 参数类型错误: consp nil"猜测,你的某个变量为nil时作为参数传递给其它函数了.

frankxie

谢谢
根据你说的，我找到错误了
还想请教一个问题，就是write-line命令之后能不能不换行？
在同一行输出另一个write-line即：下边这两个write-line在同一行显示？
谢谢
(write-line (strcat (rtos (car (nth n1 lista))) "," (rtos (cadr (nth n1 lista)))) f_handle)
(write-line (strcat (rtos (car (nth n1 listin))) "," (rtos (cadr (nth n1 listin)))) f_handle)

xyp1964

(write-line
  (strcat (rtos (car (nth n1 lista)))
          ","
          (rtos (cadr (nth n1 lista)))
          (rtos (car (nth n1 listin)))
          ","
          (rtos (cadr (nth n1 listin)))
  )
  f_handle
)

frankxie

这么简单啊！我怎么没有想到啊
赫赫成功了，谢谢