Powerd911 – Numéro #1 au Canada

Affiche les objets de premier niveau ainsi que le nom du créateur, la date et l’heure

Ces quelques lignes de code en Visual Basic permettent d’afficher les objets se trouvant au premier niveau du modèle actif ainsi que le nom du créateur, la date et l’heure de création de chacun des objets.

Compatible avec PowerDesigner/PowerAMC 16.5

'* Nom du fichier : AFFICHE_OBJETS_DETAIL.vbs
'* Définition : Affiche les objets de premier niveau du modèle actif
'*              ainsi que le nom du créateur, la date et l'heure
'* Auteur: Benoît Le Nabec
'* URL : http://www.Powerd911.guru
'* Créé: 2015-07-01
'* Version: 1.0
'***********************************************************************

Option Explicit ' Force la déclaration de chaque variable avant affectation

InteractiveMode = im_Batch ' Supprime l'affichage de boîtes de dialogue

Dim diag ' Identifie le modèle actif courant

Set diag = ActiveDiagram ' le diagramme courant

If (diag Is Nothing) Then
MsgBox "Il n'y a pas de diagramme actif"
Else
Dim fldr
Set Fldr = diag.Parent
ListObjects(fldr)
End If


' Sous-procédures pour parcourir le package courant et imprimer
' des infos sur les objets du package courant et rappeler
' la même sous-procédure sur tous les packages enfant

Private Sub ListObjects(fldr)

output "Balayage de " & fldr.code

Dim obj ' objet concerné

For Each obj In fldr.children
' Appel de sous-procédure pour imprimer des infos sur l'objet
DescribeObject obj
Next

' parcourir les sous-packages
Dim f ' dossier concerné

For Each f In fldr.Packages
'Appel de sous-procédure pour parcourir le package enfant
ListObjects f
Next
End Sub



' Sous-procédure pour imprimer des infos sur l'objet courant
Private Sub DescribeObject(CurrentObject)
if CurrentObject.ClassName ="Association-Class link" then exit sub
'output "Trouvé "+CurrentObject.ClassName
output "Trouvé "+CurrentObject.ClassName+" """+CurrentObject.Name+""", Créé par "+CurrentObject.Creator+" le "+Cstr(CurrentObject.CreationDate)
End Sub

 

Laisser un commentaire

Contacter nous
300 characters left