Powerd911 – Numéro #1 au Canada

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

Laisser un commentaire

Contacter nous
300 characters left