Récupération des paramètres électriques d'un CATpart à l'aide d'une macro

Bonjour,

Je suis actuellement en train de réaliser une macro qui permet de récupérer certaine données d'un cat product et qui copies dans un fichier XML.

Je souhaiterai pouvoir récupérer les paramètres electrical également.

Je ne trouve pas la fonction qui permet de récupérer ce type de paramètre...

Je met un bout de mon code si sa peut intéresser quelqu'un.

Code:


a = Split(product1.DescriptionInst, vbcrlf)

For Each it In a


it = Replace(it, "=", ",")

b = Split(it, ",")

if b(1) = "" Then
q = MsgBox("Part '" & prod.Name & "' has an empty parameter '" & b(0) & "', continue anyway?", vbYesNo, "Empty parameter")
If q = vbNo Then
cancel = true
read_part = -1
Exit Function
Else
b(1)="NA"
End If
End If

param1.setAttribute Replace(b(0), " ", "_"), Replace(b(1), " ", "_")
Next

On Error Resume Next

Dim product3 As Product
Set product3 = prod.ReferenceProduct

Dim parameters1 As Parameters
Set parameters1 = product3.Parameters

Dim str As String
Dim Value

For Each par In parameters1
If par.UserAccessMode=2 Then
Value = ""
Value = par.Value
str = str & name&"="& Value & vbcrlf
Name = Replace(Name, " ", "_")
If InStr(Name, "\")<>0 Then
c = Split(Name, "\")
param2.setAttribute c(UBound(c)) , Value
Else
param2.setAttribute Name , Value
End If
End if
Next


J'epsère que vous pourrez m'aider,

Merci d'avance.

Bastinet

Bonjour,

Les paramètres électriques intéressants (longueurs, diamètres des BNS, Rayon de courbe, ...) ne sont pas dans les CATPrducts mais dans les CATParts électriques.

Ils se situent dans les derniers paramètres créés par CATIA et sont nommés de cette façon :
PartNumberCATPART\Contraintes\NomDuSegmentDeHarnais\Paramètre

ex:
Ensemble géométrique1-Harnais dérivable\Contraintes\Segment de harnais.1\Diamètre

Si tu travailles sur des CATParts contenant beaucoup de segments de harnais, je te conseille de faire une boucle qui tourne à l'envers sur les paramètres et de sortir de la boucle dès qu'un des paramètres n'est plus un paramètre électrical

ex :

Code:


Dim ElecParameterFound as boolean = false

For k=Parameters.count to 1 Step -1
 
if Parameters.item(k).name like "*\Contraintes\*" then
    'Faire quelque chose de ce paramètre
    ElecParameterFound = true  'indique qu'un premier parammètre électrique a été trouvé
 elseif ElecParameterFound = true
     'Ce n'est plus un paramètre électrique, on peut sortir de la boucle
      Exit For
 end if
next


En espérant que cela puisse t'aider