How list extended attribute PowerDesigner with VB Vbscript ?

[Former Member]

Hello,

I try without result, to list all the extended attributes of any object (and specificity EnterpriseApplication object) in PowerDesigner, in VBScript.

I use PowerAMC V16.5 (french version of Power designer), to EA modeling.

if I know the name of each extended attribute, I can do it, like this :

for each App in M.EnterpriseApplications

    App.getExtendedAttribute ("DEf_etendu_Carto_URBA_PAMC_V16.5.ProjetAnneeDebut")
next

where : "DEf_etendu_Carto_URBA_PAMC_V16.5" is my extension file;
and "ProjetAnneeDebut" one of the Extended Attribute

But how know, all the extended attributes ?

I try to do like this :

for each App in M.EnterpriseApplications
    for each ExtAttrib In  .....
      text = ExtAttrib.name & " = " & App.getExtendedAttribute ("DEf_etendu_Carto_URBA_PAMC_V16.5." & ExtAttrib)
    next
next

Thank for all help...

André

[Former Member]

hello,

some complements :

When I try this code :

For Each ModelExtension In ActiveModel.ExtendedModelDefinitions
      output "extension : " & ModelExtension.name
   For Each ExtAttr in ModelExtension.GetMetaExtensionsForClass(PdEAM.cls_EnterpriseApplication, Cls_ExtendedAttributeTargetItem)
     output "Nom de l'attribut : " + ExtAttr.Name
     output "Identification de l'objet : " + ExtAttr.ObjectID
     output "Nom du modele : " + ExtAttr.Model
  Next
Next

the repons to second line, is good :

output "extension : " & ModelExtension.name
                => extension : DEf_etendu_Carto_URBA_PAMC_V16.5

But i have an error message to the 4th line :

Erreur d'exécution Microsoft VBScript
Cet objet ne gère pas cette propriété ou cette méthode: 'ModelExtension.GetMetaExtensionsForClass' (0x800A01B6)
At line 4, character 2

And to more information, look our extensions in screen copy :

and sorry for my so bad english.

[former_member200945]

Also confirm that the original code works on 16.6 SP7

For Each ModelExtension In ActiveModel.ExtendedModelDefinitions
      output "extension : " & ModelExtension.name
   For Each ExtAttr in ModelExtension.GetMetaExtensionsForClass(PdEAM.cls_EnterpriseApplication, Cls_ExtendedAttributeTargetItem)
     output "Nom de l'attribut : " + ExtAttr.Name
     output "Identification de l'objet : " + ExtAttr.ObjectID
     output "Nom du modele : " + ExtAttr.Model
  Next
Next