---

kann mir bitte jemand zu dem alten Thema "merherer Attribute auslesen"  weiterhelfen

habe lsp erspäht zum Auslesen von Attributen und wollte sie mir Anpasssen ,
1. wie kann ich mehrere Attribute auslesen und an die liste übergeben,
2. wodurch bestimme ich die Reihenfolge der Auflistung in der Liste
bsp wie üblich :  pnr x y h cod

(defun c:koo-list ( / aws n m liste datei)
  (princ "\nBlöcke auswählen")
  (setq aws (ssget (list (cons 0 "INSERT")
(cons 2 "codxyz,codxy")      ;;;hier kann man mehrere Blöcke auflisten durch Kommatrennung
)))
  (if aws
    (progn
      (setq n 0)
      (repeat (sslength aws)
(setq m 1)
(while (and m(JB_entnext(ssname aws n)m)
  (/=(cdr(assoc 0(entget(JB_entnext(ssname aws n)m))))"SEQEND"))
  (if (=(cdr(assoc 2(entget(JB_entnext(ssname aws n)m))))"PNR,COD,Hoehe")  ;;;leider geht das mit der auflistung hier nicht

(if (=(cdr(assoc 2(entget(JB_entnext(ssname aws n)m))))"COD") ;; und wenn ich die Zeile doppelt einfüge wird nur die erste verstanden

;; es fehlt mir also nur ein "UND" dazwischen oder ??????

  (progn
      (setq koord (trans(cdr(assoc 10 (entget (ssname aws n))))0 1)
            liste (cons (strcat
  (rtos (car koord) 2 5)"  ,    "
  (rtos (cadr koord) 2 5)"  ,  "
;;;  (rtos (caddr koord) 2 5)"  ,  "
  (cdr(assoc 1(entget(JB_entnext(ssname aws n)m)))))liste)
    m nil))
    (setq m (+ m 1))))
(setq n (+ n 1)))
      (setq datei (open "f:ausgabe.txt" "w"))
      (mapcar '(lambda(A)
(write-line A datei))
      liste)
    (close datei))
    (alert "Es wurden keine Blöcke gewählt."))
  (princ)
  )
(defun JB_entnext (element n / )
  (repeat n
    (setq element (entnext element))))

------------------
Gruß vom Bauvermesser;

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

---

Hallo Bauvermesser,

warum in der Filterliste beim SSGET mehrere Blocknamen ("codxyz,codxy") möglich sind, liegt daran, dass in der internen Auswertung dieses Ausdrucks ein Platzhaltervergleich ala (wcmatch ..) durchgeführt wird.
Und mit diesem (wcmatch ..) ist es eben möglich mehrere Vergleichsmuster, durch Komma voneinander getrennt, anzugeben.

Nun kommt die Preisfrage: Warum funktioniert das nicht bei:
(if (=(cdr(assoc 2(entget(JB_entnext(ssname aws n)m))))"PNR,COD,Hoehe")?

Antwort: Weil mit dem = eben geprüft wird, ob die Zeichenkette genau gleich ist.

Du willst an dieser Stelle doch sicher die Zuordnung Attribut <-> Attributwert herstellen. Das ist eine typische Aufgabe um mit Assoziationslisten zu arbeiten.
Streichst du also den (if .. ) Block vollständig aus deinem Code raus, und ersetzt diesen mit:
(setq AttributeListe (cons (cons (cdr(assoc 2(entget(JB_entnext(ssname aws n)m))))
(cdr(assoc 1(entget(JB_entnext(ssname aws n)m))))
)
  AttributeListe
  )
      )
erhältst du eine Auflistung der folgenden Form.
'(("ATTRIBUT3" . "WERT3")("ATTRIBUT2" . "WERT2")("ATTRIBUT1" . "WERT1"))

Du solltest das dann natürlich noch in der (repeat ..)-Schleife für jede einzelne Blockreferenz wegspeichern, und die Variable AttributeListe vor dem (while ..)-Block neu initialisieren/zurücksetzen) (setq AttributeListe nil).

Noch Fragen ...?

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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

---

Hi,

Zitat:

---

Original erstellt von Bauvermesser:
...
  (if (=(cdr(assoc 2(entget(JB_entnext(ssname aws n)m))))"PNR,COD,Hoehe")   ;;;leider geht das mit der auflistung hier nicht...

---

habe mir nicht alles angeschaut aber mit
(member (cdr (assoc 2 (entget (JB_entnext (ssname aws n) m))))'("PNR" "COD" "Hoehe") 
in der and-Abfrage könnte die Zeile gehen...
sonst siehe Holger

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."   (www.uni-leipzig.de/~rotheh/elefant.htm)

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

---

Hallo Bauvermesser,
wie Holger bereits geschrieben hat, über Assoziationslisten ist ein guter Weg. Ich habe nochmal ein Beispiel angehängt, wie ich es heute in etwa machen würde.
Pro Block werden der Block und die Attributsdaten in eine Liste geschrieben:
(Block-Entityname(Attname (entget-liste des Attributes)))
Dann hast Du alle Daten zusammenhängend in einer Liste, und beim schreiben der Datei ziehst Du Dir die Daten raus, die Du brauchst.

Code:

---

(defun c:test ( / A AWS DATEI LISTE N)
  (if (setq aws(ssget (list (cons 0 "INSERT")
                            (cons 2 "codxyz,codxy"))))
    (progn
      (setq n 0)
      (repeat (sslength aws)
        (setq liste (cons(list (ssname aws n)
                              (JBf_list:Insert:Att->list (ssname aws n)))liste)
              n (+ n 1)))
      (if(setq datei (open "c:\\temp\\ausgabe.txt" "w"))
        (progn
      (mapcar '(lambda(A)
                (write-line
                  (strcat
                    (if(assoc "PNR" (cadr A))
                      (cdr(assoc 1(cadr(assoc "PNR" (cadr A)))))"")
                    ","
                    (rtos (car(cdr(assoc 10 (entget(car A)))))2 5);;;x
                    ","
                    (rtos (cadr(cdr(assoc 10 (entget(car A)))))2 5);;;y
                    ","
                    (if(assoc "HOEHE" (cadr A))
                      (cdr(assoc 1(cadr(assoc "HOEHE" (cadr A)))))
                      (rtos (caddr(cdr(assoc 10 (entget(car A)))))2 5));;;HOEHE oder z
                    ","
                    (if(assoc "COD" (cadr A))
                      (cdr(assoc 1(cadr(assoc "COD" (cadr A)))))""))datei))liste)
      (close datei)))
      )
    (alert "Es wurden keine Blöcke gewählt."))
    (princ)
    )

(defun JBf_list:Insert:Att->list (obj / att_liste)
  (if (and (entnext obj)(=(cdr(assoc 0(entget (entnext obj))))"ATTRIB"))
    (while (and(setq obj (entnext obj))
      (/= "SEQEND" (cdr(assoc 0(entget obj)))))
      (if (=(cdr(assoc 0(entget obj)))"ATTRIB")
(setq att_liste (cons (list (strcase(cdr(assoc 2 (entget obj))))
                                    (entget obj))att_liste)))))
  (reverse att_liste)) 

---

                       

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

Jörn
http://www.bosse-engineering.com

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