(defun LYY_Hata (s)
  (if (/= s "Function cancelled")
    (princ (strcat "\nError: " s))
  ) 
  (setvar "CMDECHO" Lyz_Cmd)
  (setvar "OSMODE" Lyz_Osm)
  (setvar "CLAYER" Lyz_Lyr)
  (setq *error* olderr)
  (princ)
)
(defun c:LYY  (/ Czg Czg:0 Czg:EPt Czg:MPt Czg:8 Yz:Aci )
  (setq olderr *error*
*error* LYY_Hata
  )
  (setq Lyz_Cmd (getvar "CMDECHO")
Lyz_Osm (getvar "OSMODE")
Lyz_Lyr (getvar "CLAYER"))
  (setvar "modemacro" "< Harbi65 Design by © >")
  (setvar "CMDECHO" 0)
  (setvar "OSMODE" 0) 
  (if (= Yz:Yk nil)
    (setq Yz:Yk 12)
    )   
  (setq Yz: (getint (strcat "\n Yazı yüksekliğini girin <" (rtos Yz:Yk 2 0) "> :")))
  (if (= Yz: nil)
    (setq Yz: Yz:Yk)
    )
  (setq Yz:Yk Yz:)
  (setq Cz nil)
  (while (= Cz nil)
    (setq Czg (entsel "\n Çizgiyi seçin:"))
    (if (= Czg nil)
      (progn
(if (= (getvar "errno") 0)
  (progn
    (setvar "errno" 0)
    (print "Çizgi seçilmedi...!")
    (setq Cz nil)
    )
  )
(if (= (getvar "errno") 52)
  (progn
    (setq Cz t)
    (setvar "errno" 0)
    )
  )
)
      (progn
(setq Czg:Dt (entget (car Czg))
      Czg:0  (cdr (assoc 0 Czg:Dt))
      )
(if (or (= Czg:0 "LINE")
(= Czg:0 "LWPOLYLINE")
(= Czg:0 "PLINE"))
  (progn
    (setq Czg:EPt (osnap (cadr Czg) "endp")
  Czg:MPt (osnap (cadr Czg) "midp"))
    (setq Czg:8 (cdr (assoc 8 Czg:Dt))
  Yz:Aci (angle Czg:EPt Czg:MPt))
    (cond
      ((and (< (/ pi 2) Yz:Aci) (>= pi Yz:Aci))
       (setq Yz:Aci (+ Yz:Aci pi))
       )
      ((and (>= (* pi 1.5) Yz:Aci) (< pi Yz:Aci))
       (setq Yz:Aci (+ Yz:Aci pi))
       )
      )
    (setvar "CLAYER" Czg:8)
    (command "_.text"
     "j"
     "bc"
     Czg:MPt
     Yz:Yk
     (angtos Yz:Aci)
     Czg:8)
    )
  (progn
    (alert "Seçilen nesne Çizgi değil...!")
    )
  )
)
      )
    )
  (setvar "CLAYER" Lyz_Lyr)
  (setvar "OSMODE" Lyz_Osm)
  (setvar "CMDECHO" Lyz_Cmd)
  (princ)
  )
(PRINC "\nÇizgi üzerine Katman ismini yazar... \t Komut [ LYY ]"
)

(defun c:LYC  (/ Czg:El Czg:Orn Cz:Sec Czg:Tek Czg:10 Czg:11 Czg:Dt Czg:8 Yz:Aci Yz:Nok)
  (setq Lyz_Cmd (getvar "CMDECHO")
Lyz_Osm (getvar "OSMODE")
Lyz_Lyr (getvar "CLAYER"))
  (setvar "modemacro" "< Harbi65 Design by © >")
  (setvar "CMDECHO" 0)
  (setvar "OSMODE" 0) 
  (if (= Yz:Yk nil)
    (setq Yz:Yk 12)
    ) 
  (setq Yz: (getint (strcat "\n Yazı yüksekliğini girin <" (rtos Yz:Yk 2 0) "> :")))
  (if (= Yz: nil)
    (setq Yz: Yz:Yk)
    )
  (setq Yz:Yk Yz:)
  (if
    (setq Czg:Orn (entsel "\n Örnek katman için çizgi göster:"))
    (progn
   (setq Czg:El (entget (car Czg:Orn)))
  (setq Czg:8 (cdr (assoc 8 Czg:El)))
  (prompt "\n Katmanı yazılacak çizgi grubunu seçin:")
  (setq Cz:Sec (ssget (list (cons 0 "LINE")(cons 8 Czg:8))))
  (setq Cz 0)
  (repeat (sslength Cz:Sec)
    (setq  Czg:Tek (ssname Cz:Sec Cz))
    (setq Czg:Dt (entget Czg:Tek)
  Czg:10 (cdr (assoc 10 Czg:Dt))
  Czg:11 (cdr (assoc 11 Czg:Dt))
  )
    (setq Yz:Aci (angle Czg:10 Czg:11)
  Cz:Boy (distance Czg:10 Czg:11))
    (setq Yz:Nok (polar Czg:10 Yz:Aci (/ Cz:Boy 2)))
   
    (cond
      ((and (< (/ pi 2) Yz:Aci) (>= pi Yz:Aci))
       (setq Yz:Aci (+ Yz:Aci pi))
       )
      ((and (>= (* pi 1.5) Yz:Aci) (< pi Yz:Aci))
       (setq Yz:Aci (+ Yz:Aci pi))
       )     
      )
    (setvar "CLAYER" Czg:8)
    (command "_.text" "j" "bc" Yz:Nok Yz:Yk (angtos Yz:Aci) Czg:8)   
    (setq Cz (1+ Cz))
    )
  )
    (alert "Örnek katman gösterilmedi..!")
    )
  (setvar "CLAYER" Lyz_Lyr)
  (setvar "OSMODE" Lyz_Osm)
  (setvar "CMDECHO" Lyz_Cmd)
  (princ)
  )
(PRINC "\nÇizgilerin üzerine Katman ismini yazar... \t Komut [ LYC ]"
)