(defun c:tay( / a1 a7 a8 a10 a11 a40 a50 a72 a73 ent oldos elist txtlist kosegen dx ele)
  (if (setq ent (entsec "TEXT" "\nKelimelere ayrıştırılacak yazıyı seçiniz :"))
    (progn
      (setvar "CMDECHO" 0)
      (command "undo" "begin")
      (setq oldos (getvar "OSMODE"))
      (setvar "OSMODE" 0)
      (setq elist (entget ent)
            txtlist (text2list (cdr (assoc 1 elist)))
            a1 (assoc 1 elist)
            a7 (assoc 7 elist)
            a8 (assoc 8 elist)
            a10 (assoc 10 elist)
            a11 (assoc 11 elist)
            a40 (assoc 40 elist)
            a50 (assoc 50 elist)
            a72 (assoc 72 elist)
            a73 (assoc 73 elist)
      )
      (entdel ent)
      (setq elist (list (cons 0 "TEXT") a1 a8 a10 a40 a50))
      (if  a7 (setq elist (append elist (list a7 ))))
      (if a11 (setq elist (append elist (list a11))))
      (if a72 (setq elist (append elist (list a72))))
      (if a73 (setq elist (append elist (list a73))))
      (foreach ele txtlist
        (setq elist  (subst (cons 1 (strcat ele "_")) (assoc 1 elist) elist)
              kosegen (textbox elist)
              dx (- (caadr kosegen) (caar kosegen))
              ;dy (- (cadadr kosegen) (cadar kosegen))
        )
        (setq elist  (subst (cons 1 ele) (assoc 1 elist) elist))
        (entmake elist)
        (setq a10 (cons 10 (polar (cdr a10) (cdr a50) dx)))
        (setq elist (subst a10 (assoc 10 elist) elist))
        (if a11
          (setq a11 (cons 11 (polar (cdr a11) (cdr a50) dx))
                elist (subst a11 (assoc 11 elist) elist))
        )
      );_foreach
      (setvar "OSMODE" oldos)
      (command "undo" "end")
      (setvar "CMDECHO" 1)
    );_progn
  );_if
  (princ)