Powerd911 – Numéro #1 au Canada

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

Laisser un commentaire