Calques

[speedy]

Bonjour à tous

j'ai adapté pour le fun, un code vba pour extraire les calques autocad depuis excel.

comment construire la ligne de code permettant de lister les calques d'autocad depuis excel.

 

voici un début de fichier..............

 

http://cjoint.com/?ihkVmMm8HF

 

pourriez vous m'aider à le finir.....

 

 

Merci à vous

 

Michel a

[sechanbask]

j'ai remarqué avec

debug.print ii

que le nombre de calque était toujours de 0 même s'il y en a plus dans le dessin...

J'ai pas trouvé comment faire pour changer ça...

[nazemrap]

Bonjour,

 

il me semble que dans ton code, le fichier n 'est pas ouvert dans Autocad.

j' ai essayé ça en remplacement, ce qui me donne la liste des calques.

 

 ' On demande le nom du fichier à ouvrir
chemin = Application.GetOpenFilename("Dessins AutoCAD (*.dwg), *.dwg")
Cells(1, 1).Value = chemin
Set objdessin = GetObject(chemin) 

[speedy]

Bonjour

 

ça ne marche pas encore, ça viendra, je continue les essais, le comble je suis arrivé à le faire connecter en ayant le fichier ouvert et là je n'y arrive plus, j'ai remargqué une chose comment éviter de faire démarrer le fichier dessin1, à chaque ouverture d'un fichier ????

 

@+

 

Michel

[sechanbask]

Salut,

j'ai fait pas mal de modifications car j'ai pas réussi à comprendre pourquoi ça ne marchait pas, du coup, ça a vraiment changer.

 

J'ai mis la macro dans un module comme ça on peu y accéder depuis d'autres feuilles plus facilement.

 

http://cjoint.com/?ilpMbnMk30

 

[Edité le 12/8/2007 par sechanbask]

[lili2006]

Bonjour à tous,

 

Surement trés bien, MAIS comment ça marche ??

[sechanbask]

il faut avoir excel, et aller dans VBA d'Excel pour ajouter la référence autocad 2006 type library, ou l'équivalent de ton autocad...

[lili2006]

Bonjour à tous,

 

Merci de ta réponse sechanbask. J'avais déjà fait cette opération mais ton fichier "beug" chez moi. Par contre, pour faire suite à cette discussion :

http:// http://discussion.autodesk.com/thread.jspa?threadID=598351, ce fichier fonctionne parfaitement :

http://cjoint.com/?imlrIJlcSJ

 

J'ai juste changer quelques couleurs pour mettre un peu plus de gaité,....

[sechanbask]

Si tu ne me donne pas le type d'erreur et la ligne je ne saurais pas faire évoluer le code...

merci par anticipation.

 

 

Concernant les liens auxquels tu fais référence, le code doit absolument modifié car l'utilisateur ne peut pas choisir facilement le fichier, en plus, il ne ferme pas autocad à la fin (ni ne demande si l'utilisateur s'il souhaite le fermer) = donc pertes de ressources évidentes car autocad n'est pas une application très légère...

 

[Edité le 12/8/2007 par sechanbask]

[lili2006]

Bonjour à tous,

 

Si tu ne me donne pas le type d'erreur et la ligne je ne saurais pas faire évoluer le code...

merci par anticipation.

 

Désolé, comme je l'ai dis plus haut, je ne connait pas la manip pour arriver à lire ton code.

 

Concernant les liens auxquels tu fais référence, le code doit absolument modifié car l'utilisateur ne peut pas choisir facilement le fichier, en plus, il ne ferme pas autocad à la fin (ni ne demande si l'utilisateur s'il souhaite le fermer) = donc pertes de ressources évidentes car autocad n'est pas une application très légère...

 

Tout à fait exact, mais faute de mieux, je trouve cela interressant déjà.

 

@+,

 

PS : J'attend tes explications pour pouvoir faire passer le code.

[sechanbask]

pour l'instant, j'ai beaucoup de boulot alors je vais te dire comment faire pourvoir le code avec le fichier ici:

http://cjoint.com/?ilpMbnMk30

 

Tu ouvres le fichier avec Excel (pour l'instant le code n'est pas tester avec openoffice). puis tu fais "ALT + F11". ­Ça devrait t'ouvrir VBA.

 

Tu retournes sous Excel et tu clicks sur le bouton qui est sur la feuille excel puis tu suis la procédure... Si tu as un problème, tu clicks sur la fenêtre d'erreur pour la rendre active et du fais CTL+C. puis dans un nouveau mesage de cadXP tu fais CTL+V... normalement ça devrai me donner le type d'erreur etc...

 

tu fais debugger sur le fenêtre d'erreur, et tu copies la ligne qui pose problème et ensuite, tu la colles dans cad XP... ainsi, tu pourras m'aider à developper le projet de speedy

 

[speedy]

Bonsoir à tous

 

tu as bien bossé sechanbask, ton code fonctionne trés bien, merci.......

 

entre cadxp et l'autre forum on se retrouve avec 3 versions qui fonctionnent.

 

Pour Lili2006 il faut aller dans édition VBA et préférences et bien sélectionner la bonne bibliothèque j'ai remarqué qu'il ne detecte pas la bonne library (l'erreur : Biblio manquante)

 

il suffit de choisir autocad 200x type library .

 

@+

 

Michel a

[sechanbask]

Je dirais même plus pour les biliothèques, ils faut désellectionner la bibliothèque manquante et selectionner "autocad 200x type library"

 

speedy, tu as une version LT?

[lili2006]

Bonsoir,

 

tu as bien bossé sechanbask, ton code fonctionne trés bien, merci.......

 

entre cadxp et l'autre forum on se retrouve avec 3 versions qui fonctionnent.

 

Absolument d'accord avec speedy !

 

Pour Lili2006 il faut aller dans édition VBA et préférences et bien sélectionner la bonne bibliothèque j'ai remarqué qu'il ne detecte pas la bonne library (l'erreur : Biblio manquante)

 

il suffit de choisir autocad 200x type library .

 

Oui, je l'avais déjà fait, MAIS à ma grande surprise, il faut le refaire à chaque ouverture du fichier (ou bien j'ai raté quelque chose,...).

 

Je dirais même plus pour les biliothèques, ils faut désellectionner la bibliothèque manquante et selectionner "autocad 200x type library"

 

Effectivement sechanbask, sans ta remarque, je n'y serai pas arrivé !

 

En ce qui me concerne, j'ai un beug sur quelques lignes et colonnes. Effectivement, la hauteur des textes (et même la couleur ???)varient, on ne sait pas pourquoi (tout du moins moi !!). Cf image ci-dessous. Ceci dit, ce n'est pas dramatique, je récupère bien les données recherchées.

 

http://images0.hiboox.com/vignettes/3307/e1bbyqmb.jpg

 

PS : Désolé pour la qualité de l'image, mais là non plus je ne sais pas faire mieux.

 

Concernant les liens auxquels tu fais référence, le code doit absolument modifié car l'utilisateur ne peut pas choisir facilement le fichier, en plus, il ne ferme pas autocad à la fin (ni ne demande si l'utilisateur s'il souhaite le fermer) = donc pertes de ressources évidentes car autocad n'est pas une application très légère...

Effectivement, c'est sympa de pouvoir fermer AutoCAD à la fin de la manip,...

 

Evolution ici du travail de sigecom :

http:// http://discussion.autodesk.com/thread.jspa?threadID=598351.

 

Avec ce fichier, qui ma foi va bien aussi (Listing de calques et de présentations)

 

http:// http://cjoint.com/?iowYSrqmxY

Comme on peut le voir sur ce fichier "test", il y a là aussi des petits "beugs" de présentation, mais c'est pas mal du tout. Je serai bien gonflé de critiquer, moi qui sait tout juste (pour le moment,...) tester et admirer le travail des autres,...

 

En tout cas merci à tous.

 

Si ceux qui ont testés ont des avis ou des "beugs" différents, cela m'intéresse (et j'epère ne pas être le seul,...).

 

Bonne nuit.

[sechanbask]

pour les bugs d'affichage qui sont sur le fichiers que j'ai renvoyé, c'est juste un problème de format de cellule... les formats de cellules ont été forcés sous excel mais pas partout pareil... à mon avis, il faudrait enlevé ce formatage et le créer dans VBA... je vais voir ce que je peux faire car justement j'en ai besoin pour le code de mon boulot. (Mon code permet de déplacer une base de donnée vers une autre s'il y a des correspondances... Je le posterais peut-être quand j'aurai le temps de renseigner le code...)

 

 

pour les bugs de l'autre, je verrais ce que je peux faire mais le code m'a l'air bien compliqué... mais qui dit compliqué dit riche...

 

 

bon 15 août.

[lili2006]

Bonjour à tous,

 

(Mon code permet de déplacer une base de donnée vers une autre s'il y a des correspondances...

.

 

C'est à dire ??

 

Quand tu auras le temps, bien sûr,...

 

Encore une fois, bon travail et merci pour vos explications

 

@+ et bon 15 Aout également.

[sechanbask]

Je possède un base de données n°1 avec X colonnes dont:

« Nom de pièce »

« Déperditions »

« Températures intérieures à respecter »

 

Je possède une autre base de données n°2 avec X colonnes dont:

«Nom du local»

« Température»

« Puissance installée »

 

 

La base de données n°1 est issue d’un bilan thermique. Elle a été mise à jour car les parois de du bâtiment ont changé. Les utilisateurs ont également changé les températures pour améliorer le confort… Le problème c’est que nous travaillions sur la base de données n°2 pour effectuer des choix de radiateurs (fonction que j’ai d’ailleurs semi-automatisée).

 

Comme je suis fainéant, j’ai créé une macro pour fusionner les 2 bases de données :

 

Je fais une recherche des colonnes qui m’intéressent, puis je sélectionne un nom de pièce dans la bd n°1 ainsi que les « Déperditions » et « Températures intérieures à respecter » correspondant. Puis je boucle dans la bd n°2 et si je trouve un « Nom du local » = « Nom de pièce », je colle les « Déperditions » dans la colonne « Puissance installée » et la « Températures intérieures à respecter » dans la colonne « Température». Et ensuite je change de nom de local. Et cela pour les 1500 pièces de l’hôpital de Rochefort sur mer.

 

Autosatisfaction : J’ai mis 2 heures pour faire le code et j’estime qu’il faudrait 2 jours pour qu’une personne fasse ce que le PC fait pendant que je me prépare un thé menthe épicé… en gros 30 secondes pour faire 500 000 opérations… Je ne vous dis même pas comment mon chef de projet était content hier.

 

P.S. Quand j'arrive à faire ça j'adore me faire mousser alors n'hésiter pas même si ce que j'ai fait ben au final c'est pas grand chose : 3 ou 4 boucles avec des testes et des copies de cellules.

 

 

[Edité le 15/8/2007 par sechanbask]

[lili2006]

Re,

 

J’ai mis 2 heures pour faire le code

 

Oui, Mais tu as bossé avant pour comprendre comment marche le langage VB ou/et VBA

 

[c'est pas grand chose : 3 ou 4 boucles avec des testes et des copies de cellules.

 

Même remarque que ci-dessus.

 

en gros 30 secondes pour faire 500 000 opérations

 

Y'a pas photos,...

 

Je ne vous dis même pas comment mon chef de projet était content hier.

 

Augmentation à la clé ?!

 

Bonne fin de journée et merci pour ces éclaircissements, je commence à mieux entr'apercevoir l'intérêt de tout cela, même si pour moi l'intérêt reste minime (à part peut-être mieux former mes étudiants, ce qui est déjà beaucoups,...)

[speedy]

Bonjour

 

Lili2006 tu as assez le choix comme fichier excel, pour les cellules ce sont des protos, à toi de personnaliser le format des cellules, j'avais choisi le vert pour les résultats, tu peux choisir autre chose c'est du pur excel.......

 

j'avais commencé une méthode et dire que Sechanbask et Sigecom sont de bon conseil ont fourni leurs versions que je trouve trés trés bien ..... bien mais ce qui concerne la présentation c'est à chacun de l'adapter.

 

 

Bon 15 Août à tous ...... je vais voir le feu d'artifice.....

 

Michel a

 

 

 

 

[lili2006]

Rere,

 

Ok speedy

 

Bon feu d'artifice et @+, (et merci pour ces bons conseils)

[sechanbask]

Dans mon métier, on apprends tous les jours et toujours sur le tas...(c'est que disent tous les gens de mon métier). Par contre le VB et VBA, je l'ai appris à l'iut, la formation informatique est un peu trop courte et pas assez axé sur les besoins d'entreprises... Mais il suffit d'adapter...

 

Pour l'augmentation, je vais attendre un peu : je viens d'être augmenté en juin alors que ça ne faisait pas un an que j'avais commencé à travailler. Je n'ai que 23 ans et pas toutes mes dents.

 

 

Bon feux d'artifice à tous. Ici le temps est maussade, alors ça va pas être terrible.

 

P.S. J'habite poitiers et le temps est souvent pourri ici...

 

P.S. lili2006, je pense que tu n'as pas fermé ta citation dans ta réponse 17 ou alors y'a un gros problème d'affichage.

[lili2006]

Re,

 

Pb d'affichage je pense car j'ai pratiqué comme d'hab'

 

Comprends pas,...

 

C'est un IUT Génie Energétique que tu as fait avec une option informatique appliquée ?

[sechanbask]

Oui, j'ai fait un IUT GTE mais sans aucune option... J'ai galéré pour finir l'iut, le niveau était assez élevé pour moi malgré mon bas S... Il faut dire que la physique est très poussée mais la complexité des mathématiques est juste là pour ceux qui souhaitent poursuivre leurs études et ce n’était pas du tout mon cas.

 

J’aurais souhaité prendre une option informatique mais mon département ne me le permettait pas. J’ai toujours aimé l’informatique mais vu que le secteur était bouché quand j’ai dû choisi mon orientation, j’ai pris GTE.

 

Tu enseignes quoi exactement et où ?

 

Je vais écrire un mail à mes professeurs d’informatique pour leur indiquer les besoins des entreprises. Il serait de bon ton qu’ils utilisent des problèmes concrets pour les exercices d’informatiques. Je suis sûr qu’ils ne savent pas qu’on peut programmer AutoCAD alors que franchement si je n’avais pas fait ça au boulot, je serais encore en train de dimensionner des gaines à la main.

 

P.S. Tu es sûr que tu n’as pas un problème dans tes citations car on voit une balise :

 

« Citation extraite du message original:

[c'est pas grand chose : 3 ou 4 boucles avec des testes et des copies de cellules.

/quote] »

 

Vérifie que toutes balises "[ quote ]" soient fermées par "[ /quote]" sans les espaces et les guillemets.

 

 

[Edité le 15/8/2007 par sechanbask]

[lili2006]

Rerere,

 

Tu enseignes quoi exactement et où ?

 

J'enseigne le calcul topographique et l'informatique appliquée en BTS Géomètre-Topographe à Bordeaux, c'est la raison pour laquelle je m'interesse à l'informatique et les dernières technologies. Nous nous servons essentiellement du progiciel "covadis" pour la partie professionnelle, et là, il n'y à rien à redire, ce progiciel est en constante évolution, j'ai même du mal à suivre,... Seulement, son support étant AutoCAD, je m'interesse également beaucoup à lui, car cela peut donner des idées sans forcément utiliser l'usine à gaz covadis. Dernièrement, j'ai réalisé un levé de cimetière avec mes étudiants et savoir utiliser comme il faut Excel, m'interesse aussi, ainsi que acces. De plus, je suis trés curieux de nature, je pense que c'est un atout lorsque l'on enseigne.

 

Il serait de bon ton qu’ils utilisent des problèmes concrets pour les exercices d’informatiques. Je suis sûr qu’ils ne savent pas qu’on peut programmer AutoCAD alors que franchement si je n’avais pas fait ça au boulot, je serais encore en train de dimensionner des gaines à la main.

 

C'est exactement ce que je pense, mais il faut savoir que personne nous pousse à évoluer dans l'éducation nationale et beaucoup se contente de leurs heures de cours,....

Il est vrai que pour rester au top, c'est beaucoup de travail perso pour des salaires pas forcément folichon. Je pense qu'il faut faire ce métier car on aime partager son maigre savoir,et c'est exactement ce qui me plait sur ce forum : le bon esprit de l'échange,c'est à dire donner sans rien attendre en retour. Cependant, il me tarde de moi aussi pouvoir faire partager mes connaissances, mais il y a vraiment des personnes trés fortes sur ce forum et j'en suis encore au stade d'apprendre beaucoup de chacun, un jour peut-être,...

Je m'intéresse également aux techniques d'implantation ou de levé avec le système GPS, et là aussi, il y a énormément de travail pour rester à jour, alors il y a un momment ou on ne peux pas être partout, mais j'essaye tout de même.

 

J'ai enseigné également la thermique et l'acoustique dans un lycée de Rennes à mes débuts (je suis prof de Génie-Civil), c'est pourquoi j'ai bien compris ton avant-dernier post.

J'aide également des copains de fac qui sont maintenant installés à leur compte essentiellement dans le domaine des structures et du béton armé, dominante de ma formation de génie-civil, mais là, que durant les vacances scolaires.

 

Voili-voilou en ce qui me concerne.

 

P.S. tu es sûre que tu n’as pas un problème dans tes citations car on voit une balise :

.

 

Effectivement, j'avais mal géré.

 

A l'heure ou tu me liras, le feu d'artifice sera surement terminé. A Arcachon, ils l'ont annulés, faute de mauvais temps, ce sont mes gosses qui sont déçut,...

 

Bonne nuit et au plaisir,...

 

 

 

[sechanbask]

voilà ma macro pour la fusion de la base de données :

 

http://www.cadxp.com/sujetXForum-16420.htm

 

si ça peut aider...