;Wblock Purge utility (uses LBL UNDEFS-(dlog)) (Not suitable for Mspace/Pspace drawings)
;
;	Author:
;		Henry C. Francis
;		425 N. Ashe St.
;		Southern Pines, NC 28387
;
;	http://www.pinehurst.net/~pfrancis
;	e-mail hfrancis@pinehurst.net
;	All rights reserved.
;
(defun C:BWBP ( / fstr wbfn)
  (setq expmd (getvar"expert"))
  (setvar "expert" 5)
  (setq fstr "  Batch WBLOCK purged....:  ")
  (if c:lbl nil (load "LBL"))
  (C:LBL)
  (dlog)
  (command ".ucs" "w")
  (command ".wblock" wbfn (if(eq(getvar"dbmod")0)"*" "Y *"))
  (setvar "expert" expmd)
  (princ)
);defun