[LISP程序]：一个简单的切断交叉实体的程序....

正航

;;选择交叉点后，所有的实体都被切断(但圆不能切断)，在某些场合有用。

2. 
   
3. 
   
4. (defun c:BK(/ a p l i e s)
   
5.   (PRINC "\n       *******   切断交叉实体程序  *******   ")
   
6.   (setvar "cmdecho" 0)
   
7.   (SETVAR "osmode" 32)
   
8.   (setq s 1)
   
9.   (while s
   
10.   (setq p (getpoint "\n请点取交点："))
    
11.   (if (= p nil)(setq s nil)
    
12.   (progn
    
13.   (command "osnap" "int")
    
14.   (setq a (ssget "C" (polar p (* 1.25 pi) 0.001) (polar p (* 0.25 pi) 0.001)))
    
15.   (setq l (sslength a) I 0)
    
16.   (repeat l
    
17.   (progn
    
18.     (setq e (ssname a i))
    
19.     (command "break" (list e p) p)
    
20.     (setq i (1+ i))
    
21.   )))
    
22. ))  
    
23. (princ "\n 切断完毕!")
    
24. (setvar "osmode" 0)
    
25. (princ)
    
26. )
    
27. 
    

<br /> <br /> (defun c:BK(/ a p l i e s)<br />   (PRINC "\n       *******   切断交叉实体程序  *******   ") <br />   (setvar "cmdecho" 0)<br />   (SETVAR "osmode" 32)<br />   (setq s 1)<br />   (while s<br />   (setq p (getpoint "\n请点取交点："))<br />   (if (= p nil)(setq s nil)<br />   (progn<br />   (command "osnap" "int")<br />   (setq a (ssget "C" (polar p (* 1.25 pi) 0.001) (polar p (* 0.25 pi) 0.001)))<br />   (setq l (sslength a) I 0)<br />   (repeat l<br />   (progn<br />     (setq e (ssname a i))<br />     (command "break" (list e p) p)<br />     (setq i (1+ i))<br />   )))<br /> ))  <br /> (princ "\n 切断完毕!")<br /> (setvar "osmode" 0)<br /> (princ)<br /> )<br /> <br />

LUCAS

似乎是一樣的!!!
http://www.xdcad.net/forum/showthread.php?s=&threadid=1421

正航

非常抱歉。刚刚看到楼上的帖子。忘了注明是引用的了，原程序是从cadlog.com中下载的，由于已经用了很长时间，把有些细节忘了。特致谢意和歉意！