;| Bumb
-------------------------------------------------------------------------------

Block umbennen
Schnelle Befehlszeilenversion zum Umbenennen von Blöcken

-------------------------------------------------------------------------------
Copyright (C) 2008 Markus Hoffmann
www.CADmaro.de
-------------------------------------------------------------------------------
FREEWARE:
Dieser Quellcode darf unbegrenzt und für jeden Zweck verwendet werden sofern
keine Gebühr erhoben wird. Der Quellcode darf weiterhin nach eigenen
Bedürfnissen anpasst, verbessert, kopiert und weitergegeben werden. Der
Urheberrechtshinweis darf nicht entfernt werden.
-------------------------------------------------------------------------------
|;(defun c:Bumb (/ ss ent strBlkNameOld strBlkNameNew)
  (if
    (and
      (or
        (and
          (setq ss (cadr (ssgetfirst)))
          (setq ent (ssname ss 0))
        )
        (setq ent (car (entsel)))
      )
      (setq strBlkNameOld (cdr (assoc 2 (entget ent))))
      (setq strBlkNameNew (getstring (strcat "\nBlock " strBlkNameOld " umbenennen in: ")))
    )
     (command "_-rename" "_b" strBlkNameOld strBlkNameNew)
  )
)