关于打开文本的求助
本人是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 于 2011-10-30 17:31 编辑
你打开的文本文件里面是什么？人家要求内容是数字，你打开的是《金瓶梅》吧？ cabinsummer 发表于 2011-10-29 19:16 static/image/common/back.gif
你打开的文本文件里面是什么？人家要求内容是数字，你打开的是《天龙八部》吧？
文件格式：
1,2
2,3
3,4 (command " ")
这一句要改成
(command "")
也许不同版本的CAD要求不一样，我的就不允许有空格 cabinsummer 发表于 2011-10-29 23:20 static/image/common/back.gif
(command " ")
这一句要改成
(command "")
谢谢cabinsummer！
是空格造成的。
页:
[1]