Comment modifier les caractéristiques graphiques des symboles selon des conditions

Si vous désirez assigner des caractéristiques spécifiques à vos symboles selon des conditions. Voici comment faire.

Pour ce faire vous devez ajouter une extension à votre modèle PDM,

• Sélectionnez Modèle=>Extensions;
• Cliquez sur l’icône « Ajouter une ligne » (ctrl-N);
• Double cliquer sur la nouvelle extension et cliquer sur « Oui » afin de confirmer que vous voulez valider toute les modifications effectuées dans cette fenêtre;
• Nommez l’extension « Symboles » / «SYMBOLES »;
• Sélectionnez « Profil » et faites un clic droit, sélectionnez « Ajouter des métaclasses », cochez « Table » et appuyez sur OK;
• Sélectionner « Table » et faites un clic droit, sélectionnez « Nouveau=>Gestionnaire d’évènement » et sélectionner « Validate »;
• Inscrivez le script ci-dessous dans l’onglet « Script du gestionnaire d’évènement »;
• Sélectionner « Table » et faites un clic droit, sélectionnez « Attribut Étendu » et nommer ceux-ci :
  • « TableSignificative »;
  • « TableDeValeurs »;
  • « TableSatellite ».
• Sélectionner « Table » et faites un clic droit, sélectionnez « Formulaire »;
• Cliquer sur le formulaire et cliquer sur l’icône « Ajouter des attributs » afin d’ajouter les trois attributs ci-dessus;
• Appuyez sur OK pour fermer la fenêtre des propriétés de l’extension;
  
• Appuyez sur OK pour fermer la fenêtre de la liste des extensions;

Function %Validate%(obj, ByRef message)

' Implement your object validation rule on <parent> here
' and return True in case of success, False otherwise with a message

dim sym

for each sym in activeDiagram.symbols
   if sym.ClassName = "Symbole de table" then
      if sym.Code=obj.Code then
         if obj.GetExtendedAttribute("TableSignificative") then
            sym.Shadow= true
            sym.ShadowStyle=1
            sym.ShadowColor=255
            sym.DashStyle=3
            sym.LineColor=125
         elseif obj.GetExtendedAttribute("TableDeValeurs") then
            sym.Shadow= true
            sym.ShadowStyle=2
            sym.ShadowColor=200*150*100
         elseif obj.GetExtendedAttribute("TableSatellite") then
            sym.LineWidth=3
         else
            sym.DashStyle=1
            sym.LineWidth=0
            sym.LineColor=255
            sym.Shadow= false
         end if
      end if
   end if
Next

activeDiagram.RedrawAllViews

%Validate% = True

End Function

Ajouter maintenant votre table et selon l’objectif que vous désirez lui conférer cocher l’attribut approprié

Voici le résultat