怎么给这个程序加个循环呢

friendship

(vl-load-com)
(defun c:BRR(/ cmdeo)
(setq cmdeo (getvar "cmdecho"))
(setvar "cmdecho" 0)
(vl-cmdf "break" pause "f" pause "@")
(setvar "cmdecho" cmdeo)
(princ))

怎么给这个程序加个循环呢，从而实现  ：选择-打断--选择-打断--选择-打断--选择-打断......

fl202

(vl-load-com)
(defun c:BRR(/ cmdeo)
(setq cmdeo (getvar "cmdecho"))
(repeat 100
(setvar "cmdecho" 0)
(vl-cmdf "break" pause "f" pause "@")
(setvar "cmdecho" cmdeo)
)
(princ)
)

Andyhon

全是在选择点打断吗?

lijiao

循环不难，你要考虑的问题是循环后如何退出循环，如果这个问题考虑清楚了，一切都解决了。

edata

1. (vl-load-com)
   
2. (defun c:BRR (/ cmdeo en p)
   
3.   (setq cmdeo (getvar "cmdecho"))
   
4.   (setvar "cmdecho" 0)  
   
5.   (while (and (setq en (entsel "\n选择对象:"))
   
6.               (setq p (getpoint "\r选择打断点:"))
   
7.          )
   
8.     (vl-cmdf "_.break" "_non" en "f" "_non" p "@")
   
9.   )
   
10.   (setvar "cmdecho" cmdeo)
    
11.   (princ)
    
12. )

(vl-load-com)<br /> (defun c:BRR (/ cmdeo en p)<br />   (setq cmdeo (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)  <br />   (while (and (setq en (entsel "\n选择对象:"))<br />               (setq p (getpoint "\r选择打断点:"))<br />          )<br />     (vl-cmdf "_.break" "_non" en "f" "_non" p "@")<br />   )<br />   (setvar "cmdecho" cmdeo)<br />   (princ)<br /> )

friendship

edata 发表于 2015-9-10 10:46

只会最简单的lsp，稍稍有难度的就不会。
谢谢您。