Enregistrement d'une feuille excel sous le format dxf

Résolu
Mus89 Messages postés 6 Date d'inscription mardi 25 mars 2008 Statut Membre Dernière intervention 18 avril 2008 - 25 mars 2008 à 22:28
Mus89 Messages postés 6 Date d'inscription mardi 25 mars 2008 Statut Membre Dernière intervention 18 avril 2008 - 17 avril 2008 à 00:40
Merci de m'avoir accépter,voila ma question : je compte enregistrer un feuille d'excel (sheet) de données rangées suivant l'ordre NXYZ dans .cells(1,1) - .cells(K,4) ou k=1,2,3,4 ....
par exemple 1 200.00 500.00 123.21
                   2 199.10 498.20 122.35
                   3 204.13 495.12 118.56
 en un fichier dxf pour être dessiné par Autocad 2004.Pour cela je souhaite être assisté pour ecrire un code vba sous excel qui fait transformer la liste des Num et coordonnées XYZ des points en dxf.
Merci à l'avance.                           

2 réponses

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
26 mars 2008 à 08:28
3
Mus89 Messages postés 6 Date d'inscription mardi 25 mars 2008 Statut Membre Dernière intervention 18 avril 2008
17 avril 2008 à 00:40
Votre code m'a beaucoup aidé et je compte placer maintenant les n° des points ( Num ) en couleur par exemple jaune (2) dans un calque Layer appelé : NumLayer, les coordonnées x,y en vert (3) dans un calque : PlaniLayer ,Z dans AltiLayer etc ..

Ainsi il sera possible de visualiser les calques désirés dans Autocad sans aucun problème.

IL me semble que j'ai une vague idée sur ce sujet et mes essais n'aboutissent pas à un resultat donc mon code manque certainement de précisions en ce qui concerne la manière de déclarer la table de layer et les instructions utiles permettant de préselectionner les calques ( Pts,Text pour coordonnées x et y coordonnées et text autres ...

. . . . . . . .

Print #1, "TABLE"

Print #1, "  0"

Print #1, "NumLayer"

voila la procedure de visualiser un pt x,y en une couleur depuis la source

Sub DxfPoint(x0, y0, Couleur)


    Print #1, "Point"
    Print #1, "  8"
    Print #1, "0"
   
    Print #1, "62"
    Print #1, "    "; lgn
    Print #1, "10"
    Print #1, x0
    Print #1, "20"
    Print #1, y0
    Print #1, "30"
    Print #1, 0!
   
    Print #1, "  0"
  
 End Sub

Prière aussi me donner quelques explications en parallèle.

Mes reconnaissances à l'avance et Merci beaucoup.
0