Assigne la couleur Jaune à une entité de type raccourci

Ces quelques lignes de code en Visual Basic Script permettent d’assigner la couleur jaune à une entité de type raccourci qui serait utilisé dans un modèle conceptuel.

Compatible avec PowerDesigner/PowerAMC 16.5

'*****************************************************************************
'* Nom du fichier : MAJ_COULEUR.vbs
'* Définition : Assigne la couleur jaune à une entité de type raccourci
'* Modèle: Modèle de données conceptuel (MCD)
'* Objets: Entité
'* Auteur: Benoît Le Nabec
'* URL : http://www.Powerd911.guru
'* Créé: 2015-01-01
'* Version: 1.0
'*****************************************************************************

' Permet de conserver une trace de l'exécution du script

'   dim fs,  f
'   set fs = CreateObject("Scripting.FileSystemObject")
'   set f = fs.CreateTextFile("C:PowerAMC_vbs.log")

dim index
index = 0

dim model
set model = ActiveModel

If (model Is Nothing) Then
MsgBox "Il n'y a pas de modèle actif"
ElseIf Not model.IsKindOf(PdCDM.cls_Model) Then
MsgBox "Ce n'est pas un modèle conceptuel"
Else
Cherche_Entite model
MsgBox "Il y'a eu " & index & " dont la couleur de remplissage à été assigné jaune"
End If

'*****************************************************************************
'Titre : Cherche_Entite
'Description : Cherche des entités de type raccourci
'*****************************************************************************
sub Cherche_Entite(folder)
dim node
for each node in folder.Entities
if node.IsShortCut then
Assigne_Couleur node
end if
next

'Cherche des entités de type raccourci au niveau des packages
dim subFolder
for each subFolder in folder.Packages
Cherche_Entite subFolder
next
end sub

'*****************************************************************************
'Titre : Assigne_Couleur
'Description : Assigne la couleur de remplissage à l'entité de type raccourci
'*****************************************************************************
sub Assigne_Couleur(node)
dim sym
for each sym in node.symbols
sym.FillColor =  rgb(255, 255, 128)
index = index + 1
'f.writeline sym.name & " ? " & sym.FillColor
next
end sub