[综合讨论] 帮助：LISP删除所有文本，

(defun c:test2(/ cntr eset en cnt)
 (setvar "cmdecho" 0)
 (setq eset
   (ssget"X" 
     (list 
       (cons -4 "<OR")
         (cons 0 "ARC")
         (cons 0 "ATTRIBUTE")
         (cons 0 "CIRCLE")
         (cons 0 "ELLIPSE")
         ;(cons 0 "INSERT")
         (cons 0 "LINE")
         (cons 0 "LWPOLYLINE")
         (cons 0 "MLINE")
         (cons 0 "MTEXT")
         (cons 0 "POINT")
         (cons 0 "POLYLINE")
         (cons 0 "SOLID")
         (cons 0 "TEXT")
         (cons 0 "TRACE")
         (cons 0 "XLINE")
   (cons 0 "LEADER")
   (cons 0 "HATCH")
       (cons -4 "OR>")
     )
   )
 )
 (if (and eset (> (sslength eset) 0))
   (progn
     (setq cnt(sslength eset))
     (command "ERASE" eset "")
     (alert (strcat "Erased " (itoa cnt) " Entities."))  
   )
 )
 (setvar "cmdecho" 1)
 (princ)
)
(princ "\n Type test2.")
(princ "\nttray33y CADTutor.")