Problème entre entsel et dernière entité...

[DenisHen]

Bonjour à tous,

 

Voilà, j'ai un petit souci, J'ai un code qui demande à l'utilisateur de sélectionner un texte (pour en sortir le contenu). J'aimerai, une fois avoir cliquer dessus, que ce texte s'efface...

 

Mon bout de code est :

........
 (setq Text (entsel "\nSélectionner le texte à reprendre"))
 (command "_erase" entsel "") ;;; C'est ici qu'est mon problème
 (setq Text (car Text))
 (wcmatch (cdr (assoc 0 (setq elst (entget Text))))
 (setq Text (cdr (assoc 1 elst)))
 ........

 

Si quelqu'un a une astuce ou un conseil, je suis preneur...

 

Denis...

[(gile)]

Salut,

 

entsel est une fonction LISP, la variable qui contient la valeur de retour de la fonction est Text. il faudrait donc faire :

(command "_erase" (car Text) "")

Mais si tu effaces l'entité, tu auras du mal à en lire de contenu.

 

Ne mets pas la charrue avant les boeufs, sélectionne l'entité, vérifie que c'est bien un texte, récupère le contenu et efface le seulement après (regarde la fonction entdel). L'utilisateur ne s'apercevra de rien...

[DenisHen]

Bonjour (gile),

 

J'essai de faire ça, mais ça plante :

  (setq TextSel (entsel "\nSélectionner le texte à reprendre"))
 (setq Text (car TextSel))
 (wcmatch (cdr (assoc 0 (setq elst (entget Text)))) "*")
 (setq Text (cdr (assoc 1 elst))) 
 (entdel (car TextSel))

 

Je ne comprend pas tellement les explications en anglais dans l'aide...

 

PS : En fait si, ça fonctionne, j'avais un autre problème en amont... Encore un grand merci à (gile) ! !