(Defun c:plb ()
  (setvar "cmdecho" 0)
  (setq dosyaadı (getstring "data dosyası adı giriniz : "))
  (setq dosyayeri (strcat (getvar "dwgprefix") dosyaadı ".txt"))
  (terpri)
  (setq txt (open dosyayeri "w"))
  (write-line
    (strcat "Sıra No" "\t" "Renk" "\t" "Layer" "\t" "Çevre" "\t" "Alan")
    txt
  )
  (close txt)
  (setq sırano 0)
  (while
    (setq ent (entsel "\n  .......Polyline Seçiniz  : "))
     (setq en (car ent))
     (setq enlist (entget en))
     (setq objetipi (cdr (assoc 0 enlist)))
     (if (or
	   (= objetipi "LWPOLYLINE")
	   (= objetipi "POLYLINE")
	 )
       (progn
	 (command "area" "o" en)
	 (setq a (getvar "area"))
	 (setq per (getvar "perimeter"))
	 (setq layer (cdr (assoc 8 enlist)))
	 (setq renk (cdr (assoc 62 enlist)))
	 (if (= renk nil)
	   (setq renk 256)
	 )
	 (setq txt (open dosyayeri "a"))
	 (write-line
	   (strcat (rtos (+ sırano 1) 2 0)
		   "\t"
		   (rtos renk 2 0)
		   "\t"
		   layer
		   "\t"
		   (rtos per 2 2)
		   "\t"
		   (rtos a 2 2)
	   )
	   txt
	 )
	 (close txt)
	 (setq sırano (+ sırano 1))
       )
     )
  )
)
(Defun cks ()
  (alert (strcat dosyayeri "  dosyası oluşturuldu"))
)