home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p065 / 4.img / ERAP.LSP < prev    next >
Encoding:
Text File  |  1992-01-30  |  512 b   |  19 lines
  1. (defun eraperr(s)
  2.   (if (/= s "Function cancelled")
  3.       (princ (strcat "\nError:" s))
  4.   )
  5.   (setvar "cmdecho" 1)
  6.   (setq *error* oer)
  7.   (princ)
  8. )
  9.  
  10. (defun c:erap(/ ss oer)
  11.    (setvar "cmdecho" 0)
  12.    (setq oer *error* *error* eraperr)
  13.    (setq ss (ssget "x" (list (cons 8 "DEFPOINTS"))))
  14.    (if ss (command "erase" ss ""))
  15.    (setq *error* oer)
  16.    (setvar "cmdecho" 1)
  17.    (princ)
  18. )
  19.