Rename block name

[yazgunesi02]

İf interesting to change block name, use this autolisp program..

;*******************************************
;
;          Rename block name                
;         (change block name)               
;                                           
;*******************************************

(defun c:rbk (/ blkselect )

(setq blkselect (entget(car(entsel "Select block to view NAMES : ")))
      blkname   (cdr(assoc 2 blkselect)) )

(princ (strcat "->>> " (cdr (assoc 2 blkselect)) " <<<-" ))
  
(setq blknew (getstring t "\nEnter new block name: "))
 
(command "_.rename" "_block" blkname blknew)
(prompt "\nYour block name renamed...")
(princ)
)

(Princ "Use command  > rbk < to change block name !")