Festlegung der Anzahl der erweiterten Daten, die mit einem Element verbunden sind

[Angelo2449]

Hallo alle,
Ich möchte die Anzahl der erweiterten Daten, die mit einem Element verbunden sind, ermitteln können.
mit diesem Code Ich extrahiere die erweiterten Daten:

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

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

(setq nomex (cdr)
(setq nomegenx nomex); globaler Name
(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))[CODE] wie ich vorher die Anzahl der erweiterten Daten (in diesem Fall 10) ermitteln kann, um nicht zu verkapseln
in nil-Daten?
Danke.

 

[rpor66]

im Verzeichnis c:\Programme\autodesk\autocad 2018\express oder in jedem Fall, der mit Ihrer Version zusammenhängt, die xdata.lsp-Datei finden, nach dem Befehl c:xdata suchen, ist der Ausgangspunkt, um die Routine zu erstellen, um die Anzahl der Daten einschließlich der Art der Daten zu haben.

 

[Angelo2449]

Danke rpor66,
Ich öffnete die c:xdata.lsp-Datei und kam zu dem Schluss, dass das Wissen über die Anzahl der erweiterten Daten mein Problem nicht immer lösen.
Ich fordere Sie daher auf, wie ich vorgehen konnte, um zu vermeiden, dass erweiterte Daten nicht vorliegen:
(setq coordsgeogr (nth 8 txtdata))
in diesem Fall, wenn das achte gegeben nicht existiert, ein Fehler auftritt!
Danke.

 

[rpor66]

(falls (/= (nth 8 txtdata) nil)
(setq coordsgeogr (nth 8 txtdata))
(alert "Koordsgeogr: kein Wert")
)

 

[Angelo2449]

Danke rpor66,
Es funktioniert großartig!
die Lösung ist immer die einfachste!