Estrarre un testo contenuto in un blocco

Angelo2449

Utente Junior
Professione: Pensionato
Software: Autocad
Regione: Lombardia
Salve a tutti,
ho scritto questo breve codice che estrae il testo da una stringa presente nel disegno :
Codice:
    (defun C:COPIATESTO (/ txt1 fp1)

        (setq ed1 nil)

        (while (= ed1 nil)
            (setq ed1 (entsel "\nSeleziona un Testo"))
        );;while

        (setq ed1 (entget (car ed1)))
    (setq txt1 (cdr (assoc 1 ed1)))

        (princ "\n")
        (princ "txt1 >>>>> ")
        (princ txt1)
        (princ "\n")
    );;defun
Vorrei che, oltre ad una singola riga di testo, il programmino possa estrarre anche un testo contenuto in un blocco.
Ho provato a selezionare appunto un blocco di testo multiriga ma ne viene copiata solo una parte.
Gazie.
 

rpor66

Utente Standard
Professione: Programmatore
Software: AutoCad, CadWorx, Lisp, VBA. YouTube: roberto portuese
Regione: Sicilia
Invece di usare entsel, prova con nentsel, ti ritorna il nome dell'entità selezionata, nel caso specifico, non il blocco ma direttamente il testo.
 

Angelo2449

Utente Junior
Professione: Pensionato
Software: Autocad
Regione: Lombardia
Grazie rpor66 ma anche con > nentsel < il risultato è identico ovvero viene restituita una parte del blocco di testo.
Devo precisare che questo blocco è stato realizzato mediante un copia ed incolla dal blocco note (file .txt).
Ho provato con un testo multiriga e le singole righe vengono restituite separate con uno > \ <.
 

rpor66

Utente Standard
Professione: Programmatore
Software: AutoCad, CadWorx, Lisp, VBA. YouTube: roberto portuese
Regione: Sicilia
Tutti i multiriga ritornano le righe separate da \, basta cercare il carattere \\ e sostituirlo con uno spazio
 

Angelo2449

Utente Junior
Professione: Pensionato
Software: Autocad
Regione: Lombardia
Ok rpor66 già fatto! Come faccio a impostare la selezione ad "elastico" con il lisp?
 

rpor66

Utente Standard
Professione: Programmatore
Software: AutoCad, CadWorx, Lisp, VBA. YouTube: roberto portuese
Regione: Sicilia
Mi sfugge cosa sia la selezione ad "elastico"
 

Angelo2449

Utente Junior
Professione: Pensionato
Software: Autocad
Regione: Lombardia
Selezionare un o più oggetti non direttamente ma con una finestra (2 punti).
 

rpor66

Utente Standard
Professione: Programmatore
Software: AutoCad, CadWorx, Lisp, VBA. YouTube: roberto portuese
Regione: Sicilia
Nentsel é solo a selezione singola, non può sapere quale sub entità elaborare, l'intelligenza artificiale non é presente in autocad ?.