importer des coordonnees Excel pour dessiner des rectangles dans Autocad LT 2004

[calaxa49]

Bonjour à tous

 

Je suis novice Autocad et ce forum.

J'ai un tableau excel avec les coordonnées (x,y) + nom correspondant aux centres des rectangles que je veux dessiner et à leur nom.

 

Comment je peux dessiner automatiquement tous ces rectangles aux coordonnées spécifiées à partir du tableau excel et d'un modèle de rectangle.

 

Merci d'avance pour votre aide

 

"please HELP ..."

[lovecraft]

Bonsoir,

 

la seule façon d'automatisée ce que tu recherches c'est de creer des scripts:

 

si tu veux ,donne nous ton fichier excel pour que je regarde une petite macro.

 

@plus

 

 

[calaxa49]

Ce sont les coordonnées des centres des rectangles en cm.

la dimension du rectangle à dessiner est :

largeur : 265 cm

hauteur : 620cm

 

Merci d'avance.

 

J'espère qu'on peut joindre un fichier sinon...

[calaxa49]

lovecraft, tu peux me dire comment je joins un fichier ?

[lovecraft]

bonjour,

 

Via le site http:// http://www.cjoint.com/

 

@plus

[calaxa49]

http://cjoint.com/?dviWsxYc4X

 

Voici le lien pour avoir le fichier de coordonnées.

A+

[calaxa49]

J'ai fait une macro sous Excel pour dessiner mes rectangles. Mais j'aimerais bien savoir le faire sous Autocad.

[speedy]

Bonjour

en créant un bloc avec un rectangle et un attribut au milieu puis faire un script d'insertion......

nea est le nom du bloc à créer

attreq 1

inserer nea 60597,-5970 1 1 0 NEA101

inserer nea 60598,-6594 1 1 0 NEA102

etc...

 

pourrais tu partager ton code sous excel la création des rectangles ??pour voir....

 

@+

 

Michel a

[calaxa49]

Bonjour Speedy

 

faire un script, est-ce taper des lignes de commandes ?

si oui, ouahhh quelle galère !!!

j'ai des fichiers avec plus de 6000 coordonnées donc je ne me vois pas taper 6000 lignes de commandes.

:mad:

 

Sinon, pour info voici un extrait de mon programme Excel (Soyez indulgent je ne suis pas informaticienne)

 

l = 2.65

h = 6.2

 

For i = 2 To n

x1 = (Worksheets("xy").Range("B" & i) / 100) - (l / 2)

y1 = -(Worksheets("xy").Range("C" & i) / 100) - (h / 2)

baptême = Worksheets("xy").Range("A" & i)

 

Worksheets("plan").Activate

ActiveSheet.Shapes.AddShape(msoShapeRectangle, x1, y1, l, h).Select

 

With Selection

.Placement = xlFreeFloating

.PrintObject = True

.Name = baptême

End With

 

 

Next i

 

et voila.... ;)

 

[(gile)]

Salut,

 

faire un script, est-ce taper des lignes de commandes ?

si oui, ouahhh quelle galère !!!

j'ai des fichiers avec plus de 6000 coordonnées donc je ne me vois pas taper 6000 lignes de commandes.

 

Un script est fichier texte qui reprend les entrées à la ligne commande (un espace ou saut de ligne valent une entrée)

 

Utilise les fonctions de copie et la fonction CONCATENER d'Excel pour écrire ton script, ça ne devrait pas être si "galère".

[calaxa49]

ok je fais un fichier .txt

 

Comment dans autocadLT 2004, je dis : "aller chercher le fichier xx.txt et executer les lignes de commandes ?"

[nomutt]

Bonjour,

 

Le fichier Script doit avoir comme extension .scr

Ensuite menu Outil>Script... et sélectionner le fichier Script puis cliquer sur Ouvrir

 

[speedy]

RE

calaxa49, je croyais que tu jonglais avec excel, je l'ai fait avec excel.....

 

http://www.cijoint.fr/cjlink.php?file=cj200803/cijSZtNQB8.zip

 

1- tu insères le bloc "nea.dwg"

2 - tu tapes script

3- tu vas chercher le fichjer "nea.scr"

 

@+

 

Michel a