Enregistrement d'une feuille excel sous le format dxf [Résolu]

Signaler
Messages postés
6
Date d'inscription
mardi 25 mars 2008
Statut
Membre
Dernière intervention
18 avril 2008
-
Messages postés
6
Date d'inscription
mardi 25 mars 2008
Statut
Membre
Dernière intervention
18 avril 2008
-
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

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
Messages postés
6
Date d'inscription
mardi 25 mars 2008
Statut
Membre
Dernière intervention
18 avril 2008

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.