Au niveau du fichier d’aide sur le métamodèle objet vous trouverez une note qui informe que l’on peut trouver de la documentation sous le nom « VBScript » ou « VBScript Language Reference » sur le site Web Microsoft®: MSDN Library .
Modèle conceptuel : Copie le nom de l’entité + attribut dans le code de l’attribut
dim model set model = ActiveModel If (model Is Nothing) Then MsgBox « Il n’y a pas de modèle actif » ElseIf Not model.IsKindOf(PdCDM.cls_Model) Then MsgBox « Ce n’est pas un modèle conceptuel » Else ProcessEntities model End If Private sub ProcessEntities(model) Dim…
Liste les objets présent dans le diagramme actif
Option Explicit Dim model Set model = ActiveModel If (model Is Nothing) Or (Not model.IsKindOf(PdPDM.cls_Model)) Then MsgBox « Le modèle courant n’est pas un modèle physique. » Else Dim PackageTables Set PackageTables = ActivePackage.Tables Dim tbl dim smb Output « Liste des tables…
Affichez des informations supplémentaires sur un modèle
Il est probable que si vous désirez afficher de l’informations supplémentaires sur vos diagrammes. Vous utilisez l’une des façons de faire suivantes: vous codifiez vos entités par le biais de diverses couleurs selon le domaine de données ; vous modifiez…
Recherche d’une classe via son arborescence dans un modèle OO
Dim path, modl ‘ Si vous utilisez PowerDesigner remplacer l’extension du modèle pour « .moo » path = EvaluateNamedPath(« %_EXAMPLES%demo.moo ») Set modl = openmodel(path) if not modl is nothing then ‘ Recherche la classe par le nom du répertoire Dim clss set clss…
Trouver les parents du Flux de séquence ayant pour nom « Flux 1 »
Dim path, modl ‘ Si vous utilisez PowerDesigner modifier l’extension « .mpm » pour « .bpm » path = EvaluateNamedPath(« %_EXAMPLES%BPMN20.mpm ») Set modl = openmodel(path) if not modl is nothing then Dim found, last set last = nothing ‘ Recherche de façon récursive tous les objets…
Ouverture d’un modèle et recherche du nom d’une table
Dim path, modl ‘ Si vous utilisez PowerDesigner remplacer le nom du modèle pour « project.pdm » path = EvaluateNamedPath(« %_EXAMPLES%gestsoc.mpd ») Set modl = openmodel(path) if not modl is nothing then Dim tabl ‘ Si vous utilisez PowerDesigner remplacer le nom de la table…
Recherche d’un caractère parmi les objets d’un modèle
‘ Création d’un modèle libre et de quelques objets Dim modl set modl = CreateModel(PdFRM.Cls_Model) modl.SetNameAndCode « Search Text Sample », « » modl.ExtendedObjects.CreateNew() modl.ExtendedObjects.CreateNew() modl.Packages.CreateNew() ‘ Recherche du caractère ‘_’ parmi les propriétés des objets Dim objt, attr For each obj in modl.Children attr…
Affichage du nombre total des règles d’affaires dans un modèle actif
Dim col ActiveModel.GetCollectionByKind PdCommon.Cls_BusinessRule, col if not col is nothing then output « Il y’a » & col.count & » règles d’affaires dans le modèle » end if
Liste tous les modèles physiques pour un SGBD Oracle
Si on désire prendre connaissance de tous les modèles physiques du référentiel qui sont associés à un SGBD Oracle. Retourne le numéro de classe permettant d’identifier un modèle physique Select clss from pmobjt where name= »Nom d’un modèle physique » Nom des modèles physique…