(defun c:bv (/ dc bl ns nm mn bc pt nn ls)
            (vl-load-com)
  (if (setq dc (vla-get-ActiveDocument
        (vlax-get-acad-object))
          bl (vla-get-Blocks dc)
            ns (ssget ":S:L" '((0 . "insert"))))
    (progn (redraw (setq ns (ssname ns 0)) 3)
      (setq nm (vlax-ename->vla-object ns)
         mn (vla-get-EffectiveName nm)
           bc (vla-Item bl mn)
             pt (vlax-get bc 'Origin))
      (prompt (strcat "\nCurrent block name: " mn))
      (if (/= (setq nn (getstring T
            "\nEnter the new block name:")) "")
        (if (tblobjname "block" nn)
          (alert (strcat """ nn """
            " is already in use"))
          (progn
            (vlax-for n bc (setq ls (cons n ls)))
            (vla-StartUndomark dc)
            (vlax-invoke dc 'CopyObjects ls
              (vlax-invoke bl 'Add pt nn))
            (vla-put-Name nm nn)
            (vla-EndUndomark dc))))
      (redraw ns 4)
    )
  ) (prin1)
)