Création d'un raccourci dans un modèle à l'aide de scripts

Vous créez un raccourci dans le modèle à l'aide de la méthode CreateShortcut(ByVal NewPackage As BaseObject, ByVal ParentCol As String = "") As BaseObject.

Exemple

' We want to reuse at the model level the interface defined in the package
' To do that, we need to create a shortcut of the interface at the model level
Dim IntfShct
If not FoundIntf is Nothing and not ExistingModel Is Nothing Then
   ' Call the CreateShortcut() method and specify the model 
   ' for the package where we want to create the shortcut
   Set IntfShct = FoundIntf.CreateShortcut(ExistingModel)
   If not IntfShct is nothing then
      output "The interface shortcut has been successfully created"
   End If   
End If