;;;Batch Wblock Purge, used by BATP.LSP, uses LBL and DLOG
;;;
(load"stat")
(load"undefs")
(defun C:BWBP ( / fstr wbfn)
  (if (=(getvar"tilemode")0)
    nil
    (progn
;      (setq expmd (getvar"expert"))
;      (setvar "expert" 0)
      (setq fstr "  Batch WBLOCK purged....:  ")
;      (if c:lbl nil (load "LBL"))
;      (C:LBL)
      (dlog)
      (command ".ucs" "w")
      (command ".wblock" (getvar"dwgname") "y" "*")
    );progn
  );if
;  (setvar "expert" expmd)
  (princ)
);defun