;V1.1 Copyright 11/6/99 1999 Bill DeShawn, author
;All rights reserved
;Freeware - supplied "As Is".
;Author is not responsible for damage brought about by this code.
;Use at your own risk.
;Now includes a default opening of the wblock in order to save as R14.
(defun c:b2wb (/ ent elist bname ip query ovr)
   (setq ent (entsel "\nSelect Block object:  "))
   (setq elist (entget (car ent)))
   (setq bname (cdr (assoc 2 elist)))
   (setq ip (cdr (assoc 10 elist)))
   (setq query (findfile (strcat (getvar "dwgprefix") bname ".dwg")))
   (if (null query)
      (command "_.wblock" (strcat (getvar "dwgprefix") bname) bname)
      (progn
         (setq ovr (strcase (getstring "\nFile exists.  Overwrite? <N> ")))
         (if (= ovr "")(setq ovr "N"))
         (if (= ovr "Y") (command "_.wblock" (strcat (getvar "dwgprefix") bname) ovr bname) )
      )
   )
   (if (= (getvar "acadver")"15.0")
      (progn 
         (alert "Please save new DWG file as R14.")
         (startapp (findfile "acad.exe") (strcat (getvar "dwgprefix") bname))
      )
   )
   (princ)
)