关于打开文本的求助

zzlyyax

本人是lisp 初学者，看到一个打开文本的小程序，但加载后却不能用，望高手指导。
(defun c:test()

(setq dat_file (getfiled "选择数据" "" "txt" 2))
(setq ff (open dat_file "r"))
  (setq data (read-line ff))
  (command "pline")
(while data
  
     (command data)
     (setq data (read-line ff))
)

(command " ")
(close ff)
(prin1)
)

cabinsummer

你打开的文本文件里面是什么？人家要求内容是数字，你打开的是《金瓶梅》吧？

zzlyyax

cabinsummer 发表于 2011-10-29 19:16
你打开的文本文件里面是什么？人家要求内容是数字，你打开的是《天龙八部》吧？

文件格式：
1,2
2,3
3,4

cabinsummer

(command " ")
这一句要改成
(command "")
也许不同版本的CAD要求不一样，我的就不允许有空格

zzlyyax

cabinsummer 发表于 2011-10-29 23:20
(command " ")
这一句要改成
(command "")

谢谢cabinsummer！

是空格造成的。