Baldwin County Wetland Conservation Plan - Alabama Department ...

Baldwin County Wetland Conservation Plan Final Summary Document
This piece of code identifies the wetland polygons which were subjected to fire, prepares a place in
the database for data that conveys this information, adds the data to the database, and refreshes the
on-screen view.
Programmed macros will also allow wetland polygon attributes to be searched for key
information, such as HGM classification. The following code contains a structured query language
(SQL) statement which searches the database for the requested information:
'*********************************************************************************************
***Public Sub SelectFeaturesSQL() Declare variables, set
active
Dim pMxDoc As IMxDocument map layer, search table
Dim pMap As Imap using SQL statement.
Dim pActiveView As IActiveView
Dim pFeatureLayer As IFeatureLayer
Dim pFeatureSelection As IFeatureSelection
Dim pQueryFilter As IQueryFilter
Dim pLayer As ILayer
Set pMxDoc = Application.Document
Set pMap = pMxDoc.FocusMap
Set pActiveView = pMap
Set pLayer = pMxDoc.FocusMap.Layer(2)
If Not TypeOf pLayer Is IFeatureLayer Then Exit Sub
Set pFeatureLayer = pLayer
Set pFeatureSelection = pFeatureLayer
Set pQueryFilter = New QueryFilter
Dim s1 As String
Dim sQs As String
s1 = "d"
sQs = "HGM LIKE '%" & s1 & "%'"
pQueryFilter.whereClause = sQs
pFeatureSelection.SelectFeatures pQueryFilter, esriSelectionResultNew, False
pActiveView.Refresh
End Sub
'*********************************************************************************************
***
This code selects all polygons that contain a lower case “d” in the HGM classification, which is an
indicator of ditched wetlands. This programming can be coupled with other code to attach data to
the selected polygons attributes.
The last example of critical code for the model is essentially an “if then” scenario. A
procedure was written to examine the acreage of wetland polygons and to then assign values to the
attribute table accordingly (e.g., if a polygon is < 1 acre, then it scores 2; >1 acre scores 4; >10 acres
scores 6; >100 acres scores 8). This is a primary component of each model. The following code
accomplishes this task:
'*********************************************************************************************
***Public Sub PopulateAcres_Rate() Declaration of variables.
Dim pDoc As IMxDocument
Dim pMap As IMap
Dim unknFeatLayer As IFeatureLayer
Dim unknFeatClass As IFeatureClass
23