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 Entity, Attributes, Package
‘ Liste les entités
for each Entity in model.entities
output Entity.Name
if not Entity.isShortcut then
Entity.code = Entity.name
‘ Liste les attributs
for each Attribute in Entity.attributes
Attribute.code = Entity.name + « _ » + Attribute.name
output Attribute.code
next
end if
next
‘ Liste les packages
For Each Package In model.Packages
if not Package.IsShortcut then
ProcessEntities Package
end if
Next
end sub