Récupération des paramètres électriques d'un CATpart à l'aide d'une macro
2 participants
Page 1 sur 1
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.
Merci d'avance.
Bastinet
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
Merci d'avance.
Bastinet
Bastinet- timide
- Messages : 3
Date d'inscription : 08/10/2013
Localisation : Marseille
Re: Récupération des paramètres électriques d'un CATpart à l'aide d'une macro
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 :
En espérant que cela puisse t'aider
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
Mr.J- timide
- Messages : 14
Date d'inscription : 10/10/2013
Localisation : Toulouse
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|