문자정령 리습 관련하여 질문 드립니다.

여기에 질문해도 되는지 모르겠지만..(문제시 삭제하겠습니다.)

드림에서는 문자를 사각형 가운데 정렬하면 객체를 여러개 해도 가능했었던거 같은데 

리습으로 할려니 문자객체 하나만 선택이 되네요

혹시 가능한 방법 없을까요? 

제가 쓰는 리습은 아래에 적어봅니다.

(defun c:DD ( / pt1 pt2 txt otxt mpt)   

  (prompt "\n두점을 선택하세요...") 

  (if (setq pt1 (getpoint "\n두점중 첫번째 점을 선택하세요..")) 

    (if (setq pt2 (getpoint pt1 "\n두점중 두번째 점을 선택하세요..")) 

      (if (setq txt (entsel "\n정렬시킬 문자를 선택하세요...")) 

        (progn 

          (setq otxt (vlax-ename->vla-object (car txt))) 

          (setq mpt (list (/ (+ (car pt1)(car pt2)) 2.0) (/ (+ (cadr pt1)(cadr pt2)) 2.0)))           

          (vla-put-alignment otxt acalignmentmiddle) 

          (vla-put-textalignmentpoint otxt (vlax-3d-point mpt)) 

        ) 

      ) 

    ) 

  ) 

  (princ) 

)