多重多边形（MPolygon）布尔（交、并、差）运算

Lispboy

写个在AUTOCAD里面对MPOLYGON的布尔操作。

1. (defun c:XDTB_MPBooler ( / e1 e2 msg myerr op oper)
   
2.   (defun myerr (msg)
   
3.     (princ "\n")
   
4.     (princ msg)
   
5.     (xdrx_pickset_redraw e1 e2 t)
   
6.     (xdrx_end)
   
7.     (princ)
   
8.   )
   
9.   (xdrx_begin)
   
10.   (setq *error* myerr)
    
11.   (if (and
    
12.         (setq e1 (car (xdrx_entsel "\n选取第一个MPolygon实体<退出>:")))
    
13.         (xdrx_pickset_redraw e1)
    
14.         (setq e2 (car (xdrx_entsel "\n选取第二个MPolygon实体<退出>:")))
    
15.         (xdrx_pickset_redraw e2)
    
16.       )
    
17.     (progn
    
18.       (if (not #mpolygon_oper)
    
19.         (setq #mpolygon_oper "union")
    
20.       )
    
21.       (xdrx_initget "U S I")
    
22.       (if (setq oper (getkword (xdrx_prompt "\n选取操作方式[交(I)/并(U)/差(S)<"
    
23.                                             (cond
    
24.                                               ((= #mpolygon_oper "union")
    
25.                                                 "并"
    
26.                                               )
    
27.                                               ((= #mpolygon_oper "intersect")
    
28.                                                 "交"
    
29.                                               )
    
30.                                               (t
    
31.                                                 "差"
    
32.                                               )
    
33.                                             ) ">:" t
    
34.                                )
    
35.                      )
    
36.           )
    
37.         (progn
    
38.           (cond
    
39.             ((= oper "I")
    
40.               (setq #mpolygon_oper "intersect")
    
41.             )
    
42.             ((= oper "U")
    
43.               (setq #mpolygon_oper "union")
    
44.             )
    
45.             ((= oper "S")
    
46.               (setq #mpolygon_oper "subtract")
    
47.             )
    
48.           )
    
49.         )
    
50.       )
    
51.       (setq op (read (strcat "xdrx_mpolygon_" #mpolygon_oper)))
    
52.       (if (eval (cons op (list e1 e2)))
    
53.         (progn
    
54.           (xdrx_prompt "\n操作成功.")
    
55.         )
    
56.         (progn
    
57.           (xdrx_prompt "\n操作失败.")
    
58.         )
    
59.       )
    
60.     )
    
61.   )
    
62.   (setq *error* nil)
    
63.   (xdrx_end)
    
64.   (princ)
    
65. )
    

(defun c:XDTB_MPBooler ( / e1 e2 msg myerr op oper)<br />   (defun myerr (msg)<br />     (princ "\n")<br />     (princ msg)<br />     (xdrx_pickset_redraw e1 e2 t)<br />     (xdrx_end)<br />     (princ)<br />   )<br />   (xdrx_begin)<br />   (setq *error* myerr)<br />   (if (and<br />         (setq e1 (car (xdrx_entsel "\n选取第一个MPolygon实体<退出>:")))<br />         (xdrx_pickset_redraw e1)<br />         (setq e2 (car (xdrx_entsel "\n选取第二个MPolygon实体<退出>:")))<br />         (xdrx_pickset_redraw e2)<br />       )<br />     (progn<br />       (if (not #mpolygon_oper)<br />         (setq #mpolygon_oper "union")<br />       )<br />       (xdrx_initget "U S I")<br />       (if (setq oper (getkword (xdrx_prompt "\n选取操作方式[交(I)/并(U)/差(S)<"<br />                                             (cond<br />                                               ((= #mpolygon_oper "union")<br />                                                 "并"<br />                                               )<br />                                               ((= #mpolygon_oper "intersect")<br />                                                 "交"<br />                                               )<br />                                               (t<br />                                                 "差"<br />                                               )<br />                                             ) ">:" t<br />                                )<br />                      )<br />           )<br />         (progn<br />           (cond<br />             ((= oper "I")<br />               (setq #mpolygon_oper "intersect")<br />             )<br />             ((= oper "U")<br />               (setq #mpolygon_oper "union")<br />             )<br />             ((= oper "S")<br />               (setq #mpolygon_oper "subtract")<br />             )<br />           )<br />         )<br />       )<br />       (setq op (read (strcat "xdrx_mpolygon_" #mpolygon_oper)))<br />       (if (eval (cons op (list e1 e2)))<br />         (progn<br />           (xdrx_prompt "\n操作成功.")<br />         )<br />         (progn<br />           (xdrx_prompt "\n操作失败.")<br />         )<br />       )<br />     )<br />   )<br />   (setq *error* nil)<br />   (xdrx_end)<br />   (princ)<br /> )<br />

moto1986

不错，顶一下!，下来试试

pur2

好像不能用哦，行不行的？

2+1_ZTXJ9

研究一下，继续努力