(defun c:KnL (/ *error* )
(setvar "cmdecho" 0) (command "undo" "group")
(setq oosm (getvar "osmode")) (setq ola (getvar "clayer"))
(defun *error* (er) (setvar "osmode" oosm)
(setvar "clayer" ola) (command "undo" "e") (princ er))
(if (not (tblsearch "Layer" "AKAR_YONU"))
(entmake (list
    (cons 0 "Layer") (cons 100 "AcDbSymbolTableRecord")                                             
    (cons 100 "AcDbLayerTableRecord") (cons 2 "AKAR_YONU")                                              
    (cons 62 1) (cons 70 0)                                                                                                         
    (cons 290 1) (cons 370 0)                                                                                                       
)                                                           
)
)
(if (not (tblsearch "Layer" "AKAR_MESAFE"))
(entmake (list
(cons 0 "Layer") (cons 100 "AcDbSymbolTableRecord")                                           
(cons 100 "AcDbLayerTableRecord") (cons 2 "AKAR_MESAFE")                                           
(cons 62 30) (cons 70 0)                                                                                                   
(cons 290 1) (cons 370 0)                                                                                                 
)                                                           
)
)
(if (not (tblsearch "Layer" "AKAR_YAZI"))
(entmake (list
(cons 0 "Layer") (cons 100 "AcDbSymbolTableRecord")                                           
(cons 100 "AcDbLayerTableRecord")(cons 2 "AKAR_YAZI")                                          
(cons 62 30) (cons 70 0)                                                                                                   
(cons 290 1) (cons 370 0)                                                                                                 
)                                                           
)
)
(if (not yy) (setq yy 1))
(if (setq sn (getreal (strcat "\nYazı yüksekliği --> <" (rtos yy) "> :")))
(setq yy sn) (setq sn yy))
(if (not ePp) (setq ePp 200))
(if (setq ol (getreal (strcat "\nØ Değeri --> <" (rtos ePp) "> :")))
(setq ePp ol) (setq ol ePp))
(if (= kk nil) (setq kk "B.B.O"))
(setq aa (getstring (strcat "\nØ Sonrası yazılacak yazı --> < "kk" > :")))
(if (/= aa "")(setq kk aa))
(setq son (strcat "[%%c" (rtos epp 2 0) " " kk "]"))
(while (not (setq  n1  (getpoint "\nBaşlangıç noktası. "))))
(while (/= n1 nil)
(setq n2  (getpoint n1 "\nBitiş noktası. "))
(setq ac  (angle n1 n2))
(if (and (<= ac 4.71239) (> ac 1.5708))
(setq ca (+ (angtof "180.00") ac))
(setq ca ac)
)
(setq di  (distance n1 n2)
mdp (polar n1 (angle n1 n2) (/ (distance n1 n2) 2.0))
n3  (polar n2  (+ ac 0) (* sn -1))
y1  (polar mdp  (+ ca (/ pi 2)) (* sn 1))
y2  (polar y1  (+ ca (/ pi 2)) (* sn 1.25))
)
(setvar "clayer" "AKAR_YONU")
(setvar "osmode" 0)
(command  "pline" n2 "W" 0 (* sn 0.75) n3 "W" 0 0 n1 "")
(entmake
(list
(cons 0 "TEXT") 
(cons 100 "AcDbEntity")
(cons 100 "AcDbText")
(cons 10 y1)
(cons 11 y1)
(cons 1 son)
(cons 40 sn)
(cons 50 ca)
(cons 41 1)
(cons 72 1)
(cons 8 "AKAR_YAZI")
(cons 73 2)
)
)
(entmake
(list
(cons 0 "TEXT") 
(cons 100 "AcDbEntity")
(cons 100 "AcDbText")
(cons 10 y2)
(cons 11 y2)
(cons 1 (strcat "L=" (rtos di 2 2) "m" ))
(cons 40 sn)
(cons 50 ca)
(cons 41 1)
(cons 72 1)
(cons 8 "AKAR_MESAFE")
(cons 73 2)
)
)
(setvar "clayer" ola) (setvar "osmode" oosm) (command "_.undo" "e") (prin1)
(while (not (setq n1  (getpoint "\nBaşlangıç noktası. ")))))
)