---

Hallo Lisp-Experten,
folgende Situation:
in meinen Plan habe ich mehrere Blöcke mit jeweils 5 hinterlegten Attributen. Diese Attribute liegen alle auf dem gleichen Layer.

Aufgabe:
die Attribute innerhalb der Blöcke müssen separaten Layern zugewiesen werden.

1.Kann man die Layerzugehörigkeit nachträglich ändern?
2.Kann man sich die Layerzugehörigkeit der Attribute anzeigen lassen, ohne den Block aufzulössen?
3.Welche Möglichkeit gibt es, nicht jeden Block manuell einzel zu bearbeiten ?

Vielen Dank für eure Hilfe
MfG

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

---

Willkommen im WBF
zu 1. Ja
zu 2. Ja
zu 3. z.B. ein entsprechendes Lisp

------------------
  - 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

---

Danke - für weitergehende Infos wäre ich sehr dankbar!
(PRG: ACAD2000)

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

---

na ok ..
zu 2. wäre z.B. (cdr(assoc 8(entget(car(nentsel))))) ne Lösung
zu 1. kann mit entmod oder vla-put-layer erledigt werden
zu 3.
a)Blockname holen
b)alle Referenzen des Blockes durchlaufen
c)Test, ob Attribute vorhanden
d) wenn ja, in Abhängigkeit der Attributsbezeichnung 1. anwenden

hoffe das hilft dir weiter

------------------
  - 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 palupp,
in folgenden Code kannst Du den Layer von einzelnen Attributen (Nr angeben)oder von allen in einem Abwasch ändern, probier es mal aus, gestartet wird mit "test"

Code:

---

(defun c:test  ( / layer nr n m)
 
  (setq layer (getstring "\nBitte neuen Layer eingeben:")
nr (getint "\nBitte Attributsnummer  eingeben (ENTER=alle)"))
 
  (if (and layer(setq aws (ssget (list (cons 0 "INSERT")))))
    (progn
      (setq n 0)
      (repeat (sslength aws)
(setq att (ssname aws n)
      m 1)
(while (=(cdr(assoc 0(entget (setq att (entnext att)))))"ATTRIB")
(cond ((= nr m)
      (entmod (subst (cons 8 layer)(assoc 8 (entget att))(entget att))))
      ((not nr) (entmod (subst (cons 8 layer)(assoc 8 (entget att))(entget att)))))
  (setq m (+ m 1)))
(entupd (ssname aws n))
(setq n (+ n 1))))
    (alert "Kein Block ausgewählt oder kein Layer eingegeben."))
  )

---

------------------
viele Grüße

Jörn

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

---

Hallo Jörn,
da hast du ja ein prima Programm entwickelt. Funktioniert ohne Probleme!
Kannst du das Programm so erweitern, dass
1. eine Abfrage kommt, wieviele Attribute pro Block bearbeitet werden (n)
2. n-mal die Abfrage zum neuen Layernamen kommt (Layername für 1.Attribut, Layername für 2. Attribut, Layername für n.Attribut)
3. Auswahl der zu bearbeiteten Blöcke kann manuell erfolgen

wenns, nicht zu viel Mühe und Zeit kostet, wäre das wirklich toll.
Vielen Dank
Carsten Kretzschmar

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

---

Hallo Carsten,
im Moment nicht, da meine Zeit in der Tat mal wieder knapp wird, und weil es hier auch nicht meine Aufgabe sein kann, komplett fertigen Code zu posten. Aber vielleicht erbarmt sich ja noch einer hier im Forum.

Aber, ich weiß nicht wie es mit Deinen LISP-Kentnissen steht, vielleicht solltest Du Dich anhand der Grundlage mal ein bißchen daran probieren.

Wenn Du aber fertigen Programmierungen interessiert bist, kannst Du Dich direkt an mich wenden, dann aber nicht kostenlos.

------------------
viele Grüße

Jörn

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