Discussion :

[Thmass33]

Bonjour,

Je suis débutant dans la programmation en langage VBA sous Excel.

Pourriez-vous m'aider à concevoir le programme ci-dessous, s'il vous plaît.

Merci d'avance pour votre aide.

PS : Impossible d'utiliser le logiciel CATIA V5, CATDMUUtility Batch Process et autres logiciels (visionneuse/conversion) en .exe => Je peux seulement coder en VBA sous Excel


Langage de programmation en VBA sous Excel

Objectif : Extraire l'image .JPEG encapuslée dans une pièce .CATPart (CATIA V5).





STRUCTURE DU PROGRAMME

'Debut
Sub CATPART2JPEG()

1 - Déclaration et initialisation des variables.
Dim truc As Byte, etc...

2 - Ouvrir le fichier CATPart en lecture en mode binaire.
Open ".CATpart" For Binary As #1

'BOUCLE
While Not EOF(#1)

3 - Lire le fichier CATPart
Get #1, Position , Input ?

4 - Enregistrer dans un tableau temporaire le début du JPEG (0xFFD8) jusqu'à la fin du JPEG (0xFFD9)
?

'FIN DE BOUCLE
Wend

5 - Fermer le fichier CATPArt
Close #1

6 - Créer un fichier JPEG avec les valeurs du tableau temporaire
?

'Fin
End sub

[kiki29]

Salut, la question serait à poser sur le site de Dassault consacré à son logiciel ? VBA n'est pas à priori adapté pour cela ( format natif des fichiers .CATpart connu ? ), quoique .....

[patricktoulon]

Bonjour
Si tu arrive a récupérer. Ton image en binaire tu devrait pouvoir faire l inverse

[Thmass33]

Bonjour,

J'ai trouvé ceci :
http://www.google.fr/url?url=http://...wmnxeh2f_Vs81w

Cependant, les sources ne sont plus accessibles et il est impossible de contacter la personne.

J'ai réussi à faire la manipulation à l'aide d'un tableau hexadécimal et ça marche.

Donc, je pense que c'est possible en VBA.

Pouvez-vous m'aider sur la programmation de ce code ?

Merci.

[cerede2000]

Heu.....
Explique moi un truc Patrick, pourquoi avec mon code le JPG fait 3Ko et qu'avec le tiens il en fait 14 !!!!!!!
Il est important de tenir compte de la fin du JPG.....

Et je viens de mesurer le temps d’exécution des 3 fonction il est quasi identique, donc dans ce cas adodbstream semble pas apporter trop.
Mais bon les fichiers étant minuscule

[patricktoulon]

oui
les fichier etant minuscule il est difficile de faire la différence

ci joint mon usf gif to binaire
il y a l'exemple de silkyroad qui utilise le read (sripting comme toi) et mon usf qui lui utilise le adobstream

fait le test avec les deux sur des JPG style fond d'écran(grande taille) la différence est flagrante et ne prete a aucune discussion tu peut me croire

[Invité]

Une question peut-être absurde mais j'y vais!

Dans le wysiwyg de Patrick la fonction qui retourne le fichier image en base 64, il est possible de splitter sur 255 et 256 , ensuite on revoit le résultat en sans inverse.'ne rigolez pas j'ai prévenu!

[cerede2000]

Merci de fournir un CATPart pour lequel tu as ce cas afin qu'on puisse l'analyser

[Thmass33]

Salut Cerede,

ça va être compliqué de vous founir un catpart complet.

Je pense qu'il faut chercher le "FFD8" (ÿØ) qui est à côté du (JFIF) pour que ça marche à coup sûr

[cerede2000]

Bonjour à toi,

Un code VB trouvé sur un forum polonais !

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
Public Function GetImageFromCatiaFile(infile As String) As Image
 
 
 
	  Try
 
 
 
		Dim xByte As Byte
 
 
 
		Dim bPicEnd As Boolean
 
 
 
    Dim fs_in As New FileStream(infile, FileMode.Open, FileAccess.Read)
 
    Dim br As New BinaryReader(fs_in)
 
 
 
    Dim fs_out As New MemoryStream()
 
 
 
    Dim bw As New BinaryWriter(fs_out)
 
 
 
    While Not (br.BaseStream.Position = br.BaseStream.length) And Not bPicEnd
 
    	xbyte = br.ReadByte
 
    	If xbyte = 255 Then ' FF
 
    		xbyte = br.ReadByte
 
    		If xByte = 216 Then ' D8
 
    			xbyte = br.ReadByte
 
    			If xByte = 255 Then ' FF
 
    				bw.Write(CType(255, Byte))
 
    				bw.Write(CType(216, Byte))
 
    				bw.Write(CType(255, Byte))
 
    				While Not (br.BaseStream.Position = br.BaseStream.length)
 
    					xbyte = br.ReadByte
 
    					bw.Write(CType(xbyte, Byte))
 
    					If xByte = 255 Then ' FF 	
 
              	xbyte = br.ReadByte
 
              	If xByte = 217 Then ' D9
 
              		bw.Write(CType(xbyte, Byte))
 
              		bPicEnd = True
 
              	Else
 
              		bw.Write(CType(xbyte, Byte))
 
              	End If      
 
              End If     
 
    				End While
 
 
 
    			End If
 
    		End If
 
    	End If
 
 
 
    End While
 
 
 
    Dim img As Image = Image.FromStream(fs_out)
 
 
 
    br.Close()
 
    bw.Close()
 
    fs_in.Close()
 
    fs_out.Close()
 
 
 
    Return img
 
 
 
		Catch
 
			 Return Nothing			
 
		End Try
 
 
 
	End Function

A voir pour adapter en VBA
N'ayant pas de CatiaPart sous la main

[Thmass33]

Merci à toi Cerede

Voici le code à adapter en vba :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Public Function GetImageFromCatiaFile(infile As String) As Image
Try
Dim xByte As Byte
Dim bPicEnd As Boolean
Dim fs_in As New FileStream(infile, FileMode.Open, FileAccess.Read)
Dim br As New BinaryReader(fs_in)
Dim fs_out As New MemoryStream()
Dim bw As New BinaryWriter(fs_out)
While Not (br.BaseStream.Position = br.BaseStream.Length) And Not bPicEnd
xByte = br.ReadByte
If xByte = 255 Then ' FF
xByte = br.ReadByte
If xByte = 216 Then ' D8
xByte = br.ReadByte
If xByte = 255 Then ' FF
bw.Write(CType(255, Byte))
bw.Write(CType(216, Byte))
bw.Write(CType(255, Byte))
While Not (br.BaseStream.Position = br.BaseStream.Length)
xByte = br.ReadByte
bw.Write(CType(xbyte, Byte))
If xByte = 255 Then ' FF
xByte = br.ReadByte
If xByte = 217 Then ' D9
bw.Write(CType(xbyte, Byte))
bPicEnd = True
Else
bw.Write(CType(xbyte, Byte))
End If
End If
End While
End If
End If
End If
End While
Dim img As Image = Image.FromStream(fs_out)
br.Close()
bw.Close()
fs_in.Close()
fs_out.Close()
Return img
Catch
Return Nothing
End Try
End Function

[Invité]

Bonjour,
je suis un peut surpris! a ma connaissance Catia encapsule du Xml qui contient toutes les structure d'objet contenu dans le dessin.

on peut même trouver une structure xml qui contient des structures xml qui contiennent des structure d'objets cao!

il n'y a que le JPEG dans ton CatPart?

personnellement je téléchargerais un convertisseur catpart 3dxmlet je paresserais le Xml (il en existe des gratuit)!

[patricktoulon]

perso j'aimerais bien avoir un exemple de fichier

[Invité]

J'ai demandé un exemple aux études mais je ne sais pas si il est confidentiel je demande demain et je le publie si ça ne pose pas de soucis

J'avais fait un truc comme ça pour électrifié une arch en Catia v6 mais c'est vieux et je ne me rappel plus!

[cerede2000]

En VBA et ça fonctionne !!!!!

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub test()
    Dim intFileNum%, jpegFile%, bytTemp As Byte
    intFileNum = FreeFile
    Open "C:\Temp\Part2.CATPart" For Binary Access Read As intFileNum
    jpegFile = FreeFile
    Open "C:\Temp\Part2.jpg" For Binary Access Write Lock Write As jpegFile
    Do While Not EOF(intFileNum)
        Get intFileNum, , bytTemp
        If bytTemp = 255 Then
            Get intFileNum, , bytTemp
            If bytTemp = 216 Then
                Get intFileNum, , bytTemp
                If bytTemp = 255 Then
                    Put jpegFile, , CByte(255)
                    Put jpegFile, , CByte(216)
                    Put jpegFile, , CByte(255)
                    Do While Not EOF(intFileNum)
                        Get intFileNum, , bytTemp
                        Put jpegFile, , CByte(bytTemp)
 
                        If bytTemp = 255 Then
                          Get intFileNum, , bytTemp
                          Put jpegFile, , CByte(bytTemp)
                          If bytTemp = 217 Then
                            Close jpegFile
                            Exit Do
                          End If
                        End If
                    Loop
                    Exit Do
                End If
            End If
        End If
    Loop
    Close intFileNum
End Sub

Je comprends pas quand je fais une lecteur avec un tableau de 4 Byte => Redim byTemp(0 To 3) et que je test les 3 premiers pour voir si j'ai 255, 216, 255 ça ne fonctionne pas ?!?

Edit : Qui m'as mit un sur le post ou j'ai apporté le code ? Et surtout pourquoi ???

[Thmass33]

Merci à toi cerede2000 !
Je vais pouvoir convertir mes catpart.
PS: Je t'ai mis des

[cerede2000]

Attention !
On ne parle ici que de JPEG !!!!!
Forcément dans ton exemple tu traite du GIF !

Un JPEG qui ne se fini pas par FFD9 est un JPEG considérer comme corrompu.

Enfin bref, si tu chercher à remettre en cause la structure du JPEG ben amuse toi

Tu peux vérifier tout ce que tu veux Dans les CATParts il n'y en a qu'un seul tout comme il n'y a qu'une seule fin
Je me suis même amusé à extraire les images à la mimines avec éditeur hexa pour en avoir le cœur nette !

[cerede2000]

Version simplifiée avec principe du bitshift !

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
18
19
20
21
22
23
24
25
Sub test()
    Dim intFileNum%, jpegFile%, bytTemp(0 To 1) As Byte
    intFileNum = FreeFile
    Open "C:\Temp\Part2.CATPart" For Binary Access Read As intFileNum
    Do While Not EOF(intFileNum)
        bytTemp(0) = bytTemp(1)
        Get intFileNum, , bytTemp(1)
 
        If bytTemp(0) = 255 And bytTemp(1) = 216 Then
            jpegFile = FreeFile
            Open "C:\Temp\Part2.jpg" For Binary Access Write Lock Write As jpegFile
            Put jpegFile, , bytTemp
        End If
        If jpegFile > 0 Then
            If bytTemp(0) = 255 And bytTemp(1) = 217 Then
                Put jpegFile, , bytTemp
                Close jpegFile
                Exit Do
            Else
                Put jpegFile, , bytTemp(1)
            End If
        End If
    Loop
    Close intFileNum
End Sub

Je suis tout de même outré de voir que cet opérateur si basique n'existe même pas en VBA !!

[patricktoulon]

Bonjour a tous
@cerede
tu devrais regarder la contribution de silkyroad sur convertir en binaire dans un classeur les images gifs elles date un peu

mais j'y avais apporter une modification en remplacant
le

Code :

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

Open "fichier " For Binary Access Read As intFileNum

because il est relativement lent a l'execution

par un object adobstream qui est beaucoup plus rapide et donne tout le paquet d'un coup

j'utilise le même procédé avec mes image to base 64 et en binaire aussi

tu trouvera cela dans mes dernières contributions

Rdurupt et moi avions mis ces deux procédés au point



bonne lecture

[cerede2000]

??????????????
Je viens de vérifier, revérifier et rerevérifier via éditeur héxa et je confirme il n'y a qu'un seul FFD9 dans les fichier !
Pour PartsansCCP :
Adresse F1A0 à F1A1

Et le début FFD8 est à l'adresse E791 à E792

Je ne sais pas comment tu arrive à en trouver deux..... Tu as un problème quelque part !
Si en héxa dans le fichier on en trouve qu'un, il ne peux pas y en avoir deux quand tu parcours le truc, sauf si tu as un problème dans le code !
Repars de la base... Je ne sais pas si c'est les manips que tu fais avec les split ou autre qui génère le truc mais ce n'est pas possible !