封闭框画X最快方法

xvjiex

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

x_s_s_1

又慢又晃眼，针对附图还有bug。采用了6楼的方法，水平有限，代码不够严谨。实际上用到boundary就会慢。附图里的spline有不连续的情况，我把这种情况PASS了

前生

关键是boundary这个东西，还不是次次都灵的。

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)
)
这个可以连接对角线

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


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

邹锋

x_s_s_1 发表于 2020-4-14 22:35
又慢又晃眼，针对附图还有bug。采用了6楼的方法，水平有限，代码不够严谨。实际上用到boundary就会慢。 ...

谢谢，我是用C语言开发其他软件，道理一样，lisp用不到，

邹锋

前生 发表于 2020-4-14 22:50
关键是boundary这个东西，还不是次次都灵的。

搞UG中用的，模具上的

czb203

大师鉴定~~