Suppression d'objets (Scripting)

Le script suivant crée un nouveau MCD, le remplit avec des entités et des relations, puis supprime l'entité E5 et la relation R8:

Dim MonModele, obj, sym, idx
set MonModele = CreateModel(PdCDM.Cls_Model)
MonModele.SetNameAndCode "MonMCD" , "MonMCD"
'Création des entités
For idx = 1 to 12
   Set obj=MonModele.Entities.CreateNew()
   obj.SetNameAndCode "E" & idx, "E" & idx
   Set sym=ActiveDiagram.AttachObject (obj)
Next
'Création des relations relations
For idx = 2 to 11
   Set obj=MonModele.Relationships.CreateNew()
   obj.SetNameAndCode "R" & idx-1, "R" & idx-1
   Set obj.Object1 = MonModele.FindChildByName("E" & (idx-1),cls_entity)
   Set obj.Object2 = MonModele.FindChildByName("E" & (idx+1),cls_entity)
   Set sym=ActiveDiagram.AttachLinkObject (obj)
Next
ActiveDiagram.AutoLayoutWithOptions(2)
'Suppression des objets
MonModele.FindChildByName("E5",cls_entity).Delete
MonModele.FindChildByName("R8",cls_relationship).Delete