Estrarre i dati estesi in automatico

Professione: Pensionato
Software: Autocad
Regione: Lombardia
#1
Salve a tutti,
alla variabile > ed1 < sono associati 10 dati estesi.
Questo programmino estrae in un .dwg unicamente le stringhe alla quali sono associati dei dati estesi :
Codice:
  (defun C:AGGIUNGI (/ N ed1 Txt1 NomePunto Stringa Entita List)

        (setq N nil)

        (setq Stringa (ssget "_X" '((0 . "TEXT")(-3 ("Gruppo")))))
    (princ "\n")   

        (setq N (sslength Stringa))

        (repeat N

            (setq Entita (ssname Stringa (setq N (1- N))))
        (princ "Entita >>>>>>>>>> ")
        (princ Entita)
        (princ "\n")

            (setq ed1 (entget Entita))
        (princ "ed1 >>>>>>>>>> ")
        (princ ed1)
        (princ "\n")
  
            (setq Txt1 (assoc 1 ed1))
        (princ "Txt1 >>>>>>>>>> ")
        (princ Txt1)
        (princ "\n")

            (setq NomePunto (cdr Txt1))
        (princ "NomePunto >>>>>>>>>> ")
        (princ NomePunto)
        (princ "\n")

        );;repeat

    )<;; defun fine comando AGGIUNGI
Il programmino funziona egregiamente e restituisce ed1, Txt1 e NomePunto ma non riesco ad estrarre i dati estesi che sono presenti.

Se eseguo l'interrogazione della stringa con quest'altro programmino i dati estesi vengono restituiti (per la singola stringa) :

Codice:
    ................................................
    (setq Titolo "Seleziona il Nome del Punto")
    (princ "\n")
    (setq ed3 (entsel Titolo))
    (princ "\n")
    (setq ed1 ed3)

    (setq Lista (entget (car ed1) '("Gruppo")))
    (setq Xlist (assoc -3 Lista))
    (setq TxtData (car (cdr Xlist)))

    (setq NomeX (cdr (nth 1 TxtData)))   
    (setq TipoPunto (cdr (nth 2 TxtData)))
    (setq Quota (cdr (nth 3 TxtData)))
    (setq Ecef (cdr (nth 4 TxtData)))
    (setq GaussBoaga (cdr (nth 5 TxtData)))
    (setq ControlloStz (cdr (nth 6 TxtData)))
    (setq ControlloPt (cdr (nth 7 TxtData)))
    (setq CoordsGeogr (cdr (nth 8 TxtData)))
    (setq CoordsETEF989 (cdr (nth 9 TxtData)))
    (setq NotaPunto (cdr (nth 10 TxtData)))
    .................................................
    .................................................
Come applico alla ricerca automatica del primo programma il criterio di selezione del secondo?
Grazie.