Enumerar Diagramas

Puede recuperar una lista de todos los diagramas dentro de un paquete usando la interfaz EnumDiagrams. Esta interfaz devolverá una lista XML de todos los diagramas -incluyendo el nombre, tipo e identificador universal (GUID)-. Puede utilizar el GUID para recuperar más información acerca del diagrama- y además para copiar la imagen del diagrama a un archivo o al portapapeles. 

La interfaz EnumDiagrams se define como EnumDiagrams(const VARIANT FAR& PackageGUID); devuelve una lista  XML de los diagramas dentro de un paquete-incluyendo el nombre, tipo y GUID-. 

Ejemplo del XML Devuelto por la Interfaz

<?xml version="1.0"?> 

<Document xmlns:UML="omg.org/UML1.3"> 

  <Diagram> 

  <Name>Overview</Name> 

  <Type>Use Case</Type> 

  <GUID>EAID_DA388E78_CF6B_4331_932A_565F1AADE18A</GUID> 

  </Diagram> 

</Document> 

Ejemplo en código Visual Basic que utiliza la interfaz EnumDiagrams

Private Sub GetDiagrams(PackageGUID As String, Offset As String) 

Dim xmlNode As MSXML2.IXMLDOMNode 

Dim xmlDoc As New MSXML2.DOMDocument 

Dim str As String 

'obtiene la lista de los elementos en el paquete

xmlDoc.loadXML EAProject.EnumDiagrams(PackageGUID) 

  ' Debug.Print xmlDoc.xml 

Set xmlNode = xmlDoc.selectSingleNode("Document/Diagram") 

Do While (Not xmlNode Is Nothing) 

'agrega a la lista

str = xmlNode.selectSingleNode("Name").Text + ":" + xmlNode.selectSingleNode("Type").Text 

AddToTreeList Offset + Indent + "Diagram - " + str 

GetDiagram xmlNode.selectSingleNode("GUID").Text 

'va al siguiente diagrama

Set xmlNode = xmlNode.nextSibling 

Loop 

End Sub