(defun c:txt()
  (vl-load-com)
    (setq file_open (open (strcat (getvar "dwgprefix") (vl-filename-base (getvar "dwgname")) "_Metraj.txt") "a"))
  (setq sec_text (entsel "\nYazıyı seçiniz :"))
  (while (= sec_text nil)
  (setq sec_text (entsel "\nYazıyı seçiniz :")))
  (while (/= sec_text nil)
    (setq text_al (cdr (assoc 1 (entget (car sec_text)))))
    (princ "\n>> ")
    (princ text_al)
    (setq str (strcat text_al "  " text_al))
    (write-line str file_open)
    (setq sec_text (entsel "\ndiğer Yazı :")))
  (close file_open))