[LISP程序]： 在用多次copy（不定次）后，回不到下条语句。

hi71400

在用多次copy（不定次）后，回不到下条语句,谁能解决？

2. 
   
3. (defun c:test ( )
   
4. (setq ss (ssget))
   
5. (command "copy" ss "" "m" )
   
6. (while (= 1 (getvar "cmdactive"))
   
7.       (command pause)
   
8. )
   
9. (princ "goon")
   
10. (princ)
    
11. )

<br /> (defun c:test ( )<br /> (setq ss (ssget))<br /> (command "copy" ss "" "m" )<br /> (while (= 1 (getvar "cmdactive"))<br />       (command pause)<br /> )<br /> (princ "goon")<br /> (princ)<br /> )

XDSoft

最初由 hi71400 发布
[B]在用多次copy（不定次）后，回不到下条语句,谁能解决？

可以啊，在2002下面测试。

1. <normalfont>
   
2. 命令: test
   
3. 
   
4. 选择对象: 找到 1 个
   
5. 
   
6. 选择对象:
   
7. 
   
8. goon
   
9. 
   
10. 命令:
    
11. TEST
    
12. 选择对象: 指定对角点: 找到 2 个
    
13. 
    
14. 选择对象:
    
15. 
    
16. goon
    
17. </normalfont>
    

复制代码

hi71400

我是用的r14呢