---

Test.txt

Hallo,

habe mich gerade eben durch das Forum gewühlt und mir den Morgen über schon unzählige Beiträge durchgelesen, aber komme einfach auf keinen grünen Zweig im Moment.

Ich habe mal eine DWG in txt umbenannt und angehängt. Wie kann ich denn auf den Wert "Brücke" unter dem Attribut Bauvorhaben zugreifen? Der soll mir einfach einen String ausgeben, den ich dann später in eine Textdatei schreiben kann. Aber zuerstmal weiß ich nicht, wie ich überhaupt an den Wert selbst rankomme.

Dankeschön für eure Hilfe.

Edit:
Habe es jetzt einmal mit folgender LISP probiert und bekomme dabei diese Fehlermeldung:

Code:

---

Befehl: (getattr HYPERSTEELPAGEHEADER POS_NUM)
*Abbruch*
Fehlerhafter Argumenttyp: lentityp nil

---

Hier die LISP:

Code:

---

(defun getattr(e attr / el ok en bl)
  (setq el (entget e)) ;* Wenn es sich um einen Block handelt
  (if (and (= (cdr (assoc 0 el)) "INSERT")
  (assoc 66 el)
  )
  (progn ;* Variablen initialisieren
  (setq ok T en e)
  ;* Schleife solange durchlaufen, bis
  ;* Blockende
  ;* ODER
  ;* das Attribut gefunden wurde
  (while (and (setq en (entnext en))
  (/= (cdr (assoc 0 (entget en))) "SEQEND")
  ok
  )
  (setq bl (entget en))
  ;* Wenn
  ;* es sich um eine Attributdefinition handelt
  ;* UND
  ;* der Attributname dem gesuchten entspricht
  (if (and (= (cdr (assoc 0 bl)) "ATTRIB")
  (= (cdr (assoc 2 bl)) attr)
  )
  ;* ok auf nil setzen
  (setq ok nil)
  ) ;* - if ende
  ) ;* - while ende
  ;* Wenn das Attribut gefunden wurde
  (if (not ok)
  ;* Attributwert auslesen
  (cdr (assoc 1 bl))
  ) ;* - if ende
  ) ;* - progn ende
  ) ;* - if ende
)

---

[Diese Nachricht wurde von fewoer am 20. Jan. 2012 editiert.]

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

---

wenn mit Lisp .....

(if(and(setq OBJ(car(nentsel "\nAttribut wählen:")))
       (setq OBJ(entget OBJ))
       (=(cdr(assoc 0 OBJ))"ATTRIB")
       (setq TXT (cdr(assoc 1 OBJ)))
   )
  (princ (strcat "\n" TXT "\n"))
)

aber warum kopierst du dir den Wert nicht aus dem Eigenschaftsfenster (Befehl : _properties ) oder via attedit oder eattedit ...

Edit: seh gerade ... leere Attribute .... kannste natürlich nicht wählen  .. da du den Namen usw. auch nicht kennst ..... wozu Lisp ?!

Eigenschaftsfenster / Attedit und Co reichen 

------------------
       - 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 CADmium für deine schnelle Antwort - du scheinst das Forum ja mit am Laufen zu halten 

Also, Ziel ist es letztendlich die Werte von Attributen in einer Textdatei auszugeben. In die Zeichnungsstempel werden eben Informationen eingetragen und die sollen nachher in eine Exceldatei eingepflegt werden. Momentan wird das noch von Hand erledigt, soll aber automatisiert werden - damit man eben nicht zweimal beispielsweise eine Zeichnungsnummer eintragen muss.

LISP deswegen, damit man das über 100e Zeichnungen rüberlaufen lassen kann und man am Schluss eine Exceldatei hat, in der alle wichtigen Attributswerte stehen.

Die Attribute sind am Ende ja alle ausgefüllt wie das, in dem der Wert "Brücke" steht. Also nicht leer.

Deinen LISP-Code verstehe ich leider nicht so richtig - für die Variable OBJ setze ich dann den Namen des Blocks ein? Also, dann will er wissen, welches Attribut ich haben möchte... wenn ich ihm dann eins gebe, passiert folgendes:

Code:

---

Attribut wählen:BUILDING
*Ungültige Auswahl*
Erwartet ein einzelnes Objekt.
Attribut wählen:nil

---

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

---

Moin fewoer,

was ist denn mit "attout"?

Gruß To

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