[求助]：如何给命令名改名？

tymoju

我用的一个程序，命令名是AD，是编译过的FAS程序，现在我想在键入AD命令之后，先自动做一些设置，如设定当前层，图层全开等，然后再接着执行原来的功能。希望仍然用原来的命令名AD，所以不能用另外的程序调用这个命令；这是一个外部命令，所以undifine命令也不好用。请问有什么办法？

taner

(defun c:test()(ad))

不知道是不是所需，俺没怎么听懂你的意思。

tymoju

我是希望不要更改命令名，不要用test，要用原来的ad

xdto

(defun c:ad ()
.....    ;设置
(startapp "d:\\ad.exe")
)

tymoju

最初由 xdto 发布
[B](defun c:ad ()
.....    ;设置
(startapp "d:\\ad.exe")
) [/B]

不是调用DOS程序。
我用的AD命令，本来也是用LISP开发的程序，只不过是编译成了FAS文件，我不能直接打开程序更改命令名。

我想首先应该把AD命令改成另外的命令，比如说，(RENAME AD AD1)，在设置完成后，再调用命令AD1。最后可以再把AD命令复原。只是我不知道这个RENAME程序（或类似的函数）该怎么实现。

xdto

那就试试这样

2. 
   
3.   [FONT=courier new]
   
4. 将以下的代码存为ad.lsp;
   
5. 
   
6. (defun c:ad ()
   
7. (...)     ;这里设置
   
8. (progn  
   
9.   (load "d:/xx.fas")
   
10.   (C:ad)
    
11. (load "d:/ad.lsp")
    
12. )
    
13. )
    
14.   [/FONT]
    

<br />   [FONT=courier new]<br /> 将以下的代码存为ad.lsp;<br /> <br /> (defun c:ad ()<br /> (...)     ;这里设置<br /> (progn  <br />   (load "d:/xx.fas")<br />   (C:ad)<br /> (load "d:/ad.lsp")<br /> )<br /> )<br />   [/FONT]<br />

zx0sl

真是没搞明白，改了又改回去，执行的还是一样的程序

xdto

6楼的代码我已测试通过，应该能达到你的要求。

但如果ad.fas运行中出错，其后就会执行ad.fas中的ad命令；

那位大哥把它完善一下?

tymoju

六楼的程序，我测试过，可以通过。不过，一个问题如八楼的兄弟所说，运行ad.fas时不能强行退出（我想这个可能用一个出错函数解决，还没试）；另一个问题是，每次(LOAD  "AD.FAS") 时，都在命令行给出一大串加载说明，看上去有点别扭。

非常感谢各位的热心讨论和指点。

clearlai

加个出错处理就行
(defun *error* (msg)
(load "d:/ad.lsp")
(princ)
)

tymoju

最初由 clearlai 发布
[B]加个出错处理就行
(defun *error* (msg)
(load "d:/ad.lsp")
(princ)
) [/B]

我试过，不行，可能原来的程序中有自己的出错程序，出错后直接退出了。

kmdz

你不如重新编一个算了，弄得这么辛苦。