; Erstellt mit Gemini am 20.03.2025
;
; Bekannte Probleme:
; - Funktioniert nicht mit dynamischen Blöcken. Blockname wird falsch ausgelesen (z.B. *U119)
;
(defun C:RenameAllBlocks (/ ss blockName newName blockObj)
  (setq ss (entsel "\nWaehlen Sie einen Block zum Umbenennen aus (funktioniert nicht mit dynamischem Block). Alle Instanzen werden umbenannt: ")) ; Auswahl mit entsel
  (if ss
    (progn
      (setq blockObj (vlax-ename->vla-object (car ss))) ; Blockobjekt abrufen
      (if (= (vla-get-ObjectName blockObj) "AcDbBlockReference") ; Überprüfen, ob es ein Block ist
        (progn
          (setq blockName (vla-get-Name (vla-item (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))) (vla-get-Name blockObj)))) ; Blocknamen abrufen
          (setq newName (getstring T (strcat "\nNeuer Name fuer Block \"" blockName "\": ")))
          (if (/= newName "")
            (progn
              (command "_-rename" "Block" blockName newName)
              (princ (strcat "\nBlock \"" blockName "\" wurde in \"" newName "\" umbenannt."))
            )
            (princ "\nUmbenennung abgebrochen.")
          )
        )
        (princ "\nAusgewaehltes Objekt ist kein Block!")
      )
    )
    (princ "\nKein Objekt ausgewaehlt.")
  )
  (princ)
)