Exemple : Spécification d'une action Script

Dans l'exemple suivant, nous allons spécicier une action dans un noeud de diagramme de cadre d'architecture qui permet à l'utilisateur d'exéctuer un script afin de générer un modèle à partir d'un autre modèle. Le résultat de cet exemple est le même que celui d'une action Génération, mais le script permet de montrer les fonctionnalités que vous pouvez scripter dans vos prokets. Vous pouvez par exemple créer un script pourétablir une connexion directe à une base de données et procéder à une reverse engineering vers une cellule. Pour plus d'informations sur la rédaction de scripts à utiliser dans vos modèles et projets, voir Personnalisation et extension de PowerAMC > Fichiers d'extension > Méthodes (Profile).

Avant de spécifier une action Script, vous devez commencer par créer une méthode script sur la métaclasse FrameworkAction dans une extension, puis l'attacher à votre projet. Dans le cas présent, le script suivant s'appelle GenerateModel, et va générer un MPD :

Sub %Method%(obj)

   ' Ceci est une méthode exemple qui peut être utilisée avec l'action
script
   ' Elle génère un MPD à partir d'un MCD de cellule source et
l'attache à la cellule courante
   ' Etapes :
   ' 1- Lire la cellule source : trouvée par son code "mySourceCell"
   ' 2- Lire le modèle source : premier document dans la cellule
source
   ' 3- Générer un MPD à partir du modèle source
   ' 4- Attacher le modèle généré à la cellule courante
   ' 5- Définir l'action courante comme action source pour le nouveau
document
   ' => Ceci empêchera de générer deux fois si l'action n'est pas
muliple
   
   If obj Is Nothing Then Exit Sub

   Dim sourceCell, targetCell, modelDoc, sourceModel, targetModel

   ' Le script est défini sur l'action, de sorte que la cellule courante est seulement le parent de l'action
   Set targetCell = obj.Parent

   ' Vérifions d'abord si nous pouvons exécuter l'action sur la cellule courante 
   ' Pour les action non-multiple, CanExecute ne doit renvoyer true que la première fois
   If obj.CanExecute(targetCell) Then
      ' Obtenir la cellule source
      Set sourceCell = FindCellByCode(targetCell.Parent, "mySourceCell") ' Voir le code de fonction sous l'instruction End Sub

      ' Obtenir le modèle source (supposé être le premier dans sa liste d'artefacts)
      Set modelDoc = sourceCell.ArtifactDocuments.Item(0)
      Set sourceModel = modelDoc.TargetModelObject

      ' Générer le MPD
      Set targetModel = sourceModel.GenerateModel (Nothing, PdPDM.cls_Model)

      ' Attacher le modèle généré à la cellule courante
      Set modelDoc = targetModel.SourceModelDocument
      targetCell.AttachDocument(modelDoc)

      ' Définir l'action courante comme source pour le nouveau modèle
      obj.SetAsSource(modelDoc)
   Else
      ' Dans cet exemple, l'action est supposée être non-multiple
      ' Par conséquent, CanExecute échoue si elle est déjà une 
      ' action source pour un document existant
      output "L'action a déjà été exécutée"
   End If
End Sub


' FindCellByCode function (Global Script function):

Function FindCellByCode (fmx, Code)
   Set FindCellByCode = Nothing
   Dim Cell
   For Each Cell In fmx.cells
      If Cell.Code = Code Then
         Set FindCellByCode = Cell
         Exit For
      End If
   Next 
End Function

>>