2D automesh for all Surfaces

Hello everyone,

 

I am trying to automesh the 2D surfaces with TCL script

the problem is, if the geometry have more than one surfaces, script will select only single surface and mesh that surface only,

 

my script shown below......

please help me to find proper solution

 

<?xml version="1.0" encoding="UTF-8"?>