CAD中多段线闭合的问题

Kllies

求一个插件把CAD里面由多条多段线闭合成的曲线分别变成一条的闭合多段线，未能构成闭合曲线不删除

newer

Kllies 发表于 2016-12-25 23:10

试试, 你做什么工作的，这个是画什么？ 尾巴做什么用？

(defun c:tt ()
  (defun _erase ()
    (setq old (xdrx_pickset->ents (xdrx_curve_intersectbreak
                                                             (xdrx_entity_explode ss t)
                                  )
              )
    )

    (mapcar
      '(lambda (x)
         (setq pts (xdrx_getsamplept x 10))
         (mapcar
           '(lambda (y)
              (if (apply
                    'and
                    (mapcar
                      '(lambda (z)
                         (xdrx_point_ison z y)
                       )
                      pts
                    )
                  )
                (xdrx_entity_delete x)
              )
            )
           new
         )
       )
      old
    )
  )
  (xdrx_begin)
  (if (setq ss (ssget '((0 . "LINE,*POLYLINE"))))
    (progn
      (setq ss1 (xdrx_entity_copy ss))
      (setq ss1 (xdrx_entity_explode ss1 t))
      (setq ss1 (xdrx_curve_intersectbreak ss1)
            ss1 (xdrx_geom_searchregions ss1 0)
      )
      (if ss1
        (progn
          (setq ents (mapcar
                       '(lambda (x)
                          (list (abs (xdrx_getpropertyvalue x "area")) x)
                        )
                       (setq new (xdrx_pickset->ents ss1))
                     )
                ents (vl-sort ents '(lambda (x y)
                                      (> (car x) (car y))
                                    )
                     )
                emax (cadar ents)
          )
          (xdrx_entity_delete emax)
          (_erase)
        )
      )
    )
  )
  (xdrx_end)
  (princ)
)

newer

没看明白你的图，也没看明白你的话，截取个静态的大点的图， 操作前的和操作后的。如果位置关系好多种的，都表现出来，贴合的未贴合的等等

newer

看明白了， 那个不构成封闭区域的 尾巴， 为什么要留着？ 不留的话，几句代码就OK了。

Kllies

newer 发表于 2016-12-25 23:04

小尾巴的那线段跟我的工作有关系，最好就是不要去掉不然又要重新画一遍那段线

Kllies

newer 发表于 2016-12-25 23:53

谢谢版主，我是现在是做测量的。尾巴那一段线可能会还和其它线闭合，只是我想用这样的插件做局部闭合，所以才不希望删掉。

zhgcjl

斯维尔的什么软件

市政画图佬

试试看，感谢分享！！