封闭框画X最快方法

xvjiex · 发表于 2020-4-14 09:53:13

本帖最后由 xvjiex 于 2020-4-14 10:57 编辑

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

x_s_s_1 · 发表于 2020-4-14 22:35:23

又慢又晃眼，针对附图还有bug

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

前生 · 发表于 2020-4-14 22:50:01

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

cq4920 · 发表于 2020-4-15 06:23:06

本帖最后由 cq4920 于 2020-4-15 06:26 编辑

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

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

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

邹锋 · 发表于 2020-4-15 15:29:18

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

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

邹锋 · 发表于 2020-4-16 17:21:53

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

搞UG中用的，模具上的

czb203 · 发表于 2020-4-16 21:03:13

大师鉴定~~

账号		自动登录	找回密码
密码			注册

[提问] 封闭框画X最快方法

本帖子中包含更多资源