고수님들께 부탁합니다. 면적 구하는 리습 수정 부탁드립니다.

아래파일에 면적 쓸점위치를 지정해 놓을수있는기능을 넣고 싶습니다.
고수님들부탁합니다.
면적을 구한뒤  표 같은곳에 사각모서리를 위치를 지정한뒤에 정확히 넣고 싶습니다.
1.축척설정
2.소숫점 자리 설정
3. 글자 스타일 및 높이
4. 글자위치 지정 (가능하면 면적을쓸 표란의 모서리 기준점 선택후 "맨위 오른쪽"등…을 번호로 선택후 그기준점에서 " 1만큼 또는 2만큼 띄우기를 선택 또는 쓸수있는 기능을 지정할수있는 리습)
1~3은 보통 찾아보면 리습이 있는데 4번 기능이 되는 리습은 찾기 힘드네요 전에 있었는데 분실해서… 고수님께부탁합니다.
1~4를 한번지정하면 반복적으로 쓸수있음 좋겠습니다. 부탁드립니다.

예를들면 아래와 같은 비슷한 기능을 넣고 싶은데 도움부탁합니다.
;; reinput value

     (setq styl (nth (atoi fx) RL1))
     (setq just (nth (atoi fx1) jjlist))
     (cond  ((= just "맨위 왼쪽")
             (setq just72 0 just73 3)
            )
            ((= just "맨위 중심")
             (setq just72 1 just73 3)
            )
            ((= just "맨위 오른쪽")
             (setq just72 2 just73 3)
            )
            ((= just "중간 왼쪽")
             (setq just72 0 just73 2)
            )
            ((= just "중간 중심")
             (setq just72 1 just73 2)
            )
            ((= just "중간 오른쪽")
             (setq just72 2 just73 2)
            )
            ((= just "맨아래 왼쪽")
             (setq just72 0 just73 1)
            )
            ((= just "맨아래 중심")
             (setq just72 1 just73 1)
            )
            ((= just "맨아래 오른쪽")
             (setq just72 2 just73 1)
            )
            (T (setq just72 0 just73 0))
     );end cond