도면에서 특정한 좌표에 있는 텍스트를 읽어오는 방법

안녕하세요
 계속 눈으로 보기만 하다가 이번에 가입해서 문의드립니다.
제목에서 말했듯이
도면에 특정한 좌표에 있는 텍스를읽어서 출력하고 싶은데 어떻게 해야되조
EX)
(defun PLTPNO (no / a x y LL UR PN)
  (setq no (1- no))
  (setq y (/ no 5))
  (setq x (- no (* y 5)))
  (setq a (list (* x 300) (* y 210)))
  (setq ll (list (- (car a) 0.5) (- (cadr a) 0.5)))
  (setq ur (list (+ (car a) 286.) (+ (cadr a) 193.)))
  (setq pn (1+ no))
  (setvar “osmode” 0)
  ;;printset
  (COMMAND “PLOT”      “Y”   “MODEL”  “DWG To PDF.pc3”    “”    “M”   “L”  “N”
    “w”  ll    ur    “F”   “C”  “Y”   “ACAD.CTB”    “Y”   “N”  PN
    “N”  “Y”
   )
  (setvar “osmode” osnapvar)
)
PDF로 케드를 출력하는데 각각 도면의 넘버(텍스트)를 좌표로 선택 하여 PDF 파일 제목으로 하고 싶은데
제실력이 부족하네요 지금은 순차적으로 1,2,3,4,~ 순으로만 제목이 저장되서 출력 되고 있습니다. PN이 저장되는 이름입니다.