; TIP549.LSP   Redefining Blocks   (c)1990, Chuck Williams

(defun c:BU (/ BLKS TMP NAME 1ST C D N)
  (setq RA (getvar "REGENMODE"))
  (setvar "REGENMODE" 0)
  (setq BLKS (cdr (assoc 2
    (tblnext "BLOCK" t))))
  (setq BLKS (list (cdr (assoc 2
    (tblnext "BLOCK"))) BLKS))
  (while (setq TMP (tblnext "BLOCK"))
    (setq NAME (cdr (assoc 2 TMP)))
    (setq 1ST (substr NAME 1 1))
    (if (/= "*" 1ST) (setq BLKS
      (cons NAME BLKS)))
  )
  (foreach N BLKS
    (setq D (strcat N ".DWG"))
    (setq C (findfile D))
    (if (= C nil)
      (progn
        (prompt (strcat "\nWriting "
          (strcase N) ".DWG ..."))
        (command "WBLOCK" N N)
      )))
  (foreach N BLKS
    (setq D (strcat D "="))
    (prompt (strcat "\nRedefining "
      (strcase D) ".DWG ..."))
    (command ".INSERT" D command)
  )
  (prompt " \n")
  (command ".ZOOM" "E")
  (setvar "REGENMODE" RA)
  (princ)
)