ajouter un caractère à des textes

[anthony07]

bonjour

et meilleurs vœux à tous

existe t il un moyen d'ajouter 1 caractère au début de tous les textes (qui sont différents) situés dans un calque précis

par exemple je souhaite ajouter la lettre" B" au début de tous mes textes situés dans le calque "foyers"

merci d'avance pour les réponses

Anthony

[lecrabe]

 

Hello

 

Voici un Lisp qui ajoute un prefixe (ADP) ou un suffixe (ADS) a des textes simples que tu as prealablement selectionnes ...

 

Commandes au clavier : ADP ou ADS

 

Le Decapode

 

 

 


;;
;; Copyright 2001 EMT Software, Inc. - MTEXT not allowed
;; Micro-Modif par Patrice
;;

(defun C:ADP (/ #SSET #CNT #IDX #ENT #TXT)

;;   (setq #TXT  (getstring    "\nText for Prefix : ")
    (setq #TXT  (getstring T "\nText for Prefix : ")

       #SSET (ssget (list (cons 0 "TEXT")))
       #CNT  0)
 (if (not #SSET) (setq #IDX 0) (setq #IDX (sslength #SSET)))
 (while (/= #CNT #IDX)
   (setq #ENT (entget (ssname #SSET #CNT))
         #ENT (subst (cons 1 (strcat #TXT (cdr (assoc 1 #ENT)))) (assoc 1 #ENT) #ENT))
   (entmod #ENT)
   (setq #CNT (1+ #CNT)))

 (princ))

;; Uncomment for the language needed.
  (princ "\nADD Prefix on TEXT Entity - Type ADP to start.") ; For English.

(princ)

;;
;; Copyright 2001 EMT Software, Inc. - MTEXT not allowed
;; Micro-Modif par Patrice
;;

(defun C:ADS (/ #SSET #CNT #IDX #ENT #TXT)

;;  (setq #TXT  (getstring    "\nText for Suffix : ")
   (setq #TXT  (getstring T "\nText for Suffix : ")

       #SSET (ssget (list (cons 0 "TEXT")))
       #CNT  0)
 (if (not #SSET) (setq #IDX 0) (setq #IDX (sslength #SSET)))
 (while (/= #CNT #IDX)
   (setq #ENT (entget (ssname #SSET #CNT))
         #ENT (subst (cons 1 (strcat (cdr (assoc 1 #ENT)) #TXT)) (assoc 1 #ENT) #ENT))
   (entmod #ENT)
   (setq #CNT (1+ #CNT)))

 (princ))

;; Uncomment for the language needed.
  (princ "\nADD Suffix on TEXT Entity - Type ADS to start.") ; For English.

(princ)

 

 

 

[anthony07]

merci ça fonctionne très bien

Anthony