Erkennen eines Fehlers

[Angelo2449]

Hallo alle,
Ich schrieb diesen Code, um eine bestimmte Art von Punkt zu wählen:

 (sing)
(= ed1 nil)
(setq e1 (entsel "\nselect the first gps point: "))

(falls (/= ed1 nil)
(Progn)
(setq list1 (entget (car e1) '("group"))
(setq xlist1 (assoc -3 list1)
(setq txtdata1 (car (cdr xlist1))
(setq ed1 (entget (car ed1))
(setq txt1 (cdr 1 ed1)
(setq en1 (cdr -1 ed1)
(setq primogps (cdr 10 ed1)
(Auszug en1 3)

(setq primepuntogps (nth 1 txtdata1)
(setq type-point1 (cdr 2 txtdata1)
(Satzquote1 (cdr (nth 3 txtdata1))
(setq ecef1 (nth 4 txtdata1))
(setq gaussboaga1 (cdr 5 txtdata1)
(Setq Controllerstz1 (nth 6 txtdata1))
(setq controlpt1 (cdr 7 txtdata1))
(Sectq coordsgeogr1 (cdr 8 txtdata1))
(cdr 9 txtdata)
;
;

(wenn (und (= undefinierter Checkpt1) (/= xlist1 nil))
(Progn)
(Runapp "c:\\autocadsupporto\\\libertytre\\\\\\pointnonvalido.exe "c:\\\\\autocadsupport\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\pointnonvalido.tkn" :vlax-true)
(Auszug en1 4)
(Sectq und 1 nil)
;
;

(wenn (= xlist1 nil)
(Progn)
(Runapp "c:\\autocadsupporto\\\\libertytre\\\ pointnonvalidografico.exe "c:\\\\\autocadsupporto\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
(Auszug en1 4)
(Sectq und 1 nil)
;
;
;

Ich kann den Block z.B. nicht aufhalten.
Danke.

 

[Cristallo]

Sie könnten beispielsweise einen Auswahlfilter einfügen
(ssget '(0 . "point")))

Auf diese Weise, wenn das Unternehmen kein Punkt ist, geht die Auswahl nicht direkt vor.

 

[Angelo2449]

Perfekt!
Noch eine Mühe!
Wie kann ich überprüfen, ob das ausgewählte Unternehmen > e1 < nur ein Text ist und zur Gruppe < gehört und daher die Auswahl eines nicht zur Gruppe gehörenden Textes verhindern <, dann einen Fehler bei der Extraktion der zugehörigen Daten erzeugen > erste Punkte, Typ 1,... <.
Danke.

 

[Cristallo]

zum Beispiel alle Funktion in einem Zyklus (bis) einschließen

(setq control nil)
(while (=/ nil control)
(falls (Kontrollbedingung: Art der punktartigen Existenz1) (Setq-Steuerung "1"))
...
...
...
, während des Schließens