useraccessmode

Bonjour
J'ai reçu des parts (issue de 3DEXP) qui possèdent des propriétés utilisateurs que je veux supprimer
La valeur de CATIA.Activedocument.product.UserRefProperties.item(1).UseraccessMode vaut 1 .
Dans la doc cela veut dire que je ne peux pas la détruire. il faut la passer en 2

j'ai essayé
CATIA.Activedocument.product.UserRefProperties.item(1).UseraccessMode =2 mais ca ne fonctionne pas

Y a t il une solution pour changer ce paramètre et qui me permettrait de supprimer ces userproperties ?

Merci d'avance

Salut,

Je me suis déjà cassé les dents sur ce sujet regarde ICI
Mais je ne suis plus complètement sûr que ça supprime les userref. bloquées.

Salut,
Après vérification, la fonction remove ne fonctionne pas avec les Userref bloquées (UseraccessMode=1).
Il faut utiliser une sélection : ajouter les Userref à supprimer dans une sélection puis effacer la sélection.
Exemple pour tout supprimer :

Code:


Sub CATMain()

Dim myDocument As Document
Set myDocument = CATIA.ActiveDocument

Dim mySel As Selection
Set mySel = myDocument.Selection
mySel.Clear

Set myProduct = myDocument.Product
Set myUserProps = myProduct.UserRefProperties
'On Error Resume Next

For i = 1 To myUserProps.Count
    Debug.Print myUserProps.Item(i).Name & "-" & myUserProps.Item(i).UserAccessMode
    mySel.Add myUserProps.Item(i)
Next
    If mySel.Count > 0 Then
        mySel.Delete
    End If
End Sub


Bonjour
Je te remercie beaucoup pour cette astuce de jouer avec les sélections. Je la garde en mémoire pour de prochaines macros. En tout cas ça répond parfaitement à mon besoin actuel.
Merci beaucoup et bonne journée.