如何用“空格”、“鼠标右键”、“回车”让如下程序跳出循环？

smartstar

如何用“空格”、“鼠标右键”、“回车”让如下程序跳出循环？

2. (defun c:CC()
   
3.   (setq ss (ssget))
   
4.   (setq pt0  (getpoint "\n指定复制基点:"))
   
5.   (while T
   
6.     (command ".copy" ss "" pt0 pause)
   
7.   )
   
8. )

(defun c:CC()<br />   (setq ss (ssget))<br />   (setq pt0  (getpoint "\n指定复制基点:"))<br />   (while T<br />     (command ".copy" ss "" pt0 pause)<br />   )<br /> )

Andyhon

研究下 Copy 的 Multiple 选项 ...

smartstar

继续求解！

自贡黄明儒

下面如何?

1. (defun c:CC ()
   
2.   (setq ss (ssget))
   
3.   (setq pt0 (getpoint "\n指定复制基点:"))
   
4.   (setq bool T)
   
5.   (while bool
   
6.     (command ".copy" ss "" pt0 pause)
   
7.     (setq pt (getvar "lastpoint"))
   
8.     (if (equal pt pt0)
   
9.       (setq bool nil)
   
10.      (setq pt0 pt)
    
11.     )
    
12.   )
    
13. )
    

(defun c:CC ()<br />   (setq ss (ssget))<br />   (setq pt0 (getpoint "\n指定复制基点:"))<br />   (setq bool T)<br />   (while bool<br />     (command ".copy" ss "" pt0 pause)<br />     (setq pt (getvar "lastpoint"))<br />     (if (equal pt pt0)<br />       (setq bool nil)<br />      (setq pt0 pt)<br />     )<br />   )<br /> )<br />

smartstar

自贡黄明儒 发表于 2013-5-2 13:06
下面如何?

如果想在原位复制图元就会退出了。