删除/擦除多段I的部分

notview · 发表于 2022-7-5 19:51:06

大家好，有没有一种方法可以用lisp以最短的方式删除或删除多段线的一部分，如附图所示。。

Lee Mac · 发表于 2022-7-5 19:54:32

您可以使用TRIM命令删除线段。

notview · 发表于 2022-7-5 20:00:02

谢谢你，LM。修剪命令在左边的图中效果很好，但右边的图不会擦除，只会修剪部分。

右图是具有两个顶点的多段线。这是否可能使lisp例程，如果选择两个顶点的多段线，它将删除，合并到修剪。

上图只是我工作的一部分，有时许多多段线相互交叉，仅使用TRIM命令无法解决我的问题。

谢谢你的帮助！

Tharwat · 发表于 2022-7-5 20:02:22

试试这个：

copy


(defun c:Test  (/ s o a b c)
;;;        Tharwat 27.4.2015        ;;;
 (if
   (and (setq s (entsel "\n Select a Polyline to trim segment :"))
        (wcmatch (cdr (assoc 0 (entget (setq o (car s))))) "*POLYLINE")
        )
    (cond ((= (cdr (assoc 90 (entget o))) 2) (entdel o))
          (t
           (setq a (fix (vlax-curve-getparamatpoint  o  (vlax-curve-getclosestpointto o (cadr s))))
                 b (vlax-curve-getpointatparam o a)
                 c (vlax-curve-getpointatparam o (1+ a))
                 )
           (command "_.Break" o "_none" b "_none" c "")
           )
          )
    )
 (princ)
 )