(defun c:bmt ()
  (if (= cap nil)
    (progn
      (setq cap 15)
    )
  )
  (if (= sys nil)
    (progn
      (setq sys "Boru")
    )
  )
  (initget 1024 "Tablo")
  (setq p1 (getpoint "\nBaslangic noktasini sec [Tablo]:"))
  (initget 1024 "Cap System")
  (while (and (/= p1 "Tablo")
      (/= nil
  (setq p2 (getpoint p1
     (strcat "\nIlk noktayi sec[Cap <"
     (rtos cap 2 0)
     ">/ System<"
     sys
     ">]:"
     )
   )
  )
      )
)
    (cond
      ((= p2 "Cap") (cap_al))
      ((= p2 "System") (sys_al))
      ((and (/= p2 "Cap") (/= p2 "System")) (ciz))
    )
    (initget 1024 "Cap System")
  )
  (if (= p1 "Tablo")
    (progn
      (dls)
    )
  )
)

(defun cap_al ()
  (setq y_cap (getreal (strcat "\nYeni capi gir<" (rtos cap 2 0) ">:")))
  (if (= nil y_cap)
    (progn y_cap cap)
  )
  (setq cap y_cap)
)

(defun sys_al ()
  (setq y_sys (getstring (strcat "\nYeni system gir<" sys ">:")))
  (if (= nil y_sys)
    (progn y_sys sys)
  )
  (setq sys y_sys)
)

(defun ciz ()
  (setq layer (strcase (strcat "metraj_" sys "_" (rtos cap 2 0))))
  (if (null (tblsearch "LAYER" layer))
    (entmake
      (list
(cons 0 "LAYER")
(CONS 100 "AcDbSymbolTableRecord")
(CONS 100 "AcDbLayerTableRecord")
(cons 2 layer)
(cons 70 0)
(cons 62 155)
(cons 6 "CONTINUOUS")
      )
    )
  )
  (setvar "CLAYER" layer)
  (command "PLINE" p1 p2 "")
  (setq p1 p2)
)

(defun dls ()
  (setq data (dosya_adi "csv"))
  (setq f (open data "w"))
  (setq p1 (getpoint "\nTablo yerlesim yerini gosteriniz:"))
  (while (/= (setq l_adi (cdr (assoc 2 (tblnext "LAYER")))) nil)
    (setq d_kodu (substr l_adi 1 6))
    (if (= d_kodu "METRAJ")
      (progn
(secim1)
      )
    )
  )
  (princ "\nmiyatu tool kullanildi...")
  (tblnext "LAYER" t)
  (PRINC)
)
(PRINC "BORU METRAJ TABLOSU YAPAN LISP YUKLENDI... [BMT]")

(defun topla ()
  (vl-load-com)
  (if (= secim nil)
    (progn
    )
    (progn
      (setq sayim (sslength secim))
      (setq toplami 0
    c 0
      )
      (while (< c sayim)
(setq teksecim (ssname secim c))
(setq tanimi (cdr (assoc 0 (entget teksecim))))
(if (or (= tanimi "LINE")
(= tanimi "LWPOLYLINE")
(= tanimi "POLYLINE")
    )
  (progn
    (setq data (vlax-ename->vla-object teksecim))
    (setq uz-bul (vla-get-length data))
    (setq toplami (+ toplami uz-bul))
  )
)
(setq c (+ c 1))
      )
      (setq uzunluk (rtos (/ toplami 1000) 2 2))

    )
  )
  (text_yaz l_adi p1 (strcat l_adi ";" uzunluk))
)

(defun secim1 ()
  (setq secim (ssget "_X" (list (cons 0 "LWPOLYLINE") (cons 8 l_adi))))
  (if (/= secim nil)
    (progn
      (setq p1 (polar p1 (dtr 270) 200))
      (topla)
    )
  )
)

(defun dosya_adi (#uzanti)
  (strcat (getvar "dwgprefix")
  (substr (getvar "dwgname")
  1
  (- (strlen (getvar "dwgname")) 3)
  )
  #uzanti
  )
)

(defun text_yaz (#t8 #t10 #t1)
  (entmake (list
     (cons 0 "TEXT")
     (cons 100 "AcDbEntity")
     (cons 8 #t8)
     (cons 100 "AcDbMText")
     (cons 10 #t10)
     (cons 1 #t1)
     (cons 40 125)
   )
  )
  (write-line (strcat l_adi ";" uzunluk) f)
)

(defun dtr (#aci)
  (* pi (/ #aci 180.0))
)

(defun secim2 ()
  (setq secim (ssget "_X" (list (cons 0 "LWPOLYLINE") (cons 8 l_adi))))
  (if (/= secim nil)
    (progn
      (setq p1 (polar p1 (dtr 270) 200))
      (setq d_kodu d_kodu1)
      (topla)
    )
  )
)

(defun c:bs (/ ns ss n nm ob ls)
  (if (setq ns (ssadd) ss (ssget '((0 . "insert"))))
    (progn
      (repeat (setq n (sslength ss))
        (if (not (member (setq nm (cdr (assoc 2 (entget (setq ob (ssname ss
              (setq n (1- n)))))))) ls))
          (setq ls (cons nm ls) ns (ssadd ob ns)))
      ) (sssetfirst nil ns)
    )
  ) (princ)
)