---

Morgen,

Hätte da ein kleines Problem:
ich möchte mit einem kleinen Lisp alle Elemente des Layers M_A29Abbr auf den Layer L_gelb kopieren und in der Anzeigenreihenfolge unter M_A29Abbr legen. Der Layer L_gelb soll automatisch angelegt werden. Sollte es den Layer L_gelb in der Zeichnung schon geben sollen alle daraufliegenden Elemente mit vorheriger j/n-Abfrage gelöscht werden.

Da mein Lisp wissen leider sehr beschränkt ist hoffe ich da auf
eure kompetente Hilfe!

THX
tom

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Tom,

sind die Elemente des Layers A nicht in irgendwelchen Blöcken verschachtelt, dann kannst du mit
(setq aws(ssget "_X" '((8 . "A")))) die Elemente in einem Auswahlsatz zusammen fassen.
Layer B erzeugen:
(command "_.-layer" "_M" "B" "")
Diesen Auswahlsatz kannst du nun für den Kopierbefehl benutzen.
(command "_.copy" aws "" '(0.0 0.0) '(0.0 0.0))
mit (command "_.CHPROP" aws "" "_LA" "B" "") kannst du die zuvor kopierten Elemente auf den Layer B packen.

Bei Fragen ...

Grüße Holger
PS: Klammern etc musst du prüfen, habe das hier nur so 'aus dem Bauch' geschrieben.

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für deinen Ansatz.
Bin leider kein Weltmeister-Lispler, aber
damit sollte ich schon zum Ziel kommen.

thx
tom

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

Habe ein ähnliches Problem, nur bräuchte ich eine Lisp Programm, dass mir ausgewählte Elemente auf einen anderen Layer kopiert. Desshalb habe ich folgendes gemacht:

(setq auswahl (ssget))
(command "_copy" auswahl "" p1 p2)

Damit wird auswahl aber auf den gleichen Layer kopiert, desshalb mache ich dann noch:

(command "_.chprop" auswahl "" "_LA" "NeuerLayer" "")

Dabei wird allerdings das originale Element auf den Neuen Layer kopiert und nicht, wie ich es bräuchte, die Kopie.

Desshalb meine Frage: Was muss ich machen, dass es so wird wie ich es möchte?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

dann mache es doch mit einem Schritt mehr:
(setq auswahl (ssget))
(command "_copy" auswahl "" p1 p1)
(command "_.chprop" auswahl "" "_LA" "NeuerLayer" "")
(command "_move" auswahl "" p1 p2)

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

Jackpot on demand - Wir eröffnen den Spätsommer mit einer Verlosung!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sehr gut, Danke!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Double
Wir sind zwar im Selbstbastelforum, aber es kann ja nicht schaden
zu erwähnen, falls es dem einen oder anderen nicht bekannt ist,
auf 2 Funktionen der ExpressTools hinzuweisen:

laymch  &  laycur  sollte man sich diesbezüglich mal ansehen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP