안녕하세요? 글자 정렬 리습인데요~ 보완을 좀 하고 싶습니다~

안녕하세요? 요즘 노가다 작업을 많이해서 리습에 더 감사하고 일을 하고 있습니다.

좋은 결과물을 만들어주시는 수야님께 감사드리고 염치불구하고 여쭤볼게 있어서 글을 올립니다

이 리습을 글자를 정렬해 주는 리습입니다. 왼쪽 오른쪽 글자들이 가서 정렬이되는데 제가 보완하고 싶은

것은 글자를 정렬하면 기준점 끝으로 가서 달라 붙게 하고 싶고 글자와 선 끝 간격을 캐드 명령어가 아닌

리습 문구에서 숫자로 조절 할수 있었으면 해서 올립니다 조금의 연구로 왼쪽 오른쪽은 나눠놓았지만

기준점 끝으로 달라붙게 하는건 어려워서 글을 올립니다(올리는건 왼쪽만 올렸습니다)

수정해 주시는 모든 리습으로 인해 엄청난 효율이 나서 감사 드리고 있습니다. 감사합니다~

(defun c:TTT(/ myerror os ss n ptx pty pyxy kw k en tx a)
  ;start — Internal error handler —————————–
   (defun myerror(S)
   (if (/= s “Function cancelled”)(princ (strcat “nError:” s)))
   (setvar “osmode” os) (setvar “blipmode” bl)
   (setq *error* olderr)(princ) )
   (setq olderr *error* *error* myerror)
  ;end———————————————————–
   (setq os (getvar “osmode”))
   (prompt ” 문자 좌우 정렬하기…”)
   (setq ss (ssget ‘((0 . “text”)))) (terpri)
   (setq n (sslength ss))
   (setq ptx (car (getpoint “n좌우정렬점 선택->”)))(terpri)
   (setvar “osmode” 0)
   (setq a “자리맞추기 선택[왼쪽(L)/중심(C)/중간(M)/오른쪽(R)] <왼쪽>: “)
   (initget “Left Center Middle Right Middle Center”)
   (setq kw (getkword a))
   (if (= kw nil) (setq kw “Left”))
   (if (= kw “Left”) (setq sn 10) (setq sn 11))
   (command “justifytext” ss “” kw) (terpri)
   (setq k 0)
   (while (<= 1 n)
      (setq en (ssname ss k))
      (setq ptxy (cdr (assoc 10 (entget en)))  )
      (setq pty (cadr ptxy))
      (setq pt2 (list ptx pty))
      (entmod (subst (cons sn pt2) (assoc sn (entget en))(entget en)))
      (setq n (- n 1))
      (setq k (+ k 1))
   )
   (setvar “osmode” os)
   (princ)
)