(defun C:TBT_BLK_RENAME()
;;======================================================================================================================
;;======================================================================================================================
(defun *error* (msg)
  (setvar "cmdecho" 1)
  (setvar "nomutt" 0)
  (princ)
);;defun *error*
;;======================================================================================================================
;;======================================================================================================================
(setvar "cmdecho" 0)
(setvar "nomutt" 1)
(setq #OLD_NAME# nil)
(setq #PR# T)
(setq #BL# T)
;;======================================================================================================================
;;======================================================================================================================
(defun NEW_NAME ()
  (setq #NEW_NAME# 
    (dos_getstring "Blockname ändern" "Blockname:" #OLD_NAME#)
  );;setq #NEW_NAME#
);;defun NEW_NAME
;;====================================================================================================================== 
;;======================================================================================================================
  (while #BL#
   (setvar "cmdecho" 1)
   (setvar "nomutt" 0)
    (setq #ob# 
      (car
        (entsel "\nBlock wählen")
      )
    )
     (setvar "cmdecho" 0)
     (setvar "nomutt" 1)
      (if
        (= "INSERT"
          (cdr 
	    (assoc 0 
	      (entget #ob#)
	    )
	  )
	)
	  (setq #BL# nil)
	  (alert "das Objekt ist > K E I N < Block !!!")
      )
  
  );;while #BL#
;;======================================================================================================================

(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)
            (alert "der Blockname wird schon verwendet !!!")
       )
   );;while #PR#
;;======================================================================================================================

  (setq #el1# (subst 
                (cons 2 #NEW_NAME#) 
                  (assoc 2 #el1#) 
                    #el1#
               )

  );;setq #el1#
;;======================================================================================================================  
  (entmod #el1#)(princ)
  (entupd #el#)(princ)
  (setvar "cmdecho" 1)
  (setvar "nomutt" 0)
;;====================================================================================================================== 
);;defun C:TBT_TEST