préfixe sur texte

[xavier91]

Bonjour à tous

 

J'aimerai savoir si il est possible de rajouter un préfixe sur du texte par sélection programmé

je vous explique:

J'ai des numéros de 1à 1000 et je voudrai rajouter pour les nombres de 1à9 trois zéros devant puis de 10 à 99 deux zéros devant etc sachant que j'ai une routine pour rajouter les préfixes par selection, mais je ne peux l'utiliser dans ce cas là à cause de l'éparpillement des données, et le temps requis....

merci d'avance pour une solution si cela existe

[(gile)]

Salut et bienvenue,

 

Un petit LISP qui propose de sélectionner les textes à traiter ou les sélectionne tous si on fait : Entrée, Espace ou clic droit.

 

(defun c:prefix_000 (/ ss n val)
 (setq n -1)
 (princ "\nSélectionnez les textes ou [b]: ")
 (or (setq ss (ssget '((0 . "TEXT,MTEXT"))))
     (setq ss (ssget "_X" '((0 . "TEXT,MTEXT"))))
 )
 (if ss
   (while (setq txt (ssname ss (setq n (1+ n))))
     (setq elst (entget txt))
     (if (= (type (read (setq val (cdr (assoc 1 elst))))) 'INT)
(progn
  (while (	    (setq val (strcat "0" val))
  )
  (entmod (subst (cons 1 val) (assoc 1 elst) elst))
)
     )
   )
 )
 (princ)
) 

 

[Edité le 5/3/2008 par (gile)]

[lecrabe]

 

Hello

 

La routine proposée dans ce sujet faisait "à peu près" la même chose

avec en plus la possibilité d'ajouter un préfixe quelconque devant !

 

http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=11920#pid76136

 

Encore Merci, Le Decapode

 

[xavier91]

merci à "gile" pour la routine elle fonctionne très bien, et va me rendre de nombreux services

Merci à "lecrabe" pour son aide qui m'évite de coupler deux routines pour ce que je veux faire

encore merci à tous les deux