(defun c:xx ( / ss sa say say1 say2  top n  stc yaz)

   (setq ss (ssget '((0 . "text"))))
   
   (setq st (ssget "x") n 0 top 0 stc nil)
   (setq sa (ssname ss n))
   (while sa

       (setq say (cdr(assoc 1(entget sa))))
       
   
       (setq top (+ top (atof say)))
       (setq stc (cons (atof say) stc))
       (setq n (+ 1 n))       (setq sa (ssname ss n))
   )
   (setq l3 (list stc))
   (setq l4 (car l3))
   (setq crp (* (nth 0 l4)(nth 1 l4)(nth 2 l4)))
 

   
   (setq yaz (strcat "\nÇARPIM: " (rtos crp 2 4)))
   (princ (strcat "\nTOPLAM: "    (rtos top 2 3))) (princ)
   (princ yaz) (princ)
)