Is This Content Helpful?
How can we make this better? Please provide as much detail as possible.
The following script selects overlapping features in a polygon theme.
'-- Script: OverlapPoly.ave
'-- This script selects all polygons in a theme that
'-- overlap any other polygons in that same theme.
theView = av.getactivedoc
theTheme = theView.Getactivethemes.get(0)
theFTab = theTheme.GetFTab
numRecs = theFTab.GetNumRecords
shapefld = theFTab.FindField("Shape")
for each rec in theFTab
av.SetStatus((rec/numRecs) * 100)
aPoly = theFTab.ReturnValue(shapefld, rec)
for each rec2 in theFTab
if (rec < rec2) '-- eliminates double-checking
otherPoly = theFTab.ReturnValue(shapefld, rec2)
theArea = otherPoly.ReturnIntersection(aPoly).ReturnArea
if (theArea > 0) '-- ignores polygons that merely touch
'-- End of Script: OverlapPoly.ave