---

Ich benötige folgende Funktion:

1. Wähle einen Block
2. Selektiere den Blocknamen
3. lege einen Layer mit dem Blocknamen neu an
4. verschiebe den Block auf diesen neuen Layer

Mein Ansatz:

(setq k (entget (car (last (nentsel "\nSelektieren Sie bitte einen Block: ")))))
(setq 1name (cdr (assoc 2 k)))
(command "-layer" "n" 1name "")
(command "_.change" "l" "" "EI" "LA" 1name "")

Leider ist im Befehl "_.change" das LETZTE Objekt nicht der vorher angeklickte Block. Kann ich bitte einen Denkanstoß haben?

Danke
Lutz

------------------
Menschen mit T21 sind von Natur aus freundlich.
Wir sollten von ihnen lernen ...

---

machs ganz anders :

(if(and(or(setq B(ssget "_:S" '((0 . "INSERT"))))     
          (prompt "\nKeine Blockreferenz gewählt!\n")
      )
      (setq B(ssname B 0))
      (setq N(cdr(assoc 2(entget B))))
      (or(snvalid N)
          (prompt "\nUngültiger Layername!\n")
      )
  )
  (progn
    (or(tblobjname "LAYER" N)
      (command "_-layer" "_m" N "")
    ) 
    (entmod(subst(cons 8 N)(assoc 8 (entget B))(entget B)))
  )
)

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Lutz,

versuche es mal hiermit:
(setq blck (car (entsel "\nBlock wählen: ")))
(setq lay (cdr (assoc 2 (entget blck))))
(command "_change" blck "" "ei" "la" lay "")

Gruß Peter

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

---

Hi,

der feine Unterschied zwischen dem letzten Objekt und der vorherigen Auswahl. Die Hilfe erklärt's so:

Zitat:

---

Previous
Selects the most recent selection set.

Last
Selects the most recently created visible objects

---

Gruß
CADchup

------------------
CADmaro.de

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

---

Mein Gott, ist das frustrierend. Und ich hatte mich schon gefreut, in der richtigen Richtung zu sein.

Funktioniert wunderbar, wie konnte es anders sein.

Vielen Dank, das war´s ...

Lutz

------------------
Menschen mit T21 sind von Natur aus freundlich.
Wir sollten von ihnen lernen ...