TEXT 추출 후 좌표,내용 리스트로 저장

명령: (setq dx (entget (ssname (ssget) 0)))

명령: (setq co (list (cadr (assoc 10 dx)) (caddr (assoc 10 dx)))) ; X, Y 좌표 가져옴

명령: (setq tx (list (cdr (assoc 1 dx)))) ; 문자열 가져옴

명령: (setq ap '()) ; 리스트 초기화

명령: (setq ap (append ap co tx)) ; X Y 문자열로 리스트 ap 로 추가하기