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 ?
Add new comment