Ces quelques lignes de code en Visual Basic Script permettent :
- de prendre connaissance de la liste des attributs étendu qui ont été créés au niveau d’une extension. Dans la présente situation le script liste les attributs qui ont été ajoutés au niveau des colonnes des tables pour un modèle physique ;
- d’énumérer la liste des attributs étendus incluant leur contenu associés aux colonnes des tables d’un modèle physique.
Compatible avec PowerDesigner/PowerAMC 16.5
'***************************************************************************** '* Nom du fichier : LISTE_ATTRIB_ETENDU.vbs '* Définition : Liste les attributs étendus définit au niveau des colonnes des tables. '* Modèle: Modèle de données physique (MPD) '* Objets: Table, Colonne, Attributs étendus '* Auteur: Benoît Le Nabec, '* URL : http://www.Powerd911.guru '* Créé: 2015-01-01 '* Version: 1.0 '***************************************************************************** ' Liste les attributs étendu qui ont été définit au niveau des colonnes des tables. For Each ModelExtension In ActiveModel.ExtendedModelDefinitions For Each ExtAttr in ModelExtension.GetMetaExtensionsForClass(PdPDM.Cls_Column, Cls_ExtendedAttributeTargetItem) output "Nom de l'attribut : " + ExtAttr.Name output "Identification de l'objet : " + ExtAttr.ObjectID output "Nom du modèle : " + ExtAttr.Model Next Next ' ********************* ' Liste les propriétés des colonnes - incluant les attributs étendus For Each Table In ActiveModel.Tables For Each Column In Table.Columns 'Vérification des attributs étendus For Each ModelExtension In ActiveModel.ExtendedModelDefinitions For Each ExtAttr in ModelExtension.GetMetaExtensionsForClass(PdPDM.Cls_Column, Cls_ExtendedAttributeTargetItem) xEAN = ExtAttr.Name xEAValue = Column.GetExtendedAttributeText(xEAN) tn=Table.Name cn=Column.Name output "Nom de la table : " + tn output "Nom de la colonne : " + cn output "Nom de l'attribut étendu : " + xEAN output "Valeur assigné : " + xEAValue Next Next Next Next