(defun c:tol () (vl-load-com)
(if (setq tol_sec (ssget (list (cons 0 "DIMENSION"))))
  (progn
    (setq c 0
  toplam 0
  say (sslength tol_sec))
    (while (< c say)
      (setq tek (ssname tol_sec c)
    data (vlax-ename->vla-object tek)
    tol (vla-get-TextOverride data)
    mea (vla-get-measurement data))
      (if (= tol "")
(setq toplam (+ toplam mea))
(setq toplam (+ toplam (distof tol))))
      (setq c (1+ c)))
    (alert (strcat "\nToplam Uzunluk [ " (rtos toplam 2 2) " ]"))))(princ))