(defun C:BLOCK-UMBENENNEN (/ ALTER-BLOCKNAME NEUER-BLOCKNAME)
  (setq	ALTER-BLOCKNAME
	 (cdr
	   (assoc
	     2
	     (entget
	       (car (entsel "\n Block zum Umbenennen wählen:")
	       ) ;_ Ende von car
	     ) ;_ Ende von entget
	   ) ;_ Ende von assoc
	 ) ;_ Ende von cdr
  ) ;_ Ende von setq
  (print (strcat "alter Blockname: " ALTER-BLOCKNAME))
  (print "neuen Blocknamen angeben")
  (setq NEUER-BLOCKNAME (getstring))
  (command "umbenenn" "bl" ALTER-BLOCKNAME NEUER-BLOCKNAME)
  (print (strcat "Block '"	    ALTER-BLOCKNAME
		 "' wurde in '"	    NEUER-BLOCKNAME
		 "' umbenannt"
		) ;_ Ende von strcat
   ) ;_ Ende von print
  (princ)


) ;_ Ende von defun