Wie benenne ich in AutoCAD viele Layer auf einmal um?

Was cadssistant tut

1. Liest die Layertabelle mit tblnext und gleicht die Namen mit wcmatch "X-*" ab.
2. Führt in einem AutoLISP-Durchgang für jeden Treffer -RENAME Layer alt neu aus; ein Ziel, das schon existiert, wird übersprungen und gemeldet.
3. Antwortet mit alt → neu für jeden Layer. XRef-abhängige Layer (Namen mit |) bleiben unangetastet.

Dieselbe Aufgabe in AutoLISP

(progn
  (setq def (tblnext "LAYER" T) names nil done nil)
  (while def
    (if (wcmatch (cdr (assoc 2 def)) "X-*") (setq names (cons (cdr (assoc 2 def)) names)))
    (setq def (tblnext "LAYER")))
  (foreach nm names
    (if (not (tblsearch "LAYER" (strcat "A-" (substr nm 3))))
      (progn
        (command "_.-RENAME" "_LA" nm (strcat "A-" (substr nm 3)))
        (setq done (cons nm done)))))
  done)

Sammelt zuerst die passenden Namen und benennt dann jeden um, außer das Ziel existiert schon. Liefert die umbenannten Layer.

Gut zu wissen

• Umbenennen nach einem Layerstandard: Fügen Sie die Zuordnung alt zu neu als Tabelle in die Nachricht ein, dann nimmt es die statt eines Musters.
• Sagen Sie „stattdessen zusammenführen“, dann läuft LAYMRG, das die Objekte auf das Ziel verschiebt und die Quelle löscht, ein anderer Vorgang.

Mehr aus „Massenbearbeitung“

• Wie verschiebe ich in AutoCAD alle Objekte eines Typs auf einen anderen Layer?
• Wie ändere ich in AutoCAD die Höhe aller Texte einer Zeichnung auf einmal?
• Wie ersetze ich in AutoCAD einen Block in der ganzen Zeichnung durch einen anderen?
• Wie lösche ich in AutoCAD alles auf einem Layer und bereinige den Layer?