드림에 있는 명령어 CR 문자 가운데정렬 리습문의 드립니다~~!!!!

DAUM 카페 중 '아키모아'에 질문하신 분과 같은 사유로

그 카페 회원분이 CR과 동일한 리습을 올려놓은 것으로 압니다.

카페 한번 확인해보세요

네 알겠습니다.

아키모아에서 찾아보니 자료가 있는것 같은데 아직 등업이 안되서 확인이 안되네여

알려주셔서 감사합니다.

(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)
)