还是文字读写的问题

CADghost

这个是新问题，我不太会DCL，是不知道哪里错了

meflying

是你给的程序不全。。。没有人能看出你哪儿错了——程序是你写的吗？

CADghost

忘了是在哪里看到的类例的程序,,自己改了一下,你看是lisp程序不全还是DCL


单独的LISP程序可以运行,我就是把设计询问的句子给去掉了,


我感觉就是哪里不对,

CADghost

好像是这样写的 (defun lst_1 ()
(setq ffn (getfiled "请选择保存此清单位置：" "c:/ACC" "bat" 1))
(setq llst1 ' ("Z-1.1" "x-1.2" "y-1.3"))
(setq ff (open ffn "w"))
(repeat (length llst1)
(setq txt (car llst1))
(setq llst1 (cdr llst1))
(princ txt ff)
(princ "\n" ff)
)
(close ff)
(princ)
)

meflying

程序能执行？


至少用我现在的知识来解读它，以及用我的系统来运行它，结果都是不能运行的。。。。。。。你稍微看一下，也应该能明白，它是否能够运行


前面已经有人指出来了，某个自定义函数不存在，或许在你那里这个函数是有的，可这里有，希望你直接把论坛上的这个程序拷回去执行看看，不要用你原来的。。。。。。。。。

CADghost

CADghost发表于2004-6-28 19:36:00好像是这样写的 (defun lst_1 () (setq ffn (getfiled \"请选择保存此清单位置：\" \"c:/ACC\" \"bat\" 1)) (setq llst1 ' (\"Z-1.1\" \"x-1.2\" \"y-1.3\"))<...

程序好像是这样的，那个问题我回去再看看，现在我对DCL还是模模糊糊

meflying

好象又是问前面一个问题了，，，希望你一个问题是一个问题，即使换一个问题，也用个转折词，搞得我都糊涂了。。。


这个问题你只要仔细看看帮助文件中getfiled函数的介绍就可以了，记住，一定要仔细。。。另，发了帖子不用发短信催促我！！！

CADghost

不好意思！我急于得到答案嘛！