MODIFIER TEXTE DEPUIS SOURCE

[lili2006]

Bonjour à toutes et tous,

 

Peut-être que l'objet de ma demande existe déjà. Voilà, j'ai plusieurs texte de repérage en dimension. Suite à un changement, j'ai la largeur d'une pièce à modifier (largeur d'une poutre) sur environ 25 éléments. N'existe t-il pas une routine de type "copier les propriétés" qui depuis un modèle, modifierai également les autres textes à mettre à jour ? (Il s'agit ici de texte dynamique).Par exemple, si avec "SSL" de (Gile) , il était ensuite possible (dans les propriétés ou autres,..) de modifier le texte en question de tous les objets selectionnés, ce serait le top !

 

Merci d'avance.

[(gile)]

Salut,

 

Un petit truc vite fait (il doit bien y en avoir d'autres sur le site...) qui remplace le texte de tous les objets texte et mtexte sélectionnés (après le lancement de la commande ou avant si PICKFIRST est à 1) par le texte entré ensuite par l'utilisateur.

 

;; Remplace le texte de tous les textes et mtextes sélectionnés par le nouveau texte
(defun c:ch-txt	(/ new)
 (vl-load-com)
 (and
   (ssget '((0 . "*TEXT")))
   (setq new (getstring T "\nNouveau texte: "))
   (vlax-for txt (vla-get-ActiveSelectionSet
	    (vla-get-ActiveDocument (vlax-get-acad-object))
	  )
     (vla-put-Textstring txt new)
   )
 )
 (princ)
) 

[nazemrap]

Bonjour,

 

je ne sais pas si j 'ai bien compris, mais sous la v2008 au moins, après avoir sélectionné plusieurs "textdyn", en activant "propriétés", il est possible de changer dans la rubrique "texte" la valeur de "index".

[lili2006]

Re,

 

(Gile). Merci, je teste ça tout à l'heure et revient.

 

nazemrap. Oui !, il est vrai que j'ai posté par mégarde sur V2008, mais au lycée on à aussi des V2002, V2004 et V2007, j'voulais un p'tit truc pour tous le monde.

 

Merci à vous deux en tous cas !

[lili2006]

Rere,

 

Merci (gile), ça fonctionne bien ! Serait-il possible de d'abord selectionner le texte que l'on veut copier et ensuite les textes que l'on veut recopier ? Mais cette routine me convient déjà bien.

 

Bon dimanche.

[(gile)]

(defun c:match-text (/ source ss txt n target)
 (and
   (setq source (car (entsel "\nSélectionnez le texte source: ")))
   (wcmatch (cdr (assoc 0 (entget source))) "*TEXT")
   (princ "\nSélectionnez les textes à remplacer.")
   (setq ss (ssget '((0 . "*TEXT"))))
   (setq txt (cdr (assoc 1 (entget source))))
   (repeat (setq n (sslength ss))
     (setq elst (entget (ssname ss (setq n (1- n)))))
     (entmod (subst (cons 1 txt) (assoc 1 elst) elst))
   )
 )
 (princ)
) 

[lili2006]

Re,

 

C'et exactement ça ! (en plus, ça marche pour les Mtext !!!)

 

Merci encore (Gile).

 

Bonne fin de WE.

 

[Edité le 30/9/2007 par lili2006]