기존의 텍스트값을 복사 후 원하는 곳에 입력하기??

(defun c:ct()
(setvar “cmdecho” 0)
(setq ttt (ssget “x” ‘((0 . “TEXT”))))
(setq po1 (getpoint ))
(command “text” po1 “3” “0” ttt )
)

허접하게 한번 해봤는데, 에러가 나네요….
이미 존재하는 텍스트..예를들어 A라고 써있는 것을 선택 후,
새로 집어넣을 포인트를 찍어주면 바로 A라는 글자가 입력되는 리습입니다..

도와주세요~~~ ㅡ ㅜ;;