Ces quelques lignes de code en Visual Basic permettent de déplacer sur un axe X, Y les symboles associés aux objets Tables qui ont pour stéréotype LOV – List of Values. Ainsi l’utilisateur sera en mesure de sélectionner tous les symboles qui ont été déplacés à la position 0, 0 (centre du diagramme) afin de les copier/coller plus facilement vers un autre diagramme.
Compatible avec PowerDesigner/PowerAMC 16.5
'* Nom du fichier : DEPLACER_SYMBOLES.vbs '* Définition : Déplacer les symboles vers une position fixe selon une valeur '* associée au stéréotype de l'objet afin d'être en mesure de '* sélectionner ces symboles et les copier/coller plus facilement '* vers un autre diagramme '* Modèle: Modèle de données physique (PDM) '* Objets: Diagramme, Table, Symbole '* Auteur: Benoît Le Nabec '* URL : http://www.Powerd911.guru '* Créé: 2015-01-01 '* Version: 1.0 '****************************************************************************** Option Explicit dim model On Error Goto 0 'Obtenir le modèle actif courant set model = activemodel If model is nothing then MsgBox "Il n'y a pas de modèle actif" else STEREOTYPE = "LOV" For each table in model.Tables if ( STEREOTYPE = table.stereotype ) then For each symbol in table.Symbols symbol.Position = NewPoint( 0,0 ) Next end if Next end if