Community
(setq en (car (entsel)))
(setq p1 (cdr (assoc 10 (entget en))))
(setq y1 (car p1)
x1 (cadr p1)
y2 250.0 ;or relative to block insertion: y2 (+ y1 250)
y3 245.0
y4 240.0
at1 (entnext en)
at2 (entnext at1)
at3 (entnext at2)
atl1 (entget at1)
atl2 (entget at2)
atl3 (entget at3)
)
(setq atl1 (subst (cons 10 (list y2 x1 0.0))(assoc 10 atl1) atl1)
atl2 (subst (cons 10 (list y3 x1 0.0))(assoc 10 atl2) atl2)
atl3 (subst (cons 10 (list y4 x1 0.0))(assoc 10 atl3) atl3)
)
(entmod atl1)
(entmod atl2)
(entmod atl3)
(princ)