macro pour recupérer les dimensions de la boite englobante dans un fichier texte ou excel

Bonjour,

dans la même idée que ponpon(macro dans catia inertie)
j'aimerai récupérer les dimensions de la boite englobante (variable BBL* dans liste de mesure) et l'exporter dans un fichier texte ou Excel
auriez vous des idées

bonne journée à tous

Bonjour Jeanmi,

Ci joint une macro qui récupère les variable BBLx,y,z. Il te faut encore les exporter.

Code:

'****************************************************
'*** il faut une CATPart avec les mesures d'inertie
'*** Macro CATVBA
'*** Marc 05/02/2016
'****************************************************

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim MaPart As Part
Set MaPart = partDocument1.Part
Dim MaColParam As Parameters
Set MaColParam = MaPart.Parameters
Dim MaBBLx
Dim MaBBLy
Dim MaBBLz

Dim i As Integer
    For i = 1 To MaColParam.Count
      If InStr(MaColParam.Item(i).Name, "BBLx") <> 0 Then
        MaBBLx = MaColParam.Item(i).Value
      End If
      If InStr(MaColParam.Item(i).Name, "BBLy") <> 0 Then
        MaBBLy = MaColParam.Item(i).Value
      End If
      If InStr(MaColParam.Item(i).Name, "BBLz") <> 0 Then
        MaBBLz = MaColParam.Item(i).Value
      End If
  Next
MsgBox ("X:" & MaBBLx & Chr(10) & "Y:" & MaBBLy & Chr(10) & "Z:" & MaBBLz & Chr(10))
End Sub

bonjour,

merci

c'est bien ce que je voulais

cdlt