MACRO ElementChildAndSiblingDefine i AS integer
DEFINE n AS integer
DEFINE k AS integer
DEFINE m AS integer
DEFINE ele1 AS element
DEFINE ele2 AS element
DEFINE ele3 AS element
DEFINE lay AS layer

FOR i = activeDoc.layerCount to 1 step -1
MESSAGE "processing layer " + activeDoc.layers[i].name
ele1 = activeDoc.layers[i].firstChild
n = 1
WHILE (exists(ele1) = true)
MESSAGE "The " + n + " element of this layer is a " + ele1.type
n = n + 1
ele2 = ele1.firstChild
k = 1
WHILE (exists(ele2) = true)
MESSAGE "The " + k + " element of this group is a " + ele2.type
ele3 = ele2.firstChild
m = 1
WHILE (exists(ele3) = true)
MESSAGE "The " + m + " element of this subgroup is a " + ele3.type
ele3 = ele3.nextSibling
m = m + 1
END WHILE
ele2 = ele2.nextSibling
k = k + 1
END WHILE
ele1 = ele1.nextSibling
END WHILE
END FOR
END MACRO