Récupération de propriétés automatiques dans VBA Architecture

Publié par GD le mer, 06/04/2011 - 11:52

La propriété est dans un jeu de propriété nommé "Style-Espace" et qui figure dans les "jeux de propriété issus du style". La propriété s'appelle "AireUtile". Elle a été définie comme propriété automatique (source = "Espace:Surface utile")

Voici comment je m'y prends :

Sub recupAireUtile()
    Dim esp As AecSpace
    Dim var As Variant
    Dim app As AecScheduleApplication
    Dim prsets As AecSchedulePropertySets
    Dim prset As AecSchedulePropertySet
    Dim prs As AecScheduleProperties
    Dim pr As AecScheduleProperty
 
    Dim n As Integer
    Dim i As Integer
    Dim l_esp As AecSpace
 
    ThisDrawing.Utility.GetEntity esp, var
    Set app = New AecScheduleApplication
    Set prsets = app.PropertySets(esp.Style)
    Set prset = prsets.Item("Style-Espace")
    Set prs = prset.Properties
    Set pr = prs.Item("AireUtile")
    MsgBox pr.Value
End Sub

Ce ne doit pas être la bonne méthode car la procédure m'affiche :

"** Propriété automatique: non disponible dans ce contexte **" au lieu de la valeur de la propriété.

Ma question est : Comment récupérer une propriété automatique d'un jeu de propriété issu du style d'un espace (ou d'un autre objet)

Quelqu'un peut-il m'aider ?

Ajouter un commentaire