;删除被两点之间压的线         
(defun c:sq(/ pnt1 lp pntlst pnt2 sst)
(setq pnt1 (getpoint "\nPick first point: ")
      lp pnt1
      pntlst (list pnt1)
)
(while
  (setq pnt2 (getpoint lp "\nPick next Point or ENTER when done: "))
  (grdraw lp pnt2 8 1)
   (setq pntlst (cons pnt2 pntlst)
            lp pnt2
    )
)
(redraw)
(setq pntlst (reverse pntlst))

(setq sst (ssget "_WP" pntlst '((0 . "ARC,LINE")) ))

   (command "erase" sst "")
)

;;(vl-cmdf "select" "_WP")

;;( while (> (getvar 'CmdActive) 0) (command pause) )

;;( setq test (ssget "_P" '((0 . "ARC,LINE")) ) )