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

Voir le sujet précédent Voir le sujet suivant Aller en bas

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

Message par jeanmi le Mer 3 Fév 2016 - 21:17

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

jeanmi
timide
timide

Messages : 9
Date d'inscription : 14/03/2013
Age : 59
Localisation : valence drome

Revenir en haut Aller en bas

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

Message par lumpazepfel le Sam 6 Fév 2016 - 0:37

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
avatar
lumpazepfel
actif
actif

Messages : 141
Date d'inscription : 03/11/2015
Localisation : Ensisheim

Revenir en haut Aller en bas

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

Message par jeanmi le Lun 8 Fév 2016 - 18:39

bonjour,

merci

c'est bien ce que je voulais

cdlt

jeanmi
timide
timide

Messages : 9
Date d'inscription : 14/03/2013
Age : 59
Localisation : valence drome

Revenir en haut Aller en bas

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

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum