;**************************************************************************************************
;**                                     MAIN                                                     **

(defun c:YY ()
  (vl-load-com)
  (initget 1024 "Previous")
  (setq sset (nentsel "\nSelect object or [Previous]"))
  (if (/= sset "Previous")
    (progn
      (setq Y_DATA (open (strcat(getvar "savefilepath")"Y_DATA.TXT") "W"))
      (write-line (cdr (assoc 8 (entget (car sset)))) Y_DATA)
      (write-line (cdr (assoc 1 (entget (car sset)))) Y_DATA)
      (write-line
(rtos (cdr (assoc 40 (entget (car sset)))) 2 5)
Y_DATA
      )
    )
  )
  (prompt "\nSelect point or object:")
  (while (or (= (car (setq p1 (grread t 4 2))) 5)
     (= (car (setq p1 (grread t 4 2))) 2)
)
  )
(setq ssetr (nentselp "" (cadr p1)))
  (if (= ssetr nil)
    (progn
      (text_yaz)
    )
    (progn
      (text_deg)
    )
  )
  (close link)
  (princ "\n")
)

;**                                                                                              **
;**************************************************************************************************

;**************************************************************************************************
;**                                     TEXT YAZ                                                 **

(defun text_yaz ()
  (setq p (cadr p1))
  (while (/= nil p)
    (setq Y_DATA (open (strcat(getvar "savefilepath")"Y_DATA.TXT") "r"))
    (entmake (list
       (cons 0 "TEXT")
       (cons 100 "AcDbEntity")
       (cons 8 (read-line Y_DATA))
       (cons 100 "AcDbMText")
       (cons 10 p)
       (cons 1 (read-line Y_DATA))
       (cons 40 (atof (read-line Y_DATA)))
     )
    )
    (setq p (getpoint "\nSelect a point:"))
  )
)

;**                                                                                              **
;**************************************************************************************************

(princ "TEXT KOPYALAMA LISPI YUKLENDI CALISTIRMAK ICIN [YY]...")

;**************************************************************************************************
;**                                       TEXT DEGISTIR                                          **

(defun text_deg ()
  (setq Y_DATA (open (strcat(getvar "savefilepath")"Y_DATA.TXT") "r"))
  (read-line Y_DATA)
  (setq st (read-line Y_DATA))
  (while (/= nil ssetr)
    (setq #dt (entget (car ssetr)))
    (setq #dt (subst (cons 1 st)
     (assoc 1 #dt)
     #dt
      )
    )
    (entmod #dt)
    (setq ssetr (nentsel "\nSelect object"))
  )
)

;**                                                                                              **
;**************************************************************************************************