Liste les objets présent dans le diagramme actif

Option Explicit
Dim model
Set model = ActiveModel
If (model Is Nothing) Or (Not model.IsKindOf(PdPDM.cls_Model)) Then
MsgBox « Le modèle courant n’est pas un modèle physique. »
Else
Dim PackageTables
Set PackageTables = ActivePackage.Tables
Dim tbl
dim smb

Output « Liste des tables présentes dans le diagramme actif: «  » » + ActiveDiagram.Name + «  »

For Each tbl In PackageTables
for each smb in tbl.Symbols
if smb.parent.ObjectID = ActiveDiagram.ObjectID then
If smb.Hidden = false Then
Output « Table:  » + smb.Object.Name
end if
end if
next
Next
End If