如何实现 空格/右键 /回车退出 while 循环。

weiqi

1. (defun c:qq ()(print "初始点")
   
2. (setq p0 (getpoint "\n指定一点:"))
   
3.   (while (= p0 1)
   
4.     (command ".line" p0 (getpoint "\n指定下一点:") "")
   
5.     )
   
6. 
   
7. )

(defun c:qq ()(print "初始点")<br /> (setq p0 (getpoint "\n指定一点:"))<br />   (while (= p0 1)<br />     (command ".line" p0 (getpoint "\n指定下一点:") "")<br />     )<br /> <br /> )

这样如何实现 如何实现 空格/右键 /回车退出 while 循环 结束程序。

weiqi

我参考
http://bbs.mjtd.com/forum.php?mo ... 21&page=1#pid519314
沙发 G版的回复，改成这样写，貌似也退出不了噢。每次是
指定下一点: 未知命令“QQ”。按 F1 查看帮助。
请问得什么写才对呢。

1. (defun c:qq ()
   
2. (print "初始点")
   
3. (setq p0 (getpoint "\n指定一点:"))
   
4.    (while (not loop)
   
5. (command ".line" p0 (getpoint "\n指定下一点:") "")
   
6.     (setq gr (grread t 1))
   
7.     (if (or (= 25 (car gr))
   
8.             (and (= 2 (car gr)) (= 13 (cadr gr)))
   
9.             (and (= 2 (car gr)) (= 32 (cadr gr)))
   
10.             )
    
11.       (setq loop t)
    
12.       )
    
13. 
    
14. )
    
15. 
    
16. 
    
17. 
    

(defun c:qq ()<br /> (print "初始点")<br /> (setq p0 (getpoint "\n指定一点:"))<br />    (while (not loop)<br /> (command ".line" p0 (getpoint "\n指定下一点:") "")<br />     (setq gr (grread t 1))<br />     (if (or (= 25 (car gr))<br />             (and (= 2 (car gr)) (= 13 (cadr gr)))<br />             (and (= 2 (car gr)) (= 32 (cadr gr)))<br />             )<br />       (setq loop t)<br />       )<br /> <br /> )<br /> <br /> <br /> <br />

ZZXXQQ

1. (defun c:qq ()
   
2. (print "初始点")
   
3. (setq p0 (getpoint "\n指定一点:"))
   
4. (command "_.LINE" p0)
   
5. (while (setq p1 (getpoint "\n指定下一点:"))
   
6.   (command p1)
   
7. )
   
8. (command "")
   
9. (princ)
   
10. )
    

(defun c:qq ()<br /> (print "初始点")<br /> (setq p0 (getpoint "\n指定一点:"))<br /> (command "_.LINE" p0)<br /> (while (setq p1 (getpoint "\n指定下一点:"))<br />   (command p1)<br /> )<br /> (command "")<br /> (princ)<br /> )<br />

1. (defun c:qq ()
   
2. (command "_.LINE")
   
3. (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
   
4. (princ)
   
5. )
   

(defun c:qq ()<br /> (command "_.LINE")<br /> (while (> (getvar "CMDACTIVE") 0) (command PAUSE))<br /> (princ)<br /> )<br />

weiqi

我要的是，所有点连接到 第一点  ， 放射性的 （星形），不是下一点下一点的连哦。

weiqi

根据Z版的~

1. (defun c:qq ()
   
2. (print "初始点")
   
3. (setq p0 (getpoint "\n指定一点:"))
   
4. (command "_.LINE" p0)
   
5. (while (setq p1 (getpoint "\n指定下一点:"))
   
6.   (command p1 p0)   (entdel (entlast))
   
7. )
   
8. (command "")
   
9. (princ)
   
10. 
    
11. )  

(defun c:qq ()<br /> (print "初始点")<br /> (setq p0 (getpoint "\n指定一点:"))<br /> (command "_.LINE" p0)<br /> (while (setq p1 (getpoint "\n指定下一点:"))<br />   (command p1 p0)   (entdel (entlast))<br /> )<br /> (command "")<br /> (princ)<br /> <br /> )  

这样写能退出了，但是。。每条线画2次了。~然后，再删掉一个~~~最笨的办法咯~~

kwok

weiqi 发表于 2013-1-17 22:24
我要的是，所有点连接到 第一点  ， 放射性的 （星形），不是下一点下一点的连哦。

http://bbs.mjtd.com/thread-99771-1-1.html
可以看看这里,效果一样哦.

ucuc2003

留个记号，帮忙顶起来

yjr111

不会吧？？？？？

2. (defun c:tt()
   
3.   (if(setq p0(getpoint"\n中心点"))
   
4.     (progn
   
5.       (while (setq p1(getpoint p0"\n下一点"))
   
6.         (command "line" p1 p0 "")
   
7.         )
   
8.       )
   
9.     )
   
10.   (princ)
    
11.   )

(defun c:tt()<br />   (if(setq p0(getpoint"\n中心点"))<br />     (progn<br />       (while (setq p1(getpoint p0"\n下一点"))<br />         (command "line" p1 p0 "")<br />         )<br />       )<br />     )<br />   (princ)<br />   )

weiqi

翻资料 学习grread 去咯~

自贡黄明儒

(defun c:tt2 (/ P0 P1)
  (setq p0 (getpoint "\n下一点"))
  (while (not p1)   
    (command "line" p0 (getpoint p0 "\n下一点") "")
    (setq p1 (equal(getvar "lastpoint") p0))  
  )
  (princ)
)