지번입력 리습인데, 문자 정렬을 바꿀수 있을까요?

;
; What : 지적도 지번넣기
;
; Who : 건화ENG 문주철 mjc007@netian.com
;
; Notice : 본 프로그램을 무단 불법/불량 복제를 하여도 좋습니다……
;

(defun clerr (s)
(if (/= s “Function cancelled”)
(princ (strcat “nError: ” s))
)
(SETVAR “osmode” OSM1)
(setvar “clayer” cl1)
(command “redraw”)
(setq *error* olderr)
(princ “n======== E X I T P R O G R A M ==========”)
(princ)
)

(defun c:j06 (/ osm1 cn1 s1 s2 t1)
(setq olderr *error*
*error* clerr)
(SETVAR “CMDECHO” 0)
(SETQ OSM1 (GETVAR “OSMODE”))
(setq cl1 (getvar “clayer”))
(SETVAR “osmode” 0)

; –Define Layer —

(setq ts (tblsearch “LAYER” “지적-별지번”))
(if (null ts)(command “-LAYER” “m” “지적-별지번” “c” “4” “” “”))
(setq ts (tblsearch “LAYER” “지적-지번”))
(if (null ts)(command “-LAYER” “m” “지적-지번” “c” “4” “” “”))

; — Define Text Style —

; (if (/= j06text nil)
; (command “style” “ghs” “romans.shx,ghs.shx” j06text “” “” “” “”)
; (progn
; (setq he1 (getreal “n글자의 높이는 : 재입력 / <2.5> — “))
; (if (null he1)(setq j06text 2.5)(setq j06text he1))
; (command “style” “ghs” “romans.shx,ghs.shx” j06text “” “” “” “”)
; )
; )
(command “style” “ghs” “romans.shx,ghs.shx” “2.0” “” “” “” “”)

(setvar “osmode” 0)

(while (setq s1 (getpoint “n 필지를 선택하시오 -> “))
(COMMAND “LAYER” “S” “지적-지번” “”)
(setq t1 (getstring t “n 지번입력 [[ -산 / = 별지번 ]] : “))
(if (= (substr t1 1 1) “-“)
(setq t1 (strcat “산” (substr t1 2)))
)
(if (= (substr t1 1 1) “=”)
(progn
(COMMAND “LAYER” “S” “지적-별지번” “”)
(setq t2 (substr t1 2))
)
)
(princ “n 전(1) 도(2) 대(3) 천(4) 구(5) 철(6) 장(7) 잡(8) 임(9) 기타(0)”)
(princ “n 학(11) 목(12) 수(13) 종(14) 장(15) 공(16) 유(17) 묘(18) 제(19) 과(20) / <답> : “)
(if (/= (substr t1 1 1) “=”)
(setq m1 (getint “n 지목은 ? “))
)
(cond ((= m1 1)
(SETQ jt1 “전”))
((= m1 2)
(SETQ jt1 “도”))
((= m1 3)
(SETQ jt1 “대”))
((= m1 4)
(SETQ jt1 “천”))
((= m1 5)
(SETQ jt1 “구”))
((= m1 6)
(SETQ jt1 “철”))
((= m1 7)
(SETQ jt1 “장”))
((= m1 8)
(SETQ jt1 “잡”))
((= m1 9)
(SETQ jt1 “임”))
((= m1 11)
(SETQ jt1 “학”))
((= m1 12)
(SETQ jt1 “목”))
((= m1 13)
(SETQ jt1 “수”))
((= m1 14)
(SETQ jt1 “종”))
((= m1 15)
(SETQ jt1 “장”))
((= m1 16)
(SETQ jt1 “공”))
((= m1 17)
(SETQ jt1 “유”))
((= m1 18)
(SETQ jt1 “묘”))
((= m1 19)
(SETQ jt1 “제”))
((= m1 20)
(SETQ jt1 “과”))
((= m1 0)
(SETQ jt1 (getstring t “n Text를 입력하시오 : “)))
(t (setq jt1 “답”)
)
);–Cond–

(if (= (substr t1 1 1) “=”)
(setq jt2 t2)
(setq jt2 (strcat t1 jt1))
)

(command “text” “j” “MC” s1 “0” jt2)
(princ (strcat “n [[ ” jt2 ” ]] 를 기재함”))
(princ “n”)
(initget 128 “1”)
); –while–

(setvar “osmode” osm1)
(setvar “clayer” cl1)
(command “redraw”)
(princ)
)
;;*****************************************


문자가 middle center 로 입력이 됩니다.

left로 바꾸려면 어떻게 해야 하나요???