Création d'une sélection d'objets (Scripting)

Vous pouvez créer une sélection d'objets en utilisant la méthode CreateSelection(). Vous pouvez effectuer des actions sur la sélection, comme par exemple changer leurs propriétés ou leur format, ou les déplacer dans un autre package.

Le script suivant crée un MPD, le remplit à l'aide de table et effectue une sélection de tables qu'il déplace dans un package :

Dim MonModele, obj, sym
set MonModele = CreateModel(PdPDM.Cls_Model,"DBMS=SYASA12")
MonModele.SetNameAndCode "MonMPD" , "MonMPD"
'Création des tables
For idx = 1 to 12
   Set obj=MonModele.Tables.CreateNew()
   obj.SetNameAndCode "T" & idx, "T" & idx
   Set sym=ActiveDiagram.AttachObject (obj)
Next
ActiveDiagram.AutoLayoutWithOptions(2)
'Création de package
Dim MonPackage
Set MonPackage=MonModele.Packages.CreateNew()
MonPackage.SetNameAndCode "P1", "P1"
ActiveDiagram.AttachObject (MonPackage)
'Création d'une sélection
Dim MaSelection
Set MaSelection = ActiveModel.CreateSelection
For idx = 1 to 5
   MaSelection.Objects.Add(MonModele.FindChildByName("T" & (idx*2),cls_table))
Next
'Déplacement de la sélection dans le package
MaSelection.MoveToPackage(MonPackage)

Pour ajouter toutes les tables dans la sélection, utilisez la méthode AddObjects :

MaSelection.AddObjects MonModele,cls_table

Pour retirer un objet de la sélection, utilisez la méthode Remove :

MaSelection.Objects.Remove(MonModele.FindChildByName("T6",cls_table))