[Module FTA] Afficher des références dans une capture

Bonjour,

Je suis nouveau dans la programmation en VBA sur Catia.
Je cherche à afficher dans mes capture toutes mes références qui sont utilisées dans la vue liée à la capture en question.

l'idée est de partir d'une capture - avoir la vue liée - récupérer les annotation avec un cadre de référence - récupérer les références des cadres _ afficher les références dans la capture.

En bidouillant un peu je suis arrivé au moment où je peux récupérer mon cadre mais pour avoir les références du cadre je bloque.

Sub CATMain()

Dim oSel As Selection
Dim cadre_tol As Annotation
Dim ref As Annotation
Dim tol_geo As Annotation
Dim capt As Capture
Dim vue As TPSView


Set oSel = CATIA.ActiveDocument.Selection
MsgBox "Number of objects selected: " & oSel.Count

Dim oSelEl As SelectedElement
Set oSelEl = oSel.Item(1)
MsgBox "The Selected element's type is " & oSelEl.Type


'If oSelEl.Value.Type = Capture Then


Dim i As Integer
For i = 1 To oSel.Count

Set oSelEl = oSel.Item(i)

Set capt = oSelEl.Value
Set vue = capt.ActiveView
Set annota = vue.Annotations
MsgBox annota.Count




Dim j As Integer
For j = 1 To annota.Count

Set tol_geo = annota.Item(j)

If tol_geo.IsAnAssociatedRefFrame Then

'Set cadre_tol = tol_geo.AssociatedRefFrame.ReferenceFrame

Set cadre_tol = tol_geo.AssociatedRefFrame.ReferenceFrame

'AssociatedRefFrame
'MsgBox cadre_tol.DatumTarget
'cadre_tol.DatumSimple
'cadre_tol.ReferenceFrame

MsgBox cadre_tol.Name

'Set ref = cadre_tol.

'MsgBox ref.Name

End If

Next j




Next i

'End If
oSel.Clear
End Sub

les commentaires sont des tests ne faites pas attentions