Enregistrement d'une feuille excel sous le format dxfRésolu

Question

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.

Renfield · Accepted Answer

http://www.freevbcode.com/ShowCode.asp?ID=8211

Mus89 · Answer

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.

Enregistrement d'une feuille excel sous le format dxf

2 réponses

Votre réponse