Modification couleur attribut texte dans un bloc
Salut,
Est-ce que tous tes folios sont dans le même dessin?
Si oui, il n'y a pas besoin de faire de script.
Tu sélectionnes ton cartouche > Clic droit > Editeur de bloc > Tu sélectionnes les attributs Titre 1 et Plan et tu forces la couleur en vert puis tu fermes l'éditeur de bloc en enregistrant les modifications.
Tu lances, ensuite la commande ATTSYNQ, tu valides, tu sélectionnes ton cartouche puis tu valides.
De ce fait, la modification sera faite sur tous tes folios.
A moins que je n'ai pas bien compris la question.
Steven
Ce post vous a été utile ? N'hésitez pas à aimer ce post.
Ce post a-t-il répondu à votre question ? Cliquez sur le bouton APPROUVER LA SOLUTION en dessous de la réponse.
« L’homme de bien n’exige pas de l’autre qu’il soit parfait, il l’aide à accomplir ce qu’il a en lui de meilleur. »
Lao Tseu
Ce post vous a été utile ? N'hésitez pas à aimer ce post.
Ce post a-t-il répondu à votre question ? Cliquez sur le bouton APPROUVER LA SOLUTION en dessous de la réponse.
« L’homme de bien n’exige pas de l’autre qu’il soit parfait, il l’aide à accomplir ce qu’il a en lui de meilleur. »
Lao Tseu
Pas avec la commande -attedit.
La solution est d'insérer et de redéfinir le bloc avec les bonnes couleurs (inserer;toto=toto;...)
Puis d'effacer le dernier objet (en l'occurrence, le bloc que l'on vient d'insérer)
Puis de faire une synchro (attsync)
@+
On peut avec -attedit changer la couleur des attributs, mais il faut les sélectionner.
Du coup, le script, bye bye.
Il reste la solution d'un lisp si tu es en version pleine.
@+
Solution acceptée
Voici un lisp
(defun c:mumudidi(/ att col doc obj sel nombl Mes_Attributs Mon_Bloc)
(defun nombl(bl)
(if (vlax-property-available-p bl 'effectivename)
(strcase (vla-get-effectivename bl))
(strcase (vla-get-name bl))
)
)
(vl-load-com)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vla-startundomark doc)
;;;==============================================================================
;;;
;;; Paramètres à définir par l'utilisateur
;;;
;;; Mon_Bloc = Le nom du bloc à modifier
;;;
;;; Mes_Attributs = Une liste des attributs à modifier
;;; La liste de compose du nom de l'étiquette et de sa couleur
;;; Par exemple l'étiquette ETQ1 et la couleur rouge (1)
;;; l'étiquette ETQ2 et la couleur jaune (2)
;;; (setq Mes_Attributs '(("ETQ1" 1) ("ETQ2" 2)))
;;;
;;;==============================================================================
(setq Mon_Bloc "AUTO4DE")
(setq Mes_Attributs '(("TITRE1" 1) ("PLAN" 2)))
;;;==============================================================================
;;;
;;; Fin des paramètres à définir par l'utilisateur
;;;
;;;==============================================================================
(and (ssget "_x" (list (cons 0 "insert") (cons 66 1)))
(progn
(vlax-for obj (setq sel (vla-get-activeselectionset doc))
(and (eq (nombl obj) Mon_Bloc)
(foreach att (vlax-invoke obj 'getattributes)
(and (setq col (assoc (vla-get-tagstring att) Mes_Attributs))
(vla-put-color att (cadr col))
)
)
)
)
(vla-delete sel)
)
)
(vla-endundomark doc)
(princ)
)
Tu peux dans un script, charger puis lancer le lisp.
Tu testes en premier le lisp sur un folio, et si c'est ok, tu le scriptes.
@+
Salut
@Anonymous a écrit :dois-je mettre le chemin du fichier ici "(defun c:mumudidi..." ?
Non, tu as juste à lancer le lisp pout tester s'il te convient.
@Anonymous a écrit :est ce que le 1 et le 2 dans "setq Mes_Attributs '(("TITRE1" 1) ("PLAN" 2)))" je les remplace par la couleur initiale ou finale ? exp initiale jaune = 255.255.0 et finale vert=0.255.0
Non, le lisp n'est pas prévu pour les couleurs RVB. Il faudrait le faire évoluer.
Pour les couleurs, tu indiques simplement la couleur voulue. Pas besoin de connaitre la couleur initiale.
@+
Bonjour
Tu n'as pas besoin de toucher à
@Anonymous a écrit :(defun c:mumudidi(/ att col doc obj sel nombl (("TITRE1" VERT) ("PLAN" VERT)) AUTO2AT)
Juste ce qui est compris entre
@Anonymous a écrit :;;;============================================================================
;;;
;;; Paramètres à définir par l'utilisateur
;;;
;;; Mon_Bloc = Le nom du bloc à modifier
;;;
;;; Mes_Attributs = Une liste des attributs à modifier
;;; La liste de compose du nom de l'étiquette et de sa couleur
;;; Par exemple l'étiquette ETQ1 et la couleur rouge (1)
;;; l'étiquette ETQ2 et la couleur jaune (2)
;;; (setq Mes_Attributs '(("ETQ1" 1) ("ETQ2" 2)))
;;;
;;;============================================================================
et
@Anonymous a écrit :;;;============================================================================
;;;
;;; Fin des paramètres à définir par l'utilisateur
;;;
;;;============================================================================
Donc pour correspondre à ton besoin
(setq Mon_Bloc "AUTO2AT")
(setq Mes_Attributs '(("TITRE1" 3) ("PLAN" 3)))
@+
Bonjour @Anonymous
Si une des réponses à votre question résout votre problème, vous a permis de le comprendre ou contribue significativement à sa résolution, voulez vous avoir l'amabilité de cliquer sur le bouton "Accepter comme solution" en bas de la réponse qui apporte une solution?
Merci de ne pas accepter comme solution le message que vous êtes en train de lire.
Si nos équipes de support technique ont pu vous apporter une solution ou contribuer significativement à vous aider en dehors de ce forum, pouvez vous partager ici la solution trouvée et cliquer sur le bouton "Accepter comme solution" de façon qu'elle bénéficie à la communauté?
Merci.
Patrick Emin animateur de la communauté francophone
Vous avez trouvé un message utile? Alors donnez un "J'aime" à ce message!
Votre question a eu une réponse satisfaisante? Voulez vous avoir l'amabilité de cliquer sur le bouton APPROUVER LA SOLUTION en bas de la réponse qui apporte une solution?
Signez notre Livre d'Or