Vous pouvez créer un raccourci dans un modèle en utilisant la méthode CreateShortcut().
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
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