Aller au contenu

Charte graphique depuis Excel 2013


DenisHen

Messages recommandés

Bonjour à tous,

 

Aujourd'hui, je suis content de partager mon travail...

 

J'ai écris quelques petites macros en VBA dans un fichier Excel2013 (.xlsm). Dans ce classeur, j'ai :

# une feuille "Calques" qui se divise en colonnes :

- Calque : qui est le nom du calque,

- Couleur : qui est sa couleur (de 0 à 255),

- Couleur Hexadécimale : qui est la couleur du calque exprimée en hexadécimale, celà m'a été demandé par un client pour lui facilité la configuration des couleurs dans son SIG (cette colonne se remplie toute seule),

- Type de ligne : qui est le type de ligne du calque,

- Epaisseur : qui est l'épaisseur des lignes du calque,

- Description : qui est la description du calque.

 

# une feuille "StyleTexte" qui se divise en colonnes :

- Style de texte: qui est le nom du style de texte,

- Police : qui est la police utilisée pour ce style de texte (SHX ou TTF), Attention, pour les TTF, mettre l'extention dans la cellule,

- Hauteur : qui est la hauteur par défaut,

- Facteur : qui est le facteur de largeur du style,

- Inclinaison : qui est l'angle de l'italique,

- Inversé : qui est la valeur pour inversé le style,

- Renversé : qui est la valeur pour renversé le style,

- Verticale : qui est la valeur pour rendre le style verticale. Cette option n'est pas disponible pour les TTF.

 

Les macros se trouvent dans le ruban "Charte".

 

Voilà, il y a encore quelques petits bug mais dans l'ensemble, ça fonctionne parfaitement sur les différents postes du bureau...

 

J'espère avoir aidé quelques personnes avec ce classeur qui est pour moi, un gain de temps incroyable, car je gère parfois 200 ou 250 calques que je dois créer "à la volée"...

 

 

Et ces calques changes selon les différentes chartes de nos clients (communes, département, région, sociétés privées,...).

 

NB : toutes remarques sur mon code est la bienvenue, bien sûr... Je ne suis qu'amateur...

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Re,

 

Je viens de voir qu'il il a un bug dans l'inclinaison des styles de texte, elle ne correspond pas à la valeur entrée dans le classeur Excel. Il me semble qu'elle passe de grades à degrés...

 

Je vais essayé de ce corriger...

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

J'ai ajouté l'option "Imprimable" qui est le choix entre un calque "Traçable" ou "Non traçable"...

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Salut Georges2,

 

Tu ouvre le classeur Excel 2013, tu paramètre des calques (j'ai laissé quelques calques pour exemple dans le classeur) et tu cliques dans le ruban "Charte" sur "AutoCAD" et il ouvre directement AutoCAD et créé les calques tels que définis dans la feuille "Calque".

 

Cette macro créé un nouveau fichier dessin, il te faut l'enregistrer et utiliser DesignCenter ([Ctrl] + [2]) pour ajouter les calques créés dans un dessin existant.

 

Il te faut bien sûr AutoCAD sur ton poste.

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

  • 5 mois après...

Salut Georges2,

 

Tu ouvre le classeur Excel 2013, tu paramètre des calques (j'ai laissé quelques calques pour exemple dans le classeur) et tu cliques dans le ruban "Charte" sur "AutoCAD" et il ouvre directement AutoCAD et créé les calques tels que définis dans la feuille "Calque".

 

Cette macro créé un nouveau fichier dessin, il te faut l'enregistrer et utiliser DesignCenter ([Ctrl] + [2]) pour ajouter les calques créés dans un dessin existant.

 

Il te faut bien sûr AutoCAD sur ton poste.

 

Denis...

Bonjour, DenisH

est ce que il y'a de nouveauté de ce sujet? moi je n'arrive pas a faire tourné la macro! j'ai un message dans le fichier joint, merci de m'aider, je suis sous autocad 2015

post-19781-0-81913600-1442091180_thumb.jpg

autocad 2015, catia V6

Lien vers le commentaire
Partager sur d’autres sites

Salut nagaouss,

 

Je ne vois pas trop ce qui ne fonctionne pas. Quel Excel as-tu ?

 

Peut-être aussi que la bibliothèque AutoCAD n'est pas chargée dans VBA. Pour la charger, tu ouvres le VBA d'Excel (Alt+F101), tu vas dans Outils\Références et tu coches AutoCAD 20XX Type Library.

 

Je pense que ça doit être ça, car ma macro charge la librairie 2014 et tu devrais carger la 2015...

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Salut,

idées pour ajout :

Liste de choix pour les couleurs et le Type de ligne et Imprimable "oui/non".

 

Sinon ça fonctionne chez moi.

Excel 2010 et Autocad Map 3D 2013+Covadis V13

Intel i7-4770 - 16Go Ram - NVIDIA Quadro K2000 - Double ecran en 1680x1050

Windows 7 64Bits. non administrateur !!

Autocad Map 3D 2019 + Covadis V17.0f

Lien vers le commentaire
Partager sur d’autres sites

Salut Turtle

 

idées pour ajout :

Liste de choix pour les couleurs et le Type de ligne et Imprimable "oui/non".

 

Trop complexe à gérer et pas plus rapide que de taper la couleur ou imprimable "Oui/Non" à la main......

 

Voici le nouveau XLSM à télécharger...

 

Denis...

 

PS : je suis content de voir que d'autres personnes utilisent mon fichier Excel...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Sympa comme idée.

Perso, j'ai cette erreur dès que je sélectionne une cellule ou que j'essai d'appliquer la charte.

Je suis en Excel 2010 sous W7

 

Peut-être aussi que la bibliothèque AutoCAD n'est pas chargée dans VBA. Pour la charger, tu ouvres le VBA d'Excel (Alt+F101), tu vas dans Outils\Références et tu coches AutoCAD 20XX Type Library.

Effectivement chez moi ce n'est pas activé, mais impossible de l'activer sur ton fichier. "Références" est grisé

 

Merci quand même

post-10087-0-73686700-1442225111_thumb.jpg

www.cad-is.fr
Autocad Map 2021 - Covadis/Autopiste V18.0c
Pisser sous la douche ne suffira pas
Lien vers le commentaire
Partager sur d’autres sites

Merci La Lozère.

 

Peut-être un fichier en lecture seule ou Excel 2010 ? Si non, je ne vois pas... Désolé...

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Après vérification sur un autre poste, ce serait Excel 2010 qui poserait problème...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Salut nagaouss,

 

Je ne vois pas trop ce qui ne fonctionne pas. Quel Excel as-tu ?

 

Peut-être aussi que la bibliothèque AutoCAD n'est pas chargée dans VBA. Pour la charger, tu ouvres le VBA

d'Excel (Alt+F101), tu vas dans Outils\Références et tu coches AutoCAD 20XX Type Library.

 

Je pense que ça doit être ça, car ma macro charge la librairie 2014 et tu devrais carger la 2015...

 

Denis...

Bonjour Denis

J'ai deux poste:

- autocad mep 2014 et excel 2010

- autocad standard 2015 et excel 2013

Ton travail est une merveille si sa fonctionne pour moi,

Je te remercier énormément pour ton aide d'avance

Petit remarque d'après l'aide de vba, si tu as codé sous Windows 32bit sa ne fonctionne pas pour les machines qui tourne sous 64bit!!! Moi pour mes deux postes c'est du 64bit, et toi DENIS ?

autocad 2015, catia V6

Lien vers le commentaire
Partager sur d’autres sites

Salut nagaous,

 

Pour Excel 2010, comme je l'ai dis à La Lozère, je pense que ça ne fonctionnera pas. J'en ai un sur un poste au boulo, j'ai fais le test et effectivement, ça plante.

 

Pour ton AutoCAD 2015 avec Excel 2013, ça devrait fonctionner si tu as bien référencé la bonne bibliothèque "AutoCAD 2015 Type Library" dans le projet VBA...

 

Si ça ne fonctionne toujours pas, as-tu essaiyé le dernier XLSM dans mon message n°9 ?

 

C'est malheureusement tout ce que je peux faire pour l'instant.

 

Désolé de ne pas en savoir plus pour t'aider...

 

Mais je regarderais ça demain, juste pour ne pas me laissé faire par un produit MicroSoft ! ! !

 

Denis...

 

PS : La Lozère, je suis désolé, mais je pense que c'était grisé à cause du mot de passe ! ! ! Mille excuses, voici ce même fichier sans mot de passe... Encore désolé...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

@ DENIS : malheuresement sa n'a pas fonctionner sur mes deux configuration ( les deux postes sont sous Windows 7 de 64bit), et toi tu utilise quoi comme système d'exploitation ?est ce que tu peux nous dire quel sont les références que tu'as activité dans VBAProjet?

@a-lozere: prend le fichier dans le message N9 de DENIS, il est pas protéger par le mot de passe.

Cordialement

autocad 2015, catia V6

Lien vers le commentaire
Partager sur d’autres sites

Désolé pour tous ces problèmes...

 

J'ai Windows 7 64bits SP1...

 

Les références indispensables sont sur l'image jointe...

 

Il faut modifier les version AutoCAD, en remplaçant 2014 par 2015...

 

Ce dernier ZIP contient le XLSM sans aucun mot de passe...

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Je viens de faire un test sans la référence "AutoCAD MAP 3D 2005".

 

Donc, je pense que sur un AutoCAD "normal", ça devrait fonctionner...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Bonjour Denis,

Voilà une bonn nouvelle, j'ai réussi a faire tourner la macro en la bidouille un peu, je ne suis pas un pro mais je cherche à comprendre toujours en suivant la logique.

Tu trouve joint le lien pour télécharger la version modifier par moi, le principe sa crée les calques dans un nouveau dessin,avec les paramètres personnalisé.

https://www.dropbox.com/s/h832u6p0xs5djdq/charte%20graphique%20%28denish%29%28modif%C3%A9%20nagaouss%29.xlsm?dl=0

Merci de me tenir au courant .

autocad 2015, catia V6

Lien vers le commentaire
Partager sur d’autres sites

Salut nagaouss,

 

Effectivement, j'ai déjà eu des problèmes avec AXDBLib... Je ne sais toujours pas pourquoi...

 

Sinon ? Ca fonctionne comme tu veux ?

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Bonjour,

 

ça n'aurait pas été plus simple de générer un SCRIPT à partir d'EXCEL et de l'exécuter ensuite dans AutoCAD que de vouloir passer par du VBA ? C'est ce que j'utilise pour ceux qui sont en versions LT ! Ils modifient le tableau EXCEL pour les propriétés, ils cliquent pour fermer le fichier (qui génère le SCRIPT), et on clique sur l'icone dans AutoCAD pour exécuter le SCRIPT...

 

Christian

Formateur, Consultant Expert AutoCAD, REVIT MEP, INVENTOR, télécharger , des Outils AutoCAD...

cad123 @ wanadoo.fr (enlever les espaces de part et d'autre de @)

Lien vers le commentaire
Partager sur d’autres sites

Bonjour Christian,

 

J'avais commencé par ça, mais j'avais des problèmes pour "mettre à jour" un DWG depuis un script. Alors qu'en VBA, il agit directement sur le DWG ouvert.

 

Mais le bouton existe toujours dans mon XLSM.

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

  • 1 mois après...

Bonjour à tous...

 

Bon, j'ai amélioré mon fichier Excel avec :

- choix de la catégorie à exporter dans AutoCAD (ce qui évite de traiter systématiquement la totalité des calques).

- gestion de l'ajout "assisté" d'une catégorie.

 

J'espère que vos chartes fonctionnent depuis nos échanges...

 

Denis...

  • Upvote 1

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Bonjour à tous...

 

Bon, j'ai amélioré mon fichier Excel avec :

- choix de la catégorie à exporter dans AutoCAD (ce qui évite de traiter systématiquement la totalité des calques).

- gestion de l'ajout "assisté" d'une catégorie.

 

J'espère que vos chartes fonctionnent depuis nos échanges...

 

Denis...

bonjour DENIS,

sa veux pas fonctionner pour moi!! j'ai ce message angoissant

post-19781-0-11749800-1446584265_thumb.jpg

autocad 2015, catia V6

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité