---

hallo zusammen.

mit folgender funktion füge ich einen text an das objekt an:

(defun OBJ:XDATEN:WRITE (app obj was / liste)
  (if obj
    (progn
      (setq liste (list (cons 1000 was)))
      (regapp app)
      (entmod(append (entget obj)(list(list -3 (cons app liste))))))
    )
  )

Aufruf mit:
(OBJ:XDATEN:WRITE "app1" (car(entsel)) irgendein text")

mit dieser funktion kann ich die gesetzten texte lesen:
(defun OBJ:XDATEN:READ (app obj n / liste)
  (if obj
    (progn
      (setq liste(cdr(assoc app(cdr(assoc -3(entget obj (list app)))))))
      (if n
        (cdr(assoc n liste))
        liste))
    )
  )

soweit so gut.

wenn ich allerdings
(ssget "x" (list '(-3 ("app1" (1000 . "irgendein text")))))

aufrufe, werden die objekte nicht gefunden.

woran liegt das?

vielen Dank im Voraus

Gruß
theo

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

---

Weil du zuviel erwartest (hast dich da wohl vorher nicht informiert): Hilfe zu SSGET und eed

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

vielen Dank für die schnelle antwort.

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