---

Hallo

habe ein block mit attributen
möchte gerne ein wert rauslesen.

habe diese befehle eingegeben:

(setq testblock (car (entsel)))
(setq attribut (entnext testblock))
(cdr (assoc 1 attribut))

resultat:
((-1 . <Objektname: 7ef84040> ) (0 . "ATTRIB") (330 . <Objektname: 7ef84038> ) (5
. "80") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "L_ZUL_IS") (100 .
"AcDbText") (10 133.992 127.18 0.0) (40 . 10.0) (1 . "300") (50 . 0.0) (41 .
1.0) (51 . 0.0) (7 . "B_TXT1") (71 . 0) (72 . 0) (11 133.992 132.18 0.0) (210
0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "1.BREITE") (70 . 1) (73 . 0) (74 .
2))

möchte gerne die breite rauslesen. attributbezeichnung: 1.BREITE
hat jemand eine lösung?

danke Nano

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

---

Hallo Nano,

fast hast Du es doch schon gehabt, in der letzten Zeile mußt Du zum "auspacken" der Liste noch ein entget verwenden:
(cdr(assoc 1 (entget attribut)))

Um eine Funktion zu haben, die z.B. den Wert des ersten Attributes zurückgibt könntest Du es wie folgt machen.

Code:

---

(defun c:test ( / testblock attribut)
  (if (and(setq testblock (car(entsel "\nBlock picken:")))
  (=(cdr(assoc 0 (entget testblock)))"INSERT")
  (setq attribut (entnext testblock))
  (= (cdr(assoc 0 (entget attribut)))"ATTRIB"))
    (cdr(assoc 1 (entget attribut)))
    (alert "Kein Block mit mind. 1 Attribut ausgewählt.")))

---

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

Jörn

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

---

Danke Jörn

Super es fuktioniert

Ledeir verstehe ich nicht wie die nächten Attribute rauslessen kann.
Habe ein Block die mehrere Attributen hat,
kann mann nicht die Attributen lessen aus ein Attribut-Namen.
z.Bp. 1.Breite/2.Breite/Höhe/Winkel/... ect.
hast du eine Lösung

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

---

Hallo Nano, such doch mal in der ACAD- bzw. Lisp-Hilfe nach "Gruppencode" oder/und "dxf", vielleicht ist da was nützliches dabei?! Angenehmen Abend!
Frederik

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

---

Schon mal hier geguckt?

Für dich dann der (ungetestete)Aufruf
(cdr(assoc "BREITE"(mapcar '(lambda(x) (cons(strcase(car X))(cdr X))) (Getattribs(car(entsel))))))

.. hoffe, dass ich jetzt keine Klammer vergessen hab .. 

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