||||(defun c:tjm()
    (prompt "\njustify text middle")
    (setq a(ssget '((0 . "text"))))
    (command "justifytext" a "" "m")
  (princ)
) ;if

이런식으로 사용하는건 괜찬더라구염..대신...
justifytext 를

while / repeat로 뺑뺑이 돌리면...캐드가 맛이 갑니다.^^;;;
이 게시물을...