Autocad 2018 / Script for renaming blocks -- 2

Job ID: 36491729

Budget: €30 – €250 EUR

.lsp script for renaming blocks with same name inside drawing with running code.

example:
Current block name: XXXYYY
Amount of blocks: 5 pcs
New blocknames: XXXYYY_1, XXXYYY_2, XXXYYY_3, XXXYYY_4, XXXYYY_5

Current block name should be given as parameter or without parameter it renames all blocks which occuring more than one time in the drawing.
Related categories: CAD/CAM AutoCAD Lisp