고수님들 리습점 함 봐주세요

(defun c:dae()
(command “_undo” “m”)
(setq n 0)
(setq txt_ss (ssget ‘((0 . “TEXT,MTEXT”))))
(repeat (sslength txt_ss)
(setq ent_list (entget (ssname txt_ss n))
ent_ (assoc 1 ent_list)
ent_txt (cdr ent_)
ent_new_txt (strcat ent_txt ” (大)”)
txt_list (cons (car ent_) ent_new_txt))
(entmod (subst txt_list ent_ ent_list))
(setq n (1+ n))
)
)
위 리습을 실행하면 그림 2 처럼 치수가 중심에 위치하지 않게 됩니다. 치수를 중심에 놓은 상태에서
글자를 추가할 수 는 없는가여??