Création de raccourcis (Scripting)

Le script suivant agit sur un MOO et crée un raccouci vers la classe C1 du package P1 dans le package P2 :

Dim obj, shortcut, recipient
' Récupération de la classe cible du raccourci
Set obj = ActiveModel.FindChildByPath("P1/C1",cls_Class)
' Récupération du package dans lequel créer le raccourci
Set recipient = ActiveModel.FindChildByPath("P2",PdOOM.cls_Package)
' Création du raccourci
Set shortcut = obj.CreateShortcut(recipient)
If not shortcut is nothing then
  output "Le raccourci de classe a été créé"
End If

Le script suivant crée un raccourci vers la classe C1 du modèle O1 package P1 directement sous le modèle O2 :

Dim targetmodel, usingmodel, obj, shortcut
For each m in Models
   Output m.Name
   If m.Name="O1" then 'Récupération du modèle contenant l'objet cible du raccourci à créer
      Set targetmodel=m
   End If
   If m.Name="O2" then 'Récupération du modèle dans lequel créer le raccourci
      Set usingmodel=m
   End If
Next
' Récupération de l'objet vers lequel établir un raccourci
Set obj = targetmodel.FindChildByPath("P1/C1",cls_Class)
' Création du raccourci
Set shortcut = obj.CreateShortcut(receivingmodel)
If not shortcut is nothing then
  output "Le raccourci de classe a été créé"
End If