;;WIPE.LSP - (c) 1997 Tee Square Graphics
;;
;; Makes the creation of WIPEOUT objects a single-step process
;; by obviating the need for a separate and pre-existing polyline.
;; Creates a new polyline "on the fly" and then closes it; forces
;; the new polyline to 0 width, and accepts only point entries, so
;; a "legal" closed, 0-width polyline consisting of only straight
;; line segments is created automatically.
;;
(defun C:WIPE (/ )
  (savars (list
            "cmdecho"
            "plinewid"
            ))
  (command "_.undo" "_be")
  (setvar "cmdecho" 0)
  (prompt "\nFrom point: ")
  (command "_.pline" pause "_w" 0 0)
  (while (> (getvar "cmdactive") 0)
    (command (getpoint (getvar "lastpoint") "\nTo point: ")))
  (command "_.pedit" "_l" "_c" "_x"
           "_.wipeout" "_n" (entlast) "_y"
           "_.wipeout" "_f" "_off"
           "_.undo" "_e")
  (revars)
)
(alert
  (strcat "WIPE.LSP - (c) 1997 Tee Square Graphics"
          "\n\n          Type WIPE to begin"))
(princ)