Expert: Bill DeShawn - 7/8/2009

Question
Bill,

Another LISP question regarding a routine that I can't get to work. Attached is my most current attempt. I am using AutoCad 2009. I am trying to write a routine that will erase all blocks of a given name (in this case "delta") from a drawing. I then plan to use it on a number of drawings in batch, using a script. Anyway, I can't get the LISP to work. I would have thought there would be lots of example LISPs for this on the internet, but I couldn't find one. Your help is greatly appreciated.

Nathan

(defun c:BEL (/SS Filter n)
 (setq Filter (list '(2  "delta")) )
 (if (setq ss (ssget "_x" Filter))
   (progn
     (setvar "CmdEcho" 0)
     (command ".erase")
     (setq n 0)
     (while (< n (sslength ss))
  (VL-CmdF (ssname ss n))
  (setq n (1+ n))
        )
  (VL-CmdF "")
  )
     (princ "\Invalid selection")
     )
   (princ)
   )

Answer
Nathan
I take a somewhat less complicated approach:

(defun c:nodelta (/ alldeltas)
 (setq alldeltas (ssget "x" (list (cons 2 "delta"))));surprisingly not case sensitive.
 (if alldeltas (command "_.erase" alldeltas ""))
 (if (null alldeltas)(alert "No delta blocks found"))
 (princ)
)

Let me know how it goes.
Bill DeShawn
http://my.sterling.net/~bdeshawn