Macro pour isoler un attribut lier à un texte

Bonjour,

Voila, je cherche à reproduire dans un macro VBA le fait d'isoler le lien créé entre un texte (dans un drawing) et un paramètre, soit l'équivalent d'Edition/Liens/isoler sur les liens de type Attribut.


J'insiste sur le type de lien car je ne parle pas de lien sur une CatPart.

Merci pour toute aide apportée

Bonjour,

Voici un code qui permets de trouver les DrawingText avec lien; mais je ne sais pas s'il est possible de les isoler.
J'ai tenté l'enregistrement de macro mais comme souvent ça ne donne rien avec les drawing.

Sub CATMain()
Dim myD As DrawingDocument
Set myD = CATIA.ActiveDocument
Dim myTs As drawingtexts
Dim myview As DrawingView

Set myview = myD.Sheets.ActiveSheet.Views.ActiveView
Set myTs = myview.Texts

For i = 1 To myTs.Count
If myTs.Item(i).NbLink > 0 Then
MsgBox "texte avec lien"
End If
Next
End Sub

Il faut peut être essayer de mettre les textes trouvés dans une sélection et d'effectuer l'opération "isoler" sur la sélection.


Bonjour,
merci pour votre retour.
désolé pour le temps de réponse mais 1er round de congés...

j'ai testé cette méthode au début de mes recherches mais sans parvenir à isoler les liens trouvés (pas de méthode de disponible).
De même cette méthode ne m'a pas permise de différencier les liens des vues des liens sur attributs.

Je vais tout de même essayer par la sélection, on sait jamais.

Salut,

Voilà ce que je peux te proposer, je ne sais pas si ça répond à ton besoins.
A tester.

Code:


'https://catiav5.forumactif.org/t1773-macro-pour-isoler-un-attribut-lier-a-un-texte#7588
'macro pour isoler tous les DrawingTexte qui ont un lien.

Sub CATMain()
Dim rep As String
Dim myDrawing As DrawingDocument
Set myDrawing = CATIA.ActiveDocument
Dim mySel As Selection
Set mySel = myDrawing.Selection
mySel.Clear
Dim compteur As Integer
compteur = 0
Dim myDrawingTexts As DrawingTexts
Dim myview As DrawingView
'boucle sur toutes les vues du CATDrawing
'on peu filtrer si on ne veut que le fond de calque par exemple.
For i = 1 To myDrawing.Sheets.ActiveSheet.Views.Count
    Set myview = myDrawing.Sheets.ActiveSheet.Views.Item(i)
    Set myDrawingTexts = myview.Texts
    For j = 1 To myDrawingTexts.Count
        If myDrawingTexts.Item(j).NbLink > 0 Then
        'MsgBox "texte avec lien" & myDrawingTexts.Item(j).Name
        compteur = compteur + 1
        mySel.Add myDrawingTexts.Item(j)
        End If
    Next j
Next i

rep = MsgBox(compteur & " textes avec liens trouvés." & Chr(10) & "Voulez vous les isoler?", vbYesNo, "Isoler les textes")
If rep = vbYes Then
    CATIA.StartCommand ("Isoler") ' si CATIA en français ou ("Isolate") si CATIA en anglais
Else
    MsgBox "Commande annulée."
End If
mySel.Clear
End Sub