(defun ykot_hata (s)
  (if (/= s "Function cancelled")
    (princ (strcat "\nError: " s))
  )
  (setvar "CMDECHO" yko_cmd)
  (setvar "OSMODE" yko_osm)
  (setvar "DIMZIN" yko_dzn)
  (setq *error* ykoerr)
  (princ)
)
(DEFUN C:YKO (/)
  (setq ykoerr *error*
*error* ykot_hata
  )
  (grtext -1 "< Harbi65 Design by © 2009 >")
  (princ "\n Harbi65 Design by © - Kastamonu  / 1993-2009 / harbi65@gmail.com")
  (setq yko_cmd (getvar "CMDECHO")
yko_osm (getvar "OSMODE")
yko_dzn (getvar "DIMZIN")
  )
  (setvar "CMDECHO" 0)
  (setvar "DIMZIN" 0)
  (if (= yyuk nil)
    (setq yyuk 15)
  )
  (setq
    yyk (getreal
  (strcat "\nYazı yüksekliğini girin <" (rtos yyuk 2 0) ">:")
)
  )
  (if (= yyk nil)
    (setq yyk yyuk)
  )
  (setq yyuk yyk)
  (setq smh "Mahal")
  (if (not (tblsearch "style" "Kot-Mes" "STANDARD"))
    (command "STYLE" "Kot-Mes" "ISOCPEUR" "" "1" "" "" "")
  )
(setvar "OSMODE" 32)
  (if
    (setq p1 (getpoint "\n Referans noktayı gösterin: "))
     (progn
       (setq nn nil)
       (while (= nn nil)
(if
   (setq p2 (getpoint p1 "\nKot verilecek nokta: "))
    (progn
      (setq mes1 (distance p1 p2)
    aci (angle p1 p2)
      )
      (setvar "OSMODE" 0)

      (cond
((or (= aci pi) (= aci (- pi pi)))
(setq ang1 aci)
(setq str "%%P")
)
((<= aci (/ pi 2))
(setq ang1 aci)
(setq str "+")
)
((and (> aci (/ pi 2)) (< aci pi))
(setq ang1 (- pi aci))
(setq str "+")
)
((and (> aci pi) (< aci (* pi 1.5)))
(setq ang1 (- aci pi))
(setq str "-")
)
((or (>= aci (* pi 1.5)) (< aci (* pi 2)))
(setq ang1 (- (* pi 2) aci))
(setq str "-")
)
      )
      (if (= ang1 pi)
(setq ang1 (+ ang1 pi))
      )
      (if (or (/= aci (/ pi 2)) (/= aci (* pi 1.5)))
(setq nkot (* mes1 (cos ang1)))
(setq nkot mes1)
      )
      (if (/= aci pi)
(setq kot (* mes1 (sin ang1)))
(setq kot (- mes1 mes1))
      )
      (setq ynok (polar p2 (/ pi 2) yyuk))
      (princ (strcat "\nMesafe: " (rtos nkot)))
      (princ (strcat "\nKot   : " (rtos kot)))

      (entmake (list
(cons 0 "TEXT")
(cons 100 "AcDbEntity")
(cons 100 "AcDbText")
(cons 8 "Mesafe")
(cons 10 ynok)
(cons 11 ynok)
(cons 40 yyuk)
(cons 50 (/ pi 2))
(cons 1 (rtos nkot 2 2))
(cons 7 "Kot-Mes")
(cons 73 1)

       )
      )
      (entmake (list
(cons 0 "TEXT")
(cons 100 "AcDbEntity")
(cons 100 "AcDbText")
(cons 8 "Kot")
(cons 10 p2)
(cons 11 p2)
(cons 40 yyuk)
(cons 50 0)
(cons 1 (strcat str (rtos kot 2 2)))
(cons 7 "Kot-Mes")
(cons 73 1)
       )
      )
      (setvar "OSMODE" 32)
    )
    (setq nn T)
)
       )
     )
  )
  (setvar "DIMZIN" yko_dzn)
  (setvar "CMDECHO" yko_cmd)
  (setvar "OSMODE" yko_osm)
  (princ)
)
(princ
  "\nReferans Noktaya Göre Gösteriler Noktanın Koordianatı-Mesafesini Yazar        Çalıştırmak için: [ YKO ]"
)