如何得到面域之间布尔运算差值之后的新面域呢？

楚留香

1、以前都是通过entlast得到最后的图元名字；
2、可是通过布尔运算差值得的新图元确不能通过这个函数获得；
3、我用选择的办法查询的新图元的名字，确实是新的，可是不通过选择直接得到最后生成的图元名字呢？
4、如果不能判断新的图元产生，怎样能知道布尔运算成功了呢？恳请高手解答一下，谢谢！

434939575

2. (defun c:uni (/ osmode_bak ss e getss);UNI后转换为PLINE        
   
3.   (defun getss (e / ss)
   
4.     (setq ss (ssadd))
   
5.     (while (setq e (entnext e))
   
6.       (setq ss (ssadd e ss))
   
7.     );while
   
8.     ss
   
9.   )
   
10.   (setvar "CMDECHO" 0)
    
11.   (Setq osmode_bak (getvar "osmode"))
    
12.   (Setvar "osmode" 0)
    
13.   (setq ss (ssget))
    
14.   (setq e (entlast))
    
15.   (command ".region" ss "")
    
16.   (command ".union" (getss e) "")
    
17.   (setq e (entlast))
    
18.   (command ".Explode" (entlast))
    
19.   (if (= 0 (getvar "peditaccept"))
    
20.            (setvar "peditaccept" 1)
    
21.                                   )        ;if
    
22.   (command "_.pedit" "m" (getss e) "" "j" "0.005" "")
    
23.   (Setvar "osmode" osmode_bak)
    
24.   (setvar "CMDECHO" 1)
    
25.   (princ)
    
26. )
    

(defun c:uni (/ osmode_bak ss e getss);UNI后转换为PLINE        <br />   (defun getss (e / ss)<br />     (setq ss (ssadd))<br />     (while (setq e (entnext e))<br />       (setq ss (ssadd e ss))<br />     );while<br />     ss<br />   )<br />   (setvar "CMDECHO" 0) <br />   (Setq osmode_bak (getvar "osmode")) <br />   (Setvar "osmode" 0) <br />   (setq ss (ssget))<br />   (setq e (entlast))<br />   (command ".region" ss "")<br />   (command ".union" (getss e) "")<br />   (setq e (entlast))<br />   (command ".Explode" (entlast))<br />   (if (= 0 (getvar "peditaccept"))<br />            (setvar "peditaccept" 1)<br />                                   )        ;if<br />   (command "_.pedit" "m" (getss e) "" "j" "0.005" "")<br />   (Setvar "osmode" osmode_bak) <br />   (setvar "CMDECHO" 1) <br />   (princ)<br /> )<br />

楚留香

基本搞清楚了：
1、CAD面域布尔差集计算时，差集后形成的图元名与面积大的图元名一致，不是新增加图元名；
2、CAD面域布尔并集计算时，并集后形成的图元名与面积大的图元名一致，不是新增加图元名；
3、所以entlast是得不到准确的名字的；
4、感兴趣的可以用(entsel)函数测试下验证；