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: Lisp, Vba per Autocad, BricsCad e GstarCAD, CadWorx
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: Lisp, Vba per Autocad, BricsCad e GstarCAD, CadWorx
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: Lisp, Vba per Autocad, BricsCad e GstarCAD, CadWorx
regione: Sicilia
Mi sfugge cosa sia la selezione ad "elastico"
 

rpor66

Utente Standard
professione: Programmatore
software: Lisp, Vba per Autocad, BricsCad e GstarCAD, CadWorx
regione: Sicilia
Nentsel é solo a selezione singola, non può sapere quale sub entità elaborare, l'intelligenza artificiale non é presente in autocad ?.
 

Statistiche forum

Discussioni
59,354
Messaggi
506,859
Utenti registrati
111,696
Ultimo utente registrato
jcmc

Utenti online

Nessun utente è online al momento.
Top