多边形求并集的代码

関吣

谢谢。收藏，以后积分够了我回来看
备注：修剪相交线条。

fjutcivil

:) 打个记号 等有积分了 再过来学习下

liuhaixin88

看看，需要回复

/db_自贡黄明儒_

N版，很早就看过学习过你这个帖子了，最近我觉得对于不是凸凹多段，假如都是顺时针，没有重点，如图从一开始搜，1 →2→3，当到3时，取交点处名多段线上一点，都在多边形内，那么就取4 ,.....最的沿各点生成一个新的多边形，你看这种方法行不？

cable2004

最近我也在写这个东西，告诉我的想法，取得最ymin点为1点开始，以最小角度为2点，repeat 2为起点，3为终点，角度1，2，3最小为3点。依次循环到ymin成功。。。。

ayl1004

cable2004 发表于 2014-4-14 23:36
最近我也在写这个东西，告诉我的想法，取得最ymin点为1点开始，以最小角度为2点，repeat 2为起点，3为终点 ...

我在写CAD表格转Excel表格时用的也是这种方法，但这种方法也不简单啊，代码一大堆。

XDSoft

ayl1004 发表于 2014-4-15 09:31
我在写CAD表格转Excel表格时用的也是这种方法，但这种方法也不简单啊，代码一大堆。

可以贴下代码吗？

st788796

没有离开Region, 拷贝一个副本执行交点断开，找最大的

见过搜索边界的，遇到岔路口时提示选择，不过有学的功夫描点也完成了

cable2004

ayl1004 发表于 2014-4-15 09:31
我在写CAD表格转Excel表格时用的也是这种方法，但这种方法也不简单啊，代码一大堆。

看你求什么，求一个一个的封闭矩形或多边形，代码应该会多一点，求最大外框多边形，可能就几十行吧！大部分是循环了。

cable2004

st788796 发表于 2014-4-15 12:19
没有离开Region, 拷贝一个副本执行交点断开，找最大的

见过搜索边界的，遇到岔路口时提示选择，不过有学 ...

这个不是算法，纯粹代码！

ayl1004

XDSoft 发表于 2014-4-15 10:01
可以贴下代码吗？

以前调试没成功，后来研究fas去了，就没继续写了。

ayl1004

cable2004 发表于 2014-4-15 14:10
看你求什么，求一个一个的封闭矩形或多边形，代码应该会多一点，求最大外框多边形，可能就几十行吧！大部 ...

主要还是把直线图元弄成点对表占用一大堆代码，如果直接根据点表求外围框倒是省事。

st788796

ayl1004 发表于 2014-4-15 16:34
主要还是把直线图元弄成点对表占用一大堆代码，如果直接根据点表求外围框倒是省事。

这样写和凸包一样算法了

zhbzhbzhb

太复杂了，绐你个简单的。

zhbzhbzhb

(Defun c:zh()
   (command "layer" "s" "COLU" "")            
   (setq p1 (getpoint "\npoint1:"))
   (setq p2 (getcorner p1 "\npoint2:"))
   (setq v1 (ssget "w" p1 p2 '((8 . "COLU"))))   
   (setq n (sslength v1))
   (while (>= (setq n (1- n)) 0)
      (command "region" (ssname v1 n) "")
   )
   (command "union" "w" p1 p2 "")   
   (command "explode" (entlast))   
   (command "pedit" "m"  "p" "" "y" "j" 0 "")  
   (princ)
)