;;;Make a 'Clean' Wblock of only what is selected.  (Not suitable for Mspace/Pspace drawings) Discard changes!
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 9-20-99
;;;>		   EDITED: 08-18-1999
;;;
(defun c:wbcln ()
  (setq exprt (getvar"expert"))
  (setvar "expert" 3)
  (princ "\nSelect objects for Clean Wblock: ")
  (setq ss (ssget))
  (command ".wblock" (getvar"dwgname") "" (getvar"insbase") ss "")
  (setvar "expert" exprt)
  (if align_lst
    (progn
      (setq num (load_dialog "gpdgn"))
      (gate_dlg)
    )
  )
  (command ".open" "y")
;  (command ".open" "y" "~")
);defun