[求助] 如何将两个相交的多边形合并为一个

xyz002

要求将两个相交的多边形合并为一个，删除相交部分，这个lisp程序如何写，请高手支招，最好能贴lisp代码

caoyin

IntersectWith 求出交点，Break，然后 Pedit

不死猫

用面域命令组合

然后炸开

carrot1983

不死猫发表于2009-11-10 19:54:00用面域命令组合然后炸开

命令: REGION

命令: UNION

命令: EXPLODE

命令: PEDIT

xyz002

回版主：用break时，有时出现想保留的线段被删除了，想删除的相交边反而留下了，不知什么原因

xyz002

回3，4楼大侠：在命令行下可以实现，程序该如何写？本菜鸟刚接触lisp，烦请大侠动动手指，谢谢啦

caoyin

面域会失去宽度等信息

xyz002

版主能否给个程序啊，

李龙山

xyp1964

;; 两个多边形的并集
(defun c:test845 ()
  (CMDLA0)
  (setq s1 (car (entsel "\n1: "))
 s2 (car (entsel "\n2: "))
 s0 (entlast)
 s3 (xyp-add-region s1)
 s4 (xyp-add-region s2)
 s5 (XYP-BOOLEAN s3 s4 0)
  )
  (entdel s1)
  (entdel s2)
  (CMDLA1)
)