Communauté
AutoCAD – tous produits - Français
Bienvenue sur les forums AutoCAD d’Autodesk. Partagez vos connaissances, posez des questions, et explorez les sujets AutoCAD populaires.
annuler
Affichage des résultats de 
Afficher  uniquement  | Rechercher plutôt 
Vouliez-vous dire : 

Dessiner à partir d'un fichier XLS sous autocad

17 RÉPONSES 17
Répondre
Message 1 sur 18
dr.hannibal
5610 Visites, 17 Réponses

Dessiner à partir d'un fichier XLS sous autocad

Bonjour à tous.
Je suis largué, nouveau user j'ai un boulot (monstre) à faire comme dessiner des points (poste de transfo électrique) sous Acad.

J'ai déjà mis le temps pour les recenser. A présent je dois les placer.

J'ai donc un fichier excel avec

NOM X Y

Donc il faudrait que je trouve un moyen de créer directement un point à cette coordonnée. le MUST serait qu'il me dessine un point et qu'en plus j'aie le nom du poste dans un calque mais bon je ne rêve pas.

J'en ai 308 à noter.
Avez-vous une idée? coup de pouce?

merci infiniment.
Bonne journée
Simon
17 RÉPONSES 17
Message 2 sur 18
otobox
en réponse à: dr.hannibal

Salut,

ayant une petite heure à perdre, j'ai fait une macro répondant à tes besoins.
En pièce jointe, le fichier AutoCAD 2005 et la macro (vba) si tu dois rajouter des données.

Jean-Marc Edited by: OtObOx on Mar 22, 2010 9:00 PM
Message 3 sur 18
Anonymous
en réponse à: dr.hannibal

Bonjour,
Surtout ne rien faire manuellement, ce que tu souhaites s'automatise sans
problème.
Ton travaille sous excel va être très très utile.
L'idée de base sera d'insérer tes transfos sous forme de blocs avec 1
attribut représentant le nom.
Bloc TRANSFO inséré au point X1,Y1, l'attribut prenant le nom NOM1
Bloc TRANSFO inséré au point X2,Y2, l'attribut prenant le nom NOM2
Et ceci pour chaque ligne de ton fichier excel.
Je suis un peu pris par le temps pour faire ça en VBA, ça peut se faire
aussi en lisp.
Il y a l'exemple EXCELLINK.dvb dans le répertoire Sample\VBA d'AutoCAD, mais
si tu es nouvel utilisateur...
Mais je vois que OtObOx avait 1 heure à dépenser, pas à perdre!!
A propos, Jean Marc, les XDATAs fonctionnent-elles?
Cordialement
--
Bernard Flavignard
www.guidonchalettois.fr
__o
_`\<,_
( )/ ( )


"dr.hannibal" a écrit dans le message de groupe de discussion :
6358458@discussion.autodesk.com...
> Bonjour à tous.
> Je suis largué, nouveau user j'ai un boulot (monstre) à faire comme
> dessiner des points (poste de transfo électrique) sous Acad.
>
> J'ai déjà mis le temps pour les recenser. A présent je dois les placer.
>
> J'ai donc un fichier excel avec
>
> NOM X Y
>
> Donc il faudrait que je trouve un moyen de créer directement un point à
> cette coordonnée. le MUST serait qu'il me dessine un point et qu'en plus
> j'aie le nom du poste dans un calque mais bon je ne rêve pas.
>
> J'en ai 308 à noter.
> Avez-vous une idée? coup de pouce?
>
> merci infiniment.
> Bonne journée
> Simon
>
Message 4 sur 18
otobox
en réponse à: dr.hannibal

Bernard, je t'ai répondu sur le fil que j'ai créé sur les Xdata.

Sinon, on pourrait aussi passer par un bloc, c'est un pouillème plus long à faire, car il faudrait le créer d'abord en vba (ou alors manuellement ou l'importer, avant de lancer la macro, mais c'est moins rigolo 😉
L'avantage en passant par les références de bloc est qu'on peut ensuite modifier facilement l'allure du transfo (remplacer les croix par un logo représentant un transfo par exemple) et offre plus de possibilités par la suite, pour les compter par exemple.
Je peux modifier ma macro en ce sens si tu veux, ça me fera réviser comment insérer des attributs et les renseigner en vba 😄

JM
Message 5 sur 18
dr.hannibal
en réponse à: dr.hannibal

Ce que vous êtes bon. Incroyable.

OtObOx merci INFINIMENT pour le moment que tu m'as accordé.
C'est exactement ce dont j'avais besoin, (non soyons honnête c'est beaucoup plus que ce dont j'avais besoin 🙂 ).
J'ai charger ton macro, puis je l'ai lancé en sélectionnant mon fichier XLS mais il m'a simplement inscrit mes postes sans tenir compte des coordonnées Géo, As-tu une idée pourquoi? Peut être parce-que je suis sous ACAD07?

J'ai donc édité afin de voir à quoi ressemblait du VBA (première fois) je vois donc qu'il est possible de modifier la taille du texte. Je vais continuer à chercher pour voir la forme du point et la police d'écriture.

Surpris de tes commentaires qui m'explique très très bien la démarche. J'entame le VB en septembre normalement à la reprise de mes études.




C'est vraiment incroyable. 2 jours à questionner toute ma section, personne ne sait. Je suis stagiaire donc mes connaissances sur ACAD étaient déjà très limitées, et la je dois faire quelque chose sans que personne ne sache comment. Dès-fois..


Merci Infiniment pour votre aide/explication.
Bonne journée (avec le sourire) Edited by: dr.hannibal on Mar 23, 2010 8:25 AM
Message 6 sur 18
patrick_35
en réponse à: dr.hannibal

Salut

Tu as aussi IXL

@+
Message 7 sur 18
dr.hannibal
en réponse à: dr.hannibal

Au risques de passer pour un Débile profond, je n'arrive pas à extraire les 3 fichiers contenus dans le zip IXL

ouhla.

Mais je te remercie 🙂
Ca fait plaisir une aide pareille
Message 8 sur 18
Anonymous
en réponse à: dr.hannibal

Bonjour à toutes et tous,

Clic droit sur le dossier zippé, extraire vers,...

"dr.hannibal" a écrit dans le message de
news:6358947@discussion.autodesk.com...
Au risques de passer pour un Débile profond, je n'arrive pas à extraire les
3 fichiers contenus dans le zip IXL

ouhla.

Mais je te remercie 🙂
Ca fait plaisir une aide pareille
Message 9 sur 18
dr.hannibal
en réponse à: dr.hannibal

Merci, vive les restrictions sur les ordinateurs.

J'ignorais que je ne pouvais pas extraire un zip.
J'essayerais à la maison.

merci beaucoup.
Simon
Message 10 sur 18
otobox
en réponse à: dr.hannibal

Je ne sais pas pourquoi ça ne fonctionne pas, sur le fichier excel donné en exemple, ça fonctionne : la preuve avec le fichier ACAD joint en même temps que la macro.
Si tous tes transfos sont au point 0,0, c'est qu'il n'arrive pas à lire les coordonnées dans le fichier excel. Peut-être ne sont-elle pas rangées dans les même colonnes que dans le fichier donné en exemple ? Dans ce cas, il faut modifier les valeurs des variables colX et colY.

JM
Message 11 sur 18
dr.hannibal
en réponse à: dr.hannibal

Justement OtObOx, j'ai chargé ta macro, puis j'ai essayé avec le fichier excel donné en exemple.

La seule différence étant la version de l'ACAD.

merci beaucoup
Bonne journée
Simon
Message 12 sur 18
otobox
en réponse à: dr.hannibal

Peux tu expliquer pourquoi ça ne fonctionne pas ? Tu dis que seuls les noms apparaissent... comment sont-ils disposés ? Tous au même endroit ? Eparpillés dans le dessin ? Les X ne sont pas dessinées ? Peux tu poster le fichier DWG que tu obtiens après avoir fait tourné la macro ?
C'est étonnant que ça ne fonctionne pas, c'est une macro très simple pourtant.

JM
Message 13 sur 18
dr.hannibal
en réponse à: dr.hannibal

H0p, ci-joint les 2 fichiers obtenus via la macro.
J'ai donc les noms des postes qui sont inscrit mais tous sur la même ligne l'un à côté de l'autre.

Et les points aux coordonnées 0:0

Je te remercie du fond du cœur pour ta précieuse aide OtObOx ;).
Message 14 sur 18
dr.hannibal
en réponse à: dr.hannibal

hop ici pour ceux qui auraient la V 2004.

Merci Excellente journée.
Simon
Message 15 sur 18
otobox
en réponse à: dr.hannibal

Si le fichier v2004 que tu as joint a été fait avec ma macro, ça marche. Les points sont plus en haut et a droite, tu devrais pouvoir les voir en faisant un zomm entendu 😉
Les points affichés en 0,0 sont ceux qui ont les coordonnées en 0,0 dans le listing.

JM
Message 16 sur 18
dr.hannibal
en réponse à: dr.hannibal

ouhlalal je vais vraiment devenir fou, j'obtiens ça dans les deux cas (joint.)

Je saisi pas comment tu arrives à obtenir quelque chose de correcte? une version différente de VBA?

c'est étrange mais je te remercie infiniment de ton aide 🙂
Message 17 sur 18
otobox
en réponse à: dr.hannibal

Fait un ZOOM ETENDU dans ton dessin !!!!!
Message 18 sur 18
dr.hannibal
en réponse à: dr.hannibal

Tu sais Jean-Marc, parfois j'ai envie de disparaitre.

Ah, que suis-je bête les points étaient effectivemment aux coordonnées mon dieu mon dieu.
Je vais faire suivre mes difficultés aux supérieurs pour obtenir des jours de congé :).

C'est donc tout bon tout beau tout est PARFAIT.

Merci merci merci pour la peine, l'aide même à mes questions les plus basiques.

Excellente journée à toi merci.
Simon

Vous n'avez pas trouvé ce que vous recherchiez ? Posez une question à la communauté ou partagez vos connaissances.

Publier dans les forums