Contacts are not placed at specified point when I edit hirarchy through "Edit In Place" option.

 hi all,

         Contacts are not placed at specified point when I edit hirarchy through "Edit In Place" option. Contacts are placed at some where.

 ;file=narendra_sub.il"

procedure(contact1()
enterBox(
?prompts list("Enter the first corner of your box."
"Enter the last corner of your box.")
 ?points         nil
 ?doneProc "contact"
 ?alwaysMap t
))
procedure(contact(w done points)
v=points
cv = geGetEditCellView()
y1=car(reverse(car(reverse(v))))
y2=car(reverse(car(v)))
x1=caar(reverse(v))
x2=caar(v)
dx=x1-x2
dy=y1-y2
mx=x2+(x1-x2)/2
my=y2+(y1-y2)/2
no.columns=round((dx-.12)/.5)
no.rows=round((dy-0.12)/.5)
overlapx=dx-(no.columns-1)*0.5-.26

leCreateContact(
cv
 "M1_PDIFF"
 mx:my
 "R0"
 0.22
 .22
 no.rows
 no.columns
 0.5
 0.5
 "center"
   "center"
)
)

hiSetBindKey("Layout" "Shift<key>n" "contact1()")