Extraktion der Punkte

[Angelo2449]

Hallo alle,
in einem Design, in dem es Textzeichenfolgen gibt, die Punkte identifizieren, möchte ich den Inhalt aller Zeichenfolgen oder den Namen des Punktes extrahieren.

Diese Strings sind mit erweiterten Daten verbunden, ich möchte nur den Inhalt dieser Strings extrahieren.

Strings (Punkte) wurden mit diesem Code generiert:

(Seq Objekt "Gruppe")
(Entfernungsobjekt)
(setq string (ssget "_x"(0 . "text,mtext")(1 . "p*")))))

(falls (/= String nil)
(Progn)
(setq n (sslength stringa)
(Satznummer n)

(setq fc1 nil)
(setq fc1 (findfile "c:\\\\\autocadsupport\\\\provisors\\\\geografica.dat"))

(falls fc)
(setq fp2 (open "c:\\\\autocadsupport\\\\\provisors\\\geografica.dat" "r"))
;

(setq fp1 (open "c:\\\autocadsupport\\contatori\nnumeropunti.dat" "w"))
(Schreiblinie) fp1)
-----

(setq cont 0)

(Repeat n; (setq n (sslength stringa))

(setq cont (1+ cont))

(falls fc)
(setq coordsgeogr (read-line fp2))
(setq coordsgeogr...--------------)
;

(falls (/= coordsgeogr "--------------)
(setq coordsgeogr (strcat coordsgeogr " (itoa cont))))
;

(setq unitta (ssname stringa (setq n (1-n))))
(Sectq-Text)
(setq txt1 (assoc 1 text))
(Satzname (cdr txt1))
(setq pospar1 (vl-string-search)
(setq nomex (substr point 2 (- pospar1 1)))
(setq Quote (substr point name (+ pospar1) 2) 6)

(setq txt2 (cdr txt1)
(Sectq lungh (- (strlen txt2) 35)
(setq xyz (assoc 10 text)

(setq line (strcat name " - " (itoa n)))
(Schreiblinie fp1)

(setq gaussboaga (strcat (rtos (cadr xyz)) "," (rtos (caddr xyz)))
(setq ecef (substr txt2 (+ 10 pospar1) 35)

(while (vl-string-search " ecef)
(setq ecef (vl-string-subst "" " ecef))
;

(Setq-Typ "generischer" Punkt)
(Setq cstz "nicht enthalten")
(setq cpt "undefiniert")

(setq oldlist (entget entita))
(Datensatz (Liste -3 (cons 1000 nomex) (cons 1000 point type) (cons 1000 ratio) (cons 1000 ecef)
(cons 1000 gaussboaga) (cons 1000 cstz) (cons 1000 cpt) (cons 1000 coordsgeogr)
(cons 1000...----------)

(Setq neue Liste)
(entmod newlist)
(Befehl "_change" entita "" "" """ """ "" nomex)

;
;
;

Ich möchte daher die Liste der Namen der in der Zeichnung vorhandenen Punkte erstellen, denen erweiterte Daten zugeordnet sind.
Danke.