(defun C:BLK_RENAME()
(setq #OLD_NAME# nil)
(setq #PR# T)
;;======================================================================================================================
;;======================================================================================================================
(defun NEW_NAME ()
  (setq #NEW_NAME# 
    (dos_getstring "Blockname ändern" "Blockname:" #OLD_NAME#)
  );;setq #NEW_NAME#
);;defun NEW_NAME
;;====================================================================================================================== 
;;======================================================================================================================
  (setq #ob# 
    (car
      (entsel "\nBlock wählen")
    )
  );;setq #ob#
;;======================================================================================================================
(setq #OLD_NAME# 
  (cdr 
    (assoc 2 
      (entget #ob#)
    )
  )
);;setq #OLD_NAME#
;;======================================================================================================================
  (setq #el# (entget 
             (cdr 
               (assoc -2
                 (cdr
                   (tblsearch "BLOCK" #OLD_NAME#)
                 )
               )
             )
             )
  );;setq #el#
;;======================================================================================================================
  (setq #el1# (entget 
                (cdr 
                  (assoc 330 #el#)
                )
              )
  );;setq #el1#
;;======================================================================================================================
  (while #PR#
    (NEW_NAME)
      (if
        (= (tblsearch "BLOCK" #NEW_NAME#) nil)
            (setq #PR# nil)
       )
   );;
;;======================================================================================================================
  (setq #el1# (subst 
                (cons 2 #NEW_NAME#) 
                  (assoc 2 #el1#) 
                    #el1#
               )
  );;setq #el1#
;;======================================================================================================================               
  (entmod #el1#)
  (entupd #el#)
;;====================================================================================================================== 
);;defun C:BLK_RENAME