[求助]：如何实现两条线之间的剪切

shisj

先选择两条曲（直）线作为边界，以后选择的实体，都是剪切掉两曲（直）线之间的部分，用lisp该如何实现，求助了。最好能举和例子。

zhanzujie

AutoDesk Map 中有相关命令---

lsjjm

最初由 shisj 发布
[B]先选择两条曲（直）线作为边界，以后选择的实体，都是剪切掉两曲（直）线之间的部分，用lisp该如何实现，求助了。最好能举和例子。 [/B]

要看具体情况. 这是一个例:
(vl-cmdf "trim" "all" "" (ssget "f" (list (polar p0 (* n (/ pi 3)) r1)
                                                            (polar p0 (* n (/ pi 3)) r2))) "")

shisj

最初由 lsjjm 发布
[B]
要看具体情况. 这是一个例:
... [/B]

该语句好像不能实现我说的要求，我需要选择的边界为两条曲线，该语句为选择全部，还要p0的点如何选择？

aaddff

传个图上来看看……

shisj

附图为简单的要求说明

aidraft

;;;Something like this...
(defun C:Trim2 (/ ss en1 en2 en3)
  (setq ss (ssget))
  (if ss
    (if        (>= (sslength ss) 2)
      (progn
        (setq en1 (ssname ss 0)
              en2 (ssname ss 1)
        )
      )
    )
  )
  (setq ss (ssget ":s" '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))
  (if ss
    (setq en3 (ssname ss 0))
  )
  (vl-cmdf "break"
           en3
           "f"
           (Intersect en1 en3)
           (Intersect en2 en3)
  )
  (princ)
)
(defun Intersect (e1 e2)
  (vlax-safearray->list
    (vlax-variant-value
      (vla-intersectwith
        (vlax-ename->vla-object e1)
        (vlax-ename->vla-object e2)
        acExtendNone
      )
    )
  )
)

shisj

谢谢aidraft，基本实现了该功能，就是一次只能剪切一个，能连续剪切就好了。
另外求教一下
(setq ss (ssget ":s" '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))

我猜是过滤选择，可是在帮助找不到这个用法，能解释一下吗？