 ; Idle - erase all polylines on the Revise layer and all Rev triangles.
 ; Copyright 1997, 2001 by Rocket Software Ltd.
 ; Just ease back on the revs there, Bob.
 (DEFUN C:IDLE (/ ss)
  (setvar "cmdecho" 0)
  (if (setq ss (ssget "X" '((-4 . "<or") (8 . "REVISE")
                                         (8 . "A-REVISE") (-4 . "or>")
                            (-4 . "<or") (0 . "POLYLINE")
                                         (0 . "LWPOLYLINE") (-4 . "or>"))))
      (command "erase" ss ""))
  (if (setq ss (ssget "X" (list (cons 2 "REVTRI"))))
      (command "erase" ss ""))
  (if (setq ss (ssget "X" (list (cons 2 "REV"))))
      (command "erase" ss ""))
 (if (setq ss (ssget "X" (list (cons 2 "REVISION"))))
      (command "erase" ss ""))
 (princ))