There's no need to use PasteBlock getting AutoCAD's wacky Block name, and then RENAME the Block after it's in. Use the attached PasteBlockWithName.lsp routine. It UNDEFINES and MAKES A NEW DEFINITION OF the PasteBlock command, which forces you to give the Block a meaningful name in the process of pasting it in. It checks that the name you give it is not already used in the drawing, and won't permit you to give it nothing. It works whether you use the PasteBlock command name or Ctrl+Shift+V.
For those Blocks already in the drawing with wacky names, use RenameBlock.lsp, with its RB command, which lets you give a selected Block a new name without needing to know what its current name is to feed into a RENAME command.
[There are links to the Cadalyst CAD Tips website to download these in several Topics in this Forum, but currently downloads are not working there, though they tell me they're working on fixing that.]
Kent Cooper, AIA