[LISP程序]：这个程序如何完善？

hqd9639

当定义的函数名与文件名不同时？

cy956

你想如何改进？

比如read文件内容，找到c：后面的函数名（区别盘符字串），
但不能调用内部函数，
不能调用非c:开头的函数，
不能区分一个lisp文件里的多个函数，
所以也是问题多多。

btw，要调试用vl也很方便，如果
只是想方便load一下，可以：

2. 
   
3. (defun c:lp()
   
4.   (princ "\nName of lisp file to load: <")(princ *lf1)
   
5.   (setq lf1(getstring ">: "))
   
6.   (if(= lf1 "")(setq lf1 *lf1)(setq *lf1 lf1))
   
7.   (load lf1)(princ)
   
8. )
   
9. 
   

<br /> (defun c:lp()<br />   (princ "\nName of lisp file to load: <")(princ *lf1)<br />   (setq lf1(getstring ">: "))<br />   (if(= lf1 "")(setq lf1 *lf1)(setq *lf1 lf1))<br />   (load lf1)(princ)<br /> )<br /> <br />

重复加载时默认上次加载的文件名。

hqd9639

斑竹考虑真全面，一下就指出了问题所在。我原想改进的地方是： c：后面的函数名与选取的LISP文件名不同时（比如选取文件hqd.lsp ,其C：后定义的函数为c:hk时）程序也适用，而目前的程序就不适用。

cy956

我说的意思是如果一个lisp中有c:a1,c:a2,c:a3，你是调用那一个？

明经通道

弹出对话框让选择不是更好吗？
有没有看过VLISP中的调试DCL文件所弹出的对话框。

hqd9639

假定LISP中只定义了一个C：XXX命令，如何获取命令名：XXX 呢？

aeo

先把名字设简单点,因为有时不光c:xxx要调试 ,而且有可能(xxx x)