Traiter un fichier ASCII Résolu/Fermé

Question

Bonjour, 

Mon but est d'extraire d'un fichier dxf (fichier de type ASCII) une série d'information facilement identifiable. 

Etant donné le nombre important de ligne (plus de 125 000 pour un petit fichier), il n'est pas concevable de le traiter via excel. C'est là que se situe mon problème. 

Quelqu'un saurait-il me donner une piste pour y arriver? 

Voici un peu plus de détails concernant le ficher et les informations recherchées: 

Le fichier dxf est un fichier de DAO. 

Il se compose de plusieurs sections : Classes, Tables, Block, Entities et Objets.

A chaque fois que l'on insère un block dans le dessin, on retrouve une référence à ce block dans le section Entities. Dans mon cas, les blocks ont des attributs (variables attachées au block). C'est dans la section Entities, sous la référence du block que je les retrouve. 

Mon but est d'extraire, sous forme de tableau, le nom du block, le nom des attributs et leurs valeurs.


Configuration: Windows / Mozilla 11.0

f894009 · Answer

Bonjour,

si excel 2003 et anterieur, 125000 lignes pas possible mais excel2007-2013 si

autrement pouvez-vous mettre un de ces fichiers a dispo sur https://www.cjoint.com/

Ludovic1988 · Answer

Voici le fichier : https://www.cjoint.com/?DKtojXMLnyb

Excel peut traiter un maximum de 1 000 000 de lignes par feuille. Or il est probable qu'un fichier dxf dépasse le million de ligne.

f894009 · Answer

Re,
pas tres parlant.

une référence à ce block dans le section Entities donnez un exemple, car pas trouve de nom de block

Ludovic1988 · Answer

Voici un exemple extrait du fichier précédent: https://www.cjoint.com/?DKtqcexYwxn

Les informations a extraire sont suivies de ????????????????????????????? pour les faire ressortir. 

0
SECTION
2
ENTITIES-> signifie que l'on se trouve dans la section Entities

0
INSERT -> signifie qu'un block est inséré dans le dessin

La suite du code est la description des attributs du block. 

Chaque attribut est décrit de la manière suivante: 

0
ATTRIB
....
1
Valeur de l'attribut
....
2
Nom de l'attribut
.....

Cette nomenclature se répète autant de fois qu'il y a d'attribut. 

J'espère que c'est déjà plus claire. 

Merci!

Yoda · Answer

Bonjour,

Si ton Autocad n'est pas une version LT, il existe des petits programmes en Lisp qui font exactement ce que tu cherches.

Est-ce que tu sais comment charger et exécuter un Lisp?

Ludovic1988 · Answer

Je ne connais pas le lisp. Du moins je n'ai jamais codé en lisp. 

Par contre, le système que j'essaye de mettre en place ne peut fonctionner qu'à partir d'un fichier dxf généré par tout programme de DAO de base (Autocad, Mensura, Covadis,...). Je dois donc faire appel à un système qui n'à aucun lien avec ces programmes. Ceci afin de limiter les manipulations du dessinateur et assurer une universalité.

Yoda · Answer

Salut,

J'ai eu le temps de peaufiner le programme
Tu trouveras ci-dessous le code VBA de la macro.
Mode d'emploi:
Après le bloc de définition des variables (Dim), il y a trois variables à renseigner:
'*****************************************************************'initialiser les 3 variables ci-dessous***************************'*****************************************************************'nom_fich_inp = nom complet du fichier DXFnom_fich_inp = "C:\Documents and Settings\X\Mes documents\Fichier.dxf"'nom_fich_out= nom complet ddu fichier TXT ou CSV à créernom_fich_out = "C:\Documents and Settings\X\Mes documents\Fichier.txt"'nom_bloc=nom du bloc à traiter'mettre * pour tousnom_bloc = "*"'*****************************************************************'****************************************************************
Changes les nom des fichiers, et éventuellement le nom du bloc à traiter.

Lances le programme. Un message t'avertit quand c'est fini.
Le fichier généré est un fichier texte du type CSV, facilement exploitable avec Excel.
Chaque ligne contient tout ce qui est intéressant de connaitre dans un bloc.
Une fois importé dans une feuille Excel, tu pourras filtrer, supprimer des colonnes, trier, ...etc

Copie/Colle cette macro dans un module.
Fais un essai et rends-moi compte.

Sub import_dxf()Dim lig1 As String, lig2 As StringDim nom_fich_inp As String, nom_fich_out As StringDim nom_bloc As StringDim bloc As String, calque As String, att_c As String, att_n As String, att_v As StringDim coordX As String, ccordY As String, coordZ As StringDim nb_att As Integer, extrac As StringDim l_c As Long 'compteur de lignes pour debogage'*****************************************************************'initialiser les 3 variables ci-dessous***************************'*****************************************************************'nom_fich_inp = nom complet du fichier DXFnom_fich_inp = "C:\Documents and Settings\X\Mes documents\Fichier.dxf"'nom_fich_out= nom complet ddu fichier TXT ou CSV à créernom_fich_out = "C:\Documents and Settings\fmoretti\Mes documents\Attributs.txt"'nom_bloc=nom du bloc à traiter'mettre * pour tousnom_bloc = "*"'*****************************************************************'*****************************************************************'**********************************'Debut du programme d'extraction***'**********************************CloseOpen nom_fich_inp For Input As #1Open nom_fich_out For Output As #2'recherche de la section "ENTITIES"lig1 = ""lig2 = ""l_c = 0While Not (lig2 = "ENTITIES")Line Input #1, lig1Line Input #1, lig2l_c = l_c + 2lig2 = UCase(Trim(lig2))WendDoIf lig2 = "INSERT" Then ' c'est un bloccalque = "": bloc = "": coordX = "": coordY = "": coordZ = "": nb_att = 0     lig1 = "999"     'MsgBox l_c     While val(lig1) > 0              Select Case val(lig1)                              Case 8 'nom du calque                         calque = lig2                                                  Case 2 'nom du bloc                         bloc = lig2                                                  Case 10                         coordX = lig2                                                  Case 20                         coordY = lig2                                                  Case 30                         coordZ = lig2                                                  Case 66                         nb_att = val(lig2)             End Select          'lire 2 lignes     Line Input #1, lig1     Line Input #1, lig2     l_c = l_c + 2     Wend    'si lig1=0 sortie de boucle              If (Trim(UCase(nom_bloc)) = Trim(UCase(bloc))) Or Trim(UCase(nom_bloc)) = "*" Then                     'traitement                extract = "" 'initialisation                                'choisir les données à transferer                extract = extract & Chr(34) & calque & Chr(34) & "," 'calque du bloc                extract = extract & Chr(34) & bloc & Chr(34) & "," 'nom du bloc                extract = extract & coordX & "," 'X du point d'insertion                extract = extract & coordY & "," 'Y du point d'insertion                extract = extract & coordZ & "," 'Z du point d'insertion                         If nb_att > 0 Then                                Do                If lig2 = "ATTRIB" Then 'c'est un attribut                      'MsgBox l_c                                      Do                      Select Case val(lig1)                              Case 8 'nom du calque                         att_c = lig2                                                  Case 2 'nom attribut                         att_n = lig2                                                  Case 1 'valeur attribut                         att_v = lig2                                               End Select                      'lire 2 lignes                      Line Input #1, lig1                      Line Input #1, lig2                      l_c = l_c + 2                      Loop Until val(lig1) = 0 'fin des attributs                      'choisir les données à transferer                      extract = extract & Chr(34) & att_c & Chr(34) & "," 'calque attribut                      extract = extract & Chr(34) & att_n & Chr(34) & "," 'nom attribut                      extract = extract & Chr(34) & att_v & Chr(34) & "," 'valeur attribut                End If                Loop Until UCase(Trim(lig2)) = "SEQEND"              Else                'MsgBox "Bloc " & bloc & " n'a pas d'attributs"                'Close                'End              End If 'If nb_att > 0                            Print #2, extract                   End If 'If nom_bloc = bloc                End If 'If lig2 = "INSERT"If lig2 <> "INSERT" Then   'lire 2 lignes   Line Input #1, lig1   Line Input #1, lig2   lig2 = UCase(Trim(lig2))   l_c = l_c + 2End IfLoop While Not EOF(1)CloseMsgBox "FINI"End Sub

Ludovic1988 · Answer

Super un tout grand merci pour ton temps!!! Je regards ca et je te tiens au courant.

Ludovic1988 · Answer

Voici le programme finalisé (https://www.cjoint.com/?DLbpbXMl0hK 

Si vous avez des remarques à me faire sur ma manière de programmer, surtout, n'hésitez pas ;)

Yoda · Answer

Bonjour,

J'ai galéré un peu pour ouvrir le projet, j'avais des erreurs au chargement des dialogues.
Finalement j'ai réussi et voici mes remarques.

Sur l'ergonomie.
Visiblement ce n'est pas fini, alors difficile de donner une appréciation.
L'utilisation des menus déroulants et des boutons qui font double emploi me dérange un peu.
Le menu File, en l'occurrence ne sert à rien.
Le menu Tools n'a qu'une seule commande Settings, donc pas très utile.
Les textes des boutons ne sont pas assez explicites, on ne voit pas à quoi ils servent au premier coup d'oeil.
Par exemple, au dessus du champ texte de Select File, je mettrai mettrai un Label "Select Input File (DXF)", je laisserai le champ texte visible mais non modifiable manuellement.
Par contre la barre de progression, je la ferai apparaitre seulement à l'exécution.

Pour la première feuille Settings, je n'ai pas compris toutes les options possibles.
En effet, le programme ne fait qu'extraire des Blocs et leurs attributs, mais peut-être que ce programme va évoluer?
La couleur du texte des boutons (blanc sur blanc) n'est pas assez contrastée.

Pour la seconde feuille Extract Settings.
Dans le premier encadré Bloc Informations, il faudrait supprimer l'option Nombre d'attributs, parce que dans le dxf, ce nombre ne peut avoir que deux valeurs, zéro pour "sans attributs", non nul pour "attributs suivent".

Pour le deuxième encadré Attribut Informations, il ne devrait y avoir que des choix portant sur des informations communes à tous les blocs comme Nom du calque, Nom de l'Attribut, Valeur de l'Attribut...
Comme c'est fait là, le programme listera uniquement les attributs portant un Label précis, donc uniquement applicable à un type de dessin.
Si on ne veut s'intéresser qu'à un Bloc bien précis, il faudrait donner le nom du bloc à extraire avant tout, puis éventuellement lister les attributs et faire une sélection parmi eux. Dans l'état actuel, ce programme n'est pas conçu pour ça.

En ce qui concerne l'écriture du code, je dirai que à partir du moment où on ne travaille pas en équipe, à chacun son style pourvu que ça marche.

Cordialement

Traiter un fichier ASCII

10 réponses

Discussions similaires