(defun c:cr ( / 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)
)