DenisHen Posté(e) le 31 mars 2015 Partager Posté(e) le 31 mars 2015 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 More sharing options...
DenisHen Posté(e) le 31 mars 2015 Auteur Partager Posté(e) le 31 mars 2015 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 More sharing options...
DenisHen Posté(e) le 1 avril 2015 Auteur Partager Posté(e) le 1 avril 2015 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 More sharing options...
Georges2 Posté(e) le 2 avril 2015 Partager Posté(e) le 2 avril 2015 Salut Denis Et comment tu l'insérer dans ton fichier dessin ? amicalement@+ Lien vers le commentaire Partager sur d’autres sites More sharing options...
DenisHen Posté(e) le 3 avril 2015 Auteur Partager Posté(e) le 3 avril 2015 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 More sharing options...
nagaouss Posté(e) le 12 septembre 2015 Partager Posté(e) le 12 septembre 2015 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, DenisHest 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 autocad 2015, catia V6 Lien vers le commentaire Partager sur d’autres sites More sharing options...
DenisHen Posté(e) le 14 septembre 2015 Auteur Partager Posté(e) le 14 septembre 2015 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 More sharing options...
Turtle Posté(e) le 14 septembre 2015 Partager Posté(e) le 14 septembre 2015 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 1680x1050Windows 7 64Bits. non administrateur !!Autocad Map 3D 2019 + Covadis V17.0f Lien vers le commentaire Partager sur d’autres sites More sharing options...
DenisHen Posté(e) le 14 septembre 2015 Auteur Partager Posté(e) le 14 septembre 2015 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 More sharing options...
La Lozère Posté(e) le 14 septembre 2015 Partager Posté(e) le 14 septembre 2015 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 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 More sharing options...
DenisHen Posté(e) le 14 septembre 2015 Auteur Partager Posté(e) le 14 septembre 2015 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 More sharing options...
DenisHen Posté(e) le 14 septembre 2015 Auteur Partager Posté(e) le 14 septembre 2015 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 More sharing options...
nagaouss Posté(e) le 15 septembre 2015 Partager Posté(e) le 15 septembre 2015 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 2013Ton travail est une merveille si sa fonctionne pour moi,Je te remercier énormément pour ton aide d'avancePetit 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 More sharing options...
DenisHen Posté(e) le 15 septembre 2015 Auteur Partager Posté(e) le 15 septembre 2015 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 More sharing options...
La Lozère Posté(e) le 16 septembre 2015 Partager Posté(e) le 16 septembre 2015 Toujours bloqué par mot de passe, et mainetant j'ai la même erreur que nagaouss Meric encore. 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 More sharing options...
nagaouss Posté(e) le 16 septembre 2015 Partager Posté(e) le 16 septembre 2015 @ 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 More sharing options...
DenisHen Posté(e) le 16 septembre 2015 Auteur Partager Posté(e) le 16 septembre 2015 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 More sharing options...
nagaouss Posté(e) le 16 septembre 2015 Partager Posté(e) le 16 septembre 2015 Je commence a comprendre, le vba cherche les fichiers de autocad map (Liberery) et bentely pour microsation, du coup il faut autocad MAP et Microsation soit installé sur la machine. C'est à confirmer autocad 2015, catia V6 Lien vers le commentaire Partager sur d’autres sites More sharing options...
DenisHen Posté(e) le 16 septembre 2015 Auteur Partager Posté(e) le 16 septembre 2015 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 More sharing options...
nagaouss Posté(e) le 18 septembre 2015 Partager Posté(e) le 18 septembre 2015 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=0Merci de me tenir au courant . autocad 2015, catia V6 Lien vers le commentaire Partager sur d’autres sites More sharing options...
DenisHen Posté(e) le 18 septembre 2015 Auteur Partager Posté(e) le 18 septembre 2015 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 More sharing options...
rebcao Posté(e) le 19 septembre 2015 Partager Posté(e) le 19 septembre 2015 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 More sharing options...
DenisHen Posté(e) le 21 septembre 2015 Auteur Partager Posté(e) le 21 septembre 2015 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 More sharing options...
DenisHen Posté(e) le 28 octobre 2015 Auteur Partager Posté(e) le 28 octobre 2015 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... 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 More sharing options...
nagaouss Posté(e) le 3 novembre 2015 Partager Posté(e) le 3 novembre 2015 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 autocad 2015, catia V6 Lien vers le commentaire Partager sur d’autres sites More sharing options...
Messages recommandés
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 compteSe connecter
Vous avez déjà un compte ? Connectez-vous ici.
Connectez-vous maintenant