(defun c:uon1 ()
(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"
"TAHOMA"
(rtos yaz_yk)
"0.9"
""
""
""
)
)
)
(if (= ykat_sor nil)
(command "layer" "_M" "Metraj" "_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)
)