【拓扑处理】布尔求差

Lispboy

填充、封闭曲线、面域、MPOLYGON任意两个之间求差
结果实体类型同第一个实体

1. (defun c:xdtb_subtract (/ e1 e2)
   
2.   (if (and (setq e1 (car (xdrx_entsel
   
3.                            "\n选择第一个对象<退出>:"
   
4.                            '((-4 . "<or")
   
5.                              (0 . "region,hatch,mpolygon,circle,ellipse")
   
6.                              (-4 . "<and")
   
7.                              (0 . "*polyline")
   
8.                              (-4 . "&=")
   
9.                              (70 . 1)
   
10.                              (-4 . "and>")
    
11.                              (-4 . "or>")
    
12.                             )
    
13.                          )
    
14.                     )
    
15.            )
    
16.            (setq e2 (car (xdrx_entsel
    
17.                            "\n选择第二个对象<退出>:"
    
18.                            '((-4 . "<or")
    
19.                              (0 . "region,hatch,mpolygon,circle,ellipse")
    
20.                              (-4 . "<and")
    
21.                              (0 . "*polyline")
    
22.                              (-4 . "&=")
    
23.                              (70 . 1)
    
24.                              (-4 . "and>")
    
25.                              (-4 . "or>")
    
26.                             )
    
27.                          )
    
28.                     )
    
29.            )
    
30.            (not (equal e1 e2))
    
31.       )
    
32.     (progn (xdrx_begin)
    
33.            (if (xdrx_get_subtract e1 e2)
    
34.              (xdrx_prompt "\n布尔求差成功.")
    
35.              (xdrx_prompt "\n布尔求差失败.")
    
36.            )
    
37.            (xdrx_end)
    
38.     )
    
39.   )
    
40.   (princ)
    
41. )
    

(defun c:xdtb_subtract (/ e1 e2)<br />   (if (and (setq e1 (car (xdrx_entsel<br />                            "\n选择第一个对象<退出>:"<br />                            '((-4 . "<or")<br />                              (0 . "region,hatch,mpolygon,circle,ellipse")<br />                              (-4 . "<and")<br />                              (0 . "*polyline")<br />                              (-4 . "&=")<br />                              (70 . 1)<br />                              (-4 . "and>")<br />                              (-4 . "or>")<br />                             )<br />                          )<br />                     )<br />            )<br />            (setq e2 (car (xdrx_entsel<br />                            "\n选择第二个对象<退出>:"<br />                            '((-4 . "<or")<br />                              (0 . "region,hatch,mpolygon,circle,ellipse")<br />                              (-4 . "<and")<br />                              (0 . "*polyline")<br />                              (-4 . "&=")<br />                              (70 . 1)<br />                              (-4 . "and>")<br />                              (-4 . "or>")<br />                             )<br />                          )<br />                     )<br />            )<br />            (not (equal e1 e2))<br />       )<br />     (progn (xdrx_begin)<br />            (if (xdrx_get_subtract e1 e2)<br />              (xdrx_prompt "\n布尔求差成功.")<br />              (xdrx_prompt "\n布尔求差失败.")<br />            )<br />            (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br />

sicky111

支持楼主。

7762777

这个功能好实用，填充的一些小问题都可以解决掉了