Wie verschiebe ich in AutoCAD alle Objekte eines Typs auf einen anderen Layer?

Was cadssistant tut

1. Stellt sicher, dass A-ANNO existiert, und legt ihn mit -LAYER an, wenn die Layerliste ihn nicht hat, denn ein Element lässt sich nicht auf einen Layer verschieben, den es nicht gibt.
2. Wählt TEXT und MTEXT auf Layer 0 mit einem ssget-Filter aus.
3. Schreibt den Layer jedes Elements in einem AutoLISP-Durchgang um und antwortet mit der Anzahl. Elemente innerhalb von Blöcken werden nicht angefasst.

Dieselbe Aufgabe in AutoLISP

(progn
  (setq ss (ssget "_X" '((0 . "TEXT,MTEXT") (8 . "0"))) i 0)
  (if ss
    (repeat (sslength ss)
      (setq ed (entget (ssname ss i)) i (1+ i))
      (entmod (subst (cons 8 "A-ANNO") (assoc 8 ed) ed))))
  (if ss (sslength ss) 0))

Legen Sie A-ANNO zuerst mit dem Befehl LAYER an, falls es ihn noch nicht gibt. Liefert die Zahl der verschobenen Elemente.

Gut zu wissen

• „Alles Rote“ heißt Farbe 1 als Objektüberschreibung: (62 . 1) im Filter. Objekte, die rot sind, weil ihr Layer rot ist, stehen auf VONLAYER und passen nicht; sagen Sie „auf roten Layern“ für die.
• Sagen Sie „und setz sie auf VONLAYER“, dann räumt es im selben Durchgang auch Farb- und Linientyp-Überschreibungen weg.

Mehr aus „Massenbearbeitung“

• 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?
• Wie benenne ich in AutoCAD viele Layer auf einmal um?