Erweiterte Daten automatisch extrahieren

[Angelo2449]

Hallo alle,
10 erweiterte Daten sind mit der Variablen > und 1 < verbunden.
Dieses Programm extrahiert nur die Strings, denen erweiterte Daten zugeordnet sind:

 (defunc c: Add (/ n und1 txt1 Punkt Name string Entity List)

(Setq nil)

(setq string (ssget "_x"((0 . "text")(-3 ("group"))))))))
(princ "\n")

(setq n (sslength stringa)

(Repeat)

(setq unitta (ssname stringa (setq n (1-n))))
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ entita)
(princ "\n")

(setq und1 (entget entita))
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ ed1)
(princ "\n")

(setq txt1 (assoc 1 ed1)
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ txt)
(princ "\n")

(Satzname (cdr txt1))
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(Bezugsname)
(princ "\n")

;

<; defunct befehl add

das Programm funktioniert gut und liefert e1, txt1 und Punktname, aber ich kann die erweiterten Daten nicht extrahieren, die vorhanden sind.

Wenn ich die Stringfrage mit diesem anderen Programm durchführe, werden die erweiterten Daten zurückgegeben (für den einzelnen String):

 ................................................
(Setq-Titel " Wählen Sie den Punktnamen aus)
(princ "\n")
(Sectq ed3)
(princ "\n")
(Sectq und 1 ed)

(setq list (entget (car ed1) '("group"))
(setq xlist (assoc -3 list)
(setq txtdata (car))

(setq nomex (cdr)
(Satzart des Punktes (nth 2 txtdata))
(Satzanteil (cdr (nth 3 txtdata)))
(setq ecef (nth 4 txtdata))
(setq gaussboaga (cdr 5 txtdata))
(Setq Controllerstz (nth 6 txtdata)))
(setq controlpt (nth 7 txtdata)))
(setq coordsgeogr (nth 8 txtdata))
(cdr 9 txtdata)
(setq notepoint (cdr 10 txtdata))
. . . . .
. . . . .

wie bewerbe ich mich auf die automatische Suche des ersten Programms das Auswahlkriterium des zweiten?
Danke.