(setq point_1(cdr(assoc 10 (entget(ssname(ssget "X" '((2 . "블럭이름")))0)))))

지정한 블럭을 선택해서 블럭삽입점을 좌표로서 point_1에 저장한다.
script로 활용 할수있다.