[原创]已知3线，如何用trim命令将第3线之第1、2线之间剪切掉？

tangdeyu

如：

\

---\----------------L1

------\-------------L2

           \

             L3

亦知道L3在L1、L2之间的一点p，但就是剪切不掉中间的那一段

(command "trim" L1 L2 "" L3   p "")

盼高手明示，先谢谢了……

nzl1116

(defun break2 (line pt1  pt2   /    modelspace
        entity startPt  endPt   dist1    dist2    minDist
        maxDist aList  pnt1   pnt2
       )
  (vl-load-com)
  (setq modelspace
  (vla-get-modelspace
    (vla-get-ActiveDocument
      (vlax-get-acad-object)
    )
  )
  )
  (if (equal (type line) 'ENAME)
    (setq entity line)
    (setq entity (vlax-vla-object->ename line))
  )
  (setq startPt (cdr (assoc 10 (entget entity)))
 endPt (cdr (assoc 11 (entget entity)))
 entity (vlax-ename->vla-object entity)
  )
  (vla-delete entity)
  (setq dist1 (distance startPt pt1)
 dist2 (distance startPt pt2)
 minDist (min dist1 dist2)
 maxDist (max dist1 dist2)
 aList (list (cons dist1 pt1) (cons dist2 pt2))
 pnt1 (cdr (assoc minDist aList))
 pnt2 (cdr (assoc maxDist aList))
  )
  (list (vla-addline
   modelspace
   (vlax-3d-point startPt)
   (vlax-3d-point pnt1)
 )
 (vla-addline
   modelspace
   (vlax-3d-point pnt2)
   (vlax-3d-point endPt)
 )
  )
)

tangdeyu

谢谢这么快就回复。

但我想知道的是，能不能用我上面的简单形式实现此功能？

Student

试试如何：

(command "trim" L1 L2 "" (list L3 p) "")

tangdeyu

谢谢student,试过了，不行……

cauin

怎么会不行呢，我试没问题

tangdeyu

我改成这样就行了……谢谢上边高手的帮助……

(command "trim" L1 L2 "" (list (car L3) p) "")

cauin

原来你的L3不是图元名，而是(图元名 点)