.....................................

贱人

.....................................

xyp1964

增加相关判断，仍不适于封闭图形（起点、终点合一，无法判断方向）。break也有类似问题。
[php]
;;;反break c:fb
;;;保留两点间的线段
;;;不适于封闭线：如CIRCLE、ELLIPSE等
(defun c:test011 (/ osm s1 e pt1 pt2 pt0 ptn l1 l2)
  (vl-load-com)
  (setq osm (getvar "osmode"))
  ;;(setvar "osmode" 512)
  (while (not (setq s1 (entsel "\n选择对象 : "))))
  (setq        e   (car s1)
        pt1 (osnap (cadr s1) "near")
  )
  (while (not pt2)
    (setq pt2 (getpoint "\n指定第二个打断点 : ")
          pt2 (osnap pt2 "near")
    )
  )
  (setq        pt0 (vlax-curve-getstartPoint e)
        ptn (vlax-curve-getEndPoint e)
        l1  (vlax-curve-getDistAtPoint (vlax-ename->vla-object e) pt1)
        l2  (vlax-curve-getDistAtPoint (vlax-ename->vla-object e) pt2)
  )
  (setvar "osmode" 0)
  (vl-cmdf ".undo" "BE")
  (setq s (cons e (list pt1)))
  (if (> l2 l1)
    (progn
      (command "break" s "f" pt1 pt0)
      (setq s1 (ssget "c" pt2 pt2)
            e  (ssname s1 0)
            s  (cons e (list pt1))
      )
      (command "break" s "f" pt2 ptn)
    )
    (progn
      (command "break" s "f" pt1 ptn)
      (setq s1 (ssget "c" pt2 pt2)
            e  (ssname s1 0)
            s  (cons e (list pt1))
      )
      (command "break" s "f" pt2 pt0)
    )
  )
  (redraw)
  (vl-cmdf ".undo" "E")
  (setvar "osmode" osm)
  (princ)
)
[/php]