批量布尔求交

xdzcp

哪位大神能否写个lisp批量布尔求交。像这样 谢谢

434939575

2. (defun c:tt ()
   
3.   (princ "\n选取a部分")
   
4.   (princ "\n选取b部分")
   
5.   (setq ss (ssget))
   
6.   (setq ss2 (ssget))
   
7.   (setq y (entlast))
   
8.   (command "REGION" ss "")
   
9.   (setq y (next:add y))
   
10.   (command "_union" y "")
    
11.   (setq y2 (entlast))
    
12.   (command "REGION" ss2 "")
    
13.   (setq y2 (next:add y2))
    
14.   (command "_union" y2 "")
    
15.   (command "_intersect" y y2 "")       
    
16. )
    
17. (defun next:add        (en / ss)
    
18.   (setq ss (ssadd))
    
19.   (while (setq en (entnext en)) (setq ss (ssadd en ss)))
    
20.   (if (/= (sslength ss) 0)
    
21.     ss
    
22.   )
    
23. )

(defun c:tt ()<br />   (princ "\n选取a部分")<br />   (princ "\n选取b部分")<br />   (setq ss (ssget))<br />   (setq ss2 (ssget))<br />   (setq y (entlast))<br />   (command "REGION" ss "")<br />   (setq y (next:add y))<br />   (command "_union" y "")<br />   (setq y2 (entlast))<br />   (command "REGION" ss2 "")<br />   (setq y2 (next:add y2))<br />   (command "_union" y2 "")<br />   (command "_intersect" y y2 "")        <br /> )<br /> (defun next:add        (en / ss)<br />   (setq ss (ssadd))<br />   (while (setq en (entnext en)) (setq ss (ssadd en ss)))<br />   (if (/= (sslength ss) 0)<br />     ss<br />   )<br /> )

434939575

演示都有了

xdzcp

434939575 发表于 2022-8-31 21:50
演示都有了

你好 这个演示不是cad软件。

xdzcp

434939575 发表于 2022-8-25 20:44

大师你好，非常感谢，太牛了。能否在给我做一个批量差集。也就是用一组减去另一组。谢谢

xdzcp

434939575 发表于 2022-8-25 20:44

大师这种批量差集能否帮我在做一个好吗 ? 非常 谢谢。