Powerd911 – Numéro #1 au Canada

Méthode pour déplacer des symboles d’un diagramme vers un autre

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

 

Laisser un commentaire

Contacter nous
300 characters left