Create A SchematicAttributeConstant On A Schematic Element Class Snippet

         /// <summary>
        /// Create a constant SchematicAttribute on a given SchematicElementClass
        /// </summary>
        /// <param name="schElementClass">The SchematicElementClass where the constant attribute is created</param>
        /// <param name="AttributeName">The ISchematicAttributeConstant 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="value">The ConstantValue for the created schematic attribute</param>
        /// <returns>The created ESRI.ArcGIS.Schematic.ISchematicAttributeConstant</returns>
        /// <remarks>The UID.Value is a contant GUID value for the ISchematicAttributeConstant type of schematic attribute</remarks>
        public ESRI.ArcGIS.Schematic.ISchematicAttributeConstant CreateAttributeConstantForElementClass(ESRI.ArcGIS.Schematic.ISchematicElementClass schElementClass, string AttributeName, ESRI.ArcGIS.Schematic.esriSchematicAttributeEvaluationMode EvalMode, ESRI.ArcGIS.Schematic.esriSchematicAttributeStorageMode StorageMode, string value)
        {

                ESRI.ArcGIS.Schematic.ISchematicAttribute schAttribute=null;
                try
                // create an ISchematicAttribute
                {
                        ESRI.ArcGIS.esriSystem.UID pUid=new ESRI.ArcGIS.esriSystem.UID();
                        pUid.Value="{3AD9D8B8-0A1D-4F32-ABB5-54B848A46F85}";
                        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 ISchematicAttributeConstant and set its properties
                ESRI.ArcGIS.Schematic.ISchematicAttributeConstant schAttConst=(ESRI.ArcGIS.Schematic.ISchematicAttributeConstant)schAttribute;
                if (schAttConst != null)
                {
                        schAttConst.ConstantValue=value;
                }

                return schAttConst;
        }

        ''' <summary>
        ''' Create a constant SchematicAttribute on a given SchematicElementClass
        ''' </summary>
        ''' <param name="schElementClass">The SchematicElementClass where the constant attribute is created</param>
        ''' <param name="AttributeName">The ISchematicAttributeConstant 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="value">The ConstantValue for the created schematic attribute</param>
        ''' <returns>The created ESRI.ArcGIS.Schematic.ISchematicAttributeConstant</returns>
        ''' <remarks>The UID.Value is a contant GUID value for the ISchematicAttributeConstant type of schematic attribute</remarks>
        Public Function CreateAttributeConstantForElementClass(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 value As String) As ESRI.ArcGIS.Schematic.ISchematicAttributeConstant

                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="{3AD9D8B8-0A1D-4F32-ABB5-54B848A46F85}"
                        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 ISchematicAttributeConstant and set its properties
                Dim schAttConst As ESRI.ArcGIS.Schematic.ISchematicAttributeConstant=TryCast(schAttribute, ESRI.ArcGIS.Schematic.ISchematicAttributeConstant)
                If (schAttConst IsNot Nothing) Then
                        schAttConst.ConstantValue=value
                End If

                Return schAttConst
        End Function