[求助]：一个lisp程序的小错误

hpisme

如下的一个程序段:
(defun c:ff( / a  b)
(setq a(getvar"CELTYPE")  b(getvar "clayer"))
(setvar "CELTYPE" "DHXL")
(setvar "Clayer" "WIRE-1")
(command "LINE" )
(while(/= 0(getvar "CMDACTIVE"))(command pause))
  (setvar "CELTYPE" a)
  (setvar "Clayer" b)  
(princ)
)
我的图的当前层不是wire-1层,当我执行 该lisp命令时,如果我在命令执行当中 取消命令后 我的当前层会变成wire-1层 请问程序经过怎么修改后可以在取消命令后不会改变图的当前层?

Quelea

2. 
   
3. [FONT=courier new]
   
4. ;; 下面的是vlisp代码。使用vlisp处理起来简单一点。
   
5. 
   
6. (defun c:ff (/ a b)
   
7.   (setq        a (getvar "CELTYPE")
   
8.         b (getvar "clayer")
   
9.   )
   
10.   (setvar "CELTYPE" "DHXL")
    
11.   (setvar "Clayer" "WIRE-1")
    
12.   (vl-catch-all-apply
    
13.     (function
    
14.       (lambda ()
    
15.         (command "LINE")
    
16.         (while (/= 0 (getvar "CMDACTIVE")) (command pause))
    
17.       )
    
18.     )
    
19.     nil
    
20.   )
    
21.   (setvar "CELTYPE" a)
    
22.   (setvar "Clayer" b)
    
23.   (princ)
    
24. )
    
25. [/FONT]

<br /> [FONT=courier new]<br /> ;; 下面的是vlisp代码。使用vlisp处理起来简单一点。<br /> <br /> (defun c:ff (/ a b)<br />   (setq        a (getvar "CELTYPE")<br />         b (getvar "clayer")<br />   )<br />   (setvar "CELTYPE" "DHXL")<br />   (setvar "Clayer" "WIRE-1")<br />   (vl-catch-all-apply<br />     (function<br />       (lambda ()<br />         (command "LINE")<br />         (while (/= 0 (getvar "CMDACTIVE")) (command pause))<br />       )<br />     )<br />     nil<br />   )<br />   (setvar "CELTYPE" a)<br />   (setvar "Clayer" b)<br />   (princ)<br /> )<br /> [/FONT]

aeo

二楼的办法可以。但老这样不是个办法.

要写一个出错的代码. 看*error*的帮助.