Problème en version 2009 SP5 CP9 avec les DrawingObjects

[ABernard]

La version 2009 ne permet plus d'obtenir de façon fiable les objets dessinés sur un diagramme.

Soit une base neuve dans un environnement natif. On crée un diagramme de classes avec 4 classes, puis un deuxième sur lequel on place les mêmes classes. Sauvegarde logique (renommée .txt) ci-joint.

On crée un petit programme VB6 qui liste les classes dessinées sur chaque diagramme. Les listes sont différentes pour chaque diagramme..; et sont même différentes d'une exécution à l'autre. Code source(renommé .txt) ci-joint.

Le besoin est réel pour construire la <map> associée à l'image du diagramme.

Auriez-vous une idée ? merci !

[jhorber · Accepted solution]

Hello ABernard

We recommend to use the collection DrawingItems available from a MegaDrawing object.

This collection is now sorted.

As a drawing item can be a purely graphical object, you have to test if it is a repository object before accessing to its properies

VB script example (given a DrawingItem object oDrawingItem):

If (oDrawingItem.DrawClassName = "ModeOcc") then
   Print oDrawingItem.RepositoryObject.GetProp("Name")
End