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

Vous créez un modèle à l'aide de la fonction globale CreateModel (modelkind As Long, filename As String = "", flags As Long =omf_Default) As BaseObject et de la constante cls_Model préfixées par le nom du module pour identifier le type du modèle que vous souhaitez créer.

Notez que des arguments supplémentaires peuvent être spécifiés dans le paramètre filename en fonction du type de modèle (Language, DBMS, Copy, Diagram). L'argument Diagram utilise le nom public (public name) mais le nom localisé (celui figurant dans la boîte de dialogue de sélection d'une cible) est également accepté. Cependant, il n'est pas recommandé d'utiliser le nom localisé car votre script ne fonctionnera que dans la version localisée de PowerAMC.

Exemple

Option Explicit
' Call the CreateModel global function with the following parameters:
'  - The model kind is an Object Oriented Model (PdOOM.Cls_Model)
'  - The Language is enforced to be Analysis
'  - The first diagram will be a class diagram
'  - The language definition (for Analysis) is copied inside the model
'  - The first diagram will not be opened in a window
'  - The new created model will not appear in the workspace
Dim NewModel
set NewModel = CreateModel(PdOOM.Cls_Model, "Language=Analysis|Diagram=ClassDiagram|Copy", omf_DontOpenView Or omf_Hidden)
If NewModel is Nothing then
   msgbox "Fail to create UML Model", vbOkOnly, "Error"    ' Display an error message box
Else
   output "The UML model has been successfully created"    ' Display a message in the application output window
' Initialize model name and code
   NewModel.Name = "Sample Model"
   NewModel.Code = "Sample"
' Save the new model in a file
   NewModel.Save "c:\temp\MySampleModel.oom"
' Close the model
   NewModel.Close
' Release last reference to the model object to free memory
   Set NewModel = Nothing
End If