텍스트 입력시 정렬말인데요

(defun c:a ()
(setq gd1 (getpoint “기울기점1 : ” ))(print)
(setq gd2 (getpoint “기울기점2 : ” ))(print) 
(setq txt_ang (angle gd1 gd2))
(setq s_str (getstring t “입력 : “))

(entmakex (list (cons 0 “TEXT”) (cons 1 s_str) (cons 40 3) (cons 10 gd1) (cons 72 2) (cons 11 gd1) (cons 73 0) (cons 50 txt_ang)))
);defun

우의 리습을 실행하면


텍스트의 기울기를 입력하고 텍스트를  오른쪽 정렬하는 리습을 만드는중인데요
위와같은 방법으로 하면 텍스트의 11번 좌표값이 gd1 이값으로 설정이 되거든요
텍스트의 10번 좌표값이 gd1 이값으로 되게 할려면 어떤식으로 해야하는지 궁금합니다.