Thank you verymuch for reply.
1)It is working now. How can I get exact overlap area between two layers? I have been tring to write autovia code(like option which is in IC615, my version is 5141). Now I have layers m1,m2 at point. I have to get overlap area of both layers.
2)When My object is in hirerchy how can I get exact points of object. I'm unable to get bBox of that point as per top level.
Code still in progress
list( "Enter a point.")
procedure(pointDone(w done pts)
let((figlist1 figlist2 figlist)
figlist1= dbGetOverlaps(cv list(car(pts) car(pts)) list("M1" "drawing") 32 t)
figlist2= dbGetOverlaps(cv list(car(pts) car(pts)) list("M2" "drawing") 32 t)
;need to find overlap area of two layers
techFindViaSpec() ;command still pending
leCreateContact() or dbCreateContact(); command pending