Alternatively, convert a copy of the polylines to regions (REGION command), perform an intersection (INTERSECT command), and query the area of the resulting region (Properties Palette / AREA command).
This process could of course be automated using LISP.