Discussion :

[familledacp]

Bonjour à tous et à toutes

Je cherche à extraire des données dans un fichier texte de type dxf (il s'agit d'un format d'export d'autocad)

Les fichiers sont composés d'une succession de lignes et parfois très longs

J'en ai par exemple généré un qui fait 1 350 000 lignes.....

Je cherche à récupérer les lignes concernant un certain type de données et les insérer dans un fichier excel pour ensuite les retraiter

Il s'agit des lignes avec le texte "AcDbPolyline"

C'est ce que j'arrive à obtenir dans le code ci dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton4_Click()
 Dim ValeurLigne As String
  Dim Cellule As Range
 
  Set Cellule = Range("a2")
 
  Open "e:\dessin1.dxf" For Input As #1
  Do While Not EOF(1)
  Line Input #1, ValeurLigne
  If InStr(1, ValeurLigne, "AcDbPolyline") <> 0 Then
    Cellule = ValeurLigne
    Set Cellule = Cellule(2)
  End If
  Loop
  Close #1
 
End Sub

Je souhaite aller plus loin

A chaque fois qu'on trouve "AcDbPolyline", il faut récupérer
- la valeur située deux lignes au dessus (par exemple "essai calque" dans le fichier joint)
- les valeurs numériques situées sur la 8e ligne en dessous et toutes les 2 lignes juqu'à la 1ere ligne avec un mot (et non des valeurs numériques). Le nombre de lignes concernées varie d'un "paragraphe à l'autre)

Je mets à titre d'exemple un fichier dxf en pièce jointe.

Si vous avez des pistes, je suis preneur, et vous en remercie par avance.

Bonne journée

Daniel S