This document is archived and information here might be outdated. Recommended version. |
Create a geometry SchematicAttribute on a given SchematicElementClass
/// <summary> /// Create a geometry SchematicAttribute on a given SchematicElementClass /// </summary> /// <param name="schElementClass">The SchematicElementClass where the geometry attribute is created</param> /// <param name="AttributeName">The ISchematicAttributeGeometry name</param> /// <param name="EvalMode">The EvaluationMode for the created schematic attribute</param> /// <param name="StorageMode">The StorageMode for the created schematic attribute</param> /// <param name="GeometryType">The AttributeGeometryType for the created schematic attribute</param> /// <param name="FieldName">The FieldName for the created schematic attribute</param> /// <returns>The created ESRI.ArcGIS.Schematic.ISchematicAttributeGeometry</returns> /// <remarks>The UID.Value is a contant GUID value for the ISchematicAttributeGeometry type of schematic attribute</remarks> public ESRI.ArcGIS.Schematic.ISchematicAttributeGeometry CreateAttributeGeometryForElementClass(ESRI.ArcGIS.Schematic.ISchematicElementClass schElementClass, string AttributeName, ESRI.ArcGIS.Schematic.esriSchematicAttributeEvaluationMode EvalMode, ESRI.ArcGIS.Schematic.esriSchematicAttributeStorageMode StorageMode, ESRI.ArcGIS.Schematic.esriSchematicAttributeGeometryType GeometryType, string FieldName) { ESRI.ArcGIS.Schematic.ISchematicAttribute schAttribute=null; try // create an ISchematicAttribute { ESRI.ArcGIS.esriSystem.UID pUid=new ESRI.ArcGIS.esriSystem.UID(); pUid.Value="{815DA067-4730-4C63-89A3-87BC0E29801F}"; schAttribute=schElementClass.CreateSchematicAttribute(AttributeName, pUid); } catch { return null; } ESRI.ArcGIS.Schematic.ISchematicAttributeManagement schAttributeMngt=(ESRI.ArcGIS.Schematic.ISchematicAttributeManagement)schAttribute; try { // the StorageMode must be set before the EvaluationMode // consistenty is checked when the EvaluationMode is set schAttributeMngt.StorageMode=StorageMode; schAttributeMngt.EvaluationMode=EvalMode; } catch { // an error is returned if the StorageMode and EvaluationMode are not consistent } // cast SchematicAttribute into ISchematicAttributeGeometry and set its properties ESRI.ArcGIS.Schematic.ISchematicAttributeGeometry schAttGeometry=(ESRI.ArcGIS.Schematic.ISchematicAttributeGeometry)schAttribute; if (schAttGeometry != null) { schAttGeometry.AttributeGeometryType=GeometryType; schAttGeometry.FieldName=FieldName; } return schAttGeometry; }
''' <summary> ''' Create a geometry SchematicAttribute on a given SchematicElementClass ''' </summary> ''' <param name="schElementClass">The SchematicElementClass where the geometry attribute is created</param> ''' <param name="AttributeName">The ISchematicAttributeGeometry name</param> ''' <param name="EvalMode">The EvaluationMode for the created schematic attribute</param> ''' <param name="StorageMode">The StorageMode for the created schematic attribute</param> ''' <param name="GeometryType">The AttributeGeometryType for the created schematic attribute</param> ''' <param name="FieldName">The FieldName for the created schematic attribute</param> ''' <returns>The created ESRI.ArcGIS.Schematic.ISchematicAttributeGeometry</returns> ''' <remarks>The UID.Value is a contant GUID value for the ISchematicAttributeGeometry type of schematic attribute</remarks> Public Function CreateAttributeGeometryForElementClass(ByVal schElementClass As ESRI.ArcGIS.Schematic.ISchematicElementClass, ByVal AttributeName As String, ByVal EvalMode As ESRI.ArcGIS.Schematic.esriSchematicAttributeEvaluationMode, ByVal StorageMode As ESRI.ArcGIS.Schematic.esriSchematicAttributeStorageMode, ByVal GeometryType As ESRI.ArcGIS.Schematic.esriSchematicAttributeGeometryType, ByVal FieldName As String) As ESRI.ArcGIS.Schematic.ISchematicAttributeGeometry Dim schAttribute As ESRI.ArcGIS.Schematic.ISchematicAttribute=Nothing Try ' create an ISchematicAttribute Dim pUid As ESRI.ArcGIS.esriSystem.UID=New ESRI.ArcGIS.esriSystem.UID() pUid.Value="{815DA067-4730-4C63-89A3-87BC0E29801F}" schAttribute=schElementClass.CreateSchematicAttribute(AttributeName, pUid) Catch Return Nothing End Try Dim schAttributeMngt As ESRI.ArcGIS.Schematic.ISchematicAttributeManagement=TryCast(schAttribute, ESRI.ArcGIS.Schematic.ISchematicAttributeManagement) Try ' the StorageMode must be set before the EvaluationMode ' consistenty is checked when the EvaluationMode is set schAttributeMngt.StorageMode=StorageMode schAttributeMngt.EvaluationMode=EvalMode Catch ' an error is returned if the StorageMode and EvaluationMode are not consistent End Try ' cast SchematicAttribute into ISchematicAttributeGeometry and set its properties Dim schAttGeometry As ESRI.ArcGIS.Schematic.ISchematicAttributeGeometry=TryCast(schAttribute, ESRI.ArcGIS.Schematic.ISchematicAttributeGeometry) If (schAttGeometry IsNot Nothing) Then schAttGeometry.AttributeGeometryType=GeometryType schAttGeometry.FieldName=FieldName End If Return schAttGeometry End Function