Descripción
EA_OnRetrieveModelTemplate piden que un Add-In pase una plantilla de modelo a Enterprise Architect. Este evento ocurre cuando un usuario ejecuta el comando Agregar un Nuevo Modelo Utilizando Asistente para agregar un modelo que ha sido definido por una Tecnología MDG.
Sintaxis
FunciónEA_OnRetrieveModelTemplate(Repositorio como EA.Repository, sLocation como Cadena) como Cadena
La sintaxis de la función EA_OnRetrieveModelTemplate contiene los siguientes elementos:
Parámetro |
Tipo |
Dirección |
Descripción |
Repositorio |
IN |
Un objeto EA.Repository representando el modelo de Enterprise Architect actualmente abierto. Sondean a sus miembros para recuperar datos del modelo e información de estado de interfaz de usuario.
|
|
sLocation |
String |
IN |
El nombre de la plantilla solicitada; debería coincidir con el atributo de ubicación en la sección de <ModelTemplates> de un Archivo de Tecnología MDG.
|
Valor de Retorno
Devuelve una cadena conteniendo la exportación XMI del modelo que está siendo utilizada como plantilla. Devuelve una cadena vacía si se niega el acceso a la plantilla; el Add-In es para manejar la notificación al usuario del error.
Ejemplo
Public Function EA_OnRetrieveModelTemplate(ByRef Rep As EA.Repository, ByRef sLocation As String) As String
Dim sTemplate As String
Select Case sLocation
Case "Templates\Template1.xml"
sTemplate = My.Resources.Template1
Case "Templates\Template2.xml"
sTemplate = My.Resources.Template2
Case "Templates\Template3.xml"
sTemplate = My.Resources.Template3
Case Else
MsgBox("Path for " & sLocation & " not found")
sTemplate = ""
End Select
EA_OnRetrieveModelTemplate = sTemplate
End Function
Aprender más