(defun C:FW (/ E PTS SS)
  (and (princ "\n按范围线删除  小萝卜头 9/14/10")
       (setq E (car (entsel "\n选择范围线:")))
       (setq PTS (ACET-GEOM-PLINE-POINT-LIST E NIL))
       (setq SS (ssget "WP" PTS))
       (command "._ERASE" SS "")
  )
  (princ)
)