About the Implementing an XML builder external component Sample
[C#]
XMLDocImpl.cs
using System.Collections.Generic; using System.Text; using System.Runtime.InteropServices; using ESRI.ArcGIS.Schematic; using System.Windows.Forms; namespace MyExtXmlComponentCS { [Guid("0CE2EC0B-975A-4795-A7C2-EF31978D92A2")] [ClassInterface(ClassInterfaceType.None)] [ProgId("MyExtXmlComponentCS.XMLDocImpl")] public class XMLDocImpl : ISchematicXmlGenerate, ISchematicXmlUpdate { // #region Variables //This class must implement the ISchematicXMLGenerate and ISchematicXMLUpdate interfaces private ESRI.ArcGIS.ArcMap.Application m_application; //ArcMap application private ESRI.ArcGIS.ArcMapUI.IMxDocument m_mxDocument; //ArcMap document //The following arrays will be used to create the wished propertyset properties in the XML DOMDocument private string[] m_stationsPropertiesArray = { "Name", "Capacity", "Type", "Feeder" }; private string[] m_feedersPropertiesArray = { "Feeder_Description" }; private string[] m_LVLinesPropertiesArray = { "Rate", "Category" }; private const string DatasetName = "ElectricDataSet"; ~XMLDocImpl() { m_application = null; m_mxDocument = null; ; } #endregion #region ISchematicXmlGenerate Members public void GenerateXmlData(string diagramName, string diagramClassName, ref object xmlSource, ref bool cancel) { MSXML2.DOMDocument xmlDOMDocument = new MSXML2.DOMDocument(); ESRI.ArcGIS.Carto.IMaps maps; ESRI.ArcGIS.Carto.IMap currentMap; ESRI.ArcGIS.Geodatabase.IEnumFeature enumFeature; ESRI.ArcGIS.Geodatabase.IFeature feature; MSXML2.IXMLDOMProcessingInstruction xmlProcInstr; MSXML2.IXMLDOMElement xmlDiagrams; MSXML2.IXMLDOMElement xmlDiagram; MSXML2.IXMLDOMElement xmlFeatures; MSXML2.IXMLDOMElement xmlDataSources; MSXML2.IXMLDOMElement xmlDataSource; MSXML2.IXMLDOMElement xmlDataSource_Namestring; MSXML2.IXMLDOMElement xmlDataSource_WorkspaceInfo; MSXML2.IXMLDOMElement xmlWorkspaceInfo_PathName; MSXML2.IXMLDOMElement xmlWorkspaceInfo_WorkspaceFactoryProgID; MSXML2.IXMLDOMAttribute rootAtt1; MSXML2.IXMLDOMAttribute rootAtt2; ESRI.ArcGIS.Geodatabase.IEnumFeatureSetup enumFeatureSetup; string xmlDatabase; // Retrieving the selected set of features enumFeature = null; feature = null; m_mxDocument = (ESRI.ArcGIS.ArcMapUI.IMxDocument)m_application.Document; maps = m_mxDocument.Maps; int i = 0; while (i < maps.Count) { currentMap = maps.get_Item(i); enumFeature = (ESRI.ArcGIS.Geodatabase.IEnumFeature)currentMap.FeatureSelection; enumFeatureSetup = (ESRI.ArcGIS.Geodatabase.IEnumFeatureSetup)enumFeature; enumFeatureSetup.AllFields = true; feature = enumFeature.Next(); if (feature != null) break; i += 1; } // if (there is no selected feature in the MxDocument, the procedure is interrupted if (feature == null) { MessageBox.Show("There is no feature selected. Select a set of features.", "Generate/Update XML diagrams", MessageBoxButtons.OK, MessageBoxIcon.Exclamation); cancel = true; return; } //Checking the feature dataset related to the selected features ESRI.ArcGIS.Geodatabase.IFeatureClass featureClass; string featureDatasetName; featureClass = (ESRI.ArcGIS.Geodatabase.IFeatureClass)feature.Class; featureDatasetName = featureClass.FeatureDataset.BrowseName; xmlDatabase = featureClass.FeatureDataset.Workspace.PathName; // if the selected features come from another feature dataset than the expected one, the procedure is interrupted if (featureDatasetName != DatasetName) { //More restrictive condition: if (xmlDatabase != "c:\Mybase.gdb" ) MessageBox.Show("This component doesn't work from the selected set of features."); cancel = true; return; } // Writing the XML heading items in the DOMDocument xmlProcInstr = xmlDOMDocument.createProcessingInstruction("xml", "version='1.0'"); xmlDOMDocument.appendChild(xmlProcInstr); xmlProcInstr = null; //-------- Diagrams Section START -------- // Creating the root Diagrams element xmlDiagrams = xmlDOMDocument.createElement("Diagrams"); xmlDOMDocument.documentElement = xmlDiagrams; rootAtt1 = xmlDOMDocument.createAttribute("xmlns:xsi"); rootAtt1.text = "http://www.w3.org/2001/XMLSchema-instance"; xmlDiagrams.attributes.setNamedItem(rootAtt1); // Creating the Diagram element for the diagram which is going to be generated xmlDiagram = xmlDOMDocument.createElement("Diagram"); xmlDiagrams.appendChild(xmlDiagram); rootAtt1 = xmlDOMDocument.createAttribute("EnforceDiagramTemplateName"); rootAtt1.text = "false"; xmlDiagram.attributes.setNamedItem(rootAtt1); rootAtt2 = xmlDOMDocument.createAttribute("EnforceDiagramName"); rootAtt2.text = "false"; xmlDiagram.attributes.setNamedItem(rootAtt2); //-------- DataSources Section START -------- // Creating the DataSources element xmlDataSources = xmlDOMDocument.createElement("Datasources"); xmlDiagram.appendChild(xmlDataSources); xmlDataSource = xmlDOMDocument.createElement("Datasource"); xmlDataSources.appendChild(xmlDataSource); // Specifying the Namestring for the related Datasource element xmlDataSource_Namestring = xmlDOMDocument.createElement("NameString"); xmlDataSource.appendChild(xmlDataSource_Namestring); xmlDataSource_Namestring.nodeTypedValue = "XMLDataSource"; // Specifying the WorkspaceInfo for the related Datasource element xmlDataSource_WorkspaceInfo = xmlDOMDocument.createElement("WorkSpaceInfo"); xmlDataSource.appendChild(xmlDataSource_WorkspaceInfo); xmlWorkspaceInfo_PathName = xmlDOMDocument.createElement("PathName"); xmlDataSource_WorkspaceInfo.appendChild(xmlWorkspaceInfo_PathName); xmlWorkspaceInfo_PathName.nodeTypedValue = xmlDatabase; xmlWorkspaceInfo_WorkspaceFactoryProgID = xmlDOMDocument.createElement("WorkspaceFactoryProgID"); xmlDataSource_WorkspaceInfo.appendChild(xmlWorkspaceInfo_WorkspaceFactoryProgID); xmlWorkspaceInfo_WorkspaceFactoryProgID.nodeTypedValue = "esriDataSourcesGDB.FileGDBWorkspaceFactory"; //-------- DataSources Section END -------- //-------- Features Section START -------- xmlFeatures = xmlDOMDocument.createElement("Features"); xmlDiagram.appendChild(xmlFeatures); while (feature != null) { switch (feature.FeatureType) { case ESRI.ArcGIS.Geodatabase.esriFeatureType.esriFTSimpleJunction: CreateXMLNodeElt(feature, ref xmlDOMDocument, ref xmlFeatures, feature.Class.AliasName); break; case ESRI.ArcGIS.Geodatabase.esriFeatureType.esriFTSimpleEdge: CreateXMLLinkElt(feature, ref xmlDOMDocument, ref xmlFeatures, feature.Class.AliasName); break; } feature = enumFeature.Next(); } // output the XML we created xmlSource = xmlDOMDocument; cancel = false; //-------- Features Section END -------- //-------- Diagrams Section END -------- } #endregion #region ISchematicXmlUpdate Members public void UpdateXmlData(string diagramName, string diagramClassName, string updateInformation, ref object xmlSource, ref bool cancel) { GenerateXmlData(diagramName, diagramClassName, ref xmlSource, ref cancel); } #endregion #region "private functions" // The following CreateXMLLNodeElt private procedure is used to create all the expected // XML items for a XML NodeFeature related to a Station or Feeder simple junction feature private void CreateXMLNodeElt(ESRI.ArcGIS.Geodatabase.IFeature inFeature, ref MSXML2.DOMDocument outDOMDoc, ref MSXML2.IXMLDOMElement outXMLElements, string inNodeTypeName) { if (!inFeature.HasOID) { MessageBox.Show("No OID"); return; } MSXML2.IXMLDOMElement xmlNode; MSXML2.IXMLDOMElement xmlNode_XCoord; MSXML2.IXMLDOMElement xmlNode_YCoord; MSXML2.IXMLDOMElement xmlNode_RelatedContainerID; bool relatedContainer; MSXML2.IXMLDOMNodeList xmlNodeList; MSXML2.IXMLDOMElement xmlDrawing; MSXML2.IXMLDOMElement xmlDrawing_EltTypeName; MSXML2.IXMLDOMElement xmlDrawing_ExternalUID; //-------- Feature Section START related to the "infeature" -------- // Creating the NodeFeature element xmlNode = outDOMDoc.createElement("NodeFeature"); outXMLElements.appendChild(xmlNode); // Specifying basic XML items for this NodeFeature CreateBasicXMLItemsForSchematicElt(inFeature, ref outDOMDoc, ref xmlNode, inNodeTypeName); // Specifying its X && Y when they exist if ((inFeature.Fields.FindField("X") > 0) && (inFeature.Fields.FindField("Y") > 0)) { // Specifying InitialX xmlNode_XCoord = outDOMDoc.createElement("InitialX"); xmlNode.appendChild(xmlNode_XCoord); xmlNode_XCoord.nodeTypedValue = inFeature.get_Value(inFeature.Fields.FindField("X")); // Specifying InitialY xmlNode_YCoord = outDOMDoc.createElement("InitialY"); xmlNode.appendChild(xmlNode_YCoord); xmlNode_YCoord.nodeTypedValue = inFeature.get_Value(inFeature.Fields.FindField("Y")); } xmlNode_RelatedContainerID = outDOMDoc.createElement("RelatedContainerID"); xmlNode.appendChild(xmlNode_RelatedContainerID); // Specifying its properties switch (inFeature.Class.AliasName) { case "Station": { xmlNode_RelatedContainerID.nodeTypedValue = "Container-" + System.Convert.ToString(inFeature.get_Value(inFeature.Fields.FindField("Feeder"))); // For Station feature, the field contained in the StationsPropertiesArray will be exported CompleteXMLEltByProperties(inFeature, ref outDOMDoc, ref xmlNode, m_stationsPropertiesArray); break; } case "Feeder": { xmlNode_RelatedContainerID.nodeTypedValue = "Container-" + inFeature.OID.ToString(); // For Feeder feature, the field contained in the StationsPropertiesArray will be exported CompleteXMLEltByProperties(inFeature, ref outDOMDoc, ref xmlNode, m_feedersPropertiesArray); break; } } //-------- Feature Section END related to the "infeature" -------- // Checking the existence of the related container xmlNodeList = outXMLElements.selectNodes("NodeFeature/ExternalUniqueID"); relatedContainer = false; foreach (MSXML2.IXMLDOMNode node in xmlNodeList) { if (node.text == xmlNode_RelatedContainerID.nodeTypedValue.ToString()) { relatedContainer = true; break; } } // pNode // Creating the related container when it doesn//t already exist if (!relatedContainer) { xmlDrawing = outDOMDoc.createElement("NodeFeature"); outXMLElements.appendChild(xmlDrawing); // Specifying its FeatureClassName xmlDrawing_EltTypeName = outDOMDoc.createElement("FeatureClassName"); xmlDrawing.appendChild(xmlDrawing_EltTypeName); xmlDrawing_EltTypeName.nodeTypedValue = "Containers"; // Specifying its ExternalUniqueID xmlDrawing_ExternalUID = outDOMDoc.createElement("ExternalUniqueID"); xmlDrawing.appendChild(xmlDrawing_ExternalUID); xmlDrawing_ExternalUID.nodeTypedValue = xmlNode_RelatedContainerID.nodeTypedValue; } } // The following CreateXMLLinkElt private procedure is used to create all the expected XML items for a XML LinkFeature related to a HV_Line or LV_Line simple edge feature private void CreateXMLLinkElt(ESRI.ArcGIS.Geodatabase.IFeature inFeature, ref MSXML2.DOMDocument outDOMDoc, ref MSXML2.IXMLDOMElement outXMLElements, string inLinkTypeName) { if (!inFeature.HasOID) { MessageBox.Show("No OID"); return; } MSXML2.IXMLDOMElement xmlLink; MSXML2.IXMLDOMElement xmlLink_FromNode; MSXML2.IXMLDOMElement xmlLink_ToNode; int indexListPoints; string listPoints; int nbVertices; string vertices; MSXML2.IXMLDOMElement xmlLink_Vertices; MSXML2.IXMLDOMElement xmlLink_Vertex; MSXML2.IXMLDOMElement xmlLink_XVertex; MSXML2.IXMLDOMElement xmlLink_YVertex; string xValue; string yValue; //-------- Feature Section START related to the "infeature" -------- // Creating the LinkFeature Feature xmlLink = outDOMDoc.createElement("LinkFeature"); outXMLElements.appendChild(xmlLink); // Specifying basic XML items for this LinkFeature CreateBasicXMLItemsForSchematicElt(inFeature, ref outDOMDoc, ref xmlLink, inLinkTypeName); // Specifying its FromNode xmlLink_FromNode = outDOMDoc.createElement("FromNode"); xmlLink.appendChild(xmlLink_FromNode); xmlLink_FromNode.nodeTypedValue = inFeature.get_Value(inFeature.Fields.FindField("FromJunctionType")) + "-" + inFeature.get_Value(inFeature.Fields.FindField("FromJunctionOID")); // Specifying its ToNode xmlLink_ToNode = outDOMDoc.createElement("ToNode"); xmlLink.appendChild(xmlLink_ToNode); xmlLink_ToNode.nodeTypedValue = inFeature.get_Value(inFeature.Fields.FindField("ToJunctionType")) + "-" + inFeature.get_Value(inFeature.Fields.FindField("ToJunctionOID")); //Add Vertices to LinkFeature ---- NEED TO BE COMPLETED indexListPoints = inFeature.Fields.FindField("ListPoints"); if (indexListPoints > 0) { listPoints = ""; listPoints = inFeature.get_Value(indexListPoints).ToString(); if (listPoints != "") { int foundChar = listPoints.IndexOf(";", 1); nbVertices = System.Convert.ToInt32(listPoints.Substring(0, foundChar)); vertices = listPoints.Substring(foundChar + 1); if (nbVertices > 0) { // Specifying its Vertices xmlLink_Vertices = outDOMDoc.createElement("Vertices"); xmlLink.appendChild(xmlLink_Vertices); int iLoc; for (int i = 1; i <= nbVertices; i++) { xValue = ""; yValue = ""; iLoc = vertices.IndexOf(";", 1); if (vertices != "" && (iLoc) > 0) { xValue = vertices.Substring(0, iLoc); } vertices = vertices.Substring(iLoc + 1); iLoc = vertices.IndexOf(";", 1); if (vertices != ";" && (iLoc) > 0) { yValue = vertices.Substring(0, iLoc); } if (xValue != "" && yValue != "") { xmlLink_Vertex = outDOMDoc.createElement("Vertex"); xmlLink_Vertices.appendChild(xmlLink_Vertex); xmlLink_XVertex = outDOMDoc.createElement("X"); xmlLink_Vertex.appendChild(xmlLink_XVertex); xmlLink_XVertex.nodeTypedValue = xValue; xmlLink_YVertex = outDOMDoc.createElement("Y"); xmlLink_Vertex.appendChild(xmlLink_YVertex); xmlLink_YVertex.nodeTypedValue = yValue; if (vertices.Length - iLoc > 0) { vertices = vertices.Substring(iLoc + 1); //sVertices.Length - iLoc) } else { break; } } else { break; } } } } //Specifying its properties switch (inFeature.Class.AliasName) { case "LV_Line": { CompleteXMLEltByProperties(inFeature, ref outDOMDoc, ref xmlLink, m_LVLinesPropertiesArray); break; } } //-------- Feature Section END related to the "infeature" -------- } } // The following CreateBasicXMLItmesForSchematicElt private procedure is used to create the first expected XML items for a XML NodeFeature or LinkFeature private void CreateBasicXMLItemsForSchematicElt(ESRI.ArcGIS.Geodatabase.IFeature inFeature, ref MSXML2.DOMDocument outDOMDoc, ref MSXML2.IXMLDOMElement outXMLElement, string inEltTypeName) { MSXML2.IXMLDOMElement xmlElt_EltTypeName; MSXML2.IXMLDOMElement xmlElt_ExternalUID; MSXML2.IXMLDOMElement xmlElt_DatasourceName; MSXML2.IXMLDOMElement xmlElt_UCID; MSXML2.IXMLDOMElement xmlElt_UOID; // Specifying its FeatureClassName xmlElt_EltTypeName = outDOMDoc.createElement("FeatureClassName"); outXMLElement.appendChild(xmlElt_EltTypeName); if (inFeature.Fields.FindField("Feeder") != -1) { xmlElt_EltTypeName.nodeTypedValue = inEltTypeName + "sFeeder" + inFeature.get_Value(inFeature.Fields.FindField("Feeder")).ToString(); } else { xmlElt_EltTypeName.nodeTypedValue = inEltTypeName + "s"; } // Specifying its ExternalUniqueID xmlElt_ExternalUID = outDOMDoc.createElement("ExternalUniqueID"); outXMLElement.appendChild(xmlElt_ExternalUID); xmlElt_ExternalUID.nodeTypedValue = inEltTypeName + "-" + inFeature.OID.ToString(); // Specifying its DatasourceName xmlElt_DatasourceName = outDOMDoc.createElement("DatasourceName"); outXMLElement.appendChild(xmlElt_DatasourceName); xmlElt_DatasourceName.nodeTypedValue = "XMLDataSource"; // Specifying its UCID xmlElt_UCID = outDOMDoc.createElement("UCID"); outXMLElement.appendChild(xmlElt_UCID); xmlElt_UCID.nodeTypedValue = inFeature.Class.ObjectClassID; // Add UOID to NodeElement xmlElt_UOID = outDOMDoc.createElement("UOID"); outXMLElement.appendChild(xmlElt_UOID); xmlElt_UOID.nodeTypedValue = inFeature.OID; } // The following CompleteXMLEltByProperties private procedure is used to create all the expected propertyset properties listed in the input PropertiesArray array private void CompleteXMLEltByProperties(ESRI.ArcGIS.Geodatabase.IFeature inFeature, ref MSXML2.DOMDocument outDOMDoc, ref MSXML2.IXMLDOMElement outXMLElement, string[] propertiesArray) { int i = 0; MSXML2.IXMLDOMElement xmlPropertySet; MSXML2.IXMLDOMElement xmlPropertyArray; MSXML2.IXMLDOMElement xmlPropertySetProperty; MSXML2.IXMLDOMElement xmlProperty_Key; MSXML2.IXMLDOMElement xmlProperty_Value; if (propertiesArray.Length > 0) { //-------- PropertySet Section START -------- // Creating the PropertySet element for the input outXMLElement xmlPropertySet = outDOMDoc.createElement("PropertySet"); outXMLElement.appendChild(xmlPropertySet); // Creating the PropertyArray element xmlPropertyArray = outDOMDoc.createElement("PropertyArray"); xmlPropertySet.appendChild(xmlPropertyArray); while (i < propertiesArray.Length) { // Creating the i PropertySetProperty xmlPropertySetProperty = outDOMDoc.createElement("PropertySetProperty"); xmlPropertyArray.appendChild(xmlPropertySetProperty); // Specifying the key && value field related to that i PropertySetProperty xmlProperty_Key = outDOMDoc.createElement("Key"); xmlPropertySetProperty.appendChild(xmlProperty_Key); xmlProperty_Key.nodeTypedValue = propertiesArray[i].ToString(); xmlProperty_Value = outDOMDoc.createElement("Value"); xmlPropertySetProperty.appendChild(xmlProperty_Value); xmlProperty_Value.nodeTypedValue = inFeature.get_Value(inFeature.Fields.FindField(propertiesArray[i].ToString())); i += 1; } } //-------- PropertySet Section END -------- } #endregion public object ApplicationHook { get { return (object)m_application; } set { m_application = (ESRI.ArcGIS.ArcMap.Application)value; } } } }
[Visual Basic .NET]
XMLDocImpl.vb
Imports System.Collections.Generic Imports System.Text Imports System.Runtime.InteropServices Imports ESRI.ArcGIS.Schematic Imports System.Windows.Forms <Guid("A87C1C4A-1827-45e7-980B-4A5C781CF404")> _ <ClassInterface(ClassInterfaceType.None)> _ <ProgId("MyExtXmlComponentVB.XMLDocImpl")> _ Public Class XMLDocImpl Implements ISchematicXmlGenerate Implements ISchematicXmlUpdate ' #Region "Variables" 'This class must implement the ISchematicXMLGenerate & ISchematicXMLUpdate interfaces Private m_application As ESRI.ArcGIS.ArcMap.Application ' ArcMap application Private m_mxDocument As ESRI.ArcGIS.ArcMapUI.IMxDocument ' ArcMap document Private installationFolder As String 'The following arrays will be used to create the wished propertyset properties in the XML DOMDocument Private m_stationsPropertiesArray() As String = {"Name", "Capacity", "Type", "Feeder"} Private m_feedersPropertiesArray() As String = {"Feeder_Description"} Private m_LVLinesPropertiesArray() As String = {"Rate", "Category"} Private Const DatasetName As String = "ElectricDataSet" Protected Overrides Sub Finalize() m_application = Nothing m_mxDocument = Nothing MyBase.Finalize() End Sub #End Region #Region "ISchematicXmlGenerate Members" Public Sub GenerateXmlData(ByVal diagramName As String, ByVal diagramClassName As String, ByRef xmlSource As Object, ByRef cancel As Boolean) Implements ISchematicXmlGenerate.GenerateXmlData Dim xmlDocument As MSXML2.DOMDocument = New MSXML2.DOMDocument() Dim maps As ESRI.ArcGIS.Carto.IMaps Dim currentMap As ESRI.ArcGIS.Carto.IMap Dim enumFeature As ESRI.ArcGIS.Geodatabase.IEnumFeature Dim feature As ESRI.ArcGIS.Geodatabase.IFeature Dim xmlProcInstr As MSXML2.IXMLDOMProcessingInstruction Dim xmlDiagrams As MSXML2.IXMLDOMElement Dim xmlDiagram As MSXML2.IXMLDOMElement Dim xmlFeatures As MSXML2.IXMLDOMElement Dim xmlDataSources As MSXML2.IXMLDOMElement Dim xmlDataSource As MSXML2.IXMLDOMElement Dim xmlDataSource_NameString As MSXML2.IXMLDOMElement Dim xmlDataSource_WorkspaceInfo As MSXML2.IXMLDOMElement Dim xmlWorkspaceInfo_PathName As MSXML2.IXMLDOMElement Dim xmlWorkspaceInfo_WorkspaceFactoryProgID As MSXML2.IXMLDOMElement Dim rootAtt1 As MSXML2.IXMLDOMAttribute Dim rootAtt2 As MSXML2.IXMLDOMAttribute Dim enumFeatureSetup As ESRI.ArcGIS.Geodatabase.IEnumFeatureSetup Dim xmlDatabase As String ' Retrieving the selected set of features enumFeature = Nothing feature = Nothing m_mxDocument = CType(m_application.Document, ESRI.ArcGIS.ArcMapUI.IMxDocument) maps = m_mxDocument.Maps Dim i As Integer = 0 While (i < maps.Count) currentMap = maps.Item(i) enumFeature = CType(currentMap.FeatureSelection, ESRI.ArcGIS.Geodatabase.IEnumFeature) enumFeatureSetup = CType(enumFeature, ESRI.ArcGIS.Geodatabase.IEnumFeatureSetup) enumFeatureSetup.AllFields = True feature = enumFeature.Next() If (feature IsNot Nothing) Then Exit While i += 1 End While ' if (there is no selected feature in the MxDocument, the procedure is interrupted If (feature Is Nothing) Then MsgBox("There is no feature selected. Select a set of features.", "Generate/Update XML diagrams", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation) cancel = True Return End If 'Checking the feature dataset related to the selected features Dim featureClass As ESRI.ArcGIS.Geodatabase.IFeatureClass Dim featureDatasetName As String featureClass = CType(feature.Class, ESRI.ArcGIS.Geodatabase.IFeatureClass) featureDatasetName = featureClass.FeatureDataset.BrowseName xmlDatabase = featureClass.FeatureDataset.Workspace.PathName ' if the selected features come from another feature dataset than the expected one, the procedure is interrupted If (featureDatasetName <> DatasetName) Then 'More restrictive condition: If (xmlDatabase <> "c:\Mybase.gdb") Then MsgBox("This component doesn't work from the selected set of features.") cancel = True Return End If ' Writing the XML heading items in the DOMDocument xmlProcInstr = xmlDocument.createProcessingInstruction("xml", "version='1.0'") xmlDocument.appendChild(xmlProcInstr) xmlProcInstr = Nothing '-------- Diagrams Section START -------- ' Creating the root Diagrams element xmlDiagrams = xmlDocument.createElement("Diagrams") xmlDocument.documentElement = xmlDiagrams rootAtt1 = xmlDocument.createAttribute("xmlns:xsi") rootAtt1.text = "http://www.w3.org/2001/XMLSchema-instance" xmlDiagrams.attributes.setNamedItem(rootAtt1) 'rootAtt2 = xmlDocument.createAttribute("xsi:noNamespaceSchemaLocation") 'rootAtt2.text = XmlSchema 'xmlDiagrams.attributes.setNamedItem(rootAtt2) ' Creating the Diagram element for the diagram which is going to be generated xmlDiagram = xmlDocument.createElement("Diagram") xmlDiagrams.appendChild(xmlDiagram) rootAtt1 = xmlDocument.createAttribute("EnforceDiagramTemplateName") rootAtt1.text = "false" xmlDiagram.attributes.setNamedItem(rootAtt1) rootAtt2 = xmlDocument.createAttribute("EnforceDiagramName") rootAtt2.text = "false" xmlDiagram.attributes.setNamedItem(rootAtt2) '-------- DataSources Section START -------- ' Creating the DataSources element xmlDataSources = xmlDocument.createElement("Datasources") xmlDiagram.appendChild(xmlDataSources) xmlDataSource = xmlDocument.createElement("Datasource") xmlDataSources.appendChild(xmlDataSource) ' Specifying the Namestring for the related Datasource element xmlDataSource_NameString = xmlDocument.createElement("NameString") xmlDataSource.appendChild(xmlDataSource_NameString) xmlDataSource_NameString.nodeTypedValue = "XMLDataSource" ' Specifying the WorkspaceInfo for the related Datasource element xmlDataSource_WorkspaceInfo = xmlDocument.createElement("WorkSpaceInfo") xmlDataSource.appendChild(xmlDataSource_WorkspaceInfo) xmlWorkspaceInfo_PathName = xmlDocument.createElement("PathName") xmlDataSource_WorkspaceInfo.appendChild(xmlWorkspaceInfo_PathName) xmlWorkspaceInfo_PathName.nodeTypedValue = xmlDatabase xmlWorkspaceInfo_WorkspaceFactoryProgID = xmlDocument.createElement("WorkspaceFactoryProgID") xmlDataSource_WorkspaceInfo.appendChild(xmlWorkspaceInfo_WorkspaceFactoryProgID) xmlWorkspaceInfo_WorkspaceFactoryProgID.nodeTypedValue = "esriDataSourcesGDB.FileGDBWorkspaceFactory" '-------- DataSources Section END -------- '-------- Features Section START -------- xmlFeatures = xmlDocument.createElement("Features") xmlDiagram.appendChild(xmlFeatures) While (feature IsNot Nothing) Select Case (feature.FeatureType) Case ESRI.ArcGIS.Geodatabase.esriFeatureType.esriFTSimpleJunction CreateXMLNodeElt(feature, xmlDocument, xmlFeatures, feature.Class.AliasName) Case ESRI.ArcGIS.Geodatabase.esriFeatureType.esriFTSimpleEdge CreateXMLLinkElt(feature, xmlDocument, xmlFeatures, feature.Class.AliasName) End Select feature = enumFeature.Next() End While ' output the XML we created xmlSource = xmlDocument cancel = False '-------- Features Section END -------- '-------- Diagrams Section END -------- End Sub Public Property ApplicationHook() As Object Implements ISchematicXmlGenerate.ApplicationHook Get Return CType(m_application, Object) End Get Set(ByVal value As Object) m_application = CType(value, ESRI.ArcGIS.ArcMap.Application) End Set End Property #End Region #Region "ISchematicXmlUpdate Members" Public Sub UpdateXmlData(ByVal diagramName As String, ByVal diagramClassName As String, ByVal updateInformation As String, ByRef xmlSource As Object, ByRef cancel As Boolean) Implements ISchematicXmlUpdate.UpdateXmlData GenerateXmlData(diagramName, diagramClassName, xmlSource, cancel) End Sub Public Property ApplicationHook1() As Object Implements ISchematicXmlUpdate.ApplicationHook Get Return CType(m_application, Object) End Get Set(ByVal value As Object) m_application = CType(value, ESRI.ArcGIS.ArcMap.Application) End Set End Property #End Region #Region "private functions" ' The following CreateXMLLNodeElt private procedure is used to create all the expected ' XML items for a XML NodeFeature related to a Station or Feeder simple junction feature Private Sub CreateXMLNodeElt(ByVal inFeature As ESRI.ArcGIS.Geodatabase.IFeature, ByRef outDOMDoc As MSXML2.DOMDocument, ByRef outXMLElements As MSXML2.IXMLDOMElement, ByVal inNodeTypeName As String) If (Not inFeature.HasOID) Then MsgBox("No OID") Return End If Dim xmlNode As MSXML2.IXMLDOMElement Dim xmlNode_XCoord As MSXML2.IXMLDOMElement Dim xmlNode_YCoord As MSXML2.IXMLDOMElement Dim xmlNode_RelatedContainerID As MSXML2.IXMLDOMElement Dim relatedContainer As Boolean Dim xmlNodeList As MSXML2.IXMLDOMNodeList Dim xmlDrawing As MSXML2.IXMLDOMElement Dim xmlDrawing_EltTypeName As MSXML2.IXMLDOMElement Dim xmlDrawing_ExternalUID As MSXML2.IXMLDOMElement '-------- Feature Section START related to the "infeature" -------- ' Creating the NodeFeature element xmlNode = outDOMDoc.createElement("NodeFeature") outXMLElements.appendChild(xmlNode) ' Specifying basic XML items for this NodeFeature CreateBasicXMLItemsForSchematicElt(inFeature, outDOMDoc, xmlNode, inNodeTypeName) ' Specifying its X && Y when they exist If ((inFeature.Fields.FindField("X") > 0) AndAlso (inFeature.Fields.FindField("Y") > 0)) Then ' Specifying InitialX xmlNode_XCoord = outDOMDoc.createElement("InitialX") xmlNode.appendChild(xmlNode_XCoord) xmlNode_XCoord.nodeTypedValue = inFeature.Value(inFeature.Fields.FindField("X")) ' Specifying InitialY xmlNode_YCoord = outDOMDoc.createElement("InitialY") xmlNode.appendChild(xmlNode_YCoord) xmlNode_YCoord.nodeTypedValue = inFeature.Value(inFeature.Fields.FindField("Y")) End If xmlNode_RelatedContainerID = outDOMDoc.createElement("RelatedContainerID") xmlNode.appendChild(xmlNode_RelatedContainerID) ' Specifying its properties Select Case (inFeature.Class.AliasName) Case "Station" xmlNode_RelatedContainerID.nodeTypedValue = "Container-" & System.Convert.ToString(inFeature.Value(inFeature.Fields.FindField("Feeder"))) ' For Station feature, the field contained in the StationsPropertiesArray will be exported CompleteXMLEltByProperties(inFeature, outDOMDoc, xmlNode, m_stationsPropertiesArray) Case "Feeder" xmlNode_RelatedContainerID.nodeTypedValue = "Container-" & inFeature.OID.ToString() ' For Feeder feature, the field contained in the StationsPropertiesArray will be exported CompleteXMLEltByProperties(inFeature, outDOMDoc, xmlNode, m_feedersPropertiesArray) End Select '-------- Feature Section END related to the "infeature" -------- ' Checking the existence of the related container xmlNodeList = outXMLElements.selectNodes("NodeFeature/ExternalUniqueID") relatedContainer = False For Each node As MSXML2.IXMLDOMNode In xmlNodeList If (node.text = xmlNode_RelatedContainerID.nodeTypedValue.ToString()) Then relatedContainer = True Exit For End If Next ' pNode ' Creating the related container when it doesn//t already exist If (Not relatedContainer) Then xmlDrawing = outDOMDoc.createElement("NodeFeature") outXMLElements.appendChild(xmlDrawing) ' Specifying its FeatureClassName xmlDrawing_EltTypeName = outDOMDoc.createElement("FeatureClassName") xmlDrawing.appendChild(xmlDrawing_EltTypeName) xmlDrawing_EltTypeName.nodeTypedValue = "Containers" ' Specifying its ExternalUniqueID xmlDrawing_ExternalUID = outDOMDoc.createElement("ExternalUniqueID") xmlDrawing.appendChild(xmlDrawing_ExternalUID) xmlDrawing_ExternalUID.nodeTypedValue = xmlNode_RelatedContainerID.nodeTypedValue End If End Sub ' The following CreateXMLLinkElt private procedure is used to create all the expected XML items for a XML LinkFeature related to a HV_Line or LV_Line simple edge feature Private Sub CreateXMLLinkElt(ByVal inFeature As ESRI.ArcGIS.Geodatabase.IFeature, ByRef outDOMDoc As MSXML2.DOMDocument, ByRef outXMLElements As MSXML2.IXMLDOMElement, ByVal inLinkTypeName As String) If (Not inFeature.HasOID) Then MessageBox.Show("No OID") Return End If Dim xmlLink As MSXML2.IXMLDOMElement Dim xmlLink_FromNode As MSXML2.IXMLDOMElement Dim xmlLink_ToNode As MSXML2.IXMLDOMElement Dim indexListPoints As Integer Dim listPoints As String Dim nbVertices As Integer Dim vertices As String Dim xmlLink_Vertices As MSXML2.IXMLDOMElement Dim xmlLink_Vertex As MSXML2.IXMLDOMElement Dim xmlLink_XVertex As MSXML2.IXMLDOMElement Dim xmlLink_YVertex As MSXML2.IXMLDOMElement Dim xValue As String Dim yValue As String '-------- Feature Section START related to the "infeature" -------- ' Creating the LinkFeature Feature xmlLink = outDOMDoc.createElement("LinkFeature") outXMLElements.appendChild(xmlLink) ' Specifying basic XML items for this LinkFeature CreateBasicXMLItemsForSchematicElt(inFeature, outDOMDoc, xmlLink, inLinkTypeName) ' Specifying its FromNode xmlLink_FromNode = outDOMDoc.createElement("FromNode") xmlLink.appendChild(xmlLink_FromNode) xmlLink_FromNode.nodeTypedValue = inFeature.Value(inFeature.Fields.FindField("FromJunctionType")) & "-" & inFeature.Value(inFeature.Fields.FindField("FromJunctionOID")) ' Specifying its ToNode xmlLink_ToNode = outDOMDoc.createElement("ToNode") xmlLink.appendChild(xmlLink_ToNode) xmlLink_ToNode.nodeTypedValue = inFeature.Value(inFeature.Fields.FindField("ToJunctionType")) & "-" & inFeature.Value(inFeature.Fields.FindField("ToJunctionOID")) 'Add Vertices to LinkFeature ---- NEED TO BE COMPLETED indexListPoints = inFeature.Fields.FindField("ListPoints") If (indexListPoints > 0) Then listPoints = "" listPoints = inFeature.Value(indexListPoints).ToString() If (listPoints <> "") Then Dim foundChar As Integer = listPoints.IndexOf(";", 1) nbVertices = System.Convert.ToInt32(listPoints.Substring(0, foundChar)) vertices = listPoints.Substring(foundChar + 1) If (nbVertices > 0) Then ' Specifying its Vertices xmlLink_Vertices = outDOMDoc.createElement("Vertices") xmlLink.appendChild(xmlLink_Vertices) Dim iLoc As Integer For i As Integer = 1 To nbVertices xValue = "" yValue = "" iLoc = vertices.IndexOf(";", 1) If (vertices <> "" AndAlso (iLoc) > 0) Then xValue = vertices.Substring(0, iLoc) End If vertices = vertices.Substring(iLoc + 1) iLoc = vertices.IndexOf(";", 1) If (vertices <> ";" AndAlso (iLoc) > 0) Then yValue = vertices.Substring(0, iLoc) End If If (xValue <> "" AndAlso yValue <> "") Then xmlLink_Vertex = outDOMDoc.createElement("Vertex") xmlLink_Vertices.appendChild(xmlLink_Vertex) xmlLink_XVertex = outDOMDoc.createElement("X") xmlLink_Vertex.appendChild(xmlLink_XVertex) xmlLink_XVertex.nodeTypedValue = xValue xmlLink_YVertex = outDOMDoc.createElement("Y") xmlLink_Vertex.appendChild(xmlLink_YVertex) xmlLink_YVertex.nodeTypedValue = yValue If (vertices.Length - iLoc > 0) Then vertices = vertices.Substring(iLoc + 1) 'sVertices.Length - iLoc) Else Exit For End If Else Exit For End If Next End If End If 'Specifying its properties Select Case (inFeature.Class.AliasName) Case "LV_Line" CompleteXMLEltByProperties(inFeature, outDOMDoc, xmlLink, m_LVLinesPropertiesArray) End Select '-------- Feature Section END related to the "infeature" -------- End If End Sub ' The following CreateBasicXMLItmesForSchematicElt private procedure is used to create the first expected XML items for a XML NodeFeature or LinkFeature Private Sub CreateBasicXMLItemsForSchematicElt(ByVal inFeature As ESRI.ArcGIS.Geodatabase.IFeature, ByRef outDOMDoc As MSXML2.DOMDocument, ByRef outXMLElement As MSXML2.IXMLDOMElement, ByVal inEltTypeName As String) Dim xmlElt_EltTypeName As MSXML2.IXMLDOMElement Dim xmlElt_ExternalUID As MSXML2.IXMLDOMElement Dim xmlElt_DatasourceName As MSXML2.IXMLDOMElement Dim xmlElt_UCID As MSXML2.IXMLDOMElement Dim xmlElt_UOID As MSXML2.IXMLDOMElement ' Specifying its FeatureClassName xmlElt_EltTypeName = outDOMDoc.createElement("FeatureClassName") outXMLElement.appendChild(xmlElt_EltTypeName) If (inFeature.Fields.FindField("Feeder") <> -1) Then xmlElt_EltTypeName.nodeTypedValue = inEltTypeName & "sFeeder" & inFeature.Value(inFeature.Fields.FindField("Feeder")).ToString() Else xmlElt_EltTypeName.nodeTypedValue = inEltTypeName & "s" End If ' Specifying its ExternalUniqueID xmlElt_ExternalUID = outDOMDoc.createElement("ExternalUniqueID") outXMLElement.appendChild(xmlElt_ExternalUID) xmlElt_ExternalUID.nodeTypedValue = inEltTypeName & "-" & inFeature.OID.ToString() ' Specifying its DatasourceName xmlElt_DatasourceName = outDOMDoc.createElement("DatasourceName") outXMLElement.appendChild(xmlElt_DatasourceName) xmlElt_DatasourceName.nodeTypedValue = "XMLDataSource" ' Specifying its UCID xmlElt_UCID = outDOMDoc.createElement("UCID") outXMLElement.appendChild(xmlElt_UCID) xmlElt_UCID.nodeTypedValue = inFeature.Class.ObjectClassID ' Add UOID to NodeElement xmlElt_UOID = outDOMDoc.createElement("UOID") outXMLElement.appendChild(xmlElt_UOID) xmlElt_UOID.nodeTypedValue = inFeature.OID End Sub ' The following CompleteXMLEltByProperties private procedure is used to create all the expected propertyset properties listed in the input PropertiesArray array Private Sub CompleteXMLEltByProperties(ByVal inFeature As ESRI.ArcGIS.Geodatabase.IFeature, ByRef outDOMDoc As MSXML2.DOMDocument, ByRef outXMLElement As MSXML2.IXMLDOMElement, ByVal propertiesArray() As String) Dim i As Integer = 0 Dim xmlPropertySet As MSXML2.IXMLDOMElement Dim xmlPropertyArray As MSXML2.IXMLDOMElement Dim xmlPropertySetProperty As MSXML2.IXMLDOMElement Dim xmlProperty_Key As MSXML2.IXMLDOMElement Dim xmlProperty_Value As MSXML2.IXMLDOMElement If (propertiesArray.Length > 0) Then '-------- PropertySet Section START -------- ' Creating the PropertySet element for the input outXMLElement xmlPropertySet = outDOMDoc.createElement("PropertySet") outXMLElement.appendChild(xmlPropertySet) ' Creating the PropertyArray element xmlPropertyArray = outDOMDoc.createElement("PropertyArray") xmlPropertySet.appendChild(xmlPropertyArray) While (i < propertiesArray.Length) ' Creating the i PropertySetProperty xmlPropertySetProperty = outDOMDoc.createElement("PropertySetProperty") xmlPropertyArray.appendChild(xmlPropertySetProperty) ' Specifying the key && value field related to that i PropertySetProperty xmlProperty_Key = outDOMDoc.createElement("Key") xmlPropertySetProperty.appendChild(xmlProperty_Key) xmlProperty_Key.nodeTypedValue = propertiesArray(i).ToString() xmlProperty_Value = outDOMDoc.createElement("Value") xmlPropertySetProperty.appendChild(xmlProperty_Value) xmlProperty_Value.nodeTypedValue = inFeature.Value(inFeature.Fields.FindField(propertiesArray(i).ToString())) i += 1 End While End If '-------- PropertySet Section END -------- End Sub #End Region End Class