[SCRIPT] comment accéder aux détails d'un State/Activity Model

**Viorika** · 19/04/2006, 16h02

bonjour ^_^
j'utilise depuis quelques semaines Rational Rose, j'ai beau avoir parcourue les sites et recherchée sur le web je n'ai toujours pas trouvé de solution à ce problème :

j'aimerais pouvoir accéder en lecture/écriture à la documentation (une des propriétés du modèle) d'un State/Activity Model

Par contre je n'ai aucun problème au niveau de la lecture/ écriture en ce qui concerne les cas d'utilisation, Classes, attrituts, opérations et modules

Pourriez vous m'aider s'il vous plait ?

merci d'avance.

'-------------------------------------------------------------------
' voici le code que j'utilise ^_^
'-------------------------------------------------------------------
Sub Main

' Déclarations des variables usuelles
Dim theUsecases As UseCaseCollection
Dim theUseCase As UseCase
Dim theClasses As ClassCollection
Dim theModules As ModuleCollection
Dim theModule As Module
Dim theModel As Model
Dim theClass As Class
Dim theAtts As AttributeCollection
Dim theAtt As Attribute
Dim theOps As OperationCollection
Dim theOp As Operation
'get current model and prepare for uc, class, module search
Set theModel = RoseApp.CurrentModel
Set theUseCases = theModel.GetAllUseCases
Set theClasses = theModel.GetAllClasses
Set theModules = theModel.GetAllModules
Set theSubSys = theModel.RootSubSystem
' write in use case documentation
For i = 1 To theUseCases.Count
Set theUseCase = theUseCases.GetAt(i)
theUseCase.Documentation = "UseCase doc"
Next i

' write in class documentation
For j = 1 To theClasses.Count
Set theClass = theClasses.GetAt(j)
theClass.Documentation = "class doc"
Next j
' write in attribute documentation
For k = 1 To theClasses.Count
Set theClass = theClasses.GetAt(k)
Set theAtts = theClass.Attributes
For l = 1 To theAtts.Count
Set theAtt = theAtts.GetAt(l)
theAtt.Documentation = "att doc"
Next l
Next k
' write in operation documentation
For m = 1 To theClasses.Count
Set theClass = theClasses.GetAt(m)
Set theOps = theClass.Operations
For n = 1 To theOps.Count
Set theOp = theOps.GetAt(n)
theOp.Documentation = "Op doc"
Next n
Next m

' write in component documentation
For o = 1 To theModules.Count
Set theModule = theModules.GetAt(o)
theModule.Documentation = "Module/Component doc"
Next o
End Sub

**ego** · 19/04/2006, 17h18

Tout d'abord, regardes dans Rose ici : Help / Contents & Index / Rational Rose Extensibility Interface
Tu y trouveras toute l'API.
Sinon, sur une classe (Class), tu as la propriété StateMachine.
Dans une StateMachine, tu as par exemple les propriétés suivantes :

Activities
States
ObjectInstances
SwimLanes

Pour un State, tu as les méthodes :

GetActions Retrieves actions
GetAllSubActivities Recursively retrieves all subactivities
GetAllSubDecisions Recursively retrieves all subdecisions
GetAllSubStates Recursively retrieves all substates
GetAllSubSynchronizations Recursively retrieves all subsynchronizations
GetDoActions Retrieves all do actions
GetEntryActions Retrieves all entry actions
GetExitActions Retrieves all exit actions
GetStateMachines Retrieves all state machines
GetUserDefinedEvents Retrieves all user-defined events

et plein d'autres trucs...

**Viorika** · 19/04/2006, 18h28

je te remercie ego

(Ce que je cherche à faire c'est lire/modifier les documentations liés à chaque élement UML du document rose)

je dois pas être douée j'arrive pas à récupérer ni les states ni les activities...

dans le help j'ai pourtant bien lu qu'il s'agissait de collections et j'ai donc déclaré les variables dans ce sens...

'--------------------------------------------------
sub main
Dim theStates As StateCollection
Dim theActivities As ActivityCollection
Set theModel = RoseApp.CurrentModel

For j = 1 To theClasses.Count
Set theClass = theClasses.GetAt(j)
Set theStatemachine = theClass.StateMachine
Set theActivities = theStatemachine.Activities ' ne fonctionne pas o_O
Set theStates = theStatemachine.States ' ne fonctionne pas o_O
Next j
end sub
'--------------------------------------------------------------------------

... je veux pas non plus abuser de votre aide

**ego** · 19/04/2006, 19h41

ça veut dire quoi ne marche pas ?
C'est bien comme cela qu'il faut faire !?

**Viorika** · 20/04/2006, 08h51

désolé j'avais plus internet du coup j'ai pas pu te répondre de suite

quand je lance le script (appui sur la flèche verte) il ne me met aucune erreur au lancement et quand j'arrive à la fonction qui contient les lignes de code concernant la statemachine -comme celles que j'ai écrites précedemment- il me fais une erreur :

j'ai testé pour les states activities swinlanes et objectinstance et j'ai toujours la même erreur...

ndt:j'utilise la version 2003 de rational rose
************************************************************
j'arrive maintenant à voir si j'ai des machine à état dans les classes et use case :

Sub main

Dim theStateMachine As StateMachine
Dim theStates As StateCollection
Dim theState As State
Dim theActivities As ActivityCollection
Dim theActivity As Activity

ViewPort.Clear
ViewPort.Open

For j = 1 To theClasses.Count
Set theClass = theClasses.GetAt(j)
Set theStateMachine = theClass.StateMachine

If theStateMachine Is Nothing Then
'theClass.CreateStateMachine
Print "pas de machine a état"
Else
Print "The state machine exists"
Print theStateMachine.Name

Set theStates = theStatemachine.States
For z = 1 To theStates.Count
Set theState = theStates.GetAt(z)
'Print "state ok"
Print theState.Name
Next z
Set theActivities = theStatemachine.Activities
For x = 1 To theActivities.Count
Set theActivity = theActivities.GetAt(x)
'Print "activity ok"
Print theActivity.Name
Next x
End If
next j
end sub

Mon dernier soucis reste que si je créée une machine à état directement dans le répertoire racine "UseCaseView" je sais pas comment la retrouver

**Viorika** · 21/04/2006, 08h49

voila où j'en suis actuellement :

en fait il s'agit de la première étape de mon projet car ensuite je vais devoir interfacer rose avec une base ORACLE et je veux être sure qu'il est possible de lire et d'écrire à des endroits spécifiques du model notamment sur la documentation de chacun des élements.
Mais pour l'instant je bute toujours sur la récupération d'un stateshart à la racine des packages...help me (cf."lilou dallas multipass" - le 5e élément -)

**ego** · 21/04/2006, 19h06

regardes peut être la méthode FindItems sur la classe Model en donnant le nom de ta statemachine qui est sous la use-case view.
J'ai essayé et ça marche !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub Main
 Dim items As ItemCollection
 Dim it As RoseItem
 Dim sm As StateMachine
 Set items = RoseApp.CurrentModel.FindItems("toto")
 Set it = items.GetAt(1)
 Set sm  = it.TypeCast(sm)
 MsgBox sm.Documentation
End Sub

**Viorika** · 24/04/2006, 14h57

merci ego

le souci c'est que le script doit fonctionner pour n'importe quel projet et donc il ne connaitra pas les noms des stateshart ^_^
...encore un truc que j'avais pas dit au début

désolé

**ego** · 25/04/2006, 20h17

Et bien, effectivement, on ne peut pas accéder à la StateMachine d'une Category ou d'un modèle comme cela. On ne peut le faire que via le FindItems avec le nom ou l'uid ou encore en récupérant les items sélectionnés.

La "solution" étant maintenant de ne pas autoriser la création de statemachine ailleurs que sous une classe. Mais est-ce possible ?

Ceci dit, il y a peut être une possibilité via l'utilisation des objets COM et donc l'écriture d'un programme en VB par exemple. Je peux regarder si dans l'outil SoDA de reporting de Rational on a accès au StateMachines des Category ou Operation (car on peut faire cela sous Rose). Si c'est le cas, c'est que l'API COM le permet.

Veux-tu que je regarde cela ?

**Viorika** · 26/04/2006, 13h40

Non ce ne sera pas utile merci de ton offre ^_^

la première étape de mon projet visait à établir si l'on pouvait lire ou écrire les documentations des éléments UML dans un document ROSE en passant par le script avec ton aide j'ai pu en attester (même si on n'avait pas accès au state) et je t'en remercie.

La seconde partie du projet c'est de savoir si le menu contextuel de la souris est personalisable (si ce n'est pas possible j'ai trouvé la solution avec le menu principal de ROSE):

au fur et à mesure de la modélisation d'un projet ROSE
l'utilisateur cliquera sur un élément (classe, UC, ...) et en cliquant sur le bouton droit de la souris on choisira un item (comme le delete, rename) faisant office de lien vers un script affichant une boite de dialogue

Cette boite de dialogue sera un formulaire permettant de spécifier la nature et les propriétés de l'information à ajouter - et dans la documentation et dans la base ORACLE - la nature et les propriétés permettront de formaliser un identifiant unique en relation avec les identifiants existant sur la base ORACLE

donc mon objectif à présent c'est de personnaliser le menu de la souris si c'est possible bien entendu ^_^
je m'y attèle de ce pas...

**ego** · 26/04/2006, 19h08

Si tu me donnes une adresse email perso, je peux t'envoyer un cours sur l'extension de Rose où l'on parle entre autre des menus contextuels.

**Viorika** · 02/05/2006, 09h27

Merci les doc sur l'extensions ROSE concernant les menus contextuels
Mais faut il forcément faire un Add-in pour pouvoir ajouter un item dans le menu de la souris ? Est possible de le faire autrement comme lorsqu'on ajoute un item dans le menu principal de ROSE ?
J'essaie de trouver une solution moins complexe ^_^ mais c'est pas gagné lol

**Viorika** · 02/05/2006, 15h33

Je suis sur l'aide de Rational Rose
en particulier sur l'exemple : "Sample Rational Rose Script Shortcut Menu Code"
le hic c'est qu'il y a 3 p'tits points qui m'agaçent...

:

Set myAddIn = ... 'Get the add-in to which you want to add
'shortcut menu items.

je sais pas comment faire un add-in a chaque fois les exemples sont par morceaux incomplets... y'a des termites dans leur bibliothèque d'aide

- et y'en a plus que 3 des ptits point dans l'autre exemple ("Sample Shortcut Menu Implementation Code") -

tu connaitrais pas un exemple concret et complet de mise en oeuvre d'add-in, par hasard...