-
Qui est en ligne 0 membre, 0 anonyme, 28 invités (Afficher la liste complète)
- Il n’y a aucun utilisateur enregistré actuellement en ligne
VBA et VB
Sous-forums
-
- 823
- messages
831 sujets dans ce forum
-
- 5 réponses
- 1,4 k vues
-
- 14 réponses
- 17 k vues
-
- 0 réponse
- 27 vues
-
- 12 réponses
- 579 vues
-
- 5 réponses
- 62 vues
-
- 6 réponses
- 446 vues
-
- 19 réponses
- 1 k vues
-
- 8 réponses
- 903 vues
-
- 12 réponses
- 1,3 k vues
-
- 17 réponses
- 1,6 k vues
-
- 0 réponse
- 1,2 k vues
-
- 20 réponses
- 1,6 k vues
-
- 2 réponses
- 1,2 k vues
-
- 27 réponses
- 1,8 k vues
-
- 11 réponses
- 1,3 k vues
-
- 1 réponse
- 1,2 k vues
-
- 12 réponses
- 1,4 k vues
-
- 7 réponses
- 1,3 k vues
-
- 11 réponses
- 1,2 k vues
-
Comment connaitre les versions d'AutoCAD installées et comment charger la bonne librairie sous Excel. 1 2
- 38 réponses
- 2,4 k vues
-
- 4 réponses
- 3,3 k vues
-
- 9 réponses
- 1,4 k vues
-
- 2 réponses
- 4,1 k vues
-
- 4 réponses
- 1,3 k vues
-
- 13 réponses
- 1,5 k vues
-
Statistiques des forums
-
Total des sujets47,7 k
-
Total des messages289 k
-
-
Sujets
-
-
Messages
-
Salut, Si j'ai bien compris la demande, ça devrait faire l'affaire : (vl-load-com) (or *acad* (setq *acad* (vlax-get-acad-object))) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument *acad*))) (or *blocks* (setq *blocks* (vla-get-Blocks *acdoc*))) (defun c:steven (/ setProps ss att) (defun setProps (o) (vla-put-Layer o "0") (vla-put-Color o 0) (vla-put-Linetype o "ByBlock") (vla-put-Lineweight o -2) ) (vlax-for o (vla-Item *blocks* "TRAMES") (if (= (vla-get-ObjectName o) "AcDbAttributeDefinition") (setProps o) ) ) (if (ssget "_X" '((0 . "INSERT") (2 . "TRAMES"))) (progn (vlax-for b (setq ss (vla-get-ActiveSelectionSet *acdoc*)) (foreach att (vlax-invoke b 'GetAttributes) (if (= (vla-get-TagString a) "N°TRAMES") (progn (vla-put-TrueColor b (vla-get-TrueColor att)) (setProps att) ) ) ) ) (vla-Delete ss) ) ) (princ) ) -
@Zugzwang? STRIPMTEXT ne fonctionne que pour les textes, pas pour les attributs de blocs. @didier, J'y ai pensé mais ça ne répond pas à ce que je souhaite. @Olivier Eckmann, Ce n'est pas çà non plus. En fait, quand on regarde dans l'éditeur d'attribut étendu, on voit que la couleur de l'attribut a été forcé. sur l'image, on voit que l'attribut a été forcé en VERT. Or, je souhaiterais que ce soit en DUBLOC. Dans l'espace objet, lorsqu'on sélectionne le bloc, il est en couleur DUCALQUE mais pas l'attribut. C'est normal puisque sa couleur a été forcé dans l'éditeur. Je souhaite pouvoir forcer la couleur du bloc, via les propriétés. En fait, si je vais dans l'éditeur d'attribut étendu, il faut que la couleur soit en DUBLOC pour pouvoir forcer la couleur du bloc via les propriétés. Je souhaite donc pouvoir modifier tous les blocs existants sur le dessinder manière à ce qu'ils soient tous créés sur la calque 0 en DUBLOC, DUBLOC, DUBLOC et sur le dessin, ils sont en couleurs forcées, épaisseur DUCALQUE, Type de ligne DUCALQUE. Mais une fois ceux-ci redéfinis, je souhaite qu'ils gardent le couleur vert, bleu ou rouge. Je veux pas devoir les resélectionner pour forcer leur couleur manuellement sinon, je les aurai tous redéfini sur le calque 0 en DUBLOC, DUBLOC, DUBLOC et j'aurais forcé les couleurs de chacun manuellement pour retrouver les bonnes couleur mais vu le nombre de numéros qu'il y a sur le dessin, je vais y passer le restant de ma vie. -
Par Olivier Eckmann · Posté(e)
Salut @Steven, C'est ça que tu veux? Olivier BLOCS_AVEC_ATT_COUL_FORCEES.dwg -
Bonjour @Steven Je prends le risque d'avoir mal compris la question, mais je réponds : Il te suffit de repasser par BATTMAN et de remettre les propriétés suivant tes désirs. Calque 0, Couleur DUBLOC, ensuite tu modifies à ta guise les propriétés de tes blocs... Amicalement -
La commande "DEFDUCALQUE" pourrait faire l'affaire 😉
-
-
Sujets
-
