(defun c:kn (/ gec_stil gec_yuk nokta_yakala aralik bilgi nokta x y nokta_y nokta_2 nok_y x_koor y_koor x_1 y_1 yazi aciklama)
(prompt "
10/2005 © Ver 2.0 Koordinat yazımı.")

(setvar "CMDECHO" 0)
(setq gec_stil (getvar "TEXTSTYLE"))
(setq gec_yuk ( getvar "TEXTSIZE"))
(setq nokta_yakala (getvar "OSMODE"))


(setq aralik (* gec_yuk 1.618))

(setq bilgi (strcat "
Aktif yazı stili <" gec_stil "> / yüksekliği <" (rtos gec_yuk) "> dir."))
(princ bilgi)

(while (= nokta nil)
  (setq nokta (getpoint "
Koordinatı alınacak noktayı giriniz: "))
    (if (= nokta nil) (princ "Bir nokta girmelisiniz..."))
)
  (setq x (car nokta)
        y (cadr nokta))

(setq x_koor (strcat "x:" (rtos x) "_" ))
(setq y_koor (strcat "y:" (rtos y)))
(princ x_koor) (princ y_koor)

  (setq nokta_y (getpoint ( strcat "
Yazının başlangıç noktasını giriniz /<Koordinat noktası>: ")))
    (if (= nokta_y nil) (setq nokta_y nokta))

  (setq x_1 (car nokta_y)
        y_1 (cadr nokta_y))

(setq nok_y (- y_1 aralik))
(setq nokta_2 (list x_1 nok_y))

(setvar "OSMODE" 0)

;;;******************************** değiştirilebilir bölüm

(command "text" nokta_y "" "" x_koor)
;(command "text" "S" "STANDARD" nokta_y "" "0" x_koor)

(command "text" nokta_2 "" "" y_koor)
;(command "text" "S" "STANDARD" nokta_2 "" "0" y_koor)

;;;*********************************

(setvar "OSMODE" nokta_yakala)
(princ)
)

defun c:alanc (/ yuksek a1b nokta deger yaz akyuk ciz_bir yaz_bir yazi_1 yazi_1_gir alan alan_t)
(prompt "
12/1998 © Ver 2.1 Alan hesabı ve yazımı.")
   (setvar "cmdecho" 0)
(setq akyuk (getvar "TEXTSIZE"))
(setq akstl (getvar "TEXTSTYLE"))


(setq yazi_1 (getstring T "
Alan bölümü için yazıyı girin <Alan: >: "))
(if (= yazi_1 "")(setq yazi_1 "Alan: "))

(while (and (/= ciz_bir "MM")(/= ciz_bir "CM")(/= ciz_bir "M"))
  (setq ciz_bir (strcase (getstring "
Çizilen birim <mm>/cm/m :")))
    (if (= ciz_bir "")(setq ciz_bir "MM"))
      (if  (and (/= ciz_bir "MM")(/= ciz_bir "CM")(/= ciz_bir "M"))
        (princ "
   *Geçersiz klavye girişi...")
      )
)
(setq y_d 0)
   (cond
        ((= ciz_bir "MM")(setq ciz_d 1000))
        ((= ciz_bir "CM")(setq ciz_d 10))
        ((= ciz_bir "M")(setq ciz_d 0.001))
   )
(yaz_bir_bol)
  (princ)
  )


(defun yaz_bir_bol ()
 


(while (and (/= yaz_bir "MM")(/= yaz_bir "CM")(/= yaz_bir "M"))
  (setq yaz_bir (strcase (getstring "
Yazılması istenen birim kare mm/cm/<m> :")))
    (if (= yaz_bir "")(setq yaz_bir "M"))
      (if  (and (/= yaz_bir "MM")(/= yaz_bir "CM")(/= yaz_bir "M"))
        (princ "
   *Geçersiz klavye girişi...")
      )
)

   (cond
        ((= yaz_bir "MM")(progn (setq yaz_d 1000)(setq br "mm")))
        ((= yaz_bir "CM")(progn (setq yaz_d 10)(setq br "cm")))
        ((= yaz_bir "M")(progn (setq yaz_d 0.001)(setq br "m")))
   )

  (yaz_bil_gir)
  )


(defun yaz_bil_gir ()
(setq crp_d (rtos (/ ciz_d yaz_d) 2 7))
(setq yuksek (getdist (strcat "
Aktif yazi stili<" akstl ">/Yazinin yuksekligini giriniz <" (rtos akyuk) ">: ")))
         (if (= yuksek nil)
        (setq yuksek akyuk)
       )
       (princ (strcat "Belirlenen yukseklik <" (rtos yuksek) "> dir."))


  (yaz_bol)
)


(defun yaz_bol ()
   (setq a1b 0)
   (setq alan 0)
   (setq alan_t 0)
    (while (/= a1b nil)
       (setq a1b (car (entsel "
Objeyi seçiniz: ")))
       (if (/= a1b nil)
         (progn
           (setq ayar (entget a1b))
           (setq oz (cdr (assoc 0 ayar)))
             (if (or (= oz "LWPOLYLINE") (= oz "CIRCLE") (= oz "ARC"))
               (progn
                 (redraw a1b 3)
                 (command "area" "o" a1b)
                 (setq alan_t (getvar "area"))
(setq alan (+ alan alan_t))
(princ "Toplam alan: ")(princ alan)
                   
       )
         ;(if (/= a1b nil) (redraw a1b 4))
       (princ (strcat "
Seçilen obje Lwpolyline değil, " oz " dir."))
    )
)
       )
    )
    (if (= y_d 0)
                      (setq crp_d (atof crp_d))
                    )
  (setq deger (/ alan crp_d))
                 (princ (strcat "
Alan: " (rtos deger)" " br "2 dir."))
     (while (= nokta nil)
             (setq nokta (getpoint "
Yazının başlangıç noktasını giriniz : "))
                   (if (= nokta nil)(princ "  Birnokta girmelisiniz..."))
                   )


(command "regen")
        (setq yazi (strcat yazi_1 (rtos deger) " " br "2"))
(princ "
Yazi: ")(princ yazi)
          (command "text" nokta yuksek "" yazi)
          (setq nokta nil)
        (setq y_d 1)

  (princ "
İşlem bitti.")
(princ)
)