EasyCalculate Plus shows how the expressions of EasyCalculate can be used programmatically in your VB or VBA code. 

EC Plus consists of two VB modules (included in the download)

1. EC_RunCalculator.bas - Has a single SUB procedure - "EC_Run_Calc", that illustrates how to use the FieldCalculator programmatically. The procedure works on the selected layer in the ArcMap TOC. The only changes the user needs to do are:
   • Change the  name of the field to be calculated (the field must be of the appropriate type for the calculations performed)
   • Change the name of the Calculation procedure to be called (see the procedures available in EC_Expressions.bas and How to add a new procedure)
   • Some of the procedures might require additional parameters to be passed.
2. EC_Expressions.bas - Contains several sample calculation procedures. Any of the expressions available in EasyCalculate can be easily added as a Sub procedure to the EC_Expressions module - see How to add a new procedure

How to run EC Plus:

1. In ArcMap: Go to Tools ==> Macros ==> Visual Basic Editor
2. In the Visual Basic Editor: Right click on Project ==> Import file ==> Navigate to the location of the EC Plus ==> Select one of the *.bas file ==> Click the Open button
3. Do the same to load the second file
4. Make sure that in ArcMap the correct layer is selected
5. Open the EC_Run_Calc module ==> Make the changes required (see above) and run the procedure

Procedures available in EC Plus - see EasyCalculate page for description

• polygon_Return_Area(sPreExpression As String, sExpression As String)
• shape_Return_Length(sPreExpression As String, sExpression As String)
• polyline_Get_X_MiddlePoint(sPreExpression As String, sExpression As String, _
  dDistance As Double, bAsRatio As Boolean)
• mp_get_X_Center(sPreExpression As String, sExpression As String)
• polyline_Flip(sPreExpression As String, sExpression As String)
• polygon_Get_X_Center(sPreExpression As String, sExpression As String)
• point_Get_X(sPreExpression As String, sExpression As String)
• point_Get_M(sPreExpression As String, sExpression As String)

How to add a new procedure:

1. Open EC_Expressions module.
2. Create a new Sub. Make sure that the name of the procedure is unique for the module

   Public Sub point_Get_Y(sPreExpression As String, sExpression As String)

   End Sub

3. Go to ArcMap ==> Open an attribute table ==> Right click on a field ==> Calculate Values ==> In the Field Calculator dialog click Load ==> Select an expression from the EasyCalculate ==> Copy the code from the Pre-Logic box. ==> Close the field calculator using the Cancel button
4. Go to VB Editor ==>  paste the code in the procedure created in step 2 above

   Public Sub point_Get_Y(sPreExpression As String, sExpression As String)
     Dim pMxDoc As IMxDocument
     Dim pMap As IMap
     Dim pPoint As IPoint
     Dim dY As Double
     Set pMxDoc = ThisDocument
     Set pMap = pMxDoc.FocusMap
     If (Not IsNull([Shape])) Then
       Set pPoint = [Shape]
       pPoint.Project pMap.SpatialReference
       dY = pPoint.Y
     End If
   End Sub

5. Edit the code as below:

   Public Sub point_Get_Y(sPreExpression As String, sExpression As String)
     sPreExpression = _
     "Dim pMxDoc As IMxDocument" & vbNewLine & _
     "Dim pMap As IMap" & vbNewLine & _
     "Dim pPoint As IPoint" & vbNewLine & _
     "Dim dY As Double" & vbNewLine & _
     "Set pMxDoc = ThisDocument" & vbNewLine & _
     "Set pMap = pMxDoc.FocusMap" & vbNewLine & _
     "If (Not IsNull([Shape])) Then" & vbNewLine & _
     "  Set pPoint = [Shape]" & vbNewLine & _
     "  pPoint.Project pMap.SpatialReference" & vbNewLine & _
     "  dY = pPoint.Y" & vbNewLine & _
     "End If"
     sExpression = "dY"
   End Sub

6. The new procedure is ready to be run