(defun c:ppllyy ()
  (setvar "cmdecho" 0) (command "undo" "group")
  (setq pln (car (entsel "\Bir Polyline Seciniz...")))
  (command "area" "e" pln)
  (setq alan (getvar "area") plng (entget pln) nokta 1)
  (princ "\n==============================")
  (while (assoc 10 plng)
    (princ (strcat "\nx" (itoa nokta) "=" (rtos(cadr (assoc 10 plng))) "   "))
    (princ (strcat "y" (itoa nokta) "=" (rtos (caddr (assoc 10 plng)))))
    (setq plng (subst (list 11 (cdr (assoc 10 plng))) (assoc 10 plng) plng) nokta (1+ nokta))
  )
  (princ "\n------------------------------")
  (princ (strcat "\n   Alan=" (rtos alan)))
  (princ "\n==============================")
  (command "undo" "e") (prin1)
)

(defun c:ppllyy ()
  (setvar "cmdecho" 0)
  (command "undo" "group")
  (setq pln (car (entsel "\Bir Polyline Seciniz...")))
  (command "area" "e" pln)
  (setq eyuk (* (getvar "dimtxt") (getvar "dimscale")))
  (setq yyuk (getreal (strcat "\nYazi yuksekligi <" (rtos eyuk) "> :")))
  (if (= yyuk nil) (setq yyuk eyuk))
  (setq alan  (getvar "area") plng  (entget pln))
  (setq txp (getpoint "\nYazıların yerleşeceği yerin sol üst köşesini seçiniz:"))
  (command "text" txp yyuk 0 "mesafe kot")
  (command "text" "" "--------------------------")
  (while (assoc 10 plng)
    (command "text" "" (strcat (rtos (cadr (assoc 10 plng)) 2 2) "  " (rtos (caddr (assoc 10 plng)) 2 2)))
    (setq plng  (subst (list 11 (cdr (assoc 10 plng))) (assoc 10 plng) plng))
  )
  (command "text" "" "--------------------------")
  (command "text" "" (strcat "Alan = " (rtos alan 2 2) "m²"))
  (command "undo" "e")
  (prin1)
)