(defun c:uon ()
  (setvar "modemacro" "Archme Design by --> EhYa <--")
  (vl-load-com)
  (if (not (tblsearch "style" "Metraj"))
    (progn       
      (if (= yaz_yk nil)
(setq yaz_yk 15.0)
)
      (setq yazy (getreal (strcat "\ Yazı stili yüksekliği <" (rtos yaz_yk 2) ">:")))
      (if (= yazy nil)
(setq yazy yaz_yk)
)
      (setq yaz_yk yazy)
      (command "STYLE"
       "Metraj"
       "Comic Sans MS"
       (rtos yaz_yk)
       "0.9"
       ""
       ""
       ""
      )
    )
  )
  (if (= ykat_sor nil)
    (command "layer" "_M" "DOSEME" "_C" "230" "" "")
  )
;
  (setq secim (ssget '((-4 . "<OR")
       (0 . "LINE")
       (0 . "LWPOLYLINE")
       (0 . "ARC")
       (0 . "ELLIPSE")
       (0 . "SPLINE")
       (0 . "CIRCLE")
       (-4 . "OR>")
      )
      )
  )

  (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 (= tanimi "ARC")
  (progn
    (setq data (vlax-ename->vla-object teksecim))
    (setq uz-bul (vla-get-arclength data))
    (setq toplami (+ toplami uz-bul))
  )
)
(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))
  )
)
(if (= tanimi "CIRCLE")
  (progn
    (setq data (vlax-ename->vla-object teksecim))
    (setq uz-bul (vla-get-circumference data))
    (setq toplami (+ toplami uz-bul))
  )
)
(if (or (= tanimi "ELLIPSE") (= tanimi "SPLINE"))
  (progn
    (command "._area" "e" teksecim)
    (setq uz-bul (getvar "perimeter"))
    (setq toplami (+ toplami uz-bul))
  )
)
(setq c (+ c 1))
      )
      (setq
yz_nkt (getpoint "\n Yazının yerleşeceği noktayı gösterin:")
      )
      (if (= yz_nkt nil)
(progn
  (alert (strcat "\nToplam Uzunluk: "
(rtos (/ toplami 100) 2 2)
" metre"
)
  )
)
(progn
  (setq yzadt (getint "\n Ölçülen çizginin adetini girin:"))
  (if (= yzadt nil)
    (progn
      (setq sonuc toplami)
    )
    (progn
      (setq sonuc (* yzadt toplami))
    )
  )
  (command "_text"
   "_st"
   "Metraj"
   "j"
   "_mc"
   yz_nkt
   ""
   (strcat (rtos (/ sonuc 100) 2 2) " m.")
  )


)
      )

    )
  )
  (princ)
)