封闭框画X最快方法

邹锋

不用写代码 ,我自己写,只是提供下你的思路
我有几千个X要画的,这是举例
这框大小不一样,差了点点的,每条线都不是阵列的,




上面有两个附件图档

cq4920

http://bbs.mjtd.com/forum.php?mo ... 6orderby%3Ddateline
G版的这个可以生产封闭图形

;;;********************************矩形连接对角线********************************
(defun c:xz ( / &kw ent ss x)
        (vl-load-com)
        (princ "\n请选择封闭多段线")
        (if (setq &kw (ssget '((0 . "LWPOLYLINE") (70 . 1))))
                (progn
                        (while (setq ent (ssname &kw 0))
                                (setq &kw (ssdel ent &kw))
                                (setq ss (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget ent))));提取多段线坐标
                                (if (= (length ss) 4);如果是4个点
                                        (progn
                                                (entmake (list '(0 . "LINE") (cons 10 (car ss)) (cons 11 (caddr ss))))
                                                (entmake (list '(0 . "LINE") (cons 10 (cadr ss)) (cons 11 (cadddr ss))));绘制直线
                                        )
                                )
                        )
                )
        )
        (princ)
)
这个可以连接对角线

你看看怎么修改一下   再结合一下  也许就能成功，


如果能直接把封闭区四个交点生产四边形，那就很简单了！

xvjiex

抛砖引玉，傻办法开始：每根线判断线上的所有实交点，加入数组，实交点xy向排序，每2个交点中间，线的左右各取一点，看是否能生成填充，能则填充加入ss选择集，列遍所有线条后，去除重复的(重叠)填充，对每个填充外框取组码表4个顶点，判断对角点，对角点画X。

masterlong

最好上个示例图
截图里上面范例的还好一点
下面的范例
线条是直线还是圆弧看不出来

我觉得
先对所有线条按角度分组
一个近似水平组，数量m
一个近似垂直组，数量n
各自以中点进行xy排序
再依次判断获取封闭框
会不会要容易点？

邹锋

我的想法是选择了n条,然后判断n的3次方,去看它其中一条线是否其他三次是否相交

masterlong

目测很有难度啊
建议私信 mahuan1279 大侠求助
他对算法方面很有研究

foolishzy

三角剖分行不行？

自贡黄明儒

1 全选→2交点→3在每个交点处取四个点，用bo命令看是否能生成封闭图形。如果能生成四边形，就可以画X了。这一步有一个问题，如何取四个点的问题，也是好处理的。

x_s_s_1

求交，每交点a对应二条线A、B，a对所有点求距离，除去A、B上的点，其它点根据距离排序，求最小四个，组成对，逐个循环，排除已有，最后可手动删除无用的，或BO判断是否封闭

陨落

gu_xl有篇帖子专门讲这个啊，当年学习了一下，受益匪浅http://bbs.mjtd.com/thread-82692-1-1.html

cable2004

速度跟不上

lxl217114

如果每个小格子都是封闭的四边形，可以把他的4个顶点按时针方向排序。
1和3号点连线
2和4号点连线